DRAGON8698
Member
Se puoi un listato per spaziometria grazie
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.
x Salvo 50 e altri grazie
- Creatore Discussione DRAGON8698
- Data di inizio
DRAGON8698
Member
DRAGON8698
Member
Prova quest'altro metodo , no non conosco il procedimento del cruciverba.Grazie
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Per questo metodo ho già fatto lo script, qui
Per questo metodo ho già fatto lo script, qui
per Salvo 50 sono e altri per cortesia
Un listato se riuscite per Spaziometria.Sono Tiberio 1 ho perso l'account .Grazie
forum.lottoced.com
DRAGON8698
Member
hai ragione mi sono confuso con altri co lo stesso nome ho questo anche buono provalo se riesci
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Bubù, Dragon8698
Grazie
Bubù, Dragon8698
Grazie
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50,Caso,Casi
Dim DM12,DM23,DM34,DM41,Fa
Dim Po1(10),Po2(2),L(6),M(4)
Dim Amba(1),Ambo(2),Ruo(2),Ruote(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
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(5) & "Una Figura Efficace (se chiusa correttamente: la 8)di Noel - Script Salvo50" & Space(5),1,,4,,3,,1
'Po1(1) = 1
Po1(8) = 1
Po1(9) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es & " Tempo Trascorso " & TempoTrascorso
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 D > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
Fa = Figura(A)
If Fa = 8 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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
'L(5) = Diametrale M(2): L(6) = Diametrale
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Diametrale(L(2))
L(6) = Diametrale(L(4))
Amba(1) = L(6)
Ambo(1) = L(5): Ambo(2) = L(6)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(20) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "Ambata " & Format2(L(6)),1,,,1
Scrivi
Scrivi Space(20) & "Ambo " & Format2(L(5)) & " " & Format2(L(6)),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
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)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 And R1 <> R2 Then
If A <> C And A <> D And B <> C And B <> D Then
Fa = Figura(A)
If Fa = 8 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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Diametrale(L(2))
L(6) = Diametrale(L(4))
Amba(1) = L(6)
Ambo(1) = L(5): Ambo(2) = L(6)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(20) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "Ambata " & Format2(L(6)),1,,,1
Scrivi
Scrivi Space(20) & "Ambo " & Format2(L(5)) & " " & Format2(L(6)),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = NZ_
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso " & TempoTrascorso
End SubDRAGON8698
Member
Ciao e' possibile elaborarlo per tutti i tipi di figure e non solo la 8?Grazie.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Per tutte le figure
Per tutte le figure
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50,Caso,Casi
Dim DM12,DM23,DM34,DM41
Dim Po1(10),Po2(2),L(6),M(4)
Dim Amba(1),Ambo(2),Ruo(2),Ruote(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
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(5) & "Una Figura Efficace (se chiusa correttamente)di Noel - Script Salvo50" & Space(5),1,,4,,3,,1
'Po1(1) = 1
Po1(8) = 1
Po1(9) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es & " Tempo Trascorso " & TempoTrascorso
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 D > 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)
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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
'L(5) = Diametrale M(2): L(6) = Diametrale
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Diametrale(L(2))
L(6) = Diametrale(L(4))
Amba(1) = L(6)
Ambo(1) = L(5): Ambo(2) = L(6)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(20) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "Ambata " & Format2(L(6)),1,,,1
Scrivi
Scrivi Space(20) & "Ambo " & Format2(L(5)) & " " & Format2(L(6)),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
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)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 And R1 <> R2 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)
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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Diametrale(L(2))
L(6) = Diametrale(L(4))
Amba(1) = L(6)
Ambo(1) = L(5): Ambo(2) = L(6)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(20) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "Ambata " & Format2(L(6)),1,,,1
Scrivi
Scrivi Space(20) & "Ambo " & Format2(L(5)) & " " & Format2(L(6)),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = NZ_
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso " & TempoTrascorso
End SubDRAGON8698
Member
grazie
Zetrix
Advanced Premium Member
Ciao a Tutti
x Salvo vorrei chiederti una cortesia potresti fare una modifica allo script che ai fatto
intanto complimenti per lo script..
adesso metto un po di figure cosi ti spiego i miei studi con le figure..
e la modifica che dovresti fare allo script..
mi devo pure sbrigare a scrivere che qui scade il tempo..
la figura ciclometrica 41.23.32.77 Mi Rm
questa e la figura che disegna con la figura 5 adesso ho visto che ai messo
i diametrali per chiudere la figura..
invece la modifica che dovresti fare e questa..
dato che 45+32 ci da il 77 rimane la dist 18 questa la devi sommare cosi
1numero=18+32=50 (somma)
2numero=18-32=14 (differenza)
e adesso abbiamo questa figura adesso la figura e completata!
adesso ti scrivo il pronostico come si dovra giocare
1 ambo = 14 50 (ambo di chiusura)
adesso si calcolano gli ambi derivati
14+50=64 (somma a.d)
2 ambo= 64 14 (1 ambo derivato)
3 ambo= 64 50 (2 ambo derivato)
a Pa e uscito 64 50 (ambo derivato)
ciao
x Salvo vorrei chiederti una cortesia potresti fare una modifica allo script che ai fatto
intanto complimenti per lo script..
adesso metto un po di figure cosi ti spiego i miei studi con le figure..
e la modifica che dovresti fare allo script..
mi devo pure sbrigare a scrivere che qui scade il tempo..
la figura ciclometrica 41.23.32.77 Mi Rm
questa e la figura che disegna con la figura 5 adesso ho visto che ai messo
i diametrali per chiudere la figura..
invece la modifica che dovresti fare e questa..
dato che 45+32 ci da il 77 rimane la dist 18 questa la devi sommare cosi
1numero=18+32=50 (somma)
2numero=18-32=14 (differenza)
e adesso abbiamo questa figura adesso la figura e completata!
adesso ti scrivo il pronostico come si dovra giocare
1 ambo = 14 50 (ambo di chiusura)
adesso si calcolano gli ambi derivati
14+50=64 (somma a.d)
2 ambo= 64 14 (1 ambo derivato)
3 ambo= 64 50 (2 ambo derivato)
a Pa e uscito 64 50 (ambo derivato)
ciao
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Zetrix, spero vada bene
Ciao Zetrix, spero vada bene
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50,Caso,Casi
Dim DM12,DM23,DM34,DM41,SommaL5L6
Dim Po2(2),L(6),M(4),Ruote(4)
Dim Ambo1(2),Ambo2(2),Ambo3(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10075))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
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(8) & "Una Figura Efficace di Noel (Con Modifica di Zetrix) - Script Salvo50" & Space(8),1,,4,,3,,1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es & " Tempo Trascorso " & TempoTrascorso
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 D > 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)
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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90((90 + L(2)) - 9)
L(6) = Fuori90(L(3) + 18)
SommaL5L6 = Fuori90(L(5) + L(6))
Ambo1(1) = L(5) : Ambo1(2) = L(6)
Ambo2(1) = SommaL5L6 : Ambo2(2) =(L(5))
Ambo3(1) = SommaL5L6 : Ambo3(2) =(L(6))
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi Space(22) & Format2(L(5)) & " + " & Format2(L(6)) & " = " & Format2(SommaL5L6),1,,,1
Scrivi
Scrivi Space(23) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "1° Ambo " & Format2(L(5)) & " " & Format2(L(6)),1,,,1
Scrivi Space(21) & "2° Ambo " & Format2(SommaL5L6) & " " & Format2(L(5)),1,,,1
Scrivi Space(21) & "3° Ambo " & Format2(SommaL5L6) & " " & Format2(L(6)),1,,,1
Scrivi
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Ambo1,Ruote,Po2,Clp
ImpostaGiocata 2,Ambo2,Ruote,Po2,Clp
ImpostaGiocata 3,Ambo3,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
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)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 And R1 <> R2 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)
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 And DM23 = 9 And DM34 = 9 And DM41 = 36 _
Or DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 _
Or DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 _
Or DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90((90 + L(2)) - 9)
L(6) = Fuori90(L(3) + 18)
SommaL5L6 = Fuori90(L(5) + L(6))
Ambo1(1) = L(5) : Ambo1(2) = L(6)
Ambo2(1) = SommaL5L6 : Ambo2(2) =(L(5))
Ambo3(1) = SommaL5L6 : Ambo3(2) =(L(6))
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi Space(22) & Format2(L(5)) & " + " & Format2(L(6)) & " = " & Format2(SommaL5L6),1,,,1
Scrivi
Scrivi Space(23) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "1° Ambo " & Format2(L(5)) & " " & Format2(L(6)),1,,,1
Scrivi Space(21) & "2° Ambo " & Format2(SommaL5L6) & " " & Format2(L(5)),1,,,1
Scrivi Space(21) & "3° Ambo " & Format2(SommaL5L6) & " " & Format2(L(6)),1,,,1
Scrivi
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = NZ_
ImpostaGiocata 1,Ambo1,Ruote,Po2,Clp
ImpostaGiocata 2,Ambo2,Ruote,Po2,Clp
ImpostaGiocata 3,Ambo3,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso " & TempoTrascorso
End SubZetrix
Advanced Premium Member
grazie Salvo lo script va benissimo volendo si puo giocare la terzina
per ambo e terno su ruota anche se rimane piu probabile l'ambo..
avrai notato come il banco sposta i numeri il 50 a Pa e il 14 a Rm..
questi numeri dovevano sortire in ambo..............................................
ciao
per ambo e terno su ruota anche se rimane piu probabile l'ambo..
avrai notato come il banco sposta i numeri il 50 a Pa e il 14 a Rm..
questi numeri dovevano sortire in ambo..............................................
ciao
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 19 luglio 2025Bari7037366801Cagliari5702643341Firenze1862090506Genova3610743742Milano3907582322Napoli1869283640Palermo7166726423Roma1964397710Torino8363710872Venezia5183265074Nazionale8981633203Estrazione Simbolotto
Nazionale
1632211903
