citazione:

---

Inviato in origine da vinci

Di seguito riporto un metodo e il suo script

'Metodo ambo uguale uscito in posizione isotopa su 2 ruote .
'Ricava 1 cinquina su 2 ruote da giocare per Ambo, Terno, Quaterna e Cinquina
'per 10 colpi sulle due ruote di rilevamento. Sospendere il gioco alla prima vincita.
'Iter operativo:
'Ricercare su 2 ruote 1 ambo uguale ed isotopo e che siano estratti nella stessa posizione
'entrambi i due numeri delle due ruote.
'prima operazione:
'fare la somma dei 2 numeri (con il fuori 90)
'es.
'Mi 41-28
'Na 41-28
'41+28 = 69 (1° elemento della cinquina)
'seconda operazione:
'(1° elemento della cinquina) + 1
'(1° elemento della cinquina) - 1
'es.
'69+1= 70 (numero trovato A)
'69-1= 68 (numero trovato B)
'terza operazione:
'somma dei due numeri trovati (A e B)
'es.
'70 + 68 = 158 = 48 (fuori 90) (2° elemento della cinquina)
'quarta operazione:
'vertibile (2° elemento della cinquina)
'es.
'(2° elemento della cinquina) 48 il suo vertibile = 84 (3° elemento della cinquina)
'quinta operazione:
'ultimi 2 numeri di abbinamento
'vertibili dei 2 numeri trovati (A e B)
'es.
'68 vertibile = 86 (4° elemento della cinquina)
'70 vertibile = 7 (5° elemento della cinquina)
'PREVISIONE:
'MI - NA
'69-48-84-86-7
'Eliminare eventuali numeri doppi

'+++++++++++++++++++++++++++++


Sub Main()
Scrivi String(40," ") & "METODO VINCI ambo uguale ed isotopo su due ruote = 1 cinquina su 2 ruote",1
Scrivi
Dim ruote(10)
Dim cinquina(5)
Dim poste(5)
poste(2) = 0.50 : poste(3) = 0.35 : poste(4) = 0.10 : poste(5) = 0.05
inizio = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,8015)
k = InputBox("INSERISCI I COLPI DI GIOCO",,10)
ini = inizio
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12

For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r1,p) : b = Estratto(es,r1,p1)
c = Estratto(es,r2,p) : d = Estratto(es,r2,p1)
If c = a And d = b Then
casi = casi + 1
Scrivi String(105,"*") & " Caso N° " & casi,1
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),10) & " " & StringaEstratti(es,r1) & " " & Format2(a) & "-" & Format2(b) & " in " & p & " e " & p1 & "° Posizione"
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r2),10) & " " & StringaEstratti(es,r2) & " " & Format2(c) & "-" & Format2(d) & " in " & p & " e " & p1 & "° Posizione"
ruote(1) = r1 : ruote(2) = r2

c1 = Fuori90(a + b) ' 1°numero della cinquina
c2 = Fuori90(c1 + 1)
c3 = Fuori90(c1 - 1)
c4 = Fuori90(c2 + c3) ' 2°numero della cinquina
c5 = Vert(c4) ' 3°numero della cinquina
c6 = Vert(c2) ' 4°numero della cinquina
c7 = Vert(c3) ' 5°numero della cinquina

cinquina(1) = c1
cinquina(2) = c4
cinquina(3) = c5
cinquina(4) = c6
cinquina(5) = c7
EliminaRipetuti cinquina
ImpostaGiocata 1,cinquina,ruote,poste,k,2
Gioca es

End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

---