Novità

Solo una ambata e un ambo secco ba-ca

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

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03

Ultimi Messaggi

Indietro
Alto