Richiesta script metodo

[vinci]

A qualche volenteroso chiedo se è possibile creare
lo script di questo metodo con statistica da gennaio 2010 ad oggi.
Saluto e ringrazio.

Condizione di gioco: sortita numero 43
Ruota di ricerca condizione: Firenze oppure Roma
Ruote di Gioco: Fi - Ro
Colpi di Gioco: 10
Operazioni da eseguire:
Calcolo Capogioco:
Capogioco: 4° Ro - 3° Ve
Calcolo Abbinamenti per ambo:
Abbinamento 1: 3° Fi - 2° Na
Abbinamento 2: 5° Ba - 1° Fi
Abbinamento 3: 5° Ca X 18
Abbinamento 4: 1° Na - 5° Ge
Abbinamento 5: 1° Ba + 3° Ge
intera sestina per ambo e terno



Vinci

 

[DjNomade]

Ciauz
controlla se cosi' è giusto.




ColoreTesto 2
Scrivi"============Se esce spia 43 su FIRENZE-o-ROMA....by VINCI============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0

ColoreTesto 0

Scrivi
Scrivi
Sub main()
Dim numero(10),numero1(10)
Dim posta(5),poste(5),poste1(5),ruote(10),ruota(10)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
fin=EstrazioneFin
ini=8164'fin-300
For es=ini To fin
AvanzamentoElab ini,fin,es-1
For r=3 To 8
For p1=1 To 5
'For p2=p1+1 To 5
a=Estratto (es,r,p1)

If a=43 And(r=3 Or r=8) Then
Scrivi String(65,"-")
If r=3 Then Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)
If r=8 Then Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)



ruota(1)=3
ruota(2)=8


numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,8,4)-Estratto(es,10,3))


ImpostaGiocata 1,numero,ruota,posta,10


numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,3,3)-Estratto(es,5,2))

ImpostaGiocata 2,numero,ruota,poste,10

numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,1,5)-Estratto(es,1,1))

ImpostaGiocata 3,numero,ruota,poste,10

numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Fuori90(Estratto(es,2,5)*18)

ImpostaGiocata 4,numero,ruota,poste,10

numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Abs(Estratto(es,6,1)-Estratto(es,4,5))

ImpostaGiocata 5,numero,ruota,poste,10

numero(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero(2)=Fuori90(Estratto(es,1,1)+Estratto(es,4,3))

ImpostaGiocata 6,numero,ruota,poste,10

numero1(1)=Abs(Estratto(es,8,4)-Estratto(es,10,3))
numero1(2)=Abs(Estratto(es,3,3)-Estratto(es,5,2))
numero1(3)=Abs(Estratto(es,1,5)-Estratto(es,1,1))
numero1(4)=Fuori90(Estratto(es,2,5)*18)
numero1(5)=Abs(Estratto(es,6,1)-Estratto(es,4,5))
numero1(6)=Fuori90(Estratto(es,1,1)+Estratto(es,4,3))
ImpostaGiocata 7,numero1,ruota,poste1,10




Gioca es

End If
Next
Next
Next
'Next
'Next
ScriviResoconto
ColoreTesto 2
Scrivi"============Se esce spia 43 su FIRENZE-o-ROMA....by VINCI============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0
End Sub




«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[vinci]

GIRA
grazie




Vinci