Senin, 19 Maret 2012

Membuat aplikasi acak menggunakan Timer dengan fungsi Case (Revisi)

Assalamualaikum aplikasi mengguakan icon Timer yang bertujuan untuk mengacak angka jika anda memilih menekan tombol akan terpilih angka yang random teracak,


Pertama seperti biasa, kita buat form seperti di bawah ini



Kedua : Kemudian Button1 (STOP) di tumpuk di Button2 (START), seperti di bawah ini

Ketiga ubah Propertiesnya




Keempat Kita mulai pengkodingan klik 2x tombol start

keterangan Pada saat kita meng-Klik Start maka angka acak akan berjalan dan tombol Stop Tampil sedangkan tombol Start hilang. 



Kelima klik button stop 2x 




 Keenam : masukan coding dengan mengklik icon timer yang berada di bawah berikut codingannya seperti ini




Ketujuh klik F5 atau klik start untuk debug


Kedelapan  klik  Button Start untuk memulai mengacak angka yang ada dalam Timer, seperti ini:



Kesembilan klik di tombol yang sama maka akan terpilih dari hasil acak random contohnya seperti ini



Sekian penjelasan saya kurang lebihnya saya mohon maaf dan Terimakasih :)

Nb codingan lengkapnya : 



Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
        System.Convert.ToInt32(RTangka.Text)
        Timer1.Enabled = False
        Select Case RTangka.Text
            Case 0, 1, 2
                Thadiah.Text = "Mobil"
            Case 3, 4, 5
                Thadiah.Text = "Motor"
            Case 6, 7, 8
                Thadiah.Text = "Laptop"
            Case 9, 10
                Thadiah.Text = "Handphone BlackBerry"
        End Select
        Timer1.Enabled = False
        BtnStart.Visible = True
        BtnStop.Visible = False
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
        Timer1.Enabled = True
        Thadiah.Text = ""


        Timer1.Enabled = True
        BtnStop.Visible = True
        BtnStart.Visible = False
    End Sub


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


Tidak ada komentar:

Poskan Komentar