|
|
|
Salve a Voi Tutti,il Listato che trovate sotto puo' essere utile ogni volta che ..faccio subito un'esempio,senza troppi giri di parole,prendendo in esame un metodo gia' postato sul Forum..
Ogni volta che ,sulla Ruota di Palermo,si presenta un Ambo o un Terno formato dai seguenti numeri : 08.09.15, sulle ruote di Cagliari e Genova metteremo in gioco la seguente previsione:
Cagliari-Genova
Terzina Frequente per Ambo e Terno= 43-79-81
Quindi puo' essere utile per metodi simili a quello sopra...
Ecco il Listato:
CODICE Sub main()
Dim ruote(2),poste(3),num1(4),num2(3)
Dim rut(1),nu(4),posta(3),sp(3)
poste(2)=3:poste(3)=1.2:posta(1)=1.2
r1=CInt(InputBox("ruota di ricerca?","delle spie ",7))
sp1=eval(InputBox("Qual'è il 1^ numero Spia?","SPIA N° 1",8))
sp(1)=sp1
sp2=eval(InputBox("Qual'è il 2^ numero Spia?","SPIA N° 2",9))
sp(2)=sp2
sp3=eval(InputBox("Qual'è il 3^ numero Spia?","SPIA N° 3",15))
sp(3)=sp3
rg1=CInt(InputBox("1^ ruota di gioco?","1^ ruota di gioco ",2)) 'se vuoi giocare solo 1 ruota metti apice (') davanti a rg1 oppure rg2
rg2=CInt(InputBox("2^ ruota di gioco?","2^ ruota di gioco ",4))
n1=CInt(InputBox("1° numero 1^ Quartina?","1° numero 1^ Quartina ",43))
n2=CInt(InputBox("2° numero 1^ Quartina?","2° numero 1^ Quartina ",79))
n3=CInt(InputBox("3° numero 1^ Quartina?","3° numero 1^ Quartina ",81))
'n4=CInt(InputBox("4° numero 1^ Quartina??","4° numero 1^ Quartina ",65))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",1000))
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",13))
ini=EstrazioneFin-ce:casi=0
fin=EstrazioneFin
rut(1)=r1
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi "metodo spia "&sp1&"-"&sp2&" -"&sp3&" su "& NomeRuota(r)&""& NomeRuota (r1),1
For es=ini To fin
Messaggio " Spie : "&sp1&"-"&sp2&" -"&sp3&" Estrazione : "&es
If SerieFreq (es,es,sp,rut,2)>0 or SerieFreq (es,es,sp,rut,3)>0 Then
casi=casi+1:Scrivi String(70,"=")
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] spie [ "&format2(sp1)&"."&format2(sp2)&"."&format2(sp3)&" ] "
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=rg1:ruote(2)=rg2::co=0
num2(1)=n1
co=co+1
'ImpostaGiocata co,num2,ruote,posta,k
num1(1)=n1:num1(2)=n2:num1(3)=n3:num1(4)=n4
co=co+1
ImpostaGiocata co,num1,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
il quale ci da' questo risultato:
CODICE ======================================================================
sab 06.02.2010 [ Pa - 78.61.08.25.09 ] spie [ 08.09.15 ]
---------------------------------------------------------- caso n° 8
sab 06.02.2010 [8179]
G 2: AT 43.79.81 Ca Ge 13/13
A 43.81 su Ge 2° colpo [8181/11.02.2010]
======================================================================
gio 10.06.2010 [ Pa - 14.15.09.01.22 ] spie [ 08.09.15 ]
---------------------------------------------------------- caso n° 9
gio 10.06.2010 [8232]
G 2: AT 43.79.81 Ca Ge 13/13
A 81.79 su Ca 6° colpo [8238/24.06.2010]
======================================================================
mar 30.11.2010 [ Pa - 08.65.59.58.09 ] spie [ 08.09.15 ]
---------------------------------------------------------- caso n° 10
mar 30.11.2010 [8306]
G 2: AT 43.79.81 Ca Ge 13/13
A 79.81 su Ge 3° colpo [8309/07.12.2010]
======================================================================
gio 10.02.2011 [ Pa - 15.08.14.41.86 ] spie [ 08.09.15 ]
---------------------------------------------------------- caso n° 11
gio 10.02.2011 [8337]
G 2: AT 43.79.81 Ca Ge 13/13
A 79.43 su Ca 5° colpo [8342/22.02.2011]
Spero di aver reso cosa gradita,un saluto a tutti voi,sean69!!
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!
|
|
.
Offline
Web