-
.
Salve a voi tutti,questo Listato si usa quando esce un Ambo Spia su ruota,e mette in gioco 4 Ambi Frequenti da giocare su 2 ruote,ottenuti dalle vostre ricerche. Tutti i valori possono essere cambiati come uno crede.In questo caso il listato fa' questi calcoli:
Ogni volta che esce l'Ambo Spia 23-32 a Napoli,giochiamo questi 4 Ambi Secchi sulle ruote di Cagliari e Milano:1-5
8-59
15-43
45-82
N.B=Se si vuole giocare solo su 1 ruota,vedere indicazioni su listato sotto!CODICEScrivi "Quando esce Ambo Spia 23-32 su Napoli "
Scrivi "Giochiamo su Cagliari e Milano 4 Ambi Secchi Frequenti "
Scrivi "Metodo by Sean69 "
Sub main()
Dim ruote(2),poste(3),num1(2),num2(2),num3(2),num4(2),num5(2)
poste(2)=2
sp1=CInt(InputBox("1° numero spia?","1° numero spia ",23))
sp2=CInt(InputBox("2° numero spia?","2° numero spia ",32))
r1=CInt(InputBox("ruota di ricerca?","ruota di ricerca ",6))
rg1=CInt(InputBox("1^ ruota di gioco?","1^ ruota di gioco ",2))
rg2=CInt(InputBox("2^ ruota di gioco?","2^ ruota di gioco ",5)) 'se vuoi giocare solo 1 ruota metti apice (') davanti a rg1 oppure rg2
n1=CInt(InputBox("1° numero 1° ambo?","1° numero 1° ambo ",1))
n2=CInt(InputBox("2° numero 1° ambo?","2° numero 1° ambo ",5))
n3=CInt(InputBox("1° numero 2° ambo?","1° numero 2^ ambo ",8))
n4=CInt(InputBox("2° numero 2° ambo?","2° numero 2^ ambo ",59))
n5=CInt(InputBox("1° numero 3° ambo?","1° numero 3^ ambo ",15))
n6=CInt(InputBox("2° numero 3° ambo?","2° numero 3^ ambo ",43))
n7=CInt(InputBox("1° numero 4° ambo?","1° numero 4^ ambo ",45))
n8=CInt(InputBox("2° numero 4° ambo?","2° numero 4^ ambo ",82))
'n9=CInt(InputBox("1° numero 5° ambo?","1° numero 5^ ambo ",45)) 'togli apice "'" se vuoi giocare 5° ambo
'n10=CInt(InputBox("2° numero 5° ambo?","2° numero 5^ ambo ",90)) 'togli apice "'" se vuoi giocare 5° ambo
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",7949))
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",9))
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
casi=casi+1:Scrivi String(70,"=")
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spie [ "&format2(sp1)&"."&format2(sp2)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=rg1:ruote(2)=rg2:co=0
num1(1)=n1:num1(2)=n2
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
num2(1)=n3:num2(2)=n4
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
num3(1)=n5:num3(2)=n6
co=co+1
ImpostaGiocata co,num3,ruote,poste,k
num4(1)=n7:num4(2)=n8
co=co+1
ImpostaGiocata co,num4,ruote,poste,k
num5(1)=n9:num5(2)=n10
co=co+1
ImpostaGiocata co,num5,ruote,poste,k
Gioca es
End If
Next:Next:Next
ScriviResoconto
End Sub.