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
- Creatore Discussione chicco3
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Cicalotto
Nello script c'è la condizione che se nella prima ruota, che nel caso menzionato da te è Bari ma può essere
anche una qualsiasi altra ruota, meno Venezia e Nazionale, la condizione è che se nella prima ruota
esce anche uno solo di questi 3 estratti 10 80 e 90, l'estrazione non è valida quindi la salta, se vuoi che
questa condizione non ci deve essere, dimmelo che la tolgo.
Riguardo al controllo a ritroso ho messo un inputBox che puoi decidere di quante estrazioni a ritroso
fare il controllo, quindi se metti 0 (zero) è come se non ci fosse, quindi non fa il controllo a ritroso
Ciao Cicalotto
Nello script c'è la condizione che se nella prima ruota, che nel caso menzionato da te è Bari ma può essere
anche una qualsiasi altra ruota, meno Venezia e Nazionale, la condizione è che se nella prima ruota
esce anche uno solo di questi 3 estratti 10 80 e 90, l'estrazione non è valida quindi la salta, se vuoi che
questa condizione non ci deve essere, dimmelo che la tolgo.
Riguardo al controllo a ritroso ho messo un inputBox che puoi decidere di quante estrazioni a ritroso
fare il controllo, quindi se metti 0 (zero) è come se non ci fosse, quindi non fa il controllo a ritroso
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Salvo50,Es,Ind
Dim R1,R2,R3,P1,P2,P3,Caso,Casi,Attesa,Cicalotto
Dim Ambetto,Retnum,Retvinc,K1,K2,k3,Es2
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua(5)
Dim Terno1(3),Terno2(3),Terno3(3),R(3)
Dim Ruote(3),Ruo(4),Posta(2),Poste(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
Ind = CInt(InputBox(" Per quanti colpi vuoi fare il controllo a ritroso?",Salvo50,7))
Attesa = CInt(InputBox("Dopo quanti colpi iniziare?",Cicalotto,6))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(14) & " Tre Terni In Tre Colpi di Elisabetta Masi script Salvo50" & Space(14),1,,4,,3,,1
Scrivi Space(21) & "Con Modifiche di Cicalotto " & Space(21),1,1,4,,3,,1
Posta(2) = 1
Poste(2) = 1
Poste(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
R2 = R1 + 1
For P2 = 1 To 5
B = Estratto(Es,R2,P2)
If A = B And P1 = P2 And A <> 10 And A <> 80 And A <> 90 Then
For R3 = R2 + 1 To 12
If R3 = 11 Then R3 = 12
For P3 = 1 To 5
C = Estratto(Es,R3,P3)
If C = 10 Or C = 80 Or C = 90 Then
If A > 0 And B > 0 And C > 0 Then
Ambo1(1) = A : Ambo1(2) = 10
Ambo2(1) = A : Ambo2(2) = 80
Ambo3(1) = A : Ambo3(2) = 90
Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
Terno3(1) = A : Terno3(2) = 80 : Terno3(3) = 90
Qua(1) = A : Qua(2) = C : Qua(3) = 10 : Qua(4) = 80 : Qua(5) = 90
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TU_
If SerieFreqTurbo(Es - Ind,Es,Qua,Ruote,2) = 0 Then
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
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R3
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(28) & "PRONOSTICO",1,,,2
Scrivi Space(31) & "AMBI",1,,,1
Scrivi Space(26) & "Ambo1 " & Format2(A) & " 10",1
Scrivi Space(26) & "Ambo2 " & Format2(A) & " 80",1
Scrivi Space(26) & "Ambo3 " & Format2(A) & " 90",1
Scrivi Space(30) & "TERNI",1,,,1
Scrivi Space(24) & "Terno1 " & Format2(A) & " 10 80",1
Scrivi Space(24) & "Terno2 " & Format2(A) & " 10 90",1
Scrivi Space(24) & "Terno3 " & Format2(A) & " 80 90",1
Scrivi
ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp,,Attesa
ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp,,Attesa
ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp,,Attesa
ImpostaGiocata 4,Terno1,Ruo,Poste,Clp,,Attesa
ImpostaGiocata 5,Terno2,Ruo,Poste,Clp,,Attesa
ImpostaGiocata 6,Terno3,Ruo,Poste,Clp,,Attesa
Gioca Es,1
R(1) = R1 : R(2) = R2 : R(3) = R3
For K1 = 1 To Clp
Es2 = Es + K1
If Es2 > FIn Then Exit For
For K2 = 1 To 3
Ambetto = VerificaAmbetto(Ambo1,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
k3 = k3 + 1
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1,0
Scrivi Space(3) & "Vincita di " & Retvinc & " Volte la posta",1
End If
Ambetto = 0
Next
For K2 = 1 To 3
Ambetto = VerificaAmbetto(Ambo2,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
k3 = k3 + 1
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1,0
Scrivi Space(3) & "Vincita di " & Retvinc & " Volte la posta",1
End If
Ambetto = 0
Next
For K2 = 1 To 3
Ambetto = VerificaAmbetto(Ambo3,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
k3 = k3 + 1
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1,0
Scrivi Space(3) & "Vincita di " & Retvinc & " Volte la posta",1
End If
Ambetto = 0
Next
Next
'
End If
End If
End If
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi "Casi totali (" & Casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
Scrivi
Scrivi " Totale Ambetti " & k3
Scrivi
ScriviResoconto
End Sub
Ultima modifica:
Intanto grazie per la cortesia e velocità nella risposta. Grazie anche per aver messo input box. Me tre per la condizione di Bari prima ruota, ti faccio sapere a breve. Grazie
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 25 ottobre 2025Bari6858456951Cagliari3124114787Firenze8018176053Genova6454094838Milano3429126339Napoli7975446943Palermo2875852247Roma2139554388Torino0940768416Venezia2636526625Nazionale2238886540Estrazione Simbolotto
3426093104
