
2. Udah bisa toh (pastinya…


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