Sub Main() ColoreTesto 0
Scrivi " ***** Metodo SPIA 13 su BARI di THE MATHEMATIC -- listato GioRyuKen72 ***** ",1,,RGB(143,0,255),5,4
Scrivi
Scrivi "(https://forum.lottoced.com/threads/Spia-13-su-bari.2207255/#post-2475369)"
Scrivi
ColoreTesto 0
Dim ruote(3),Spia,klp,FIn,Ini,es,casi,co,aa,aa1,aa2,aa3,n(12),s
Dim postaT(3),terzina1(3),terzina2(3),terzina3(3),terzina4(3)
Dim R1,P1,E1,P5,TUTTE
FIn = EstrazioneFin
R1 = ScegliRuota
TUTTE = InputBox("Vuoi giocare anche su TUTTE le ruote? SI = 11 e NO = 0 ?","GIOCATA a TUTTE","0")
P1 = InputBox("1 per prima, 2 per seconda e così via","Posizione Spia",3)
aa = InputBox("Inserisci i num. separati dal punto","Prima TERZINA","32.46.79")
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
n(3) = CInt(s(3))
aa1 = InputBox("Inserisci i num. separati dal punto","Seconda TERZINA","32.79.80")
aa1 = "0." & aa1
s = Split(aa1,".")
n(4) = CInt(s(1))
n(5) = CInt(s(2))
n(6) = CInt(s(3))
aa2 = InputBox("Inserisci i num. separati dal punto","Terza TERZINA","32.57.79")
aa2 = "0." & aa2
s = Split(aa2,".")
n(7) = CInt(s(1))
n(8) = CInt(s(2))
n(9) = CInt(s(3))
aa3 = InputBox("Inserisci i num. separati dal punto","Quarta TERZINA","26.60.84")
aa3 = "0." & aa3
s = Split(aa3,".")
n(10) = CInt(s(1))
n(11) = CInt(s(2))
n(12) = CInt(s(3))
' Call ScegliRange(Ini,FIn,Ini,EstrazioneFin)
Ini = InputBox("Da quale estrazione vuoi iniziare?","Estrazioni",9800)
For es = Ini To FIn
AvanzamentoElab Ini,FIn,es
Spia = Estratto(es,R1,P1)
If Spia = 13 Then
casi = casi + 1
co = co + 1
Scrivi String(40,"_") & " Caso " & FormattaStringa(casi,"0000 ") & String(40,"_"),1,,,1
'Scrivi String(80,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi String(97,"*"),0,,,2
Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(es,R1,P5)
If E1 = Spia Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(97,"*"),0,,,2
ColoreTesto 0
postaT(2) = 1
postaT(3) = 0.5
ruote(1) = R1 : ruote(2) = CA_ : ruote(3)= TUTTE
klp = 10
a = Fuori90(Estratto(es,BA_,1) + n(1))
b = Fuori90(Estratto(es,BA_,1) + n(2))
c = Fuori90(Estratto(es,BA_,1) + n(3))
d = Fuori90(Estratto(es,BA_,1) + n(4))
e = Fuori90(Estratto(es,BA_,1) + n(5))
f = Fuori90(Estratto(es,BA_,1) + n(6))
g = Fuori90(Estratto(es,BA_,1) + n(7))
h = Fuori90(Estratto(es,BA_,1) + n(8))
i = Fuori90(Estratto(es,BA_,1) + n(9))
l = Fuori90(Estratto(es,BA_,5) + n(10))
m = Fuori90(Estratto(es,BA_,5) + n(11))
o = Fuori90(Estratto(es,BA_,5) + n(12))
terzina1(1) = a
terzina1(2) = b
terzina1(3) = c
OrdinaMatrice terzina1,1
ImpostaGiocata 1,terzina1,ruote,postaT,klp
terzina2(1) = d
terzina2(2) = e
terzina2(3) = f
OrdinaMatrice terzina2,1
ImpostaGiocata 2,terzina2,ruote,postaT,klp
terzina3(1) = g
terzina3(2) = h
terzina3(3) = i
OrdinaMatrice terzina3,1
ImpostaGiocata 3,terzina3,ruote,postaT,klp
terzina4(1) = l
terzina4(2) = m
terzina4(3) = o
OrdinaMatrice terzina4,1
ImpostaGiocata 4,terzina4,ruote,postaT,klp
Gioca es,1,,1
End If
Next
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Metodo SPIA 13 su BARI di THE MATHEMATIC -- listato GioRyuKen72 ***** ",1,RGB(143,0,255),5
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub
