Non saprei dirti cosa e' successo, a me funziona perfettamente. Per aggiornare uso il file archivio_23.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
KEN
Super member
Che fortuna hai le estrazioni del futuro
Inizio con i metodi: il primo esempio ricava 6 Ambi da giocare su Ruota. Il giorno 24/12/2005 sulla ruota di Firenze escono i seguenti numeri:
86-83-45-72-89 L estrazione seguente escono i numeri:
51-74-71-70-32 Notate i numeri in rosso? Appartengono alla decine del settanta, sono numeri consecutivi ed inoltre i numeri 72 e 70 sono usciti entrambi in quarta posizione. Il metodo ricava 6 Ambi: 52-88 / 52-89 / 54-89 / 54-88 / 52-54 e 88-89 . Il giorno 31/12/2005 escono su Firenze i numeri: 68-88-36-60-89. Giocando anche 5 Euro ad Ambo si sarebbero guadagnati puliti ben: 1160 Euro.
Ecco come ho ricavato gli Ambi. Bisogna controllare ogni estrazione, ogni Ruota e controllare bene per ogni estrazione consecutiva. Nel I esempio: Notiamo sulla Ruota di Bari in 2 estrazioni successive, 3 numeri consecutivi 72-71-70. Almeno 2 numeri devono uscire nella stessa posizione come ad esempio 72-70 usciti nella quarta posizione. Per ricavare le 2 Ambate da abbinare agli altri numeri x Ambo si opera così. Per ricavare la prima Ambata fare il doppio del numero intermedio cioé il 71. Il suo doppio é 142(71x2). Per poterlo giocare sottrarre 90. 142-90=52 La seconda Ambata é la prima Ambata cioé il 52 + la differenza tra il numero + piccolo e quello + grande cioé 72-70=2. 52+2=54 Gli altri 2 numeri da abbinare alle Ambate x formare gli Ambi si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 72-71=1 71-70=1 Il numero sarà 90-1=89 ed il suo vertibile cioé 88.
Altro esempio? Il giorno 10/01/2006 sulla Ruota di Cagliari escono i numeri:
67-55-83-52-59 Il giorno seguente escono i numeri:
06-85-80-50-51Ancora stavolta sono numeri consecutivi della decina del 50 ed usciti entrambi in quarta posizione. I 6 Ambi che si ricavano sono: 12-88 / 12-89 / 14-88 / 14-89 / 12-14 e 88-89 Il giorno 26/01/2006 sulla Ruota di Firenze escono i numeri: 80-63-55-14-12Anche in questo caso giocando anche 5 Euro ad Ambo si sarebbero guadagnati puliti ben: 1040 Euro.
In questo caso sulla Ruota di Cagliari escono dei numeri come prima, consecutivi. Il metodo é lo stesso. Provate a fare i calcoli da soli.
Andiamo avanti coi mesi per vedere se il metodo funzione sempre. Nel giorno 28/03/2006 sulla Ruota di Bari escono:
53-14-44-21-70 mentre l estrazione dopo escono:
33-43-57-16-70 Questa volta non sono numeri consecutivi, ma delle decine equidistanti. Gli Ambi che se ne ricavano sono: 86-80 / 86-8 / 16-80 / 16-8 / 86-16 e 80-8 Il giorno 15/04/2006 sempre su Bari escono i numeri: 73-35-86-10-16 In questo caso si sarebbero vinti puliti ben: 1010 Euro.
In questo caso invece sulla Ruota di Bari escono dei numeri distanti 10 (33-43-53) appartenenti alla decina del 3(cadenza del 3) (3-13-23-33-e così via). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 43x2=86 poi la seconda Ambata 86+ la distanza tra il numero + piccolo e quello + grande 53-33=20 86+20=106-90=16 Da abbinare agl altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 53-43=10 43-33=10 Il numero sarà 90-10=80 ed il suo vertibile cioé 8.
Altro tipo di Metodo con diversa figura é di questo tipo...Nel giorno: 13/04/2006 su Bari escono i numeri:
46-26-13-74-50 subito l estrazione dopo escono i numeri:
84-88-22-04-54 In questo caso sono numeri che appartengono alla stessa somma (13-22-04 tutte somme di 4)cioé di figura 4. 1+3=4 2+2=4 e 0+4=4 Gli Ambi sono 26-81 / 26-18 / 44-81 / 44-18 / 26-44 e 81-18 Il giorno 30/05/2006 escono i numeri: 71-18-50-87-44In questo caso si sarebbero vinti puliti ben: 650 Euro.
In questo caso invece sulla Ruota di Bari escono dei numeri distanti 9 (22-13-04) (di figura 4) appartenenti alla somma del 4 (13/1+3=4 22/2+2=4 04/0+4=4). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 13x2=26 poi la seconda Ambata 26+ la distanza tra il numero + piccolo e quello + grande 22-04=18 26+18=44 Da abbinare agl altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 22-13=9 13-04=9 Il numero sarà 90-9=81 ed il suo vertibile cioé 18.
Ultimo caso é l uscita di 3 numeri nella stessa estrazione. Nell estrazione del 21/02/2006 escono i numeri:
58-20-19-21-59 Gl ambi da giocare sono: 40-88 / 40-89 / 42-88 / 42-89 / 40-42 e 88-89 Nel giorno 23/03/2006 escono su Bari i numeri: 76-69-42-88-87 Ancora in questo caso si sarebbe vinto con un guadagno netto di ben:860 Euro.
In questo caso invece sulla Ruota di Bari nella stessa estrazione escono dei numeri consecutivi (20-19-21). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 20x2=40 poi la seconda Ambata 40+ la distanza tra il numero + piccolo e quello + grande 21-19=2 40+2=42 Da abbinare agli altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 21-20=1 20-19=1 Il numero sarà 90-1=89 ed il suo vertibile cioé 88.
Nell estrazione del 24/12/2005 sulla Ruota di Cagliari e Napoli escono i seguenti numeri:
CA 65-58-32-22-23
NA 26-19-46-20-41
Come noterete chiaramente dai numeri in rosso, sono numeri distanti 9 con la somma uguale a 5 (figura 5) Cioé 32 (3+2=5) - 23 (2+3=5) e 41 (4+1=5). Il 23 ed il numero 41 sono usciti entrambi nella stessa posizione. Con lo stesso metodo di sempre si ricavano da giocare su entrambe le Ruote di Cagliari e Napoli i seguenti Ambi. 64-81 / 64-18 / 82-18 / 82-81 / 64-82 e 81-18 . Ed ecco che nell' estrazione del 3/1/2006 sulla Ruota di Napoli escono i numeri: NA 81-64-89-19-52 In questo caso giocando sempre solo 5 Euro x Ambo, anche spendendo il doppio del solito, si sarebbero vinti puliti (togliendo la spesa degli Ambi giocati) ben1010 Euro.
86-83-45-72-89 L estrazione seguente escono i numeri:
51-74-71-70-32 Notate i numeri in rosso? Appartengono alla decine del settanta, sono numeri consecutivi ed inoltre i numeri 72 e 70 sono usciti entrambi in quarta posizione. Il metodo ricava 6 Ambi: 52-88 / 52-89 / 54-89 / 54-88 / 52-54 e 88-89 . Il giorno 31/12/2005 escono su Firenze i numeri: 68-88-36-60-89. Giocando anche 5 Euro ad Ambo si sarebbero guadagnati puliti ben: 1160 Euro.
Ecco come ho ricavato gli Ambi. Bisogna controllare ogni estrazione, ogni Ruota e controllare bene per ogni estrazione consecutiva. Nel I esempio: Notiamo sulla Ruota di Bari in 2 estrazioni successive, 3 numeri consecutivi 72-71-70. Almeno 2 numeri devono uscire nella stessa posizione come ad esempio 72-70 usciti nella quarta posizione. Per ricavare le 2 Ambate da abbinare agli altri numeri x Ambo si opera così. Per ricavare la prima Ambata fare il doppio del numero intermedio cioé il 71. Il suo doppio é 142(71x2). Per poterlo giocare sottrarre 90. 142-90=52 La seconda Ambata é la prima Ambata cioé il 52 + la differenza tra il numero + piccolo e quello + grande cioé 72-70=2. 52+2=54 Gli altri 2 numeri da abbinare alle Ambate x formare gli Ambi si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 72-71=1 71-70=1 Il numero sarà 90-1=89 ed il suo vertibile cioé 88.
Altro esempio? Il giorno 10/01/2006 sulla Ruota di Cagliari escono i numeri:
67-55-83-52-59 Il giorno seguente escono i numeri:
06-85-80-50-51Ancora stavolta sono numeri consecutivi della decina del 50 ed usciti entrambi in quarta posizione. I 6 Ambi che si ricavano sono: 12-88 / 12-89 / 14-88 / 14-89 / 12-14 e 88-89 Il giorno 26/01/2006 sulla Ruota di Firenze escono i numeri: 80-63-55-14-12Anche in questo caso giocando anche 5 Euro ad Ambo si sarebbero guadagnati puliti ben: 1040 Euro.
In questo caso sulla Ruota di Cagliari escono dei numeri come prima, consecutivi. Il metodo é lo stesso. Provate a fare i calcoli da soli.
Andiamo avanti coi mesi per vedere se il metodo funzione sempre. Nel giorno 28/03/2006 sulla Ruota di Bari escono:
53-14-44-21-70 mentre l estrazione dopo escono:
33-43-57-16-70 Questa volta non sono numeri consecutivi, ma delle decine equidistanti. Gli Ambi che se ne ricavano sono: 86-80 / 86-8 / 16-80 / 16-8 / 86-16 e 80-8 Il giorno 15/04/2006 sempre su Bari escono i numeri: 73-35-86-10-16 In questo caso si sarebbero vinti puliti ben: 1010 Euro.
In questo caso invece sulla Ruota di Bari escono dei numeri distanti 10 (33-43-53) appartenenti alla decina del 3(cadenza del 3) (3-13-23-33-e così via). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 43x2=86 poi la seconda Ambata 86+ la distanza tra il numero + piccolo e quello + grande 53-33=20 86+20=106-90=16 Da abbinare agl altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 53-43=10 43-33=10 Il numero sarà 90-10=80 ed il suo vertibile cioé 8.
Altro tipo di Metodo con diversa figura é di questo tipo...Nel giorno: 13/04/2006 su Bari escono i numeri:
46-26-13-74-50 subito l estrazione dopo escono i numeri:
84-88-22-04-54 In questo caso sono numeri che appartengono alla stessa somma (13-22-04 tutte somme di 4)cioé di figura 4. 1+3=4 2+2=4 e 0+4=4 Gli Ambi sono 26-81 / 26-18 / 44-81 / 44-18 / 26-44 e 81-18 Il giorno 30/05/2006 escono i numeri: 71-18-50-87-44In questo caso si sarebbero vinti puliti ben: 650 Euro.
In questo caso invece sulla Ruota di Bari escono dei numeri distanti 9 (22-13-04) (di figura 4) appartenenti alla somma del 4 (13/1+3=4 22/2+2=4 04/0+4=4). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 13x2=26 poi la seconda Ambata 26+ la distanza tra il numero + piccolo e quello + grande 22-04=18 26+18=44 Da abbinare agl altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 22-13=9 13-04=9 Il numero sarà 90-9=81 ed il suo vertibile cioé 18.
Ultimo caso é l uscita di 3 numeri nella stessa estrazione. Nell estrazione del 21/02/2006 escono i numeri:
58-20-19-21-59 Gl ambi da giocare sono: 40-88 / 40-89 / 42-88 / 42-89 / 40-42 e 88-89 Nel giorno 23/03/2006 escono su Bari i numeri: 76-69-42-88-87 Ancora in questo caso si sarebbe vinto con un guadagno netto di ben:860 Euro.
In questo caso invece sulla Ruota di Bari nella stessa estrazione escono dei numeri consecutivi (20-19-21). Operando come prima. Per la prima Ambata fare il doppio del numero intermedio cioé 20x2=40 poi la seconda Ambata 40+ la distanza tra il numero + piccolo e quello + grande 21-19=2 40+2=42 Da abbinare agli altri numeri seguenti. Gl altri 2 numeri si ricavano sottraendo il numero 90 al numero di differenza tra i numeri usciti. 21-20=1 20-19=1 Il numero sarà 90-1=89 ed il suo vertibile cioé 88.
ATTENZIONE
Voi potete mettere in pratica lo stesso Metodo applicato su 2 Ruote invece che una. Le probabilità che esca l Ambo é maggiore, anche se é vero che bisogna spendere il doppio dei soldi. Faccio un esempio:Nell estrazione del 24/12/2005 sulla Ruota di Cagliari e Napoli escono i seguenti numeri:
CA 65-58-32-22-23
NA 26-19-46-20-41
Come noterete chiaramente dai numeri in rosso, sono numeri distanti 9 con la somma uguale a 5 (figura 5) Cioé 32 (3+2=5) - 23 (2+3=5) e 41 (4+1=5). Il 23 ed il numero 41 sono usciti entrambi nella stessa posizione. Con lo stesso metodo di sempre si ricavano da giocare su entrambe le Ruote di Cagliari e Napoli i seguenti Ambi. 64-81 / 64-18 / 82-18 / 82-81 / 64-82 e 81-18 . Ed ecco che nell' estrazione del 3/1/2006 sulla Ruota di Napoli escono i numeri: NA 81-64-89-19-52 In questo caso giocando sempre solo 5 Euro x Ambo, anche spendendo il doppio del solito, si sarebbero vinti puliti (togliendo la spesa degli Ambi giocati) ben1010 Euro.
filippo1963
Member
Bungiorno e Buon Fine Settimana, mi rivolgo sempre a i Bravissimi e Fantastici Scripter di questo bellissimo Forum. Mi serve uno script che mi ricerchi su Ruote unite(escludere la ruota nazionale) Due numeri in posizione isotopa che abbiano entrambi queste caratteristiche: Numeri Gemelli o Numeri che fanno parte del Gruppo dei Vertibili Puri. Grazie anticipato a che lo farà
joe
Advanced Member >PLATINUM PLUS<
Codice:
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,S,P,E,F,Nu(2)
For Es = EstrazioneFin - 100 To EstrazioneFin
For R = 1 To 10
S = R + 1 : If S = 11 Then S = 1
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(1) = E
F = Estratto(Es,S,P) : Nu(2) = F
If E <> F Then
If(Gemello(E) = True) And(Gemello(F) = True) Or(E = Vert(F) And (Cadenza(E) <> 9 And Cadenza(F) <> 9)) Then
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R)
Scrivi DataEstrazione(Es) & " " & SiglaRuota(S) & " " & StringaEstratti(Es,S) & " ",0,0
Scrivi StringaNumeri(Nu,,True) & " " & P & "°",1
Scrivi
End If
End If
Next
Next
Next
End SubI.U.
filippo1963
Member
Thanks Joe lo testo subito
Matematico
Advanced Member >PLATINUM<
Buonasera a salvo 50 e a tutti del forum , questo metodo " L'AMBO RELATIVO" , è molto forte e l'ho trovato nel forum di EnzoB , vale davvero la pena di farne uno script vista la grande bravura di Giuseppe pezzella (l'autore) , che tutti conosceranno.
Allego la metodologia completa ....spero non sia complicato per te salvo 50 scriptarlo .
Allego la metodologia completa ....spero non sia complicato per te salvo 50 scriptarlo .
Allegati
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Ciao Matematico, ma l'ambo relativo di Pezzella non e' lo stesso che c'e' al post 349 e seguenti?Certo salvo 50,
Buona domenica a te e il gruppo che ci segue
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Rosanna, hai ragione è quello, io non ricordavo più di averlo già fatto
Matematico
Advanced Member >PLATINUM<
Ciao Rosanna58 e salvo50 ,
No è diverso , quello che è stato già fatto è la versione di Manara ....questo è stato fatto da Manara e Pezzella ed è la versione migliore , quella top!
No è diverso , quello che è stato già fatto è la versione di Manara ....questo è stato fatto da Manara e Pezzella ed è la versione migliore , quella top!
salvo50
Advanced Member >PLATINUM PLUS<
ok allora dopo provo a farlo
Bene Matematico se e' la versione migliore ben venga, ma io mi sono letta la versione del post 349 e l'ultima postata e secondo me sono esattamente uguali, l'unica differenza e' che la prima ha degli esempi in piu'.
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ne ho fatti 2, il primo è con una sola ruota in estrazioni consecutive come dalle ultime spiegazioni, il secondo con due ruote consecutive stessa estrazione
Codice:
Option Explicit
Sub Main()
Dim Es,Ini,Fin,Qua,R1,P1,P2,P3,P4,P5
Dim A,B,C,E1,E2,Casi,Caso,Salvo50
Dim Dist_AB,Dist_AC,Dist_BC,Clp
Dim X1,X2,X3,xX1,xX2,Abb1,Abb2
Dim Ambo1(2),Ambo2(2),Ambo3(2)
Dim Ambo4(2),Ambo5(2),Ambo6(2)
Dim M(3),Ruo(1),Poste(2)
Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",50)
Clp = InputBox("Per Quanti Colpi vuoi giocare gli ambi? ",Salvo50,10)
Ini = EstrazioneFin - Qua
Fin = EstrazioneFin
Poste(2) = 1
Scrivi " Una Ruota, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
Scrivi " Oppure stessa figura - Con calcolo ambi Chiesto da Everita C - Script Salvo50 ",1,,4,,3,,1
For Es = Ini To Fin - 1
Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
If A > 0 Then
For P2 = 1 To 4
For P3 = P2 + 1 To 5
B = Estratto(Es + 1,R1,P2)
C = Estratto(Es + 1,R1,P3)
If P1 = P2 Or P1 = P3 Then
'distanze
Dist_AB = Distanza(A,B): Dist_AC = Distanza(A,C): Dist_BC = Distanza(B,C)
If(Dist_AB = 1 And Dist_AC = 2) Or(Dist_AB = 2 And Dist_AC = 1)Or(Dist_AB = 1 And Dist_AC = 1)_
Or(Dist_AB = 10 And Dist_AC = 20) Or(Dist_AB = 20 And Dist_AC = 10) Or(Dist_AB = 10 And Dist_AC = 10)_
Or Figura(A) = Figura(B) And Figura(A) = Figura(C) Then
If(Dist_AB = Dist_AC And Dist_BC =(Dist_AB * 2)) Or(Dist_AB = Dist_BC And Dist_AC =(Dist_AB *2))_
Or(Dist_AC = Dist_BC And(Dist_AB = Dist_AC * 2))Or Figura(A) = Figura(B) And Figura(A) = Figura(C) Then
M(1) = A : M(2) = B : M(3) = C
OrdinaMatrice M,1
xX1 = M(2) - M(1) 'Distanza corta
X1 = Fuori90(M(2) * 2)
xX2 =(M(3) - M(1))'distanza lunga
X2 = Fuori90(X1 + xX2)
Abb1 = 90 - xX1
Abb2 = Vert(Abb1)
Ambo1(1) = X1 : Ambo1(2) = Abb1
Ambo2(1) = X1 : Ambo2(2) = Abb2
Ambo3(1) = X2 : Ambo3(2) = Abb1
Ambo4(1) = X2 : Ambo4(2) = Abb2
Ambo5(1) = X1 : Ambo5(2) = X2
Ambo6(1) = Abb1 : Ambo6(2) = Abb2
Scrivi
Casi = Casi + 1
Caso = Caso + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P4 = 1 To 5
E1 = Estratto(Es,R1,P4)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E2 = Estratto(Es + 1,R1,P5)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Ruo(1) = R1
ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
ImpostaGiocata 4,Ambo4,Ruo,Poste,Clp
ImpostaGiocata 5,Ambo5,Ruo,Poste,Clp
ImpostaGiocata 6,Ambo6,Ruo,Poste,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Subsecondo ruote consecutive stessa estrazione
Codice:
Option Explicit
Sub Main()
Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5
Dim A,B,C,E1,E2,Casi,Caso,Clp,Salvo50
Dim Dist_AB,Dist_AC,Dist_BC
Dim X1,X2,X3,xX1,xX2,Abb1,Abb2
Dim Ambo1(2),Ambo2(2),Ambo3(2)
Dim Ambo4(2),Ambo5(2),Ambo6(2)
Dim M(3),Ruo(2),Poste(2)
Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",50)
Clp = InputBox("Per Quanti Colpi vuoi giocare gli ambi? ",Salvo50,10)
Ini = EstrazioneFin - Qua
Fin = EstrazioneFin
Poste(2) = 1
Scrivi " Due Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
Scrivi " Oppure stessa figura - Con calcolo ambi Chiesto da Everita C - Script Salvo50 ",1,,4,,3,,1
For Es = Ini To Fin
Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
If A > 0 Then
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P2 = 1 To 4
For P3 = P2 + 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
If P1 = P2 Or P1 = P3 Then
Dist_AB = Distanza(A,B): Dist_AC = Distanza(A,C): Dist_BC = Distanza(B,C) 'Distanze
If(Dist_AB = 1 And Dist_AC = 2) Or(Dist_AB = 2 And Dist_AC = 1)Or(Dist_AB = 1 And Dist_AC = 1)_
Or(Dist_AB = 10 And Dist_AC = 20) Or(Dist_AB = 20 And Dist_AC = 10) Or(Dist_AB = 10 And Dist_AC = 10)_
Or Figura(A) = Figura(B) And Figura(A) = Figura(C) Then
If(Dist_AB = Dist_AC And Dist_BC =(Dist_AB * 2)) Or(Dist_AB = Dist_BC And Dist_AC =(Dist_AB *2))_
Or(Dist_AC = Dist_BC And(Dist_AB = Dist_AC * 2)) Or Figura(A) = Figura(B) And Figura(A) = Figura(C) Then
M(1) = A : M(2) = B : M(3) = C
OrdinaMatrice M,1
xX1 = M(2) - M(1) 'Distanza corta
X1 = Fuori90(M(2) * 2)
xX2 =(M(3) - M(1))'distanza lunga
X2 = Fuori90(X1 + xX2)
Abb1 = 90 - xX1
Abb2 = Vert(Abb1)
Ambo1(1) = X1 : Ambo1(2) = Abb1
Ambo2(1) = X1 : Ambo2(2) = Abb2
Ambo3(1) = X2 : Ambo3(2) = Abb1
Ambo4(1) = X2 : Ambo4(2) = Abb2
Ambo5(1) = X1 : Ambo5(2) = X2
Ambo6(1) = Abb1 : Ambo6(2) = Abb2
Scrivi
Casi = Casi + 1
Caso = Caso + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P4 = 1 To 5
E1 = Estratto(Es,R1,P4)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P5 = 1 To 5
E2 = Estratto(Es,R2,P5)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
ImpostaGiocata 4,Ambo4,Ruo,Poste,Clp
ImpostaGiocata 5,Ambo5,Ruo,Poste,Clp
ImpostaGiocata 6,Ambo6,Ruo,Poste,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 05 aprile 2025Bari1058036114Cagliari0467368587Firenze7045806206Genova0566325989Milano2056028747Napoli6063757206Palermo1480307670Roma7342367908Torino2674837831Venezia0660857640Nazionale4411710637Estrazione Simbolotto
Genova
2614363144
