DRAGON8698
Member
DI NOEL DEVE ESSERE BUONO QUESTO SE PUOI FARE UN LISTATO X 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.
xSalvo50 e altri
- Creatore Discussione DRAGON8698
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Questo metodo con le condizioni proposte ha pochissimi riscontri, con 10087 estrazioni ho calcolato una media di una giocata ogni 82 estrazioni.
Togliendo la condizione isotopa, si ha la media di una giocata ogni 7 estrazioni.
Quindi ho fatto 2 script, nel primo gli ambi sono isotopi, nel secondo no.
Distanze e chiusure (con ambi isotopi)
Distanze e chiusure (con ambi non isotopi)
Questo metodo con le condizioni proposte ha pochissimi riscontri, con 10087 estrazioni ho calcolato una media di una giocata ogni 82 estrazioni.
Togliendo la condizione isotopa, si ha la media di una giocata ogni 7 estrazioni.
Quindi ho fatto 2 script, nel primo gli ambi sono isotopi, nel secondo no.
Distanze e chiusure (con ambi isotopi)
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,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(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500))'8755 ESEMPIO NELL'ARTICOLO
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(10) & "Distanze e chiusure di Noel (con ambi isotopi) - Script Salvo50" & Space(10),1,,4,,3,,1
Po1(1) = 1
Po1(8) = 1
Po1(10) = 1
Po2(2) = 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 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 = 27 And DM23 = 9 And DM34 = 9 And DM41 = 45 _
Or DM23 = 27 And DM34 = 9 And DM41 = 9 And DM12 = 45 _
Or DM34 = 27 And DM41 = 9 And DM12 = 9 And DM23 = 45 _
Or DM41 = 27 And DM12 = 9 And DM23 = 9 And DM34 = 45 Then
'---------------------------------
If DM12 = 27 And DM23 = 9 And DM34 = 9 And DM41 = 45 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 27 And DM34 = 9 And DM41 = 9 And DM12 = 45 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 27 And DM41 = 9 And DM12 = 9 And DM23 = 45 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 27 And DM12 = 9 And DM23 = 9 And DM34 = 45 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90(L(4) + 9)
L(6) = Fuori90(L(5) + 9)
Amba(1) = L(5)
Ambo(1) = L(5): Ambo(2) = L(6)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " 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) = P1
MatrCasella(4,0) = R2
MatrCasella(4,1) = P2
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(20) & "PRONOSTICO",1,,,2
Scrivi
Scrivi Space(21) & "Ambata " & Format2(L(5)),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
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End SubDistanze e chiusure (con ambi non isotopi)
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(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10050))'8755 ESEMPIO NELL'ARTICOLO
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(10) & "Distanze e chiusure di Noel (con ambi non isotopi)- Script Salvo50" & Space(10),1,,4,,3,,1
Po1(1) = 1
Po1(8) = 1
Po1(10) = 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 = 27 And DM23 = 9 And DM34 = 9 And DM41 = 45 _
Or DM23 = 27 And DM34 = 9 And DM41 = 9 And DM12 = 45 _
Or DM34 = 27 And DM41 = 9 And DM12 = 9 And DM23 = 45 _
Or DM41 = 27 And DM12 = 9 And DM23 = 9 And DM34 = 45 Then
'---------------------------------
If DM12 = 27 And DM23 = 9 And DM34 = 9 And DM41 = 45 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 27 And DM34 = 9 And DM41 = 9 And DM12 = 45 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 27 And DM41 = 9 And DM12 = 9 And DM23 = 45 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 27 And DM12 = 9 And DM23 = 9 And DM34 = 45 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90(L(4) + 9)
L(6) = Fuori90(L(5) + 9)
Amba(1) = L(5)
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(5)),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
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso " & TempoTrascorso
End SubDRAGON8698
Member
Ottimo grazie
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 11 giugno 2026Bari5323775186Cagliari5676851783Firenze6403852369Genova5681323828Milano4287405350Napoli1059869033Palermo7659282406Roma7655691574Torino2479446264Venezia8903233710Nazionale3432462269Estrazione Simbolotto
Napoli
4301212913
