Kali ini saya akan menghubungkan TextBox, Command Button, dan Label.
Setelah membuka VB, lakukan langkah berikut :
1. Klik Icon Label, dan masukan ke dalam Form. Lakukan pula pada Icon TextBox dan Icon Command pada ToolBox.
2. Susun menjadi seperti gambar dibawah.
Setelah membuka VB, lakukan langkah berikut :
1. Klik Icon Label, dan masukan ke dalam Form. Lakukan pula pada Icon TextBox dan Icon Command pada ToolBox.
2. Susun menjadi seperti gambar dibawah.
3. Pada jendela properties Label 1, aturlah :
BackColor : Hitam
Alignment : Center
ForeColor : Biru (&H00C00000&) *gunakan tab pallete*
Font : *pilih size jadi 39*
4. Pilih Command 1, pada properties atur :
Caption : Mulai
5. Pilih Text 1, pada propertis atur :
MaxLength : 6
Text : *kosongkan*
6. Klik pada Objek Text 1, kemudian F7 (atau klik ganda saja Objek text 1).
Kemudian ketik kode berikut :
Private Sub Text1_Change()
If Text1.Text = "" Then
Command1.Enabled = False
Else: Command1.Enabled = True
End If
End Sub
Kemudian Tutup jendela kode, aktifkan jendela form.
7. Klik ganda Command1, maka pada jendela kode, tulis kode berikut :
Private Sub Command1_Click()
Label1.Caption = Text1.Text
Text1.Text = ""
Text1.SetFocus
End Sub
Tutup Jendela kode.
Sekarang, coba Tekan F5.
Coba masukan nama anda pada TextBox, kemudian Klik Comand Mulai. Hasil akan seperti gambar dibawah ini :
8. Silahkan simpan projectnya.
2 komentar:
mantap tutorialnya gan, sudah lama pengen belajar VB nih :D
Tutorial bagus ini..
Happy blogging...
Blogging by Doing
Post a Comment