Lorenzo Il Magnifico
Advanced Member
Ma che bellezzaaaaaaaaaaaaaaaaa...anche io ho gli stessi abbinamenti!!
Non ci posso credere!!
Non ci posso credere!!
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ciao Elmiki ,buonasera a tutti anch'io mi sono giocata il90 a To con abbin 37 deve uscire assolutamente ! Che la fortuna sia propizia per tutti ,dimenticavo ben tornato si sentiva la tua mancanza Ciao
51 a bari in terzaa!!!! 1 colpo!!!!!!!!!!!!!!!sono tornato ciao a tutti
nuove ambate in 3 posiz dall ultima estraz 26/4/12:
ba-pa 51
ba-ro 8
to-ve 90
Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(10)
Dim posta(10)
Dim poste(10)
Dim r1
Dim r2
Dim p1
Dim p2
Dim p3
Dim p4
Dim p5
Dim nAnalisi
Dim nColpiDiGioco
Dim n(1)
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
posta(1) = 1
poste(8) = 1
ruote(1) = r1
ruote(2) = r2
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruote(1) = r1
ruote(2) = r2
For r1 = 1 To 10
For r2 = 1 To 10
ok = 0
a = Estratto(idEstr,r1,p1)
b = Estratto(idEstr,r1,p5)
c = Estratto(idEstr,r2,p3)
'-------------------------
d = Fuori90(a + b)
If d = c Then
e = Estratto(idEstr,r1,p3)
f = Fuori90(c + e)
ok = 1
End If
'--------------------------------
a = Estratto(idEstr,r1,p2)
b = Estratto(idEstr,r1,p4)
c = Estratto(idEstr,r2,p3)
'-------------------------
d = Fuori90(a + b)
If d = c Then
e = Estratto(idEstr,r1,p3)
f = Fuori90(c + e)
ok = 1
End If
'--------------------------------
If ok = 1 Then
ruote(1) = r1
ruote(2) = r2
n(1) = f
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2),1
ColoreTesto 0
ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
ImpostaGiocata 2,n,ruote,posta,nColpiDiGioco
Gioca idEstr,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" IDEATO da ELMIKI <> LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub