Sayısal Loto Tahmin Programı - HtmL

Private Sub Command1_Click()

Timer1.Enabled = True



End Sub



Private Sub Command2_Click()

Timer1.Enabled = False

Dim a(6)

a(1) = Val(Label1.Caption): a(2) = Val(Label2.Caption): a(3) = Val(Label3.Caption)

a(4) = Val(Label4.Caption): a(5) = Val(Label5.Caption): a(6) = Val(Label6.Caption)

For k = 1 To 5

For j = k + 1 To 6

If a(k) > a(j) Then g = a(k): a(k) = a(j): a(j) = g

Next j

Next k

Label1.Caption = a(1): Label2.Caption = a(2): Label3.Caption = a(3)

Label4.Caption = a(4): Label5.Caption = a(5): Label6.Caption = a(6)



End Sub



Private Sub Timer1_Timer()

Show

Randomize Timer

Label1.Caption = Int(Rnd * 48) + 1

Randomize Timer

Label2.Caption = Int(Rnd * 48) + 1

Randomize Timer

Label3.Caption = Int(Rnd * 48) + 1

Randomize Timer

Label4.Caption = Int(Rnd * 48) + 1

Randomize Timer

Label5.Caption = Int(Rnd * 48) + 1

Randomize Timer

Label6.Caption = Int(Rnd * 48) + 1



End Sub