mervesar

NOTÖKÜMAN ÜZERİ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 İÇİNDE BİR DOSYA AÇICAK VE ÖRENCİNİN OKUL NOSUNA GÖRE 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 "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

__________________

----------------------------
°¸'΅Θק Мз®ώξѕǻ® קΘ΅'¸°
----------------------------

''Kendin için yaşamalısın her şeyden önce bu dünyada..Yoksa bu dünya senin olmaktan çıkar..Başkalarının dünyasında bir figüran olursun sadece..''
----------------------------------------------------------------- xox

ortakatro

paylaşım için teşekkürler

__________________
KENDİNE GÜVENEN ŞÖYLE GELSİN....

FBeyza

tşkler

__________________

TUNCAY&SEMİH