2. Udah bisa toh (pastinya… ), selanjutnya akan muncul sebuah sebuah form baru dengan nama form1 sebagai default daripada VB tersebut. Langkah selanjutnya adalah membuat desain pada form tersebut, gunakan toolbox (samping kiri form) and tambahkan commandbutton, textbox dan label (2label) hingga terbentuk seperti dibawah ini :
Setelah form di desain maka selanjutnya buat nama pada masing-masing komponen tersebut dalam properties masing-masing komponen. Untuk nama pada desain pilih caption sedangkan nama pada kode pilih (name).
Contoh penulisan pada commandbutton1
(Name) = commandbutton1
Caption = OK
berikut contoh gambarnya
Udah mudeng or paham toh, selanjutnya tinggal bikin source code.
3. Untuk pembuatan source code klik 2x pada tombol OK selanjutnya tulis kode sebagai berikut :
Dim kesempatan As Integer
Private Sub Command1_Click()
kesempatan = kesempatan + 1
If (LCase(Text1.Text) = “nusantara”) Then
Label2.Visible = True
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox “Passwordnya Salah !”
If kesempatan < 3 Then
Text1.Text = “”
Text1.SetFocus
Else
End
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text1.SetFocus
End Sub
4. Langkah selanjutnya test program tersebut dengan mengklik start (letaknya diatas form) ato klik F5 pada keyboard untuk mengetest program tersebut.
Source : http://shuenk.wordpress.com/
No comments:
Post a Comment