Sub Main
Dim FIn,Es,Es2,Salvo50,Ini,N1,N2,N3,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Posta(1),Poste(2),Ruo(3)
Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)
Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,12)
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,1))
Posta(1) = 1
Poste(2) = 1
'Scrivi "Solo Una Ambata ed un Ambo Secco di Nando52 PER LE SORTI DI AMBETTO AMBO TERNO- Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
Ruo(1) = BA_ : Ruo(2) = CA_: Ruo(3) = TT_
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = CInt(Estratto(Es,BA_,4))
B = CInt(Estratto(Es,PA_,4))
C = CInt(Estratto(Es,NA_,2))
D = CInt(Estratto(Es,TO_,2))
N1 = CInt(Decina(A) + Cadenza(A))
N1 = CInt(Fuori90(N1 + B + 23))
N2 = CInt(Fuori90(C * C))
N2 = CInt(Fuori90(N2 + D + 80))
N3 = CInt(Fuori90(C * C + 80))
: Ruo(2) = CA_
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
Scrivi
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
Ambo(1) = N1 : Ambo(2) = N2: Ambo(3) = N3
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
Gioca Es
Scrivi Space(20) & "AMBETTI",1,,,2
For k = 1 To Clp
Ru1 = BA_
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru2 = CA_
Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru3 = FI_
Ambetto = VerificaAmbetto(Ambo,Ru3,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru4 = GE_
Ambetto = VerificaAmbetto(Ambo,Ru4,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru5 = MI_
Ambetto = VerificaAmbetto(Ambo,Ru5,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru6 = NA_
Ambetto = VerificaAmbetto(Ambo,Ru6,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru7 = PA_
Ambetto = VerificaAmbetto(Ambo,Ru7,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru8 = RO_
Ambetto = VerificaAmbetto(Ambo,Ru8,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru9 = TO_
Ambetto = VerificaAmbetto(Ambo,Ru9,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru10 = VE_
Ambetto = VerificaAmbetto(Ambo,Ru10,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru11 = NZ_
Ambetto = VerificaAmbetto(Ambo,Ru11,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
BUONGIORNO TEMPO FA LO POSTAI CON UNA RICHIESTA
SE ERA POSSIBILE INSERIRE NELLA RICERCA I NUMERETTI NESSUNO MI RISPOSE INTANTO QUESTO SCRIPT CONTINUA A DARE ESITI POSITII