MEMBUAT UNDIAN ANGKA HURUF DENGAN VISUAL BASIC

Mau tau caranya bikin program undian angka huruf menggunakan visual basic seperti dibawah ini :

untuk kodingannya :

Private Sub Command1_Click()

Timer1.Enabled = True

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption & Label6.Caption & Label7.Caption & Label8.Caption & Label9.Caption

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Label2_Change()

Dim huruf As Variant

huruf = Label2.Caption

Select Case huruf

Case 0

Cls

Label2.Caption = " A "

Case 1

Cls

Label2.Caption = " B "

Case 2

Cls

Label2.Caption = " C "

Case 3

Cls

Label2.Caption = " D "

Case 4

Cls

Label2.Caption = " E "

Case 5

Cls

Label2.Caption = " F "

Case 6

Cls

Label2.Caption = " G "

Case 7

Cls

Label2.Caption = " H "

Case 8

Cls

Label2.Caption = " I "

Case 9

Cls

Label2.Caption = " J "

End Select

End Sub

Private Sub Label4_Change()

Dim huruf As Variant

huruf = Label4.Caption

Select Case huruf

Case 0

Cls

Label4.Caption = " A "

Case 1

Cls

Label4.Caption = " B "

Case 2

Cls

Label4.Caption = " C "

Case 3

Cls

Label4.Caption = " D "

Case 4

Cls

Label4.Caption = " E "

Case 5

Cls

Label4.Caption = " F "

Case 6

Cls

Label4.Caption = " G "

Case 7

Cls

Label4.Caption = " H "

Case 8

Cls

Label4.Caption = " I "

Case 9

Cls

Label4.Caption = " J "

End Select

End Sub

Private Sub Label7_Change()

Dim huruf As Variant

huruf = Label7.Caption

Select Case huruf

Case 0

Cls

Label7.Caption = " A "

Case 1

Cls

Label7.Caption = " B "

Case 2

Cls

Label7.Caption = " C "

Case 3

Cls

Label7.Caption = " D "

Case 4

Cls

Label7.Caption = " E "

Case 5

Cls

Label7.Caption = " F "

Case 6

Cls

Label7.Caption = " G "

Case 7

Cls

Label7.Caption = " H "

Case 8

Cls

Label7.Caption = " I "

Case 9

Cls

Label7.Caption = " J "

End Select

End Sub

Private Sub Label9_Change()

Dim huruf As Variant

huruf = Label9.Caption

Select Case huruf

Case 0

Cls

Label9.Caption = " A "

Case 1

Cls

Label9.Caption = " B "

Case 2

Cls

Label9.Caption = " C "

Case 3

Cls

Label9.Caption = " D "

Case 4

Cls

Label9.Caption = " E "

Case 5

Cls

Label9.Caption = " F "

Case 6

Cls

Label9.Caption = " G "

Case 7

Cls

Label9.Caption = " H "

Case 8

Cls

Label9.Caption = " I "

Case 9

Cls

Label9.Caption = " J "

End Select

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

Label6.Caption = Int(Rnd * 10)

Label7.Caption = Int(Rnd * 10)

Label8.Caption = Int(Rnd * 10)

Label9.Caption = Int(Rnd * 10)

End Sub

silahkan dicoba. semoga bemanfaat ya :)