iowalotto.frm

Searches a database of entered lottery numbers and displays results of which tickets won what.

Data(71) = "081235374121"
Data(72) = "011122384227"
Data(73) = "121619223424"
Data(74) = "060712213941"
Data(75) = "070936404722"
Data(76) = "020928414206"
Data(77) = "081118202218"
Data(78) = "020614173331"
Data(79) = "102528434540"
Data(80) = "111416174325"
Data(81) = "071025304915"
Data(82) = "060721233511"
Data(83) = "032024263612"
Data(84) = "364344454728"
Data(85) = "051722232742"
Data(86) = "081028314123"
Data(87) = "010207344940"
Data(88) = "010523303633"
Data(89) = "182037454824"
Data(90) = "091932424637"
Data(91) = "040721274927"
Data(92) = "142737404307"
Data(93) = "011827343821"
Data(94) = "010741464913"
Data(95) = "151827374105"
Data(96) = "010711394610"
Data(97) = "060919224312"
Data(98) = "202328314042"
Data(99) = "112022244627"
Data(100) = "022228354015"
Data(101) = "102133434914"
Data(102) = "052022284736"
Data(103) = "162534404621"
Data(104) = "030818232636"
Data(105) = "021729314403"
Data(106) = "131417414329"
Data(107) = "072231324521"
Data(108) = "192021324012"
Data(109) = "022038414807"
Data(110) = "101617333925"
Data(111) = "041726424608"
Data(112) = "151625394513"
Data(113) = "152137394108"
Data(114) = "192022283932"
Data(115) = "061725273619"
Data(116) = "041516293542"
Data(117) = "121319364412"
Data(118) = "123639414402"
Data(119) = "182029394908"
Data(120) = "223233354404"
Data(121) = "021321304417"
Data(122) = "163138414628"
Data(123) = "071024274127"
Data(124) = "060712212815"
Data(125) = "020414284223"
Data(126) = "060919274722"
Data(127) = "021321304107"
Data(128) = "131734434631"
Data(129) = "020509143313"
Data(130) = "061120242518"
Data(131) = "040512273503"
Data(132) = "162832404514"
Data(133) = "020821303501"
Data(134) = "111533434540"
Data(135) = "061418254316"
Data(136) = "101316173416"
Data(137) = "041819304537"
Data(138) = "091420242518"
Data(139) = "102734354836"
Data(140) = "072435394402"
Data(141) = "202225313814"
Data(142) = "131415343828"
Data(143) = "051423284912"
Data(144) = "020324282913"
Data(145) = "041208140705"
Data(146) = "273234024542"
For x = 1 To Combos
winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x)
Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)
For x = 0 To 9
markhits(x).Caption = "0"
marlohits(x).Caption = "0"
themhits(x).Caption = "0"
ushits(x).Caption = "0"
Next x
them.Caption = Str(Combosthem)
us.Caption = Str(Combosus)
marlo.Caption = Str(Combosmarlo)
mark.Caption = Str(Combosmark)
End Sub

Private Sub marknmolly_Click()

End Sub

Private Sub Start_Click()
'reset all
For x = 0 To 5
Label4(x).Caption = ""
Next x
WINNERFINAL.Caption = ""
Label1.Caption = ""
For x = 1 To Combos
Winners(x) = 1
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x)
Left2 = Left2 + 1
Howmany(x) = 0
Power(x) = 0
Next x
tickets.Caption = Str(Left2)
For x = 0 To 10
markhits(x).Caption = "0"
marlohits(x).Caption = "0"
themhits(x).Caption = "0"
ushits(x).Caption = "0"
Next x
mark.Caption = Str(Combosmark)
marlo.Caption = Str(Combosmarlo)
us.Caption = Str(Combosus)
them.Caption = Str(Combosthem)

' get first number
Firstnumber = InputBox("Enter first number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(0).Caption = Str(Firstnumber)
For x = 1 To Combos
For y = 1 To 5
If Mid$(Data(x), (2 * y) - 1, 2) = Firstnumber Then
    Howmany(x) = 1
End If
Next y
If Howmany(x) = 0 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid
For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x


' get second number
Secondnumber = InputBox("Enter second number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(1).Caption = Str(Secondnumber)
For x = 1 To Combos
For y = 1 To 5
If Mid$(Data(x), (2 * y) - 1, 2) = Secondnumber Then
    Howmany(x) = Howmany(x) + 1
End If
Next y
If Howmany(x) <> 2 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid
For y = 0 To 10
markhits(y).Caption = "0"
marlohits(y).Caption = "0"
themhits(y).Caption = "0"
ushits(y).Caption = "0"
Next y
For x = 1 To Combosus
If Howmany(x) = 5 And Power(x) = 0 Then ushits(0).Caption = ushits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then ushits(1).Caption = ushits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then ushits(2).Caption = ushits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then ushits(3).Caption = ushits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then ushits(4).Caption = ushits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then ushits(5).Caption = ushits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then ushits(6).Caption = ushits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then ushits(7).Caption = ushits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then ushits(8).Caption = ushits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then ushits(9).Caption = ushits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then ushits(10).Caption = ushits(10).Caption + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Howmany(x) = 5 And Power(x) = 0 Then themhits(0).Caption = themhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then themhits(1).Caption = themhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then themhits(2).Caption = themhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then themhits(3).Caption = themhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then themhits(4).Caption = themhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then themhits(5).Caption = themhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then themhits(6).Caption = themhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then themhits(7).Caption = themhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then themhits(8).Caption = themhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then themhits(9).Caption = themhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then themhits(10).Caption = themhits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Howmany(x) = 5 And Power(x) = 0 Then marlohits(0).Caption = marlohits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then marlohits(1).Caption = marlohits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then marlohits(2).Caption = marlohits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then marlohits(3).Caption = marlohits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then marlohits(4).Caption = marlohits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then marlohits(5).Caption = marlohits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then marlohits(6).Caption = marlohits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then marlohits(7).Caption = marlohits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then marlohits(8).Caption = marlohits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then marlohits(9).Caption = marlohits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then marlohits(10).Caption = marlohits(10).Caption + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Howmany(x) = 5 And Power(x) = 0 Then markhits(0).Caption = markhits(0).Caption + 1
If Howmany(x) = 4 And Power(x) = 0 Then markhits(1).Caption = markhits(1).Caption + 1
If Howmany(x) = 3 And Power(x) = 0 Then markhits(2).Caption = markhits(2).Caption + 1
If Howmany(x) = 2 And Power(x) = 0 Then markhits(3).Caption = markhits(3).Caption + 1
If Howmany(x) = 1 And Power(x) = 0 Then markhits(4).Caption = markhits(4).Caption + 1
If Howmany(x) = 5 And Power(x) = 1 Then markhits(5).Caption = markhits(5).Caption + 1
If Howmany(x) = 4 And Power(x) = 1 Then markhits(6).Caption = markhits(6).Caption + 1
If Howmany(x) = 3 And Power(x) = 1 Then markhits(7).Caption = markhits(7).Caption + 1
If Howmany(x) = 2 And Power(x) = 1 Then markhits(8).Caption = markhits(8).Caption + 1
If Howmany(x) = 1 And Power(x) = 1 Then markhits(9).Caption = markhits(9).Caption + 1
If Howmany(x) = 0 And Power(x) = 1 Then markhits(10).Caption = markhits(10).Caption + 1
Next x


' get third number
Thirdnumber = InputBox("Enter third number(1-40)", "Input Mode", 1, 1800, 5000)
Label4(2).Caption = Str(Thirdnumber)
For x = 1 To Combos
For y = 1 To 5
If Mid$(Data(x), (2 * y) - 1, 2) = Thirdnumber Then
    Howmany(x) = Howmany(x) + 1
End If
Next y
If Howmany(x) <> 3 Then Winners(x) = 0
Next x
winners1.Clear
Left2 = 0
For x = 1 To Combos
If Winners(x) = 1 Then winners1.AddItem Mid$(Data(x), 1, 2) + " " + Mid$(Data(x), 3, 2) + " " + Mid$(Data(x), 5, 2) + " " + Mid$(Data(x), 7, 2) + " " + Mid$(Data(x), 9, 2) + " " + Mid$(Data$(x), 11, 2) + " " + Str(x): Left2 = Left2 + 1
Next x
tickets.Caption = Str(Left2)

' update board
Markk = 0
Marloo = 0
Themm = 0
Uss = 0
For x = 1 To Combosus
If Winners(x) = 1 Then Uss = Uss + 1
Next x
For x = Combosus + 1 To Combosus + Combosthem
If Winners(x) = 1 Then Themm = Themm + 1
Next x
For x = Combosus + 1 + Combosthem To Combosus + Combosthem + Combosmarlo
If Winners(x) = 1 Then Marloo = Marloo + 1
Next x
For x = Combosus + 1 + Combosthem + Combosmarlo To Combosus + Combosthem + Combosmarlo + Combosmark
If Winners(x) = 1 Then Markk = Markk + 1
Next x
them.Caption = Str(Themm)
us.Caption = Str(Uss)
marlo.Caption = Str(Marloo)
mark.Caption = Str(Markk)

' update grid