Fate Questo Script ? Grazie

[foxrex]

Vi ringrazio Puo' Essere Utile Anche per Voi
Ora vi spiego Ruota di Calcolo Roma ruota di Gioco Roma.
Ogni volta che in 1° Posizione Esce uno Zerato Fare questa operazione
Roma:20-55-48-75-12
1° Ambata 20+55+75 = Fuori 90 X Ambo 1° Ambata + 52 X Terno 1° Ambata + 32
2° Ambata 20+48+12 = Fuori 90 X Ambo 2° Ambata + 27 X Terno 2° Ambata + 67
Colpi da Eseguire 09​

 

[claudio8]

Spiega meglio da dove prendi i vari numeri da addizionare.
Se non sei chiaro in questo, nessuno ti potrà aiutare.
Esempio: ambata = 1° estratto di roma+3° estratto di roma+ 5° estratto di roma
abbinamento: ambata + fisso 32 ecc ecc.
Saluti

 

[foxrex]

Grazie Claudio ai perfettamente ragione
Esempio Reale
07-10-14 Roma 70-83-56-38-53 1°Zerato si procede cosi'
1° Ambata 1°Ro+2° Ro+4° Ro -Fuori 90 =11 (11+52 =63)X Ambo (11+32= 43)X Ambo 1° Terzina
2° Ambata 1° Ro +3° Ro+5° Ro - Fuori 90=? (?+27= ??) X Ambo (? + 67 =??) X Ambo 2° Terzina
Sono 2 Ambate Con Abbinamenti Penso sia + Chiaro
Grazie buona domenica

 

[SeeLe8]

controlla se è giusto

Sub Main()
Dim nu2(10),nu1(10),n(4)
Dim ruote(10)
Dim poste(5),posta(5)
poste(2) = 1
posta(1) = 1
fin = EstrazioneFin
ini = fin - 50
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12

n1 = Estratto(es,r1,1)
If Cadenza(n1) = 0 Then

a1 = Fuori90(n1+ Estratto(es,r1,2)+ Estratto(es,r1,4))
a2 = Fuori90(n1+ Estratto(es,r1,3)+ Estratto(es,r1,5))
abb = Fuori90(a1+52)
abb2 = Fuori90(a1+32)
abb3 = Fuori90(a1+27)
abb4 = Fuori90(a1+67)

casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > zerato in 1° pos. < " & Format2(n1) & " > "
Scrivi
Scrivi String(65,"-") & " caso n° " &(casi)

ruote(1) = r1

nu1(1) = a1
nu1(2) = a2
ImpostaGiocata 1,nu1,ruote,posta,12,1
nu2(1) = a1
nu2(2) = a2
nu2(3) = abb
nu2(4) = abb2
ImpostaGiocata 2,nu2,ruote,poste,12,2
n(1) = a1
n(2) = a2
n(3) = abb3
n(4) = abb4
ImpostaGiocata 3,n,ruote,poste,12,2

Gioca es,1

End If
Next
Next

ScriviResoconto
End Sub

 

[foxrex]

controlla se è giusto

Sub Main()
Dim nu2(10),nu1(10),n(4)
Dim ruote(10)
Dim poste(5),posta(5)
poste(2) = 1
posta(1) = 1
fin = EstrazioneFin
ini = fin - 50
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12

n1 = Estratto(es,r1,1)
If Cadenza(n1) = 0 Then

a1 = Fuori90(n1+ Estratto(es,r1,2)+ Estratto(es,r1,4))
a2 = Fuori90(n1+ Estratto(es,r1,3)+ Estratto(es,r1,5))
abb = Fuori90(a1+52)
abb2 = Fuori90(a1+32)
abb3 = Fuori90(a1+27)
abb4 = Fuori90(a1+67)

casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > zerato in 1° pos. < " & Format2(n1) & " > "
Scrivi
Scrivi String(65,"-") & " caso n° " &(casi)

ruote(1) = r1

nu1(1) = a1
nu1(2) = a2
ImpostaGiocata 1,nu1,ruote,posta,12,1
nu2(1) = a1
nu2(2) = a2
nu2(3) = abb
nu2(4) = abb2
ImpostaGiocata 2,nu2,ruote,poste,12,2
n(1) = a1
n(2) = a2
n(3) = abb3
n(4) = abb4
ImpostaGiocata 3,n,ruote,poste,12,2

Gioca es,1

End If
Next
Next

ScriviResoconto
End Sub

Ciao e Grazie Funziona Alla Grande.
Ti posso Chiedere alcune cose in riguardo allo Script ?
Visto che per me e' arabo
Per Mettere solo la ruota di Roma devo cambiare
AvanzamentoElab ini,fin,es
For r1 = 8 To 8 = Roma
If r1 = 11 Then r1 = 12
Per le Estrazioni
ini = fin - 1000
Per Aumentare o diminuire i colpi non ne ho idea
e poi Scrivi string (75 etc.etc.. che significati ?
Oppure mi dici dove posso trvare qualcosa X fare degli script elementari ?
Grazie