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 il terno ciclometrico listato x spaziometria
- Creatore Discussione DRAGON8698
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Dragon8698, Rudivall
GRAZIE
Per la ricerca indietro della condizione ho messo un ImputBox alla quarta domanda, per default lo messo a 2, naturalmente si può cambiare.
Dragon8698, Rudivall
GRAZIE
Per la ricerca indietro della condizione ho messo un ImputBox alla quarta domanda, per default lo messo a 2, naturalmente si può cambiare.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,Clp1,Clp2,Es,Es2,Cer,Salvo50
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,Caso
Dim DM12,DM23,DM34,DM41,Ap,Am,Bp,Bm,Ind,Casi
Dim Ambet1(2),Ambet2(2),Ambet3(2),Ambet4(2)
Dim L(6),M(4),N(4),Ambata(1),Ambo(2),Terno(3)
Dim Ruo1(2),Ruo2(4),Poste1(1),Poste2(2),Poste3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10271))'10271 esempio nell'articolo
Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi e il terno?",Salvo50,10))
Ind = CInt(InputBox(" Quanti colpi Indietro vuoi fare il controllo?",Salvo50,2))
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(9) & "Il Terno Ciclometrico 1 di Angelo Gargiulo - Script Salvo50" & Space(9),1,,4,,3,,1
Poste1(1) = 1
Poste2(2) = 1
Poste3(2) = 1
Poste3(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
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 C > 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 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 _
Or DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 _
Or DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 _
Or DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 Then
'---------------------------------
If DM12 = 18 And DM23 = 36 And DM34 = 9 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM12 = 36 And DM23 = 9 And DM34 = 27 And DM41 = 18 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
If DM12 = 9 And DM23 = 27 And DM34 = 18 And DM41 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 36 And DM41 = 9 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
L(5) = Fuori90(L(2) + 18)
For Es2 = Es To(Es - Ind) Step - 1
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R1 Or R3 = R2 Then
For P5 = 1 To 5
E = Estratto(Es2,R3,P5)
If E = L(5) Then
L(6) = Fuori90(L(4) + 9)
N(1) = L(4)
N(2) = L(6)
N(3) = Fuori90(L(6) + 9)
N(4) =(L(1))
Ambata(1) = N(2)
Ambo(1) = N(2) : Ambo(2) = N(3)
Terno(1) = N(1) : Terno(2) = N(2) : Terno(3) = N(4)
'------------------------------------------------
Ap = Fuori90(N(2) + 1) : Am = Fuori90((90 + N(2)) - 1)
Bp = Fuori90(N(3) + 1) : Bm = Fuori90((90 + N(3)) - 1)
Ambet1(1) = Ap : Ambet1(2) = N(3)
Ambet2(1) = Am : Ambet2(2) = N(3)
Ambet3(1) = N(2) : Ambet3(2) = Bp
Ambet4(1) = N(2) : Ambet4(2) = Bm
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) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
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 P8 = 1 To 5
E2 = Estratto(Es,R2,P8)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P6 = 1 To 5
E3 = Estratto(Es2,R3,P6)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
Ruo2(1) = R1 : Ruo2(2) = R2 : Ruo2(3) = NZ_ : Ruo2(4) = TT_
ImpostaGiocata 1,Ambata,Ruo1,Poste1,Clp1
ImpostaGiocata 2,Ambo,Ruo2,Poste2,Clp2
ImpostaGiocata 3,Terno,Ruo2,Poste3,Clp2
Gioca Es,1
Scrivi Space(10) & "AMBETTI",1,,,2
ImpostaGiocata 1,Ambet1,Ruo1,Poste2,Clp2
ImpostaGiocata 2,Ambet2,Ruo1,Poste2,Clp2
ImpostaGiocata 3,Ambet3,Ruo1,Poste2,Clp2
ImpostaGiocata 4,Ambet4,Ruo1,Poste2,Clp2
Gioca Es,1
Scrivi
End If
Next
End If
Next
Next
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
Grazie
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 19 agosto 2025Bari8516323028Cagliari5360461287Firenze5862663833Genova1324605779Milano2213382407Napoli0212511686Palermo8806260276Roma7370815136Torino0114620570Venezia8463724022Nazionale5724306809Estrazione Simbolotto
Nazionale
0341270730
