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
Codice:
Sub main()
Dim ab(2),ter(3),num(4),ruote(3),ruot(1),poste(2), posti(3)
poste(2)=1 '<-------- solo x gli ambi
posti(2)=1 '<-------- solo x gli ambi in terzina
posti(3)=1 '<-------- solo terno in terzina
quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",30))
If quante= False Then Exit Sub
For es =(EstrazioneFin - quante) To EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If b=a Then
For rx= 1 To 12
If rx<>11 And rx<>r1 And rx<>r2 Then
For p3=1 To 5
d=Estratto(es,rx,p3)
If d=10 Or d=80_
Or d=90 Then
If p3=p1 Or p3=p2 Then
cont=cont+1
ColoreTesto 2 : Scrivi String(25,32)&"Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r1),3)&""&Space(2)&_
""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(3)&"("&p1&")"
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r2),3)&""&Space(2)&_
""& StringaEstratti(es,r2)&""&Space(5)&_
""& Format2(b)&""&Space(3)&"("&p2&")"
ColoreTesto 1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(rx),3)&""&Space(2)&_
""& StringaEstratti(es,rx)&""&Space(5)&_
""& Format2(d)&""&Space(3)&"("&p3&")"
ColoreTesto 0 : Scrivi
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=rx
ab(1)=a : ab(2)=10 : ImpostaGiocata 1,ab,ruote,poste,13
ab(2)=80 : ImpostaGiocata 2,ab,ruote,poste,13
ab(2)=90 : ImpostaGiocata 3,ab,ruote,poste,13
ter(1)=a : ter(2)=10 : ter(3)=80
ImpostaGiocata 4,ter,ruote,posti,13
ter(2)=80 : ter(3)=90
ImpostaGiocata 5,ter,ruote,posti,13
ter(2)=90 : ter(3)=10
ImpostaGiocata 6,ter,ruote,posti,13
ruot(1)=11
num(1)=a
num(2)=10
num(3)=80
num(4)=90
ImpostaGiocata 7,num,ruot,posti,13
Gioca es : Scrivi String(62,151)
End If
End If
Next
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Franca46
Lo so che il listato non è tuo ma di Damper che secondo me è uno bravo a fare gli script, siccome ho letto questa versione di tre terni in tre colpi, ho fatto notare le differenze
adeleadele
Advanced Member >PLATINUM<
Grazie puo' uscire a genova l'8 con 38 35 64 9 90
Ultima modifica:
adeleadele
Advanced Member >PLATINUM<
Se noti i casi negativi sono i numeri consecutivi non isotopi quelli escono l'unico non uscito è l'8 fa errori ora isotopo c'è il 5 anche se escono maggiormente isotopi e consecutivi.
Ultima modifica:
Buonasera, riporto UP questa discussione e vi chiedo una cosa, come mai non prende in considerazione anche la ruota di Bari dove in questo caso ad esempio è presente il numero 10? mentre in una altra estrazione lo considera per la successiva previsione, forse perchè essendo la prima ruota BARI non la riconosce? Ovviamente riferito a questa versione dello script, GRAZIE find'ora se qualche anima buona mi riesce ad aiutare. GRAZIE
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Antonio Pagano, Bubù, Franca46, Matematico, Pandit, ScarfaceTony, Scrignobianco.
Grazie
Ciao Cicalotto
Quei casi menzionata da te non ci sono perché, nel metodo Post 23, c'è la condizione che se almeno uno degli ambi
si trova nelle 7 (sette) estrazioni precedenti l'estrazione viene saltata, adesso io non sono andato a controllare
gli ambi usciti nelle sette estrazione precedenti, troppo noioso, però ho tolto la condizione e le estrazioni
saltate ci sono.
Vuoi che ti posto lo script senza quella condizione?
Ultima modifica:
BUONGIORNO
in effetti non avevo ancora controllato le precedenti estrazioni; per lo script, magari grazie se puoi postarlo...
nel frattempo mi sono permesso di aggiungere una condizione, cioè solo numeri uguali e isotopi su ruote consecutive, così da restringere le previsioni...
in questo modo:
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
Ultima modifica:
ultimo aiutino, ma se nelle previsioni volessi aggiungere anche ambetto e quindi nei risultati mi elaborasse anche gli ambetti e relative vincite? Sarebbe possibile e come indicare nello script il comando?
Nella ultima estrazione ad esempio a colpo è uscito a Cagliari 85 con 89 anzichè 90 quindi ambetto ...
Nella ultima estrazione ad esempio a colpo è uscito a Cagliari 85 con 89 anzichè 90 quindi ambetto ...
Allegati
grazie
salvo50
Advanced Member >PLATINUM PLUS<
nello script ho messo 2 InputBox, unp per l'estrazione iniziale e l'altro per i colpi di gioco
ho messo la prima e la seconda ruota isotopi e ho messo la visualizzazione degli ambetti,
nella visualizzazione degli ambetti la ruota Nazionale la visualizza come tutte le ruote
non ho capito perché fa questo difetto e quindi non l'ho corretto
Ho tolto la verifa a ritroso di almeno un ambo
Ecco lo script salvo errori o dimenticanze
ho messo la prima e la seconda ruota isotopi e ho messo la visualizzazione degli ambetti,
nella visualizzazione degli ambetti la ruota Nazionale la visualizza come tutte le ruote
non ho capito perché fa questo difetto e quindi non l'ho corretto
Ho tolto la verifa a ritroso di almeno un ambo
Ecco lo script salvo errori o dimenticanze
Codice:
Option Explicit
Sub Main
Dim Fin,Es,Ini,R1,R2,R3,R4,P1,P2,P3,P4,P5,P6,P7,P8,Clp
Dim E1,E2,E3,E4,A,B,C,D,Caso,Casi,k1,K2,Es2
Dim Ambetto,Retnum,Retvinc
Dim Ambo1(2),Ambo2(2),Ambo3(2),Terno1(3),R(4)
Dim Terno2(3),terno3(3),Ruo(4),Posta(2),Poste(3)
Posta(2) = 1
Poste(2) = 1
Poste(3) = 1
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10600)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,8)
Scrivi "Progetto - Tre Terni in Tre Colpi di Elisabetta Masi - script Salvo50",1,1,4,,3,,1
Scrivi Space(21)& "Con Modifiche di Cicalotto " & Space(21),1,1,4,,3,,1
Fin = EstrazioneFin
Call ScegliRange(Ini,Fin,Ini,Fin)
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R2,P1)
If A = B And A <> 10 And A <> 80 And A <> 90 Then
For R3 = 1 To 11
If R3 = 11 Then R3 = 12
If R3 <> R2 And R3 <> R1 Then
For P3 = 1 To 5
C = Estratto(Es,R3,P3)
If C = A Then
'-----------------------------------------------------
For R4 = 1 To 11
If R4 = 11 Then R4 = 12
For P4 = 1 To 5
D = Estratto(Es,R4,P4)
If (R4 <> R3 And R4 <> R2 And R4 <> R1) And (D = 10 Or D = 80 Or D = 90) Then
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = R4
Ambo1(1) = A : Ambo1(2) = 10
Ambo2(1) = A : Ambo2(2) = 80
Ambo3(1) = A : Ambo2(2) = 90
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R2
MatriceCaselleDaEvid(2,1) = P1
MatriceCaselleDaEvid(3,0) = R3
MatriceCaselleDaEvid(3,1) = P3
MatriceCaselleDaEvid(4,0) = R4
MatriceCaselleDaEvid(4,1) = P4
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
Scrivi
ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
terno3(1) = A : terno3(2) = 80 : terno3(3) = 90
ImpostaGiocata 6,terno3,Ruo,Poste,Clp
Gioca Es,,,1
R(1) = R1 : R(2) = R2 : R(3) = R3 : R(4) = R4
For k1 = 1 To Clp
Es2 = Es + k1
If Es2 > Fin Then Exit For
For K2 = 1 To 4
Ambetto = VerificaAmbetto(Ambo1,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
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 4
Ambetto = VerificaAmbetto(Ambo2,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
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 4
Ambetto = VerificaAmbetto(Ambo3,R(K2),Es2,Retnum,Retvinc)
If Ambetto > 0 Then
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
Scrivi
End If
Next
Next
'----------------------------------------------------
End If
Next
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
ScriviDistribuzioneCasiInCorso(True) ' come sopra
ScriviResoconto
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 18 ottobre 2025Bari2303543430Cagliari4914250937Firenze3245155929Genova0366689085Milano8815214127Napoli7972842701Palermo2303732504Roma1167241359Torino7259847526Venezia8108187625Nazionale5869621770Estrazione Simbolotto
0826282240
