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
salvo50
Advanced Member >PLATINUM PLUS<
IL QUATERNO PERPETUO (terza parte) di FEDELE DAVENAL a cura di CARMINE TEDESCO
Anche la terza parte di questo metodo è basata nella scelta di 2 triangoli dei 6 disponibili in un esagono, però di diverso della seconda parte di questo metodo, è che i numeri dei triangoli scelti non sono accoppiati ad altri triangoli ed ogni triangolo sviluppa 9 numeri, i 3 degli angoli più le 3 coppie più i vertibili delle 3 coppie uguale 9, dato che i 9 numeri si possono cercare con ImpostaGiocata, la ricerca l'ho fatta così ed ho impostato di default 5 colpi che si possono cambiare tramite ImputBox.
Verso la fine dell'articolo dice che posso usare qualsiasi numero per la ricerca anche se non appartine ai 48 numeri menzionati nella prima immagine, basta moltiplicare al quadrato o al cubo finche con il fuori90 non si arriva ad un numero dei 48, di questo non ho fatto niente, i numeri scelti devono appartenere ai 48 della prima immagine, cioè hai stabilito una regola e poi alla fine mi scombussoli tutto.
Anche la terza parte di questo metodo è basata nella scelta di 2 triangoli dei 6 disponibili in un esagono, però di diverso della seconda parte di questo metodo, è che i numeri dei triangoli scelti non sono accoppiati ad altri triangoli ed ogni triangolo sviluppa 9 numeri, i 3 degli angoli più le 3 coppie più i vertibili delle 3 coppie uguale 9, dato che i 9 numeri si possono cercare con ImpostaGiocata, la ricerca l'ho fatta così ed ho impostato di default 5 colpi che si possono cambiare tramite ImputBox.
Verso la fine dell'articolo dice che posso usare qualsiasi numero per la ricerca anche se non appartine ai 48 numeri menzionati nella prima immagine, basta moltiplicare al quadrato o al cubo finche con il fuori90 non si arriva ad un numero dei 48, di questo non ho fatto niente, i numeri scelti devono appartenere ai 48 della prima immagine, cioè hai stabilito una regola e poi alla fine mi scombussoli tutto.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Es,Salvo50,Ruota,Clp
Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
Dim L(9),H(9),Ru(1),Poste(5)
Poste(2) = 1
Poste(3) = 1
Poste(4) = 1
'Poste(5) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,3)
Clp = InputBox("Per quanti colpi vuoi giocare le novine? ",Salvo50,5)
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Scrivi Space(8) & " IL QUATERNO PERPETUO DI FEDELE DANEVAL 3a PARTE - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
Est = Estratto(Es,R1,P1)
If Est > 0 Then
FiEst =(Figura(Est))
DeEst =(Decina(Est))
CaEst =(Cadenza(Est))
If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
G = FiEst
A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
If G <> A And G <> B And G <> C And G <> D And G <> E And G <> F And G <> 9 Then
L(1) = G : L(2) = B : L(3) = F : L(4) = Fuori90(G & B) : L(5) = Fuori90(G & F) : L(6) = Fuori90(B & F)
L(7) = Vert(L(4)) : L(8) = Vert(L(5)) : L(9) = Vert(L(6))
'
H(1) = G : H(2) = C : H(3) = E : H(4) = Fuori90(G & C) : H(5) = Fuori90(G & E) : H(6) = Fuori90(C & E)
H(7) = Vert(H(4)) : H(8) = Vert(H(5)) : H(9) = Vert(H(6))
'
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = Est Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
If Es < FIn Then
Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,,,1
End If
Scrivi
Scrivi
Scrivi Space(11) & "ESAGONO" & Space(24) & "TRIANGOLI SCELTI",1,,,2
Scrivi Space(7) & "A=" & A & Space(3) & "B=" & B & Space(31) & "B=" & B,1,,,1,3
Scrivi
Scrivi Space(4) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,0,,2,3
Scrivi Space(8) & "E=" & E & Space(3) & "G=" & G & Space(8) & "G=" & G & Space(3) & "F=" & F,1,,,1,3
Scrivi
Scrivi Space(7) & "C=" & C & Space(3) & "D=" & D & Space(14) & "C=" & C,1,,,1,3
Scrivi
Scrivi "Numeri triangolo GBF ",1,0,,1
Scrivi Sp & Format2(L(1)) & Sp & Format2(L(2)) & Sp & Format2(L(3)) & Sp & Format2(L(4)),1,0,,2
Scrivi Sp & Format2(L(5)) & Sp & Format2(L(6)) & Sp & Format2(L(7)) & Sp & Format2(L(8)),1,0,,2
Scrivi Sp & Format2(L(9)),1,,,2
Scrivi "Numeri triangolo GCE ",1,0,,1
Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)) & Sp & Format2(H(4)),1,0,,2
Scrivi Sp & Format2(H(5)) & Sp & Format2(H(6)) & Sp & Format2(H(7)) & Sp & Format2(H(8)),1,0,,2
Scrivi Sp & Format2(H(9)),1,,,2
Scrivi
Ru(1) = R1
EliminaRipetuti L
ImpostaGiocata 1,L,Ru,Poste,Clp
EliminaRipetuti H
ImpostaGiocata 2,H,Ru,Poste,Clp
Gioca Es
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Nella terza parte del metodo IL QUATERNO PERPETUO vengono calcolati 2 triangoli dei 6 disponibili, ho pensato di fare il calcolo di tutti e 6 per vedere cosa veniva fuori, la ricerca l'ho impostata per un solo colpo per ovvi motivi, ma se qualcuno vuole cambiarla, ho predisposto un InputBox
Nella terza parte del metodo IL QUATERNO PERPETUO vengono calcolati 2 triangoli dei 6 disponibili, ho pensato di fare il calcolo di tutti e 6 per vedere cosa veniva fuori, la ricerca l'ho impostata per un solo colpo per ovvi motivi, ma se qualcuno vuole cambiarla, ho predisposto un InputBox
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Es,Salvo50,Ruota,Clp
Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
Dim L1(9),L2(9),L3(9),L4(9),L5(9),L6(9)
Dim Ru(1),Poste(5)
Poste(2) = 1
Poste(3) = 1
Poste(4) = 1
'Poste(5) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9450)
Clp = InputBox("Per quanti colpi vuoi giocare le novine?",Salvo50,1)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,8)
Call ScegliRange(Ini,FIn,Ini,FIn)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Scrivi Space(12) & " IL QUATERNO PERPETUO DI FEDELE DAVENAL - TERZA PARTE ",1,,4,,3,,1
Scrivi Space(8) & " CON SVILUPPO DI 6 TRIANGOLI MODIFICA N1 DI Salvo50 - SCRIPT Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
Est = Estratto(Es,R1,P1)
FiEst =(Figura(Est))
DeEst =(Decina(Est))
CaEst =(Cadenza(Est))
If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
G = FiEst
A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
If G <> A And G <> B And G <> C And G <> D And G <> E And G <> F And G <> 9 Then
' PRIMO TRIANGOLO G A E
L1(1) = G : L1(2) = A : L1(3) = E : L1(4) = Fuori90(G & A) : L1(5) = Fuori90(G & E)
L1(6) = Fuori90(A & E) : L1(7) = Vert(L1(4)) : L1(8) = Vert(L1(5)) : L1(9) = Vert(L1(6))
'SECONDO TRIANGOLO G A B
L2(1) = G : L2(2) = A : L2(3) = B : L2(4) = Fuori90(G & A) : L2(5) = Fuori90(G & B)
L2(6) = Fuori90(A & B) : L2(7) = Vert(L2(4)) : L2(8) = Vert(L2(5)) : L2(9) = Vert(L2(6))
'TERZO TRIANGOLO G B F
L3(1) = G : L3(2) = B : L3(3) = F : L3(4) = Fuori90(G & B) : L3(5) = Fuori90(G & F)
L3(6) = Fuori90(B & F) : L3(7) = Vert(L3(4)) : L3(8) = Vert(L3(5)) : L3(9) = Vert(L3(6))
'QUARTO TRIANGOLO G C E
L4(1) = G : L4(2) = C : L4(3) = E : L4(4) = Fuori90(G & C) : L4(5) = Fuori90(G & E)
L4(6) = Fuori90(C & E) : L4(7) = Vert(L4(4)) : L4(8) = Vert(L4(5)) : L4(9) = Vert(L4(6))
'QUINTO TRIANGOLO G C D
L5(1) = G : L5(2) = C : L5(3) = D : L5(4) = Fuori90(G & C) : L5(5) = Fuori90(G & D)
L5(6) = Fuori90(C & D) : L5(7) = Vert(L5(4)) : L5(8) = Vert(L5(5)) : L5(9) = Vert(L5(6))
'SESTO TRIANGOLO G D F
L6(1) = G : L6(2) = D : L6(3) = F : L6(4) = Fuori90(G & D) : L6(5) = Fuori90(G & F)
L6(6) = Fuori90(D & F) : L6(7) = Vert(L6(4)) : L6(8) = Vert(L6(5)) : L6(9) = Vert(L6(6))
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = Est Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
'inizio prima riga
Scrivi Space(11) & "ESAGONO" & Space(31) & "6 TRIANGOLI",1,,,2
Scrivi Space(7) & "A=" & A & Space(3) & "B=" & B & Space(14),1,0,,1,3
Scrivi "A=" & A,1,0,,2,3
Scrivi Space(5) & "A=" & A & Space(3) & "B=" & B,1,0,,1,3
Scrivi Space(5) & "B=" & B,1,,,2,3
'fine prima riga
Scrivi
'inizio seconda riga
Scrivi Space(4) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,0,,2,3
Scrivi Space(8) & "E=" & E & Space(3) & "G=" & G,1,0,,2,3
Scrivi Space(5) & "G=" & G,1,0,,1,3
Scrivi Space(5) & "G=" & G & Space(3) & "F=" & F,2,,,2,3
'fine seconda riga
Scrivi
'Inizio terza riga
Scrivi Space(7) & "C=" & C & Space(3) & "D=" & D,1,0,,1,3
Scrivi Space(11) & "E=" & E & Space(3) & "G=" & G,1,0,,1,3
Scrivi Space(5) & "G=" & G,1,0,,2,3
Scrivi Space(5) & "G=" & G & Space(3) & "F=" & F,1,,,1,3
'FIne terza riga
Scrivi
'inizio quarta riga
Scrivi Space(30) & "C=" & C,1,0,,1,3
Scrivi Space(5) & "C=" & C & Space(3) & "D=" & D,1,0,,2,3
Scrivi Space(5) & "D=" & D,1,,,1,3
'fine quarta riga
Scrivi
Scrivi "Numeri triangolo G A E ",1,0,,1
Scrivi Sp & Format2(L1(1)) & Sp & Format2(L1(2)) & Sp & Format2(L1(3)),1,0,,2
Scrivi Sp & Format2(L1(4)) & Sp & Format2(L1(5)) & Sp & Format2(L1(6)),1,0,,2
Scrivi Sp & Format2(L1(7)) & Sp & Format2(L1(8)) & Sp & Format2(L1(9)),1,0,,2
Scrivi " - Numeri triangolo G A B ",1,0,,1
Scrivi Sp & Format2(L2(1)) & Sp & Format2(L2(2)) & Sp & Format2(L2(3)),1,0,,2
Scrivi Sp & Format2(L2(4)) & Sp & Format2(L2(5)) & Sp & Format2(L2(6)),1,0,,2
Scrivi Sp & Format2(L2(7)) & Sp & Format2(L2(8)) & Sp & Format2(L2(9)),1,,,2
Scrivi "Numeri triangolo G B F ",1,0,,1
Scrivi Sp & Format2(L3(1)) & Sp & Format2(L3(2)) & Sp & Format2(L3(3)),1,0,,2
Scrivi Sp & Format2(L3(4)) & Sp & Format2(L3(5)) & Sp & Format2(L3(6)),1,0,,2
Scrivi Sp & Format2(L3(7)) & Sp & Format2(L3(8)) & Sp & Format2(L3(9)),1,0,,2
Scrivi " - Numeri triangolo G C E ",1,0,,1
Scrivi Sp & Format2(L4(1)) & Sp & Format2(L4(2)) & Sp & Format2(L4(3)),1,0,,2
Scrivi Sp & Format2(L4(4)) & Sp & Format2(L4(5)) & Sp & Format2(L4(6)),1,0,,2
Scrivi Sp & Format2(L4(7)) & Sp & Format2(L4(8)) & Sp & Format2(L4(9)),1,,,2
Scrivi "Numeri triangolo G C D ",1,0,,1
Scrivi Sp & Format2(L5(1)) & Sp & Format2(L5(2)) & Sp & Format2(L5(3)),1,0,,2
Scrivi Sp & Format2(L5(4)) & Sp & Format2(L5(5)) & Sp & Format2(L5(6)),1,0,,2
Scrivi Sp & Format2(L5(7)) & Sp & Format2(L5(8)) & Sp & Format2(L5(9)),1,0,,2
Scrivi " - Numeri triangolo G D F ",1,0,,1
Scrivi Sp & Format2(L6(1)) & Sp & Format2(L6(2)) & Sp & Format2(L6(3)),1,0,,2
Scrivi Sp & Format2(L6(4)) & Sp & Format2(L6(5)) & Sp & Format2(L6(6)),1,0,,2
Scrivi Sp & Format2(L6(7)) & Sp & Format2(L6(8)) & Sp & Format2(L6(9)),1,,,2
Scrivi
Ru(1) = R1
EliminaRipetuti L1
ImpostaGiocata 1,L1,Ru,Poste,Clp
EliminaRipetuti L2
ImpostaGiocata 2,L2,Ru,Poste,Clp
EliminaRipetuti L3
ImpostaGiocata 3,L3,Ru,Poste,Clp
EliminaRipetuti L4
ImpostaGiocata 4,L4,Ru,Poste,Clp
EliminaRipetuti L5
ImpostaGiocata 5,L5,Ru,Poste,Clp
EliminaRipetuti L6
ImpostaGiocata 6,L6,Ru,Poste,Clp
Gioca Es
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Nella modifica fatta alla terza parte de IL QUATERNO PERPETUO ho pronosticato 6 novine derivati dai 6 triangoli dell'esagono 9x6=54 numeri che se messi assieme sono composti da molti doppioni per via dei lati interni dei triangoli che sono contate 2 volte, quindi ho pensato di prendere solo i 6 lati esterni ed i 6 raggi dell'esagono, in tutto vengono 12 numeri che con i vertibili fanno 24 e questi 24 numeri possono essere anche di meno se ci sono delle cifre uguali, e fare un'altro script, nello script dato che i numeri sono più 10 fino ad un massimo di 24, la ricerca l'ho fatta con SerieFreqTurbo e dato la mole dei numeri solo per un colpo, alla fine ho messo il resoconto delle terne, quaterne e cinquine.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Es,Salvo50,Ruota,K1,K2,S1,S2,S3,S4,Ok
Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR,FInR
Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,X1,X2,X3
Dim L1(12),L2(12),L3(24),Ru(1)
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9450)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
Call ScegliRange(Ini,FIn,Ini,FIn)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Scrivi Space(12) & " IL QUATERNO PERPETUO DI FEDELE DAVENAL - TERZA PARTE ",1,,4,,3,,1
Scrivi Space(8) & " CON SVILUPPO SOLO DI BASI E RAGGI - MODIFICA N2 di Salvo50 - SCRIPT Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
Est = Estratto(Es,R1,P1)
FiEst =(Figura(Est))
DeEst =(Decina(Est))
CaEst =(Cadenza(Est))
If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
G = FiEst
A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
' I SEI LATI
L1(1) =(A & B) : L1(2) =(B & F) : L1(3) =(F & D) : L1(4) =(D & C) : L1(5) =(C & E) : L1(6) =(E & A)
L1(7) = Vert(L1(1)) : L1(8) = Vert(L1(2)) : L1(9) = Vert(L1(3))
L1(10) = Vert(L1(4)) : L1(11) = Vert(L1(5)) : L1(12) = Vert(L1(6))
S1 = StringaNumeri(L1," ",True)
' I SEI RAGGI
L2(1) =(G & A) : L2(2) =(G & B) : L2(3) =(G & C) : L2(4) =(G & D) : L2(5) =(G & E) : L2(6) =(G & F)
L2(7) = Vert(L2(1)) : L2(8) = Vert(L2(2)) : L2(9) = Vert(L2(3))
L2(10) = Vert(L2(4)) : L2(11) = Vert(L2(5)) : L2(12) = Vert(L2(6))
S2 = StringaNumeri(L2," ",True)
For K1 = 1 To 12
If L1(K1) > 90 Then L1(K1) = Fuori90(L1(K1))
If L2(K1) > 90 Then L2(K1) = Fuori90(L2(K1))
Next
For K2 = 1 To 24
If K2 > 0 And K2 < 13 Then L3(K2) = L1(K2)
If K2 > 12 Then L3(K2) = L2(K2 - 12)
Next
Ru(1) = R1
S4 = Sp
EliminaRipetuti L3
S3 = StringaNumeri(L3," ",True)
If SerieFreqTurbo(Es + 1,Es + 1,L3,Ru,3) = 1 Then
X1 = X1 + 1
S4 = "TERNO"
End If
If SerieFreqTurbo(Es + 1,Es + 1,L3,Ru,4) = 1 Then
X2 = X2 + 1
S4 = "QUATERNA"
End If
If SerieFreqTurbo(Es + 1,Es + 1,L3,Ru,5) = 1 Then
X3 = X3 + 1
S4 = "CINQUINA"
End If
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = Est Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
If Es < FIn Then
Scrivi " Estrazione successiva " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,,,1
End If
Scrivi
Scrivi
Scrivi Space(27) & "A=" & A & Space(3) & "B=" & B,1,,,1,3
Scrivi
Scrivi Space(24) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,,,2,3
Scrivi
Scrivi Space(27) & "C=" & C & Space(3) & "D=" & D,1,,,1,3
Scrivi
Scrivi
Scrivi "Numeri e vertibili dei lati esagono ",1,0,,1
Scrivi Space(10) & "Numeri e vertibili dei raggi esagono",1,,,1
Scrivi S1 & Space(11) & S2,1,,,2
Scrivi
Scrivi "Numeri e vertibili dei lati e raggi esagono - senza eventuali doppioni",1,,,1
Scrivi S3,1,,,2
Scrivi Space(14) & S4,1,,,2,6
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
If X1 < 1 Then X1 = 0
If X2 < 1 Then X2 = 0
If X3 < 1 Then X3 = 0
Scrivi
Scrivi String(54,"O"),1,,,1,4
If Ruota = 11 Then
Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
Else
Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
End If
Scrivi
Scrivi " Nel periodo selezionato sono usciti " & Format2(X1) & " TERNI",1,,,1,4
Scrivi
Scrivi " Nel periodo selezionato sono uscite " & Format2(X2) & " QUATERNE",1,,,2,4
Scrivi
Scrivi " Nel periodo selezionato sono uscite " & Format2(X3) & " CINQUINE",1,,,1,4
Scrivi String(54,"O"),1,,,2,4
End Sub
Ultima modifica:
Salvo Sei poi riuscito ad inserire le 2 opzioni rimaste in sospeso del seguente script ( quelle che ho evidenziato in rosso )
Codice:
Salvo Te lo posto cosj'
Il metodo si basa sulle terzine simmetriche e sul fenomeno che si chiama isopotismo( vale a dire posizionamento dei numeri di due e più ruote nello stesso posto est razionale) fenomeno che non cessa di fornire occasioni di gioco e di vincita .
L’ isotopismo però , ha rilevanza solo quando si tratta di numeri uguali, ma anche quando ad essere isotopi sono numeri legati tra loro da coesioni particolari come sono ad esempio quelli appartenenti alle terzine simmetriche . Quello che succede quando nel quadro est razionale i numeri appena citati si dispongono al medesimo posto est razionale , e cio’ che vedremo .
TERZINE SIMMETRICHE. Sono quelle formazioni di tre numeri distanti fra loro 30 unità come ad esempio 1-31-61, 2-32-62, 3-33-63 ………. 30-60-90 .
Per applicare il metodo bisogna controllare che su una ruota vengono [B]estratti due numeri appartenenti a due terzine simmetriche[/B] e su un’ altra ruota [B]due numeri appartenenti alle stesse terzine simmetriche ma diverse dai primi due[/B] e [B]condizione indispensabile che siano isotopi[/B] cioè estratti nella stessa posizione dei primi due .
In pratica deve trattarsi di due ambi isotopi caratterizzati dall’ avere ciascuno dei termini simmetrico a quello dell’ altra ruota .Questa condizione non si trova frequentemente .
Per fare la previsione prenderemo i nostri due ambi simmetrici e li diporremo uno sopra l’ altro per fare la classica quadratura, ovvero effettuare le somme orizzontali, verticali e diagonali e la somma delle somme che ci darà l’ ambata .
Gli altri undici numeri saranno i quattro degli ambi di partenza più i mancanti delle due terzine simmetriche e quelli ottenuti con le somme verticali orizzontali e diagonali .
Tali numeri si abbineranno all’ ambata avremmo cosi’ undici ambi secchi .
O potremmo giocare il numero per l’ ambata più gli undici numeri quindi dodici numeri a sistema per 9/10 estrazioni.
Esempio
Estrazione del 04-08-2001 abbiamo :
MI 05 71 58 15 45
RO 65 41 38 77 47
COME POTETE NOTARE ABBIAMO SULLE DUE RUOTEDUE COPPIE DI NUMERI APPARTENENTI A DUE DIVERSE TERZINE SIMMETRICHE, E QUELLI DELLA STESSA TERZINA ISOTOPI TRA LORO 5 E 65 ESTRATTI AL 1° POSTO E 71 E 41 ESTRATTI AL 2° POSTO.
L a condizione è rispettata non solo gli ambi sono anche uniti, a rafforzare il tutto , quindi possiamo ricavare la previsione effettuando la quadratura tra i due ambi isotopi:
ambi isotopi
05 71
65 41
Somme orizzontali
05+71=76
65+41=16 con il fuori 90
Somme verticali
05+65=70
71+41=22 con il fuori 90
Somme diagonali
05+41=46
65+71=46 con il fuori 90
Somma delle somme
70+22=2 con il fuori 90
76+16=2 con il fuori 90
46+46=2 con il fuori 90
L’ ambata sarà quindi il 2 somma della somma e gli altri numeri saranno i 4 di partenza 5 65 71 41 piu’ i mancanti di ciascuna terzina simmetrica 35 e 11 le somme orizzontali 76 e 16 le somme verticali 70 e 22 e le somme diagonali 46 .
Verificare l ‘esito per 10 estrazioni dell’ ambata 2
[B][COLOR=#FF0000]Degli ambi secchi 2-5 , 2-65, 2-71, 2-41, 2-35, 2-11,2-76,2-16,2-70,2-22,2-46
E di tutti e 12 i numeri 2-5-65-71-41-35-11-76-16-70-22-46[/COLOR]
[COLOR=#000000] 'PROGETTO - Un metodo a grande richiesta, proposto da Genios
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim FIn,Es,Esq,Clp,Col,Esqcol
Dim Posta(2),Poste(4),Ruote(2),Num1(1),Num2(4)
Dim Caso,Casi,R1,R2,P1,P2,A,B,C,D,E1,E2
Dim PP1,PP2,Sab,Scd,Sac,Sbd,Sad,Sbc,Sso,Ssv,Ssd
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,10)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
Posta(1) = 1
Poste(2) = 1
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Messaggio Es
AvanzamentoElab Esq,Esqcol,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
If(C =(Fuori90(A + 30))Or C =(Fuori90(A + 60)) Or C =(Fuori90(90 +(A - 30)))_
Or C =(Fuori90(90 +(A - 60)))) And(D =(Fuori90(B + 30))Or D =(Fuori90(B + 60))_
Or D =(Fuori90(90 +(B - 30))) Or D =(Fuori90(90 +(B - 60)))) Then
Sab = Fuori90(A + B) : Scd = Fuori90(C + D)
Sac = Fuori90(A + C) : Sbd = Fuori90(B + D)
Sad = Fuori90(A + D) : Sbc = Fuori90(B + C)
Sso = Fuori90(Sab + Scd)
Ssv = Fuori90(Sac + Sbd)
Ssd = Fuori90(Sad + Sbc)
If Sso = Ssv Or Sso = Ssd Or Ssv = Ssd Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
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 PP2 = 1 To 5
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Coppie " & Space(9) & " Somme Oriz" & Space(10) & " Somme Vert." & Space(10) & "Somme diag. "
Scrivi " " & Format2(A) & Space(1) & Format2(B) & Space(16) & Format2(Sab) & Space(19),1,0
Scrivi Format2(Sac) & Space(19) & Format2(Sad),1
Scrivi " " & Format2(C) & Space(1) & Format2(D) & Space(16) & Format2(Scd) & Space(19),1,0
Scrivi Format2(Sbd) & Space(19) & Format2(Sbc),1
Scrivi " Somme delle Somme --> ",0,0
ColoreTesto 2
Scrivi Format2(Sso) & Space(19) & Format2(Ssv) & Space(19) & Format2(Ssd) : ColoreTesto 0
Scrivi
Ruote(1) = R1
Ruote(2) = R2
Num1(1) = Sso
ImpostaGiocata 1,Num1,Ruote,Posta,Clp,1
Gioca Es
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub[/COLOR][/B]
Ciao Eugeniosalvo50
Advanced Member >PLATINUM PLUS<
Ciao Genios
L'avevo proprio dimenticato, quando me l'hai chiesto non avevo idea di come fare, è passato poco più di un anno dalla tua richiesta ed adesso credo d'aver capito come funziona VerificaEsito, prima di proseguire con un'altro script, vedrò di risolvere la tua richiesta
L'avevo proprio dimenticato, quando me l'hai chiesto non avevo idea di come fare, è passato poco più di un anno dalla tua richiesta ed adesso credo d'aver capito come funziona VerificaEsito, prima di proseguire con un'altro script, vedrò di risolvere la tua richiesta
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Genios, nel post 78, ho modificato lo script esistente, gli ho inserito anche la ricerca degli 11 ambi, poi ho postato sempre nel post 78, un altro script in cui la ricerca la faccio come da tua richiesta con VerificaEsito, per il gruppo formato dei dodici numeri pronosticati.
Ciao Genios, nel post 78, ho modificato lo script esistente, gli ho inserito anche la ricerca degli 11 ambi, poi ho postato sempre nel post 78, un altro script in cui la ricerca la faccio come da tua richiesta con VerificaEsito, per il gruppo formato dei dodici numeri pronosticati.
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
LA PIRAMIDE DI CHEOPE di MICHELE CRISCUOLO
Questo metodo è basato sulla piramidazione di una chiave fissa con l'unione del primo estratto della ruota di Napoli,
ho voluto fare una modifica e fare in modo di poter variare questi 3 valori ,tramite InputBox,
come CHIAVE si possono inserire fino a un max di 20 cifre,
variazione della Ruota 1-10 - 12 per la Nazionale
e le 5 POSIZIONI con 1-2-3-4-5
Questo metodo è basato sulla piramidazione di una chiave fissa con l'unione del primo estratto della ruota di Napoli,
ho voluto fare una modifica e fare in modo di poter variare questi 3 valori ,tramite InputBox,
come CHIAVE si possono inserire fino a un max di 20 cifre,
variazione della Ruota 1-10 - 12 per la Nazionale
e le 5 POSIZIONI con 1-2-3-4-5
Codice:
Option Explicit
Sub Main
Dim Fin,Clp,Ini,Es,R1,A,Caso,Casi
Dim Chiave,Ba,DeP1,CaP1,P1
Dim S1,Abb1,X1,Pos
Dim Amba(2),Ru(1),Poste(2),Posta(2)
Dim Ambo(2)
Poste(1) = 1
Poste(2) = 1
Posta(2) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)'631 l'esempio nell'articolo, Ruota Napoli
Chiave =(InputBox(" Inserisci la chiave - il numero",,9762))'9762 Chiave dell'articolo
R1 = CInt(InputBox(" In quale ruota vuoi giocare? ",,6))
Pos = CInt(InputBox(" Inserisci il numero di posizione dell'estratto - Pos 1-2-3-4-5",,1))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(12) & " LA PIRAMIDE DI CHEOPE di MICHELE CRISCUOLO - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To Fin
If IndiceMensile(Es + 1) = 1 Then
Caso = 0
AvanzamentoElab Ini,Fin,Es
A = Estratto(Es,R1,Pos)
If A > 0 Then
Ba = Chiave & Format2(A)
For X1 = 1 To Len(Ba) - 2
P1 =(Piramide(Ba,X1))
Next
If(P1 > 11) And Cadenza(P1) <> 0 Then
DeP1 = Decina(P1) : CaP1 = Cadenza(P1)
If DeP1 = 0 Then DeP1 = 9
Abb1 = DeP1 * CaP1 \2
P1 = Fuori90(P1)
Amba(1) = P1 : Amba(2) = Vert(P1)
Ambo(1) = P1 : Ambo(2) = Abb1
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,,4
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,,,,4
Scrivi
Scrivi " Base Piramide Uguale Alla Chiave ",1,0,,1,4
Scrivi Chiave,1,0,,2,4
Scrivi " Con L'Estratto ",1,0,,1,4
Scrivi Format2(A),1,0,,2,4
Scrivi " Da Posizione ",1,0,,1,4
Scrivi Pos,1,,,2,4
Scrivi Space(28) & Format2(Ba),1,,,2,4
For X1 = 1 To Len(Ba) - 2
Scrivi Space(28) &(Piramide(Ba,X1)),1,,,,4
Next
Scrivi
Ru(1) = R1
ImpostaGiocata 1,Amba,Ru,Poste,Clp
ImpostaGiocata 2,Ambo,Ru,Posta,Clp
Gioca Es
End If
End If
End If
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
L'AMBO ASSOLUTO - a cura di ANGELO GARGIULO
L'AMBO ASSOLUTO - a cura di ANGELO GARGIULO
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es1,Cer,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Fg,VS1,VS3
Dim SAB,SCD,SAC,SBD,SAD,SBC,DAB,DCD,FA,FB,FC,FD,S1,S2,S3
Dim Amba(1),Ambo1(2),Ambo2(2),Terno(3),L(4)
Dim Ruo(2),Po1(1),Po2(2),Po5(5)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9400)) '7136 Primo esempio nell'articolo
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
Fg = CInt(InputBox(" Qualè figura vuoi cercare?",Salvo50,1))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
Scrivi Space(12) & " L'AMBO ASSOLUTO - ANGELO GARGIULO - SCRIPT SALVO50",1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po5(2) = 1
Po5(3) = 1
'Po5(4) = 1
'Po5(5) = 1
For Es1 = Ini To FIn
Messaggio Es1
AvanzamentoElab Ini,FIn,Es1
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es1,R1,P1)
B = Estratto(Es1,R1,P2)
For R2 = R1 + 1 To 10
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es1,R2,P3)
D = Estratto(Es1,R2,P4)
If A > 0 And C > 0 Then
'A---B
'| |
'C---D
If A <> C And A <> D And B <> C And B <> D Then
DAB = Distanza(A,B) : DCD = Distanza(C,D) : SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
If(DAB = DCD)And(SAB = SCD Or SAC = SBD Or SAD = SBC) Then
FA = Figura(A) : FB = Figura(B) : FC = Figura(C) : FD = Figura(D)
If FA = FB And FA = FC And FA = FD And FA = Fg Then
'
If SAD = SBC Then
S1 = Fuori90(90 + SAD - 9) : S2 = SAD : S3 = Fuori90(SAD + 9)
VS1 = Vert(S1) : VS3 = Vert(S3)
End If
If SAC = SBD Then
S1 = Fuori90(90 + SAC - 9) : S2 = SAC : S3 = Fuori90(SAC + 9)
VS1 = Vert(S1) : VS3 = Vert(S3)
End If
If SAB = SCD Then
S1 = Fuori90(90 + SAB - 9) : S2 = SAB : S3 = Fuori90(SAB + 9)
VS1 = Vert(S1) : VS3 = Vert(S3)
End If
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es1,R1,P5)
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(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es1,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(24) & "Almeno un gruppo di somme uguali",1,,,2
Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
Scrivi Space(8) & " Somme" & Space(7) & " Distanze ",1
Scrivi Space(7) & "Figura " & FA & Space(5) & "Orizzontali" & Space(5),1,0
Scrivi "Verticali Diagonali Orizzontali",1
Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
Scrivi Space(13) & Format2(SAC) & Space(12) & Format2(SAD) & Space(13) & Format2(DAB),1
Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
Scrivi Space(13) & Format2(SBD) & Space(12) & Format2(SBC) & Space(13) & Format2(DCD),1
Scrivi
If Cer = 1 Then
L(1) = A : L(2) = B : L(3) = C : L(4) = D
DisegnaCerchioCiclometrico L,1,,,,1
End If
Scrivi
Ruo(1) = R1
Ruo(2) = R2
Amba(1) = S2
ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
Ambo1(1) = S1 : Ambo1(2) = S2
ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
Ambo2(1) = S2 : Ambo2(2) = S3
ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
Terno(1) = VS1 : Terno(2) = S2 : Terno(3) = VS3
ImpostaGiocata 4,Terno,Ruo,Po2,Clp,2
Gioca Es1
'End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Grande salvo50 , grazie 1000 
x tutto il grande lavoro che fai 
x tutto il grande lavoro che fai
salvo50
Advanced Member >PLATINUM PLUS<
COME SI RICAVANO 2 NUMERI OGNI MESE di GIOVANNI MILTON
Questo metodo è stato elaborato quando le estrazioni mensili erano 4 o 5, dato che adesso le estrazioni sono di più, dai 12 alle 14, per calcolare il pronostico ho preso le ultime 5 estrazioni del mese.
Alla 1ª domanda si decide l'estrazione di partenza
Alla 2ª domanda si decide la Ruota
Alla 3ª domanda si decide per quanti colpi giocare la previsione
Alla 4ª domanda si decide se si vogliono visualizzare le piramidi [per SI inserisci 1, per NO altro]
Questo metodo è stato elaborato quando le estrazioni mensili erano 4 o 5, dato che adesso le estrazioni sono di più, dai 12 alle 14, per calcolare il pronostico ho preso le ultime 5 estrazioni del mese.
Alla 1ª domanda si decide l'estrazione di partenza
Alla 2ª domanda si decide la Ruota
Alla 3ª domanda si decide per quanti colpi giocare la previsione
Alla 4ª domanda si decide se si vogliono visualizzare le piramidi [per SI inserisci 1, per NO altro]
Codice:
Option Explicit
Sub Main
Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1
Dim BaseA,BaseB,BaseC,BaseD,BaseE
Dim XA,XB,XC,XD,XE,Ruota,TotBasi
Dim XF,CUA,CUB,CUC,CUD,CUE,CUF,Pir
Dim Amba(2),Ru(1),Posta(2)
Dim A(5),B(5),C(5),D(5),E(5)
Dim FA(5),FB(5),FC(5),FD(5),FE(5)
Posta(1) = 1
Posta(2) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9323)'474 per l'esempio nell'articolo, Ruota Roma
Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,8))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
Pir = InputBox("Vuoi visualizzare le piramidi? Metti 1 per SI, altro numero per NO ",,1)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(1) & " COME SI RICAVANO 2 NUMERI OGNI MESE di GIOVANNI MILTON - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To Fin
If IndiceMensile(Es + 1) = 1 Then
Caso = 0
AvanzamentoElab Ini,Fin,Es
For R1 = Ruota To Ruota
For P1 = 1 To 5
A(P1) = Estratto(Es,R1,P1)
B(P1) = Estratto(Es - 1,R1,P1)
C(P1) = Estratto(Es - 2,R1,P1)
D(P1) = Estratto(Es - 3,R1,P1)
E(P1) = Estratto(Es - 4,R1,P1)
FA(P1) = Figura(A(P1)) : FB(P1) = Figura(B(P1)) : FC(P1) = Figura(C(P1))
FD(P1) = Figura(D(P1)) : FE(P1) = Figura(E(P1))
Next
If A(1) > 0 Then
BaseA = FA(1) & FA(2) & FA(3) & FA(4) & FA(5)
BaseB = FB(1) & FB(2) & FB(3) & FB(4) & FB(5)
BaseC = FC(1) & FC(2) & FC(3) & FC(4) & FC(5)
BaseD = FD(1) & FD(2) & FD(3) & FD(4) & FD(5)
BaseE = FE(1) & FE(2) & FE(3) & FE(4) & FE(5)
For XA = 1 To Len(BaseA) - 2
CUA =(Piramide(BaseA,XA))
Next
For XB = 1 To Len(BaseB) - 2
CUB =(Piramide(BaseB,XB))
Next
For XC = 1 To Len(BaseC) - 2
CUC =(Piramide(BaseC,XC))
Next
For XD = 1 To Len(BaseD) - 2
CUD =(Piramide(BaseD,XD))
Next
For XE = 1 To Len(BaseE) - 2
CUE =(Piramide(BaseE,XE))
Next
TotBasi = CUE & CUD & CUC & CUB & CUA
For XF = 1 To Len(TotBasi) - 4
CUF =(Piramide(TotBasi,XF))
Next
Amba(1) = Left(CUF,2)
Amba(2) = Right(CUF,2)
Amba(1) = Fuori90(Amba(1))
Amba(2) = Fuori90(Amba(2))
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
Scrivi " FIGURE ESTRATTI ",1,0
Scrivi Format2(BaseA),1,,,2
'
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es - 1,R1),1,0
Scrivi " FIGURE ESTRATTI ",1,0
Scrivi Format2(BaseB),1,,,2
'
Scrivi(" Estrazione n." & Format2(Es - 2) & " del " & DataEstrazione(Es - 2)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es - 2,R1),1,0
Scrivi " FIGURE ESTRATTI ",1,0
Scrivi Format2(BaseC),1,,,2
'
Scrivi(" Estrazione n." & Format2(Es - 3) & " del " & DataEstrazione(Es - 3)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es - 3,R1),1,0
Scrivi " FIGURE ESTRATTI ",1,0
Scrivi Format2(BaseD),1,,,2
'
Scrivi(" Estrazione n." & Format2(Es - 4) & " del " & DataEstrazione(Es - 4)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es - 4,R1),1,0
Scrivi " FIGURE ESTRATTI ",1,0
Scrivi Format2(BaseE),1,,,2
Scrivi
If Pir = 1 Then
Scrivi Space(10) & " IN ROSSO BASE PIRAMIDI FORMATE DA FIGURE ESTRATTI ",1,,,1,2
'Visualizzazione 1ª Piramide
Scrivi Space(27) & Format2(BaseA),1,,,2,3
For XA = 1 To Len(BaseA) - 2
Scrivi Space(27) &(Piramide(BaseA,XA)),1,,,,3
Next
Scrivi
'Visualizzazione 2ª Piramide
Scrivi Space(27) & Format2(BaseB),1,,,2,3
For XB = 1 To Len(BaseB) - 2
Scrivi Space(27) &(Piramide(BaseB,XB)),1,,,,3
Next
Scrivi
'Visualizzazione 3ª Piramide
Scrivi Space(27) & Format2(BaseC),1,,,2,3
For XC = 1 To Len(BaseC) - 2
Scrivi Space(27) &(Piramide(BaseC,XC)),1,,,,3
Next
Scrivi
'Visualizzazione 4ª Piramide
Scrivi Space(27) & Format2(BaseD),1,,,2,3
For XD = 1 To Len(BaseD) - 2
Scrivi Space(27) &(Piramide(BaseD,XD)),1,,,,3
Next
Scrivi
'Visualizzazione 5ª Piramide
Scrivi Space(27) & Format2(BaseE),1,,,2,3
For XE = 1 To Len(BaseE) - 2
Scrivi Space(27) &(Piramide(BaseE,XE)),1,,,,3
Next
Scrivi
Scrivi Space(8) & " IN ROSSO BASE PIRAMIDE FORMATA DAI CUSPIDI PIRAMIDI PRECEDENTI ",1,,,1,2
'Visualizzazione 6ª Piramide
Scrivi Space(27) & Format2(TotBasi),1,,,2,3
For XF = 1 To Len(TotBasi) - 4
Scrivi Space(27) &(Piramide(TotBasi,XF)),1,,,,3
Next
End If
Scrivi
Scrivi Space(15) & " Pronostico ",1,0,,1,3
Scrivi Format2(Amba(1)) & " " & Format2(Amba(2)),1,,,2,3
Ru(1) = R1
ImpostaGiocata 1,Amba,Ru,Posta,Clp
Gioca Es
End If
Next
End If
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
MATEMATICA E CICLOMETRIA a cura di LUCIANA GIORGETTI
In questo metodo ci sono 2 esempi, nel primo esempio i calcoli corrispondono, cioè impostando i calcoli come da articolo, nello script il pronostico corrisponde a quello dell'articolo, nel secondo esempio i calcoli nell'articolo non sono stati fatti tutti, sono stati messi i dati delle ruote e senza fare i calcoli, si è passati direttamente al pronostico, dato che i calcoli c'erano già per il primo esempio, però facendo i calcoli con la prassi del primo esempio, il pronostico del secondo esempio dell'articolo, non corrisponde, quindi per far corrispondere tutti e due i pronostici dell'articolo con i calcoli dello script, ho apportato una piccola modifica nei calcoli.
In questo metodo ci sono 2 esempi, nel primo esempio i calcoli corrispondono, cioè impostando i calcoli come da articolo, nello script il pronostico corrisponde a quello dell'articolo, nel secondo esempio i calcoli nell'articolo non sono stati fatti tutti, sono stati messi i dati delle ruote e senza fare i calcoli, si è passati direttamente al pronostico, dato che i calcoli c'erano già per il primo esempio, però facendo i calcoli con la prassi del primo esempio, il pronostico del secondo esempio dell'articolo, non corrisponde, quindi per far corrispondere tutti e due i pronostici dell'articolo con i calcoli dello script, ho apportato una piccola modifica nei calcoli.
Codice:
Option Explicit
Sub Main
Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
Dim R1,R2,P1,P2,P3,P4,Salvo50
Dim A,B,C,D,E1,E2,DAB,DCD
Dim DiffOr1,DiffOr2,DistVe1,DistVe2
Dim DistDi1,DistDi2,C90,Penta(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
Dim M(4),Ruo(2),Post1(1),Post2(2),Post3(5)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9630)'7210 ESTRAZIONE DI ESEMPIO NELL'ARTICOLO
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,7)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi "MATEMATICA E CICLOMETRIA a cura di LUCIANA GIORGETTI - Script Salvo50",1,,4,,3,,1
Post1(1) = 1
Post2(2) = 1
Post3(2) = 1
Post3(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
C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
If C > 0 Then
DAB = Distanza(A,B) : DCD = Distanza(C,D)
If DAB = DCD Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
OrdinaMatrice M,1
'4--1
'| |
'3--2
DiffOr1 = Differenza(M(4),M(1))
DiffOr2 = Differenza(M(3),M(2))
DistVe1 = Distanza(M(4),M(3))
DistVe2 = Distanza(M(1),M(2))
DistDi1 = Distanza(M(4),M(2))
DistDi2 = Distanza(M(1),M(3))
If DistVe1 = DistVe2 And DistDi1 = DistDi2 Then
C90 = ComplAdX(DistVe1)
Amba(1) = DistVe1
Ambo1(1) = DistVe1 : Ambo1(2) = C90
Ambo2(1) = DistVe1 : Ambo2(2) = DiffOr1
Ambo3(1) = DistVe1 : Ambo3(2) = DiffOr2
Penta(1) = DistVe1 : Penta(2) = C90
Penta(3) = DiffOr1 : Penta(4) = DiffOr2
Penta(5) = DistDi1
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi Space(2) & "<-- Rossi Distanza " & DAB
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi Space(2) & "<-- Rossi Distanza " & DCD
Scrivi
Scrivi Space(35) & " Nei gruppi Vert. Diag le distanze devono essere uguali",1,,,2 ',3,,1
Scrivi " Estratti in " & Space(22) & "Differenze " & Space(5),1,0
Scrivi " Distanze" & Space(8) & " Distanze",1
Scrivi " Ordine Crescente" & Space(20) & " Orizontali" & Space(7),1,0
Scrivi "Verticali Diagonali",1
Scrivi Space(8) & Format2(M(4)) & " " & Format2(M(1)) & Space(29),1,0
Scrivi Format2(DiffOr1) & Space(15) & Format2(DistVe1),1,0
Scrivi Space(15) & Format2(DistDi1),1
Scrivi Space(8) & Format2(M(3)) & " " & Format2(M(2)) & Space(29),1,0
Scrivi Format2(DiffOr2) & Space(15) & Format2(DistVe2),1,0
Scrivi Space(15) & Format2(DistDi2),1
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
ImpostaGiocata 5,Penta,Ruo,Post3,Clp2
Gioca Es
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
UNA METODOLOGIA MOLTO EFFICACE - a cura di SALERNO DONATO
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp1,Clp2,Salvo50,E1,E2
Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D,E,Incr1,Incr2
Dim Posta(1),Ruote(2),Ruota(1),Poste(2),Num1(2),Num2(2)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9650)'6174 esempio nell'articolo
Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,7)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "UNA METODOLOGIA MOLTO EFFICACE - a cura di SALERNO DONATO - SCRIPT Salvo50",1,,4,,3,,1
Posta(1) = 1
Poste(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
A = Estratto(Es,R1,1)
B = Estratto(Es,R1,2)
C = Estratto(Es,R2,1)
D = Estratto(Es,R2,2)
If A And C > 0 Then
If Not Gemello(A) And Not Gemello(B) And Not Gemello(C) And Not Gemello(D) Then
Incr1 = Fuori90(A + D)
Incr2 = Fuori90(B + C)
E = Fuori90(90 +(Incr2 - 1))
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
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 P2 = 1 To 5
E2 = Estratto(Es,R2,P2)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Primi 2 estratti" & Space(8) & " Ambate" & Space(11) & " Ambo",1,,,2
ColoreTesto 0
Scrivi Space(5) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1,0
Scrivi Space(15) & Format2(Incr1) & Space(15) & Format2(Incr1),1
Scrivi Space(5) & SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D),1,0
Scrivi Space(15) & Format2(Incr2) & Space(15) & Format2(E),1
Ruote(1) = R1
Ruote(2) = R2
Ruota(1) = TU_
Num1(1) = Incr1
Num1(2) = Incr2
ImpostaGiocata 1,Num1,Ruote,Posta,Clp1,1
Num2(1) = Incr1
Num2(2) = E
ImpostaGiocata 2,Num2,Ruota,Poste,Clp2,2
Gioca Es
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
L'AMBO COSTANTE - a cura di ALFIO TIRENNI
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Clp,Es,Salvo50,Amba,Abb1,Abb2
Dim R1,P1,A,B,Caso,Casi,SomEstr
Dim Ambata(1),Ambo1(2),Ambo2(2),Terno(3)
Dim Ru(1),Ruo(2),Po1(1),Po2(2),Po3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9550)) '6860 Primo esempio nell'articolo (03-11-1999)
Clp = CInt(InputBox(" Per quanti colpi vuoi fare il controllo?",Salvo50,5))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " L'AMBO COSTANTE - a cura di ALFIO TIRENNI - SCRIPT SALVO50",1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po3(2) = 1
Po3(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
If IndiceMensile(Es) = 1 Then
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 And Cadenza(A) = 0 Then
SomEstr = CInt(Fuori90(SommaEstratti(Es,R1)))
If SomEstr > 45 Then
Amba = SomEstr - 23
Else
Amba = SomEstr + 22
End If
Abb1 = Fuori90(Amba + 9)
Abb2 = Fuori90(90 +(Amba - 9))
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) & " " & StringaEstratti(Es,R1),1,0
Scrivi " Almeno un estratto deve essere zerato ",1,,,2
Scrivi
Scrivi Space(20) & "Ambata = " & Format2(Amba),1
Scrivi Space(20) & "Abbinamento 1 = " & Format2(Abb1),1
Scrivi Space(20) & "Abbinamento 2 = " & Format2(Abb2),1
Ru(1) = R1 : Ruo(1) = TU_
Ambata(1) = Amba
Ambo1(1) = Amba : Ambo1(2) = Abb1
Ambo2(1) = Amba : Ambo2(2) = Abb2
Terno(1) = Amba : Terno(2) = Abb1
Terno(3) = Abb2
ImpostaGiocata 1,Ambata,Ru,Po1,Clp
ImpostaGiocata 2,Ambo1,Ru,Po2,Clp
ImpostaGiocata 3,Ambo2,Ru,Po2,Clp
ImpostaGiocata 4,Terno,Ruo,Po3,Clp
Gioca Es
End If
Next
Next
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
AMBI QUADRATI di GIACOMO SCIONTI
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp1,Clp2,Salvo50,E1,E2,X
Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D,G
Dim DAB,DCD,DS23,DS45,DS25,DS34,DS24,DS35
Dim S1,S2,S3,S4,S5,S6,S7,S8,Fr1,Fr2,Fr3
Dim Ruo(2),Poste(2),Ruo1(1),Ruo2(1)
ReDim Amba(1),Ambo(2),Posta(1)
ReDim Num(8)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9660)'6490 esempio nell'articolo
Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,3)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,7)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "AMBI QUADRATI di GIACOMO SCIONTI - SCRIPT Salvo50",1,,4,,3,,1
Posta(1) = 1
Poste(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
If A And C > 0 Then
DAB = Distanza(A,B) : DCD = Distanza(C,D)
If DAB = DCD Then
S1 = Fuori90(A + B + C + D) ' Abbinamento 7
S2 = Fuori90(A + S1) ' Abbinamento 1
S3 = Fuori90(B + S1) ' Abbinamento 2
S4 = Fuori90(C + S1) ' Abbinamento 3
S5 = Fuori90(D + S1) ' Abbinamento 4
DS23 = Distanza(S2,S3) : DS45 = Distanza(S4,S5)
If(DS23 = DS45) And(DS23 = DAB) Then
DS24 = Distanza(S2,S4) : DS35 = Distanza(S3,S5)
DS25 = Distanza(S2,S5) : DS34 = Distanza(S3,S4)
If(DS25 = DS34) Xor(DS24 = DS35)Then
If DS25 = DS34 Then Amba(1) = DS25 'Ambata e Capogioco
If DS24 = DS35 Then Amba(1) = DS24 'Ambata e Capogioco
Ruo1(1) = R1 : Ruo2(1) = R2
Fr1 = SerieFreqTurbo(Es - 6,Es,Amba,Ruo1,1)
Fr2 = SerieFreqTurbo(Es - 6,Es,Amba,Ruo2,1)
If(Fr1 = False And Fr1 = False) Or(Fr1 = True And Fr2 = False) Or(Fr1 = False And Fr2 = True)Then
S6 = Fuori90(S2 + S3 + S4 + S5)' Abbinamento 5
S7 = Fuori90(Amba(1) * 2) ' Abbinamento 6
S8 = Vert(S1)' Abbinamento 8
Num(1) = S1 : Num(2) = S2 : Num(3) = S3 : Num(4) = S4
Num(5) = S5 : Num(6) = S6 : Num(7) = S7 : Num(8) = S8
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
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 P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(20) & " Somma Estratti Evidenziati = " & Format2(S1),1,0,,1
Scrivi " Abbinamento 7",1,,,2
Scrivi
Scrivi Space(10) & Format2(S1) & " + " & Format2(A) & " = " & Format2(S2),1,0
Scrivi " Abbinamento 1",1,0,,2
Scrivi Space(6) & Format2(Amba(1)) & " = Distanze Orizontali o Diagonali ",1,0
Scrivi " = Ambata e Capogioco ",1,,,2
Scrivi Space(10) & Format2(S1) & " + " & Format2(B) & " = " & Format2(S3),1,0
Scrivi " Abbinamento 2",1,0,,2
Scrivi Space(25) & Format2(S2) & Space(4) & Format2(S4),1
Scrivi Space(10) & Format2(S1) & " + " & Format2(C) & " = " & Format2(S4),1,0
Scrivi " Abbinamento 3",1,0,,2
Scrivi Space(28) & Format2(Amba(1)),1
Scrivi Space(10) & Format2(S1) & " + " & Format2(D) & " = " & Format2(S5),1,0
Scrivi " Abbinamento 4",1,0,,2
Scrivi Space(25) & Format2(S3) & Space(4) & Format2(S5),1
Scrivi Format2(S2) & " + " & Format2(S3) & " + " & Format2(S4) & " + " & Format2(S5),1,0
Scrivi " = " & Format2(S6),1,0
Scrivi " Abbinamento 5",1,,,2
Scrivi Space(10) & Format2(Amba(1)) & " * 02 = " & Format2(S7),1,0
Scrivi " Abbinamento 6",1,,,2
Scrivi Space(5) & "Vertibile " & Format2(S1) & " = " & Format2(S8),1,0
Scrivi " Abbinamento 8",1,,,2
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
EliminaRipetuti Num
G = 1
ImpostaGiocata G,Amba,Ruo,Posta,Clp1
For X = 1 To UBound(Num)
If Amba(1) <> Num(X)Then
Ambo(1) = Amba(1): Ambo(2) = Num(X)
If Ambo(2) > 0 Then
G = G + 1
ImpostaGiocata G,Ambo,Ruo,Poste,Clp2
End If
End If
Next
Gioca Es
End If
End If
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
MEMORIE UTILI di FEDELE DAVENAL a cura di C.TEDESCO
Memorie Utili è Composto da 3 metodi
Nel primo metodo non ci sono stati intoppi.
Nel secondo metodo l'esempio è del 22 gennaio 1842, non presente nell'archivio, quindi per questo metodo ho fatto 2 script, lo script n2 di questo secondo metodo l'ho fatto con inserimento tramite inputbox dei 3 estratti o qualsiasi altri numeri, nel quale ho visualizzato tutti i passaggi dei calcoli.
Nel terzo metodo servono il primo estratto della prima estrazione del mese e l'ultimo estratto dell'ultima estrazione del mese, non sapendo come procedere per sapere prima quante estrazioni ha un dato mese, stavo per chiedere aiuto, quando ho visto nel 3D <METODO FORTISSIMO PER AMBATA> nel post 133 la risposta di Rubino che dice che non si può sapere a priori quante estrazioni avrà un dato mese, quindi l'ho impostato arbitrariamente così per il primo estratto ho preso il primo estratto della prima estrazione del mese, per il secondo ho preso l'ultimo estratto della quarta estrazione, per simulare le quattro estrazioni del periodo che è stato scritto questo metodo, quindi prime quattro estrazioni calcoli, restanti estrazioni del mese per riscontri.
Metodo 1
Metodo 2
Metodo 2 con visualizzazione calcoli originali
Metodo 3
Memorie Utili è Composto da 3 metodi
Nel primo metodo non ci sono stati intoppi.
Nel secondo metodo l'esempio è del 22 gennaio 1842, non presente nell'archivio, quindi per questo metodo ho fatto 2 script, lo script n2 di questo secondo metodo l'ho fatto con inserimento tramite inputbox dei 3 estratti o qualsiasi altri numeri, nel quale ho visualizzato tutti i passaggi dei calcoli.
Nel terzo metodo servono il primo estratto della prima estrazione del mese e l'ultimo estratto dell'ultima estrazione del mese, non sapendo come procedere per sapere prima quante estrazioni ha un dato mese, stavo per chiedere aiuto, quando ho visto nel 3D <METODO FORTISSIMO PER AMBATA> nel post 133 la risposta di Rubino che dice che non si può sapere a priori quante estrazioni avrà un dato mese, quindi l'ho impostato arbitrariamente così per il primo estratto ho preso il primo estratto della prima estrazione del mese, per il secondo ho preso l'ultimo estratto della quarta estrazione, per simulare le quattro estrazioni del periodo che è stato scritto questo metodo, quindi prime quattro estrazioni calcoli, restanti estrazioni del mese per riscontri.
Metodo 1
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp,Salvo50,Ruota
Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1
Dim DeC,DeA,CaC,CaA,FInR,IniR,SD,SC,S1
Dim Ruo(1),Post1(1),Ambata(1)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600)'105 = Estrazione 1° esempio articolo del 1° metodo
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,8)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & " Memorie Utili Metodo 1 di Fedele Davenal - Script Salvo50",1,,4,,3,,1
Post1(1) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
A = Estratto(Es,R1,1)
B = Estratto(Es + 1,R1,1)
If A > 0 Then
C = 99 - B
DeA = Decina(A) : CaA = Cadenza(A) : DeC = Decina(C) : CaC = Cadenza(C)
SD = FuoriX((DeA + DeC),9)
SC = FuoriX((CaA + CaC),9)
S1 = SD & SC
Ambata(1) = 99 - S1
If Ambata(1) < 91 Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
If Ruota = 11 Then
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
End If
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
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 P2 = 1 To 5
E2 = Estratto(Es + 1,R1,P2)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(15) & Format2(A) & Space(21) & Format2(A),1
Scrivi Space(15) & Format2(B) & " Complemento A 99 = " & Format2(C),1
Scrivi Space(15) & Format2(S1) & Space(21) & Format2(S1) & " = Somma Fuori9 Decine e Cadenze tra ",1,0
Scrivi Format2(A) & " e " & Format2(C),1
Scrivi Space(15) & Format2(Ambata(1)) & " Complemento A 99 di " & Format2(S1),1
Scrivi
Ruo(1) = R1
ImpostaGiocata 1,Ambata,Ruo,Post1,Clp,,1
Gioca Es
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Metodo 2
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp,Salvo50,Ruota
Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1
Dim D1,D2,D3,D4,D5,FInR,IniR,S1,S2,S3,S4
Dim Ruo(1),Post1(1),Ambata(1)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9660)
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,8)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & " Memorie Utili Metodo 2 di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
Post1(1) = 1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = IniR To FInR
A = Estratto(Es,R1,5)
B = Estratto(Es + 1,R1,1)
C = Estratto(Es + 1,R1,5)
If A > 0 Then
D1 = Fuori90(90 +(A - B))
D2 = Fuori90(90 +(A - C))
S1 = Fuori90(D1 + D2)
S2 = Fuori90(A + B + C)
S3 = Fuori90(S2 * 3)
D3 = ComplAdX(S3) 'COMPLEMENTO A 90
S4 = Fuori90(D3 + S1)
D4 = Fuori90(90 +(B - S4))
D5 = Fuori90(90 +(C - S4))
Ambata(1) = S4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
If Ruota = 11 Then
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
End If
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
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 P2 = 1 To 5
E2 = Estratto(Es + 1,R1,P2)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(15) & Format2(A) & Space(2) & Format2(D1) & Space(2) & Format2(B),1
Scrivi Space(15) & Format2(D2) & Space(2) & Format2(D5) & Space(2) & Format2(D4),1
Scrivi Space(15) & Format2(C) & Space(2) & Format2(D5) & Space(2),1,0
Scrivi Format2(S4),1,,,2
Scrivi
Ruo(1) = R1
ImpostaGiocata 1,Ambata,Ruo,Post1,Clp,,1
Gioca Es
'End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Metodo 2 con visualizzazione calcoli originali
Option Explicit
Sub Main
Dim A,B,C,D1,D2,D3,D4,D5,S1,S2,S3,S4,Salvo50
A = CInt(InputBox("INSERISCI IL QUINTO ESTRATTO DELLA PRIMA RUOTA",Salvo50,72))
B = CInt(InputBox("INSERISCI IL PRIMO ESTRATTO DELLA SECONDA RUOTA",Salvo50,12))
C = CInt(InputBox("INSERISCI IL QUINTO ESTRATTO DELLA SECONDA RUOTA",Salvo50,27))
Scrivi Space(8) & " Memorie Utili Metodo 2 (esempio originale)di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
D1 = Fuori90(90 +(A - B))
D2 = Fuori90(90 +(A - C))
S1 = Fuori90(D1 + D2)
S2 = Fuori90(A + B + C)
S3 = Fuori90(S2 * 3)
D3 = ComplAdX(S3) 'COMPLEMENTO A 90
S4 = Fuori90(D3 + S1)
D4 = Fuori90(90 +(B - S4))
D5 = Fuori90(90 +(C - S4))
Scrivi
Scrivi Space(20) & "IL QUINTO ESTRATTO DELLA PRIMA RUOTA " & Format2(A),1,,,,3
Scrivi Space(20) & "IL PRIMO ESTRATTO DELLA SECONDA RUOTA " & Format2(B),1,,,,3
Scrivi Space(20) & "IL SECONDO ESTRATTO DELLA SECONDA RUOTA " & Format2(C),1,,,,3
Scrivi
Scrivi Space(37) & Format2(A) & Space(2) & Format2(D1) & Space(2) & Format2(B),1,,,,3
Scrivi Space(37) & Format2(D2) & Space(2) & Format2(D5) & Space(2) & Format2(D4),1,,,,3
Scrivi Space(37) & Format2(C) & Space(2) & Format2(D5) & Space(2),1,0,,,3
Scrivi Format2(S4),1,,,2,3
Scrivi
Scrivi Space(37) & Format2(D1) & Space(6) & Format2(B),1,,,,3
Scrivi Space(37) & Format2(D2) & Space(6) & Format2(A),1,,,,3
Scrivi Space(37) & String(2,"-") & Space(6) & Format2(C),1,,,,3
Scrivi Space(37) & Format2(S1) & Space(6) & "--",1,,,,3
Scrivi Space(45) & Format2(S2) & "x",1,,,,3
Scrivi Space(46) & "3",1,,,,3
Scrivi Space(45) & "--",1,,,,3
Scrivi Space(45) & Format2(S3) & " a fare 90 = " & Format2(D3),1,,,,3
Scrivi
Scrivi
Scrivi Space(37) & Format2(D3) & " + " & Format2(S1) & " = ",1,0,,,3
Scrivi Format2(S4),1,0,,2,3
Scrivi " AMBATA",1,,,,3
End Sub
Metodo 3
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp,Salvo50,Ruota
Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1
Dim FInR,IniR,AB,CaC
Dim Ruo(1),Post1(2),Ambata(4)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600)'57 = Estrazione 1° esempio articolo del 3° metodo, ruota VE
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,3)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & " Memorie Utili Metodo 3 di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
Post1(1) = 1
Post1(2) = 1
For Es = Ini To FIn - 3
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
If IndiceMensile(Es) = 1 Then
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
A = Estratto(Es,R1,1)
If A > 0 Then
B = Estratto(Es + 3,R1,5)
C = Fuori90(A + B)
CaC = Cadenza(C)
If(Not Gemello(C)) And CaC <> 0 And CaC <> 9 Then
Ambata(1) = C
Ambata(2) = Vert(C)
Ambata(3) = Decina(C)
Ambata(4) = CaC
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
If Ruota = 11 Then
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
End If
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
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 + 3) & " del " & DataEstrazione(Es + 3)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E2 = Estratto(Es + 3,R1,P2)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(20) & Format2(A) & " + " & Format2(B) & " = " & Format2(Ambata(1)) & " Ambata Principale ",1,,,2
Ruo(1) = R1
Scrivi Space(20) & " Numeri in Gioco " & StringaNumeri(Ambata," ",True),1,,,1
Scrivi
ImpostaGiocata 1,Ambata,Ruo,Post1,Clp,,3
Gioca Es
End If
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Buonasera
quando nelle mie ricerche devo trovare la prima e l'ultima del mese adotto questo sistema
non so se è la soluzione migliore....ma il più delle volte funziona
per spiegarti la procedura mi sono permesso di modificare il tuo script mettendo gli apici.
spero ti sia utile
quando nelle mie ricerche devo trovare la prima e l'ultima del mese adotto questo sistema
non so se è la soluzione migliore....ma il più delle volte funziona
per spiegarti la procedura mi sono permesso di modificare il tuo script mettendo gli apici.
spero ti sia utile
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp,Salvo50,Ruota
Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1,Es1
Dim FInR,IniR,AB,CaC
Dim Ruo(1),Post1(2),Ambata(4)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600)'57 = Estrazione 1° esempio articolo del 3° metodo, ruota VE
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,3)
Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
If Ruota = 11 Then
IniR = 1
FInR = 12
Else
IniR = Ruota
FInR = Ruota
End If
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & " Memorie Utili Metodo 3 di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
Post1(1) = 1
Post1(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
If IndiceMensile(Es) = 1 Then
For R1 = IniR To FInR
If R1 = 11 Then R1 = 12
A = Estratto(Es,R1,1)
If A > 0 Then
'----------------------------------Modificato Qui
For Es1 = Es To Es + 15 Step 1
If(Mese(Es) = Mese(Es1) And IndiceMensile(Es1 + 1) = 1) Then
'-------------------------------------------------
B = Estratto(Es1,R1,5)
C = Fuori90(A + B)
CaC = Cadenza(C)
If(Not Gemello(C)) And CaC <> 0 And CaC <> 9 Then
Ambata(1) = C
Ambata(2) = Vert(C)
Ambata(3) = Decina(C)
Ambata(4) = CaC
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
If Ruota = 11 Then
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
End If
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E2 = Estratto(Es1,R1,P2)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(20) & Format2(A) & " + " & Format2(B) & " = " & Format2(Ambata(1)) & " Ambata Principale ",1,,,2
Ruo(1) = R1
Scrivi Space(20) & " Numeri in Gioco " & StringaNumeri(Ambata," ",True),1,,,1
Scrivi
ImpostaGiocata 1,Ambata,Ruo,Post1,Clp
Gioca Es1
End If
End If
Next
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Subsalvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Master, è perfetto ho tolto le condizioni e l'ho testato per 13 colpi consecutivi, quindi consiglio a chi interessa a scaricare la tua versione, un like per te è d'obblico.
Allora ne deduco che quello che avevo letto di Rubino doveva essere diverso, perchè anche Rubino è bravissimo.
Grazie
Ciao Master, è perfetto ho tolto le condizioni e l'ho testato per 13 colpi consecutivi, quindi consiglio a chi interessa a scaricare la tua versione, un like per te è d'obblico.
Allora ne deduco che quello che avevo letto di Rubino doveva essere diverso, perchè anche Rubino è bravissimo.
Grazie
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
