1. Bukalah program mircrosoft visual basic 2010 express, Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project, windows forms applications pada menu tab seperti gambar di bawah ini.Lalu tentukan name dan lokasi penyimpanan project yang ingin diinginkan,lalu klik OK:
2. Setelah itu, akan muncul sebuah form yang berjudul form1 .
3. Setelah itu kita tambahkan komponen-komponen yang diperlukan. kita dapat menambahkan label, GroupBox, Label, Timer dan Button. Aturlah dan design letak sesuai Dengan Form Stopwact yang anda ketahui
4. Klik Double pada Form dengan membuat listing program:
Public Class Form11
Dim N1, N2, N3, N4 As
Integer
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
N1 =
0 : N2 = 0 : N3 = 0 : N4 = 0
Timer1.Enabled = True
End Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick
If N4 < 10 Then
If N1 > 9 Then
N1 = 0
N2 = N2 + 1
If N2 > 9 Then
Label2.Text = 0
Else
Label2.Text = N2
End If
End If
If N2 > 9 Then
N2 = 0
N3 = N3 + 1
If N3 > 9 Then
Label3.Text = 0
Else
Label3.Text = N3
End If
End If
If N3 > 9 Then
N3 = 0
N4 = N4 + 1
If N4 > 9 Then
Label4.Text = 0
Timer1.Enabled = False
Else
Label4.Text = N4
End If
End If
Label1.Text = N1
N1 = N1 + 1
End If
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
End
End Sub
Private Sub
Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
5. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5:
6. Saat klik kategori Dewasa >> Pria , maka akan tampil gambar seperti berikut ini :
7. Saat klik kategori Anak >> Wanita , maka akan tampil gambar seperti berikut ini :
Sekian yang bisa Admin rangkum, lebih kurang mohon di maklumi, karena Admin masih dalam proses belajar juga .
