Form üzerinde girdiğiniz bilgileri yönlendirdiğiniz dosyanın içine kaydeder
NOT: Döküman üzerine 4 Label 4 Textbox 4 Tanede Commandbutton ekleyin İ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 kısmına bu kodları yerleştirin textboxlara gerekenleri yazın kaydete bastığınızda C nin içinde bir dosya açıcak ve öğrencinin okul nosuna göre kaydetme işlemini yapacaktır... Kolay gelsin....

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 "böyle 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

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 1660
favori
like
share
dcanaslan Tarih: 15.11.2008 23:41
TEŞEKKÜRLER