NOT: DOKUMAN UZERİNE 4 LABEL 4 TEXTBOX 4 TANEDE COMMAND BUTTON EKLEYİN İSİMLERİNİDE SU SEKİLDE VERİN;
TEXT1=OKULNO
TEXT2=ADSOY
TEXT3=SINIF
TEXT4=BOLUM
COMMAND1=KAYDET
COMMAND2=BUL
COMMAND3=TEMIZLE
DAHA SONRA KOD KISMINA BU KODLARI YERLESTİRİN TEXTBOXLARA GEREKENLERİ YAZIN KAYDETE BASTIGINIZDA C NİN İCİNDE BİR DOSYA ACICAK VE ORENCİNİN OKUL NOSUNA GORE KAYDETME İSLEMİNİ YAPACAKTIR... KOLAY GELSİN....
Private Type ogrencitip
isimsoyisim As String * 20
OKULNO As Integer
SINIF As String * 5
BOLUM As String * 20
End Type
Dim OGRENCi As ogrencitip
Private Sub BUL_Click()
If OKULNO.Text = "" Then
MsgBox "boyle bir kayit yok"
GoTo son
End If
Open "h:bilgi.txt" For Random As #1
Get #1, Val(OKULNO.Text), OGRENCi
OKULNO.Text = OGRENCi.OKULNO
ADSOY.Text = OGRENCi.isimsoyisim
SINIF.Text = OGRENCi.SINIF
BOLUM.Text = OGRENCi.BOLUM
Close #1
son:
End Sub
Private Sub KAYDET_Click()
OGRENCi.isimsoyisim = ADSOY.Text
OGRENCi.OKULNO = Val(OKULNO.Text)
OGRENCi.SINIF = SINIF.Text
OGRENCi.BOLUM = BOLUM.Text
Open "h:/bilgi.txt" For Random As #1
Put #1, OGRENCi.OKULNO, OGRENCi
Close #1
End Sub
Private Sub TEMIZLE_Click()
OKULNO.Text = ""
ADSOY.Text = ""
SINIF.Text = ""
BOLUM.Text = ""
End Sub
Bukadar basit
TEXT1=OKULNO
TEXT2=ADSOY
TEXT3=SINIF
TEXT4=BOLUM
COMMAND1=KAYDET
COMMAND2=BUL
COMMAND3=TEMIZLE
DAHA SONRA KOD KISMINA BU KODLARI YERLESTİRİN TEXTBOXLARA GEREKENLERİ YAZIN KAYDETE BASTIGINIZDA C NİN İCİNDE BİR DOSYA ACICAK VE ORENCİNİN OKUL NOSUNA GORE KAYDETME İSLEMİNİ YAPACAKTIR... KOLAY GELSİN....
Private Type ogrencitip
isimsoyisim As String * 20
OKULNO As Integer
SINIF As String * 5
BOLUM As String * 20
End Type
Dim OGRENCi As ogrencitip
Private Sub BUL_Click()
If OKULNO.Text = "" Then
MsgBox "boyle bir kayit yok"
GoTo son
End If
Open "h:bilgi.txt" For Random As #1
Get #1, Val(OKULNO.Text), OGRENCi
OKULNO.Text = OGRENCi.OKULNO
ADSOY.Text = OGRENCi.isimsoyisim
SINIF.Text = OGRENCi.SINIF
BOLUM.Text = OGRENCi.BOLUM
Close #1
son:
End Sub
Private Sub KAYDET_Click()
OGRENCi.isimsoyisim = ADSOY.Text
OGRENCi.OKULNO = Val(OKULNO.Text)
OGRENCi.SINIF = SINIF.Text
OGRENCi.BOLUM = BOLUM.Text
Open "h:/bilgi.txt" For Random As #1
Put #1, OGRENCi.OKULNO, OGRENCi
Close #1
End Sub
Private Sub TEMIZLE_Click()
OKULNO.Text = ""
ADSOY.Text = ""
SINIF.Text = ""
BOLUM.Text = ""
End Sub
Bukadar basit

__________________