Novità

Solo una ambata e un ambo secco ba-ca

Ciao,
se é uscito l'88,
Dambu consiglia di aggiungere il 20.

Le mie ambate Bari - Cagliari sono 70-45 -47-74, anche per ambo e terno.
 
Buongiorno a tutti.....stavo pensando una cosa sull'ottimo metodo del Sig.Nando....visto che l'ultima volta ha dato ambo secco a Cagliari 19-24 è stato nel mese di maggio. Il mese di maggio è ripartito (il lotto è stato fermo per oltre un mese per causa covid) dalla seconda estrazione del mese il 05/05 e non dal 02/05. Magari è ora di cambiare il modo di conteggio non più dalla prima del mese (visto che ha dato dei risultati soddisfacenti) magari dalla seconda oppure dalla terza....ci sarebbe da fare delle prove e vedere......quando avrò un po di tempo mi ci dedico.....nel frattempo colgo l'occasione di RINGRAZIARE il Sig Nando per averci regalato questo meraviglioso metodo.
Buona domenica a tutti!
 
Buongiorno a tutti... avendo un po’ di tempo ho calcolato io , spero di non essermi sbagliata, giugno calcolato alla seconda del mese ha dato l’ambo 9,48 in ogni caso le ambate escono ,io cmq lo gioco come lo ha regalato, grazie Nando
 
Io penso che non sia opportuno cambiare estrazione, se Nando dice la prima è lì che va fatto il conteggio, senza stravolgere tutto. L'ambo secco verrà, intanto l'ambata l'abbiamo presa.
 
Credo che il punto di forza di questo metodo sia il fatto di giocare un solo ambo su due ruote per cui, anche un ritardo nel risultato atteso è assolutamente gestibile senza grosse esposizioni.
forse si potrebbe aggiungere la giocata a tutte che ha pagato sia a giugno che a luglio ma, personalmente,non andrei oltre.
Colgo l'occasione per ringraziare ancora una volta Nando che, condividendo questo suo metodo con noi, ci ha regalato davvero molte soddisfazioni.
 
Gian Andrea ha scritto:
Credo che il punto di forza di questo metodo sia il fatto di giocare un solo ambo su due ruote per cui, anche un ritardo nel risultato atteso è assolutamente gestibile senza grosse esposizioni.
forse si potrebbe aggiungere la giocata a tutte che ha pagato sia a giugno che a luglio ma, personalmente,non andrei oltre.
Colgo l'occasione per ringraziare ancora una volta Nando che, condividendo questo suo metodo con noi, ci ha regalato davvero molte soddisfazioni.
Clicca per espandere...
Buongiorno Gian Andrea condivido in toto la tua posizione ma appunto perché e solo un ambo metterei in gioco anche il risultato della seconda del mese ( il metodo e talmente valido bravo NANDO che potrebbe dare anche alla seconda rientrando in certi parametri finale mensile 30-31 secondo me) (B)...
 
Ultima modifica:
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
 
Ultima modifica:
Acc........abbiamo pure il genio della lampada di Aladino.....basta chiede e...................................grazie salvo50
Dimenticavo potresti inserire da input l'estrazione 1°2° 3° ecc.estrazione del mese,grazie.


1597081122727.png
 
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
Clicca per espandere...
CAPITO ZERO!!!!! SORRY
 
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
Clicca per espandere...
Ooohhh ragazzi io non ci capisco una cippa come si legge sta cosa ,solo per pochi eletti??
ohh quoziente intellettivo superiore al mio ?? scommetto la seconda risposta vero??dai fate una cosa più
semplicè alla portata di tutti.un complimento a NANDO?
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto