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.
Listato per la sequenza 18 -18- 9- 9
- Creatore Discussione tiberio1
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Rudivall, Tiberio1, Xeroxs.
Grazie
Alla terza domanda rispondendo con un numero diverso da 1 non visiona i cerchi ciclometrici, utile per velocizzare lo script.
Rudivall, Tiberio1, Xeroxs.
Grazie
Alla terza domanda rispondendo con un numero diverso da 1 non visiona i cerchi ciclometrici, utile per velocizzare lo script.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50
Dim DM12,DM23,DM34,DM41,Caso,Casi
Dim Ambo(2),Posta(2),L(6),M(4),Ruote(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9890))'9008 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
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(14) & "LA SEQUENZA 18-18-9-9 di ANGELO GARGIULO - SCRIPT SALVO50" & Space(14),1,,4,,3,,1
Posta(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
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 D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 18 And DM23 = 18 And DM34 = 9 And DM41 = 45 _
Or DM23 = 18 And DM34 = 18 And DM41 = 9 And DM12 = 45 _
Or DM34 = 18 And DM41 = 18 And DM12 = 9 And DM23 = 45 _
Or DM41 = 18 And DM12 = 18 And DM23 = 9 And DM34 = 45 Then
'---------------------------------
If DM12 = 18 And DM23 = 18 And DM34 = 9 And DM41 = 45 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = Fuori90(M(4) + 9)
End If
If DM23 = 18 And DM34 = 18 And DM41 = 9 And DM12 = 45 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
L(5) = Fuori90(M(1) + 9)
End If
If DM34 = 18 And DM41 = 18 And DM12 = 9 And DM23 = 45 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
L(5) = Fuori90(M(2) + 9)
End If
If DM41 = 18 And DM12 = 18 And DM23 = 9 And DM34 = 45 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
L(5) = Fuori90(M(3) + 9)
End If
L(6) = Fuori90(L(5) + 27)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),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 " Le Distanze" & Space(14),1,0
Scrivi "18 18 09 09 27",1,,,2
Scrivi " Estratti e Pronostico " & StringaNumeri(L," ",True),1
Scrivi
Scrivi " Pronostico Ambo " & Format2(L(5)) & " " & Format2(L(6)),1,,,1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
Ambo(1) = L(5) : Ambo(2) = L(6)
ImpostaGiocata 1,Ambo,Ruote,Posta,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
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
If R1 <> R2 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 18 And DM23 = 18 And DM34 = 9 And DM41 = 45 _
Or DM23 = 18 And DM34 = 18 And DM41 = 9 And DM12 = 45 _
Or DM34 = 18 And DM41 = 18 And DM12 = 9 And DM23 = 45 _
Or DM41 = 18 And DM12 = 18 And DM23 = 9 And DM34 = 45 Then
'---------------------------------
If DM12 = 18 And DM23 = 18 And DM34 = 9 And DM41 = 45 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = Fuori90(M(4) + 9)
End If
If DM23 = 18 And DM34 = 18 And DM41 = 9 And DM12 = 45 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
L(5) = Fuori90(M(1) + 9)
End If
If DM34 = 18 And DM41 = 18 And DM12 = 9 And DM23 = 45 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
L(5) = Fuori90(M(2) + 9)
End If
If DM41 = 18 And DM12 = 18 And DM23 = 9 And DM34 = 45 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
L(5) = Fuori90(M(3) + 9)
End If
L(6) = Fuori90(L(5) + 27)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),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 " Le Distanze" & Space(14),1,0
Scrivi "18 18 09 09 27",1,,,2
Scrivi " Estratti e Pronostico " & StringaNumeri(L," ",True),1
Scrivi
Scrivi " Pronostico Ambo " & Format2(L(5)) & " " & Format2(L(6)),1,,,1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
Ambo(1) = L(5) : Ambo(2) = L(6)
ImpostaGiocata 1,Ambo,Ruote,Posta,Clp
Gioca Es,1
End If
End If
End If
Next
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 21 marzo 2026Bari1781258906Cagliari8336057669Firenze0643602144Genova8456217533Milano7924890502Napoli7665703105Palermo2907676218Roma6610895728Torino1840850904Venezia5122116673Nazionale4166865244Estrazione Simbolotto
Firenze
0638141202
