KULLANILAN BUTONLAR
4ADET LABEL
4 ADET TEXT
4 ADET COMMAND

KODLAR:
'DEĞİŞKENLER
Private Type eleman
Elno As Integer
Ad As String
Soyad As String
Birim As String
End Type
Dim isci As eleman
'KAYDET BUTONU
Private Sub Command1_Click()
'aşağıda adres olarak gecen yeri değiştirin ama sonuna"\elkayit.dat" diye bir eklem yapın.
Open "adres \elkayit.dat" For Random As #1
'DAHA ONCE KAYIT ETTİ İSE CIKACAK HATA
If Text1.Text = isci.Elno Then
MsgBox "DAHA ONCE BOYLE BİR NUMARA İLE KAYIT YAPTINIZ. LUTFEN BAŞKA BİR KAYIT NUMARASI BELİRLEYİN"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
GoTo 100
End If
isci.Elno = Text1.Text
isci.Ad = Text2.Text
isci.Soyad = Text3.Text
isci.Birim = Text4.Text
Put #1, isci.Elno, isci
100:
Close #1:
Exit Sub
End Sub
'TEMİZLE BUTONU
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

'ARA BUTONU
Private Sub Command2_Click()
Open "adres \elkayit.dat" For Random As #1
ara = Val(InputBox("Aradığınız Urun Numarasını Giriniz", "ARA"))
Get #1, ara, isci
If isci.Elno ara Then MsgBox " Boyle bir kayıt yapmadınız daha once"
Text1.Text = isci.Elno
Text2.Text = isci.Ad
Text3.Text = isci.Soyad
Text4.Text = isci.Birim
Close #1
Exit Sub
End Sub

'CIKIŞ BUTONU
Private Sub Command4_Click()
MsgBox "CIKIŞ İŞLEMİNİZ BAŞARI İLE GERCEKLEŞTİRİLDİ"
End
End Sub

Kopyala - Yapıştır şu şekilde yapılır:
Oncelikle "Hepsini Sec" yada Fare ile kodları secin.
Daha sonra "Ctrl+C" tuşlarına aynı anda basınız.
Daha sonra not defterini acın ve "Ctrl+V" tuşlarına basarak kodları yapıştırın.
Not: + tuşuna basmayacaksınız. sadece Ctrl ve C(yada V) tuşlarına basacaksınız.
__________________