Full Versiyonu Görmek İçin Tıklayınız ---> Dosyalama Işlemi

Yardım Arama Üye Listesi Msn Al

Dosyalama İşlemi

İlk olarak projenizde 3 adet form olaması gerekiyor.

-------------------------------------------------
1. form için kodlar. Forma 2 command ekleyin.
/////////////////////////////////////////////////
Private Sub Command1_Click()
Form2.Show 'form 2yi görüntüle
End Sub

Private Sub Command2_Click()
Form3.Show 'form 3ü görüntüle
End Sub
/////////////////////////////////////////////////


--------------------------------------------------
2.form için kodlar. Forma 4'er adet label ve textbox ekleyin. Label1-Text1 'in karşısına gelecek şekilde olsun. Diğerleride aynen. 1 tane de command ekleyin.
/////////////////////////////////////////////////
Option Explicit

Private Sub Command1_Click()
Dim dosya 'değişkenimiz
dosya = "\belgem.txt" 'oluşturulacak belgemiz
Open dosya For Append As #1 'burada dosyamızı 'oluşturuyoruz.

'textlerin içeriklerini 'kaydediyoruz.
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text
Write #1, Text4.Text

'burdaki "#1"in anlamı kısaca kaydımıza numara 'veriyoruz. Okurken yine bu numarayı 'kullanacağız.

Close #1 'dosyamızı kapatıyoruz.

Form2.Visible = False
End Sub

Private Sub Form_Load()
Command1.Caption = "KAYDET"
Label1.Caption = "Adı"
Label2.Caption = "Soyadı"
Label3.Caption = "TC Kimlik No"
Label4.Caption = "Sicil No"
End Sub
/////////////////////////////////////////////////

--------------------------------------------------

3. form için kodlar. Aynı şekilde 4'er adet Label , Listbox ekleyin. label1'in alına List1'i yerleştirin diğerleride aynen.

//////////////////////////////////////////////////

Option Explicit

Private Sub Form_Load()
Dim dosya 'değişkenimiz
Dim a, b, c, d
'dört ayrı textte kayıt yaptığımız için böyle bir 'değişken belirledik.
dosya = "\belgem.txt" 'yine aynı belgemiz.

Open dosya For Input As #1
' belgemizi okumak için kodumuz

Do 'döngü açaraz okuma yapıyoruz
Input #1, a, b, c, d 'değişkenleri okuyoruz
List1.AddItem a 'listboxların içlerine atıyoruz
List2.AddItem b
List3.AddItem c
List4.AddItem d
Loop While Not EOF(1) 'döngünün sonu
'dosya sonu kontrolü
Close #1 'kapatıyoruz

Label1.Caption = "Adı"
Label2.Caption = "Soyadı"
Label3.Caption = "TC Kimlik No"
Label4.Caption = "Sicil No"
End Sub

/////////////////////////////////////////////////

--------------------------------------------------

Projenizi kaydettikten sonra deneyin. Kaydettiğiniz belgeyi bulamayabilirsiniz. Kullanıcıların kaydettiğiniz verilerinize ulaşmasını istemiyorsanız. Asci kodlar yardımıyla herkarekteri klavyeden belli bir anlamı olmayan işaretlere çevirerek kayıt yaptırabilirsiniz. Fakat okuturkende tekrar eski haline dönecek şekilde olması gerekiyor. Belgeniniz uzantısınıda değiştirebilirsiniz.

Kolay gelsin...