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. Mentre per la condizione di Bari prima ruota, ti faccio sapere a breve. Grazie
Ultima modifica:
Buonasera @salvo50 buonasera anche a tutti gli altri del forum.
Chiederei per la condizione di Bari prima ruota, è possibile inserire un inputbox ?
... per scegliere se escludere o no dalla previsione se esce un numero tra 10.80.90
p.s. ma questa scelta di escludere, era contemplata nel metodo di Elisabetta Masi? oppure frutto di vostra esperienza e prove, facendo si che restringendo le previsioni, ad esempio togliendo Bari, si ottengono meno casi negativi?
Grazie
Chiederei per la condizione di Bari prima ruota, è possibile inserire un inputbox ?
... per scegliere se escludere o no dalla previsione se esce un numero tra 10.80.90
p.s. ma questa scelta di escludere, era contemplata nel metodo di Elisabetta Masi? oppure frutto di vostra esperienza e prove, facendo si che restringendo le previsioni, ad esempio togliendo Bari, si ottengono meno casi negativi?
Grazie
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Cicalotto, la scelta di escludere nella prima ruota i tre numeri, 10 - 80 e 90 non lo so se è incluso nel metodo di E.Masi
io lo fatto in base allo script postato da Kubes al post 4, nello script ho riconosciuto il mio modo di fare script, però sicuramente
qualcuno l'aveva modificato, in che modo e dove nello script non lo so, praticamente io ho ripreso lo script del post 4 che c'è
quella condizione, vedere come era fatto all'origine si dovrebbe trovare il Topic dove l'ho fatto la prima volta, io l'ho cercato ma non l'ho trovato, non mi ricordo neanche la data, comunque direi di eliminare quella condizione, eventualmente se la vuoi mettere usa l'altro script
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Salvo50,Es
Dim R1,R2,R3,P1,P2,P3,Caso,Casi
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua(5)
Dim Terno1(3),Terno2(3),Terno3(3)
Dim Ruote(3),Ruo(4),Posta(2),Poste(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10720))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
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) 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 - 7,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
ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp
ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
ImpostaGiocata 6,Terno3,Ruo,Poste,Clp
Gioca Es,1
'End If
End If
End If
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
martedì 28 ottobre 2025Bari7136811035Cagliari4269625235Firenze0380385411Genova8841180745Milano4843111757Napoli1855101504Palermo6726334945Roma1477100554Torino7987425540Venezia6218857401Nazionale6145383462Estrazione Simbolotto
4434112516
