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.
uno script x spaziometria x Salvo50 e altri i 2 ambi magnifici
- Creatore Discussione DRAGON8698
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Claudio8, Dragon8698, Rudivall
GRAZIE
In questo metodo bisogna cercare dei riscontri nelle estrazioni successive, facendo in questo modo estrazione giocabile c'è solo l'estrazione dell'articolo, quindi l'ho tolta, anche così ci sono poche estrazioni giocabili, più o meno di media una ogni 22 estrazioni.
Il metodo dell'articolo cerca un estratto in una ruota ed altri 3 estratti in un'altra ruota, siccome ho fatto un altro script con ricerca di estratti 2 per ogni ruota per distinguerli il primo nel titolo ho aggiunto Modulo 13 e nel secondo Modulo 22
Il secondo modulo 22
Claudio8, Dragon8698, Rudivall
GRAZIE
In questo metodo bisogna cercare dei riscontri nelle estrazioni successive, facendo in questo modo estrazione giocabile c'è solo l'estrazione dell'articolo, quindi l'ho tolta, anche così ci sono poche estrazioni giocabili, più o meno di media una ogni 22 estrazioni.
Il metodo dell'articolo cerca un estratto in una ruota ed altri 3 estratti in un'altra ruota, siccome ho fatto un altro script con ricerca di estratti 2 per ogni ruota per distinguerli il primo nel titolo ho aggiunto Modulo 13 e nel secondo Modulo 22
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp1,Clp2,Es,Cer,Salvo50
Dim R1,R2,R3,P1,P2,P3,P4,P7,P8,E1,E2,Caso,Casi
Dim DM12,DM23,DM34,DM41,Ch1,Ch2,Ch3,Ch4
Dim L(6),M(4),N(8)
Dim Ambata(1),Ambo1(2),Ambo2(2),Terno(3)
Dim Ruo1(2),Ruo2(4),Poste1(1),Poste2(2),Poste3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10200))'9627 esempio nell'articolo
Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi e il terno?",Salvo50,10))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "I Due Ambi Magnifici di Angelo Gargiulo - Modulo 13 - Script Salvo50" & Space(9),1,,4,,3,,1
Poste1(1) = 1
Poste2(2) = 1
Poste3(2) = 1
Poste3(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P2 = 1 To 3
For P3 = P2 + 1 To 4
For P4 = P3 + 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And B > 0 Then
If A <> B And A <> C And A <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 _
Or DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 _
Or DM12 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 _
Or DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 Then
'---------------------------------
If DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 Then
Ch1 = Fuori90(M(3) + 9)
Ch2 = Fuori90(M(4) + 9)
Ch3 = Fuori90(M(4) + 27)
Ch4 = Fuori90(M(2) + 9)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 Then
Ch1 = Fuori90(M(2) + 9)
Ch2 = Fuori90(M(3) + 9)
Ch3 = Fuori90(M(3) + 27)
Ch4 = Fuori90(M(1) + 9)
End If
If DM12 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 Then
Ch1 = Fuori90(M(1) + 9)
Ch2 = Fuori90(M(2) + 9)
Ch3 = Fuori90(M(2) + 27)
Ch4 = Fuori90(M(4) + 9)
End If
If DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 Then
Ch1 = Fuori90(M(4) + 9)
Ch2 = Fuori90(M(1) + 9)
Ch3 = Fuori90(M(1) + 27)
Ch4 = Fuori90(M(3) + 9)
End If
Ambata(1) = Ch1
Ambo1(1) = Ch1 : Ambo1(2) = Ch3
Ambo2(1) = Ch1 : Ambo2(2) = Ch4
Terno(1) = Ch1 : Terno(2) = Ch3 : Terno(3) = Ch4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
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 P8 = 1 To 5
E2 = Estratto(Es,R2,P8)
If E2 = B Or E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = Ch1 : L(6) = Ch2
DisegnaCerchioCiclometrico L,1,1,,,1,1
N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4)
N(5) = Ch1 : N(6) = Ch2 : N(7) = Ch3 : N(8) = Ch4
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
Ruo2(1) = R1 : Ruo2(2) = R2 : Ruo2(3) = NZ_ : Ruo2(4) = TT_
ImpostaGiocata 1,Ambata,Ruo1,Poste1,Clp1
ImpostaGiocata 2,Ambo1,Ruo2,Poste2,Clp2
ImpostaGiocata 3,Ambo2,Ruo2,Poste2,Clp2
ImpostaGiocata 4,Terno,Ruo2,Poste3,Clp2
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso " & TempoTrascorso
End SubIl secondo modulo 22
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp1,Clp2,Es,Cer,Salvo50
Dim R1,R2,R3,P1,P2,P3,P4,P7,P8,E1,E2,Caso,Casi
Dim DM12,DM23,DM34,DM41,Ch1,Ch2,Ch3,Ch4
Dim L(6),M(4),N(8)
Dim Ambata(1),Ambo1(2),Ambo2(2),Terno(3)
Dim Ruo1(2),Ruo2(4),Poste1(1),Poste2(2),Poste3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10220))'9627 esempio nell'articolo
Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi e il terno?",Salvo50,10))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "I Due Ambi Magnifici di Angelo Gargiulo - Modulo 22 - Script Salvo50" & Space(9),1,,4,,3,,1
Poste1(1) = 1
Poste2(2) = 1
Poste3(2) = 1
Poste3(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 _
Or DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 _
Or DM12 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 _
Or DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 Then
'---------------------------------
If DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 Then
Ch1 = Fuori90(M(3) + 9)
Ch2 = Fuori90(M(4) + 9)
Ch3 = Fuori90(M(4) + 27)
Ch4 = Fuori90(M(2) + 9)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 Then
Ch1 = Fuori90(M(2) + 9)
Ch2 = Fuori90(M(3) + 9)
Ch3 = Fuori90(M(3) + 27)
Ch4 = Fuori90(M(1) + 9)
End If
If DM12 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 Then
Ch1 = Fuori90(M(1) + 9)
Ch2 = Fuori90(M(2) + 9)
Ch3 = Fuori90(M(2) + 27)
Ch4 = Fuori90(M(4) + 9)
End If
If DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 Then
Ch1 = Fuori90(M(4) + 9)
Ch2 = Fuori90(M(1) + 9)
Ch3 = Fuori90(M(1) + 27)
Ch4 = Fuori90(M(3) + 9)
End If
Ambata(1) = Ch1
Ambo1(1) = Ch1 : Ambo1(2) = Ch3
Ambo2(1) = Ch1 : Ambo2(2) = Ch4
Terno(1) = Ch1 : Terno(2) = Ch3 : Terno(3) = Ch4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
If E1 = A Or E1 = B 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 P8 = 1 To 5
E2 = Estratto(Es,R2,P8)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = Ch1 : L(6) = Ch2
DisegnaCerchioCiclometrico L,1,1,,,1,1
N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4)
N(5) = Ch1 : N(6) = Ch2 : N(7) = Ch3 : N(8) = Ch4
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
Ruo2(1) = R1 : Ruo2(2) = R2 : Ruo2(3) = NZ_ : Ruo2(4) = TT_
ImpostaGiocata 1,Ambata,Ruo1,Poste1,Clp1
ImpostaGiocata 2,Ambo1,Ruo2,Poste2,Clp2
ImpostaGiocata 3,Ambo2,Ruo2,Poste2,Clp2
ImpostaGiocata 4,Terno,Ruo2,Poste3,Clp2
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Ultima modifica:
DRAGON8698
Member
graz
grazie
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 28 luglio 2026Bari8227800369Cagliari2301088872Firenze8969625654Genova7175433869Milano8971342987Napoli5510187285Palermo4709811265Roma6035586867Torino6638307317Venezia8811134821Nazionale7956730539Estrazione Simbolotto
Nazionale
0129342810
