Sub Main()
Scrivi
Scrivi String(39," ") & "PER AKITA : SOMMA 90 SU BARI - LISTATO BY BLACKMORE",1
Scrivi
Dim ruote(10) : Dim aruo1(1) : Dim aruo2(1) : Dim a1(1) : Dim b1(5) : Dim c1(5)
Dim posta(5) : Dim poste(5)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1
ww = CInt(InputBox("DA QUALE ESTRAZIONE VUOI PARTIRE?","BLACKMORE","8000"))
kkk = CInt(InputBox("COLPI DI GIOCO?","BLACKMORE"," 8 "))
somma = CInt(InputBox("INSERISCI LA SOMMA DA TROVARE","BLACKMORE",90))
ru = CInt(InputBox("RUOTA DOVE TROVARE LA SOMMA?","BLACKMORE",1))
ru1 = CInt(InputBox("1°RUOTA DI GIOCO?","BLACKMORE",1))
ru2 = CInt(InputBox("2°RUOTA DI GIOCO?","BLACKMORE",2))
'------------------------------------------------------------------------------------
ff = InputBox("NUMERO FISSO ? ","BLACKMORE","42")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1))
a1(1) = f1
'------------------------------------------------------------------------------------
ff = InputBox("CINQUINA IN GIOCO SU BARI ? ","BLACKMORE","01.02.03.04.05")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3)): f4 = CInt(h(4)): f5 = CInt(h(5))
b1(1) = f1 : b1(2) = f2 : b1(3) = f3 : b1(4) = f4 : b1(5) = f5
'------------------------------------------------------------------------------------
ff = InputBox("CINQUINA IN GIOCO SU CAGLIARI ? ","BLACKMORE","11.12.13.14.15")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3)): f4 = CInt(h(4)): f5 = CInt(h(5))
c1(1) = f1 : c1(2) = f2 : c1(3) = f3 : c1(4) = f4 : c1(5) = f5
'------------------------------------------------------------------------------------
co = 0
aruo1(1) = ru1
aruo2(1) = ru2
ruote(1) = ru1
ruote(2) = ru2
ini = ww
fin = EstrazioneFin
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ Somma 90 By Akita ]"
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,ru,p1)
b = Estratto(es,ru,p2)
If a + b = somma Then
casi = casi + 1
Scrivi String(99,"*") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(ru) & " - " & StringaEstratti(es,ru) & " AMBO SOMMA 90: " & a & " - " & b
ColoreTesto 0: Scrivi String(58,"°"),1
co = co + 1
ImpostaGiocata 1,a1,ruote,posta,kkk,1
ImpostaGiocata 2,b1,aruo1,poste,kkk,2 'Metti l'apice(')davanti ad impostagiocata 2, se non vuoi giocare la cinquina su Bari
ImpostaGiocata 3,c1,aruo2,poste,kkk,2 'Metti l'apice(')davanti ad impostagiocata 3, se non vuoi giocare la cinquina su Cagliari
Gioca es
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub