- 27 Ocak 2007
- 3,178
- 1
- 604
Text1'e yazılan bir ismi kaydet butonuna basınca kaydeder. Text2'ye bir sayı yazıldıktan sonra sorgula butonuna basınca text3'te girdiğiniz sayının karşılığı olan kayıt gelir. tümünü göster butonuna basınca bütün kayıtları gösteriri. bu basit bir programdır. işlemler menüsünde kaydet, sorgula ,tümünü göster bölümlerinden ilk ğnce kaydetme butonu seçme şartıyla daha sonra istediği bölümü seçer. menüden işlem girmen gerekiyo çünkü başta text ve command kutuları gözükmüyor... bu 1000 kişilik bir kayıt sistemidir
Kod:
[FONT=Verdana]Dim i As Integer
Dim veri(1000) As String
Private Sub Command1_Click()
veri(i) = Text1.Text
Text1.Text = ""
i = i + 1
End Sub
Private Sub Command2_Click()
Text3.Text = veri(Text2.Text)
End Sub
Private Sub Command3_Click()
Timer1.Enabled = True
i = 0
End Sub
Private Sub Form_Load()
Text1.Visible = False
Command1.Visible = False
Text2.Visible = False
Text3.Visible = False
Command2.Visible = False
Text4.Visible = False
Command3.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False
i = 0
End Sub
Private Sub mnukaydettem_Click()
Text1.Visible = True
Command1.Visible = True
End Sub
Private Sub mnusorgulatem_Click()
Text2.Visible = True
Text3.Visible = True
Command2.Visible = True
End Sub
Private Sub mnutümkayıtlartem_Click()
Text4.Visible = True
Command3.Visible = True
End Sub
Private Sub Timer1_Timer()
Text4.Text = Text4.Text & veri(i)
i = i + 1
End Sub[/FONT]