modüle bölümü Type kayitbilgisi adı As String * 20 soyadı As String * 20 sicil As String * 20 cins As String * 20 dep As String * 20 adres As String * 20 tel As String * 20 End Type Global alanlar As kayitbilgisi form bölümü Dim kayitno As Integer Private Sub Command1_Click() a = MsgBox("KAYDEDİLSİN Mİ?", 4) If a = 6 Then Text1.Text = kayitno alanlar.adı = Text2.Text alanlar.soyadı = Text3.Text alanlar.sicil = Text4.Text alanlar.adres = Text5.Text alanlar.tel = Text6.Text If Option1.Value = True Then Else Option2.Value = Option2.Caption End If alanlar.dep = Combo1.Text Put #1, kayitno, alanlar kayitno = kayitno + 1 Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End Sub Private Sub Command3_Click() Close #1 Unload Me End Sub Private Sub Form_Activate() Text2.SetFocus End Sub Private Sub Form_Load() Open "kenan.dat" For Random As #1 Len = Len(alanlar) kayitno = LOF(1) / Len(alanlar) kayitno = kayitno + 1 End Sub