Solo una ambata e un ambo secco ba-ca

SoLillo · 15 Settembre 2023

Ciao a Tutti.

Ecco lo script, salvo errori o dimenticanze

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Salvo50,Ini,N1,N2
   Dim Caso,Casi,A,B,C,D,Clp,Ind_Me
   Dim Amba(1),Ambo(2),Posta(1),Poste(2),Ruo(2)
   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 - Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
   Ruo(1) = BA_ : Ruo(2) = CA_
   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))
         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
         ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
         Gioca Es ',1
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

buongiorno se possibile vedere con lo script come si comporta con inserimento di ambetto a tutte grazie

SoLillo · 17 Settembre 2023

salvo50 ha scritto:

Ciao a Tutti.

Ecco lo script, salvo errori o dimenticanze

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Salvo50,Ini,N1,N2
   Dim Caso,Casi,A,B,C,D,Clp,Ind_Me
   Dim Amba(1),Ambo(2),Posta(1),Poste(2),Ruo(2)
   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 - Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
   Ruo(1) = BA_ : Ruo(2) = CA_
   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))
         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
         ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
         Gioca Es ',1
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

buon giorno salvo nello script vorrei aggiungere se possibile questo calcolo o formula alla prima estrazione del mese il secondo estratto della ruota di napoli moltipiplicato per se stesso +80 eventuale fuori 90 (26x26+80-90) 36 63 il risultato col suo vertibile andranno a formare i 4 numeri per la sorte del terno

ora non so se formare 2 o 4 quartine con gli ambetti questo magari lo valuti tu grazie 1000 ancora

SoLillo · 17 Settembre 2023

ho inserito la somma ma non riesco ad inserire il suo vertibile

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 - 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))
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

grazie

SoLillo · 17 Settembre 2023

matt68 ha scritto:
ho inserito la somma ma non riesco ad inserire il suo vertibile

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 - 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))
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

grazie

CORRETTO MANCAVA 1 RIGA

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

SoLillo · 24 Settembre 2023

Come faccio a farmi restituite il verticale di questa fu zio e grazie

N3 = CInt(Fuori90(C * C + 80))

Nando52 · 3 Ottobre 2023

Nuova previsione
BA-CA Ambata 24 e ambo 24-38

Antondavide · 23 Ottobre 2023

Sabato uscito il 24 sia a BA che a CA. Bravissimo Nando

Nando52 · 2 Novembre 2023

Questo mese abbiamo preso due volte l'ambata 24 e questa sera 24-38 a tutte(roma)
Per il mese di novembre la nuova e' 68 ambata e 68-30 ba-ca

Antondavide · 3 Novembre 2023

Bravissimo Nando e grazie per la nuova

Nando52 · 11 Novembre 2023

Ieri sera ambetto a Ba 67-30 per chi lo ha giocato

giorda · 11 Novembre 2023

Per una mia scelta non gioco il venerdì

azzarola · 11 Novembre 2023

giorda ha scritto:
Per una mia scelta non gioco il venerdì

Idem

Antondavide · 12 Novembre 2023

Bravissimo Nando

giorda · 21 Novembre 2023

E questa sera ambo secco su cagliari bravissimo Nando e grazie

azzarola · 21 Novembre 2023

Ambo e ambetto.

Patriscia · 21 Novembre 2023

Complimenti

Nando52 · 21 Novembre 2023

Ambata 68 ambo secco 68-30 e ambetto(il secondo del mese) 68-29 a Ca.

camy64 · 21 Novembre 2023

Grazie Nando!!!

Antondavide · 22 Novembre 2023

Complimenti

AMERICA · 22 Novembre 2023

Bravo Nando il tuo metodo si che vales

Solo una ambata e un ambo secco ba-ca

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Member

Super member

Advanced Member >PLATINUM PLUS<

Member

Super member

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<