|
|
|
Salve ,con questo Listato,una volta trovati gli ambi frequenti dopo la sortita es, della formula 22-33-55:
possiamo metterli in gioco su Ruota (e su Tutte),infatti avremo un risultato del genere:
CODICE 8213 Ve 55 33 Nz 22
mar 27.04.2010 [8213]
G 1: A 01.35 Ve Nz 1/13
A 01.35 su Ve 1° colpo [8214/29.04.2010]
I1
G 2: A 01.35 Tu 1/13
A 35.01 su Tu (Mi) 1° colpo [8214/29.04.2010]
A 01.35 su Tu (Ve) 1° colpo [8214/29.04.2010]
I1
G 3: A 05.32 Ve Nz 3/13
A 32.05 su Nz 3° colpo [8216/04.05.2010]
I3
G 4: A 05.32 Tu 13/13
negativo
G 5: A 33.45 Ve Nz 7/13
A 33.45 su Nz 7° colpo [8220/13.05.2010]
I7
G 6: A 33.45 Tu 13/13
negativo
G 7: A 35.48 Ve Nz 6/13
A 48.35 su Ve 6° colpo [8219/11.05.2010]
I6
G 8: A 35.48 Tu 1/13
A 48.35 su Tu (To) 1° colpo [8214/29.04.2010]
I1
G 9: A 37.55 Ve Nz 13/13
negativo
G 10: A 37.55 Tu 13/13
negativo
8248 Ca 55 22 Ba 33
sab 17.07.2010 [8248]
G 1: A 01.35 Ba Ca 13/13
negativo
G 2: A 01.35 Tu 5/13
A 01.35 su Tu (Na) 5° colpo [8253/29.07.2010]
I5
G 3: A 05.32 Ba Ca 13/13
negativo
G 4: A 05.32 Tu 13/13
negativo
G 5: A 33.45 Ba Ca 5/13
A 33.45 su Ba 5° colpo [8253/29.07.2010]
I5
G 6: A 33.45 Tu 1/13
A 33.45 su Tu (Mi) 1° colpo [8249/20.07.2010]
I1
G 7: A 35.48 Ba Ca 4/13
A 48.35 su Ca 4° colpo [8252/27.07.2010]
I4
G 8: A 35.48 Tu 4/13
A 48.35 su Tu (Ca) 4° colpo [8252/27.07.2010]
I4
G 9: A 37.55 Ba Ca 3/13
A 55.37 su Ba 3° colpo [8251/24.07.2010]
I3
G 10: A 37.55 Tu 3/13
A 55.37 su Tu (Ba) 3° colpo [8251/24.07.2010]
I3
8262 Ge 22 55 Ba 33
gio 19.08.2010 [8262]
G 1: A 01.35 Ba Ge 11/13
in corso (11° su 13)
G 2: A 01.35 Tu 11/13
in corso (11° su 13)
G 3: A 05.32 Ba Ge 11/13
in corso (11° su 13)
G 4: A 05.32 Tu 8/13
A 32.05 su Tu (To) 8° colpo [8270/07.09.2010]
I8
G 5: A 33.45 Ba Ge 11/13
in corso (11° su 13)
G 6: A 33.45 Tu 11/13
in corso (11° su 13)
G 7: A 35.48 Ba Ge 11/13
in corso (11° su 13)
G 8: A 35.48 Tu 11/13
in corso (11° su 13)
G 9: A 37.55 Ba Ge 4/13
A 37.55 su Ba 4° colpo [8266/28.08.2010]
I4
G 10: A 37.55 Tu 4/13
A 37.55 su Tu (Ba) 4° colpo [8266/28.08.2010]
I4
Ecco il Listato:
CODICE ColoreTesto 2
Scrivi String(45,"=")&"** SPIA 22-33-55 by Sean69**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"-")&"listato by DjNomade. ",1
ColoreTesto 0
Sub main()
Dim am(1),ambi(2),ci(6),nn(3),ru(2),ru1(2),pos1(1),pos2(2),pos3(5)
pos1(1)=1:pos2(2)=1:pos3(2)=1 :pos3(3)=0.80:pos3(4)=0.15:pos3(5)=0.05
nn(1)=1
nn(2)=35
nn(3)=5
ci(1)=32
ci(2)=33
ci(3)=45
ci(4)=48
ci(5)=37
ci(6)=55
fin=EstrazioneFin
ini=fin-280
For es = ini To fin:messaggio(es)
For r=1 To 11
If r=11 Then r=12
ru(1)=r
ru1(1)=11
For p=1 To 4
For pp=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,pp)
For r1=1 To 11
If r1=11 Then r1=12
ru(2)=r1
For p1=1 To 5
c=Estratto(es,r1,p1)
If r<>r1 Then
'If a>0 And b>0 And c>0 Then
If ( a=22 And b=55 And c=33 And (p1<>p Or p1<>pp)) Or ( a=55 And b=22 And c=33 And (p1<>p Or p1<>pp )) Or ( a=22 And b=33 And c=55 And (p1<>p Or p1<>pp) )Or( a=33 And b=22 And c=55 And (p1<>p Or p1<>pp))Or ( a=55 And b=33 And c=22 And (p1<>p Or p1<>pp) ) Or ( a=33 And b=55 And c=22 And (p1<>p Or p1<>pp)) Then
Scrivi es&" "&siglaruota(r)&" "&format2(a)&" "&format2(b)&" "&siglaruota(r1)&" "&format2(c)
'co=co+1
ambi(1)=1
ambi(2)=35
ImpostaGiocata 1,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 2,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=5
ambi(2)=32
ImpostaGiocata 3,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 4,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=33
ambi(2)=45
ImpostaGiocata 5,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 6,ambi,ru1,pos2,13,2
co=co+1
ambi(1)=35
ambi(2)=48
ImpostaGiocata 7,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 8,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=37
ambi(2)=55
ImpostaGiocata 9,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 10,ambi,ru1,pos2,13,2
Gioca es
End If
End If
'End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi String(45,"=")&"** SPIA 22-33-55 by Sean69**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"-")&"listato by DjNomade. ",1
ColoreTesto 0
End Sub
Grazie a DJNomade per la realizzazione del listato!
Saluti,sean69!!
|
|
.
Offline
Web