
1. Serial Yapıcı
İlk once kendimize serial yapma programı yapalım sizde kendi programınızdan bu dosyaya erişerek serial olarak kullanabilirsiniz.
form un ustune 4 tane textbox ,1 tane de command koyun.
Serial Yapıcı Kod.
Private Sub Command1_Click()
s1 = Text1.Text ' değerleri atıyoruz
s2 = Text2.Text
s3 = Text3.Text
s4 = Text4.Text
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then ' eğer kutulardan herhangi biri boş ise
MsgBox ("Lutfen butun boşlukları doldurunuz.") ' msj ver
Else ' değilse
Open "C:serial.dat" For Output As #1 ' serial.dat dosyasını oluşturmak icin ac
Print #1, s1' s1 değişkenine text1.text in icini atamıştık.Bunuda dosyaya Print ile yazdırıyoruz .Buraya direkt text1.text yazabilirdik
Print #1, s2
Print #1, s3
Print #1, s4
Close #1
MsgBox ("Dosya C:... ye kaydedildi") ' işlem bittiği zaman msj yolla
End If
End Sub
2. Serial Okuyucu
Şimdi de yaptığımız seriali okuyacak bi program yapalım.
Form un ustune 1 tane dirlistbox,1 tane filelistbox,1 tane command,4 tanede textbox koyun
Kod icin:
Private Sub Form_Load()
Dir1.Path = "C:" ' dirlistbox un dizinini C: olarak ayarlıyoruz
File1.Path = Dir1.Path ' filelistbox un gostereceği dosyaların dizinini dirlistbox un dizinine eşitliyoruz
File1.Pattern = "*.dat" ' filelistbox un gostereceği dosya formatı
End Sub
Private Sub Command1_Click()
On Local Error GoTo secme ' oluşacak hataları secme 'ye yolla
Open Dir1.Path & File1.FileName For Input As #1 ' dirlistbox un dizini ile filelistbox 'taki secili dosyayı birleştirerek acar.Orn:dir1.path = "C:mk" olsun list box ta da mk.dat dosyası secili olsun.Bunlar birleşirse
"C:mkmk.dat" olur.
Line Input #1, s1 ' okuduklarını değişkenlere atar
Line Input #1, s2
Line Input #1, s3
Line Input #1, s4
Close #1
Text1.Text = s1 ' text lere okunan ları yolla
Text2.Text = s2
Text3.Text = s3
Text4.Text = s4
Exit Sub
secme: ' yukarıda da on local error goto secme yazmıştık.Hatalara karşı programı buraya yonlendiyordu.
MsgBox ("Lutfen bir dosya secin")
Exit Sub
End Sub
Private Sub Dir1_Change()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
File1.Path = Dir1.Path
End Sub
kodları ben verdim fakat şifre yacağımız yer yok

__________________