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
capthegamer
Member
Ciao Salvo ok.Chiedo venia ad altri.
Se puoi passare la palla ad altri.
Grazie.
Se puoi passare la palla ad altri.
Grazie.
capthegamer
Member
Ciao Salvo solo per sapere se lo script e' in fase di costruzione o si e' rinunciato.
Grazie.
Grazie.
Buongiorno a tutti ; innanzi tutto complimenti a Salvo, che col suo lavoro soddisfa e accontenta le richieste, di tanti utenti, non è facile trovare chi , con disinteresse e cortesia si presta ad aiutare chi (come me 
) di script non me mastica affatto, ma veniamo al motivo reale del mio bisogno..... mi aiuterebbe molto ci fosse un listato che ricerchi nelle estrazioni precedenti una serie di numeri ( da inserire di volta in volta) nel giro di una decina di estrazioni precedenti. esempio, estrazione di calcolo (io calcolo i numeri da ricercare ogni volta diversi fino a max dieci) faccio avvia e il programma mi ricerca nelle dieci estrazioni precedenti almeno, da due in poi quanti piu numeri richiesti tra quelli calcolati. Ringrazio anticipatamente chi potrà aiutarmi,
e auguro una buona giornata . una buona Pasqua e Pasquetta_______RBSN
) di script non me mastica affatto, ma veniamo al motivo reale del mio bisogno..... mi aiuterebbe molto ci fosse un listato che ricerchi nelle estrazioni precedenti una serie di numeri ( da inserire di volta in volta) nel giro di una decina di estrazioni precedenti. esempio, estrazione di calcolo (io calcolo i numeri da ricercare ogni volta diversi fino a max dieci) faccio avvia e il programma mi ricerca nelle dieci estrazioni precedenti almeno, da due in poi quanti piu numeri richiesti tra quelli calcolati. Ringrazio anticipatamente chi potrà aiutarmi,e auguro una buona giornata . una buona Pasqua e Pasquetta_______RBSN
I numeri ricercati come devono apparire? Cioè cupi ruota data estrazione frequenza ultima uscita....?Buongiorno a tutti ; innanzi tutto complimenti a Salvo, che col suo lavoro soddisfa e accontenta le richieste, di tanti utenti, non è facile trovare chi , con disinteresse e cortesia si presta ad aiutare chi (come me
e auguro una buona giornata . una buona Pasqua e Pasquetta_______RBSN
salvo50
Advanced Member >PLATINUM PLUS<
Per Robinson, non avevo capito che questa tua richiesta
era per uno script statistico, ed io in questo topic non
faccio script statistici, comunque ho aperto un altro
topic e ti ho messo uno script di Mike58 che fa quello
che hai chiesto
bubù
Advanced Member >PLATINUM PLUS<
Grazie salvo50 e scusami per il disturbo, quando puoi e sempre se puoi nessuna pretesa ma tanta riconoscenza per tutto quello che fai. N.B.: scusa se mi permetto come si evince dal mio esempio ho cercato di copiare gli insegnamenti di Gargiulo, ma ho invertito le estrazioni la ricerca del numero a distanza 18 dal rettangolo, l'ho trovata nell'estrazione successiva invece di quella prima, secondo me non cambia molto, e quindi ti chiedo di fare la ricerca se si può prima o dopo il rettangolo trovato. Grazie e Buona giornata
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a TuttiGrazie salvo50 e scusami per il disturbo, quando puoi e sempre se puoi nessuna pretesa ma tanta riconoscenza per tutto quello che fai. N.B.: scusa se mi permetto come si evince dal mio esempio ho cercato di copiare gli insegnamenti di Gargiulo, ma ho invertito le estrazioni la ricerca del numero a distanza 18 dal rettangolo, l'ho trovata nell'estrazione successiva invece di quella prima, secondo me non cambia molto, e quindi ti chiedo di fare la ricerca se si può prima o dopo il rettangolo trovato. Grazie e Buona giornata
Ciao Bubù
L'Avevo notato che il tuo esempio è con la ricerca della chiusura non a ritroso
c'è un altra cosa diversa nel tuo esempio, tu calcoli 2 estratti in una ruota e due
estratti nell'altra ruota, nell'esempio di Gargiulo, c'è un estratto in una ruota e
tre estratti nell'altra ruota.
Quindi mi viene troppo incasinato farlo con un solo script, farò 2 script, uno con
la ricerca a ritroso e l'altro con la ricerca in avanti
bubù
Advanced Member >PLATINUM PLUS<
Reacher è semplice devi trovare in una estrazione in 2 ruote i numeri per formare un rettagolo a distanza 9x36 e nella estrazione precedente il Diametrale il Diametrale mancante sarà il nuovo estratto e i due numeri a distanza 9 dallo stesso gli abbinamenti per Ambo o se preferisci la Terzina per Ambo e Terno anche a Tutte e Nazionale . Spero di aver spiegato bene, io ho fatto qualche variante ma mi piace aggiungere sempre qualcosa di diverso altrimenti si copia e basta.
bubù
Advanced Member >PLATINUM PLUS<
Quello che farai sarà un enorme regalo come sempre, chi non apprezza o non capisce la disponibilità e la tua grande generosità verso tutti noi non ti merita. Grazie di cuore
bubù
Advanced Member >PLATINUM PLUS<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Alien, Bubù
Grazie
Per non scrivere tutte le volte quanti estratti ho cercato tra una ruota e l'altra, adotto questo sistema
Mod 13 = calcolo un estratto in una ruota e 3 estratti nell'altra ruota o viceversa
Mod 22 = due estratti in una ruota e due estratti nell'altra ruota
Di questo metodo ho fatto 2 script, nel primo, ricerca del vertice estrazione a Ritroso
e gli estratti Mod 13 e 22.
Nel secondo, ricerca del vertice estrazione in Avanti, e gli estratti Mod 13 e 22
Quando nella ruota di ricerca del vertice, ci sono sia il vertice che il suo diametrale
lo script li calcola tutti e 2
Ecco gli script salvo errori o dimenticanze
8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 Ricerca del Vertice a Ritroso
8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 Ricerca del Vertice in Avanti
Alien, Bubù
Grazie
Per non scrivere tutte le volte quanti estratti ho cercato tra una ruota e l'altra, adotto questo sistema
Mod 13 = calcolo un estratto in una ruota e 3 estratti nell'altra ruota o viceversa
Mod 22 = due estratti in una ruota e due estratti nell'altra ruota
Di questo metodo ho fatto 2 script, nel primo, ricerca del vertice estrazione a Ritroso
e gli estratti Mod 13 e 22.
Nel secondo, ricerca del vertice estrazione in Avanti, e gli estratti Mod 13 e 22
Quando nella ruota di ricerca del vertice, ci sono sia il vertice che il suo diametrale
lo script li calcola tutti e 2
Ecco gli script salvo errori o dimenticanze
8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 Ricerca del Vertice a Ritroso
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(3),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10766)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 a Ritroso - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es - 1,R3,P5) '------------
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es - 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
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)
If isNumeroValidoLotto(A) Then
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 isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R1 Or R3 = R2 Then
For P5 = 1 To 5
E = Estratto(Es - 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es - 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 Ricerca del Vertice in Avanti
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(3),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10831)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
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)
If isNumeroValidoLotto(A) Then
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 isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
bubù
Advanced Member >PLATINUM PLUS<
In effetti non c'è un Metodo ben preciso, secondo me l'importante è riuscire a formare delle figure armoniose rispettando l'origine dei numeri, cioè usando la stessa figura. Grazie e scusami ancora i tuoi script servono per la ricerca veloce, una volta c'era tutto il tempo tra una estrazione e l'altra adesso sono una dietro l'altra se non si usano gli script per la ricerca non si fa in tempo.
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 28 aprile 2026Bari6850333123Cagliari4780442413Firenze6205492647Genova2234293586Milano3345557827Napoli5836884746Palermo2159737246Roma4059740232Torino6470367313Venezia7764068469Nazionale0114240456Estrazione Simbolotto
Genova
0545044420