Membuat Aplikasi Sederhana menggunakan Fungsi Case pada Visual Studio 2008

Assalamualaikum Wr. Wb.

Saya akan membuat suatu program sederhana pada Visual Studio 2008 menggunakan fungsi case. Aplikasi ini berisi sebuah box yang berisi angka 0 sampai 9 yang akan di acak menggunakan timer. Dan apabila timer itu di "stop" makan acakan angka tersebut akan berhenti dan menunjukkan hadiah yang anda dapatkan.

1. Pertama, masukkan 2 TextBox (TextBox untuk Angka, dan TextBox untuk Hadiah), 2 Button (Button Start dan Button Stop), serta 1 Timer. Seperti ini:

2. Setelah itu fungsikan Timer pada Form dan buat coding-nya.


3. Fungsikan Button Start untuk memulai mengacak angka yang ada dalam Timer, seperti ini:

4. Terakhir fungsikan Button Stop untuk memberhentikan Timer sekaligus memuncul kan hadiah, seperti ini:

5. Apabila kita ingin mengacak nomor lain click Button "Start" lagi, Box Angka akan otomatis mengacak angka kembali, dan Box Hadiah akan otomatis kosong.



Demikian penjelasan dari saya bila ada kesalah dan lainnya silahkan mengisi comment.
Terimakasih :)





Nb: Untuk membuat Program Sederhana seperti di atas gunakan Source Code seperti ini:



Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        For i = 1 To 10
            TextBoxAngka.Text = Strings.Left(i * Rnd(), 1)
        Next
    End Sub

    Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
        Timer1.Enabled = True
        TextBoxHadiah.Text = ""
    End Sub

    Private Sub ButtonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStop.Click
        Timer1.Enabled = False
        Select Case TextBoxAngka.Text
            Case 0
                TextBoxHadiah.Text = "Mobil"
            Case 1
                TextBoxHadiah.Text = "Motor"
            Case 2
                TextBoxHadiah.Text = "Laptop"
            Case 3
                TextBoxHadiah.Text = "Handphone BlackBerry"
            Case 4
                TextBoxAngka.Text = "iPad Apple"
            Case 5
                TextBoxHadiah.Text = "LED TV"
            Case 6
                TextBoxHadiah.Text = "Kulkas"
            Case 7
                TextBoxHadiah.Text = "Samsung GalaxyTab"
            Case 8
                TextBoxHadiah.Text = "Camera Digital"
            Case 9
                TextBoxHadiah.Text = "Mesin Cuci"
        End Select
         End Sub
End Class