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
    martedì 22 aprile 2025
    Bari
    39
    13
    47
    80
    31
    Cagliari
    36
    31
    58
    61
    21
    Firenze
    12
    05
    37
    89
    13
    Genova
    18
    27
    51
    59
    64
    Milano
    77
    70
    24
    35
    85
    Napoli
    65
    12
    09
    35
    24
    Palermo
    01
    71
    40
    83
    31
    Roma
    86
    67
    28
    73
    75
    Torino
    17
    89
    52
    21
    62
    Venezia
    51
    65
    03
    40
    74
    Nazionale
    74
    50
    49
    72
    12
    Estrazione Simbolotto
    Genova
    27
    20
    13
    14
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto