Contoh Program INPUT DATA - VB 6.0

Rancangan program Input Data

kode :

Private Sub Form_Load()
Combo1.AddItem "1", 0
Combo1.AddItem "2", 1
Combo1.AddItem "3", 2
End Sub

Private Sub Selesai_Click()
End
End Sub

Private Sub Batal_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Simpan_Click()
If Text1 = "" Or Text2 = "" Then GoTo kosong
Open "C:\Gaji.dat" For Append As #1
Write #1, Text1, Combo1.Text, Text2
Close #1
Text1 = ""
Combo1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
kosong:
Beep
If Text1 = "" Then Text1.SetFocus
If Text2 = "" Then Text2.SetFocus
End Sub

----
sebuah file dengan nama Gaji.Dat telah dibuat pada drive C