|
|
|
Listato Sull'Isotopia che trova i casi e mette in gioco gli ambi trovati con il Listato 1 (Link: https://illottodisean69.forumfree.it/?t=50525472) sulle ruote dove si e' verificata la condizione.
Una volta che abbiamo trovato gli ambi che ci interessano:
li mettiamo in gioco con questo Listato,annotandosi prima l'estrazione da cui vogliamo far partire la statistica(in questo caso dall'estrazione 9591),perche' il Listato ce lo chiedera':
e anche i numeri degli ambi da mettere in gioco,perche' il listato li chiedera' in sequenza (al massimo si possono inserire 5 ambi):
alla fine il Listato ci dara' questo:
Ecco il Listato(piu' sotto ne troverete un'altro che mette in gioco gli ambi anche a Tutte):
CODICE Sub main()
Dim ruote(2),poste(2),num1(2)
poste(2)=3
sp1=CInt(InputBox("1° numero spia?","1° numero spia ",14))
sp2=CInt(InputBox("2° numero spia?","2° numero spia ",15))
n1=CInt(InputBox("1° numero 1° ambo?","1° numero 1° ambo ",11))
n2=CInt(InputBox("2° numero 1° ambo?","2° numero 1° ambo ",22))
n3=CInt(InputBox("1° numero 2° ambo?","1° numero 2° ambo ",22))
n4=CInt(InputBox("2° numero 2° ambo?","2° numero 2° ambo ",33))
n5=CInt(InputBox("1° numero 3° ambo?","1° numero 3° ambo ",33))
n6=CInt(InputBox("2° numero 3° ambo?","2° numero 3° ambo ",44))
n7=CInt(InputBox("1° numero 4° ambo?","1° numero 4° ambo ",55))
n8=CInt(InputBox("2° numero 4° ambo?","2° numero 4° ambo ",66))
n9=CInt(InputBox("1° numero 5° ambo?","1° numero 5° ambo ",66))
n10=CInt(InputBox("2° numero 5° ambo?","2° numero 5° ambo ",77))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8000)) '8237
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
If p1=p2 Then 'iso
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spia [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] spia [ "&format2(b)&" ] in "&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:co=0
num1(1)=n1:num1(2)=n2
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num1(1)=n3:num1(2)=n4
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num1(1)=n5:num1(2)=n6
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num1(1)=n7:num1(2)=n8
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num1(1)=n9:num1(2)=n10
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
Gioca es
End If
End If 'iso
Next:Next:next:next:next
ScriviResoconto
End Sub
e questo mette in gioco gli ambi anche a Tutte:
CODICE Sub main()
Dim ruote(2),ruota(1),poste(2),num1(2)
poste(2)=3
sp1=CInt(InputBox("1° numero spia?","1° numero spia ",14))
sp2=CInt(InputBox("2° numero spia?","2° numero spia ",15))
n1=CInt(InputBox("1° numero 1° ambo?","1° numero 1° ambo ",11))
n2=CInt(InputBox("2° numero 1° ambo?","2° numero 1° ambo ",22))
n3=CInt(InputBox("1° numero 2° ambo?","1° numero 2° ambo ",22))
n4=CInt(InputBox("2° numero 2° ambo?","2° numero 2° ambo ",33))
n5=CInt(InputBox("1° numero 3° ambo?","1° numero 3° ambo ",33))
n6=CInt(InputBox("2° numero 3° ambo?","2° numero 3° ambo ",44))
n7=CInt(InputBox("1° numero 4° ambo?","1° numero 4° ambo ",55))
n8=CInt(InputBox("2° numero 4° ambo?","2° numero 4° ambo ",66))
n9=CInt(InputBox("1° numero 5° ambo?","1° numero 5° ambo ",66))
n10=CInt(InputBox("2° numero 5° ambo?","2° numero 5° ambo ",77))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8000)) '8237
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
If p1=p2 Then 'iso
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spia [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] spia [ "&format2(b)&" ] in "&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1(1)=n1:num1(2)=n2
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n3:num1(2)=n4
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n5:num1(2)=n6
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n7:num1(2)=n8
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
num1(1)=n9:num1(2)=n10
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
co=co+1
ImpostaGiocata co,num1,ruota,poste,k
Gioca es
End If
End If 'iso
Next:Next:next:next:next
ScriviResoconto
End Sub
Se avete qualche buona tecnica ottenuta con questi Listati,non esitate a postarla qui'.Saluti,Sean69!!
Edited by sean69 - 4/10/2019, 10:07
|
|
.
Offline
Web