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
    venerdì 27 febbraio 2026
    Bari
    01
    31
    24
    71
    49
    Cagliari
    56
    23
    44
    84
    39
    Firenze
    46
    77
    10
    65
    07
    Genova
    31
    82
    33
    84
    64
    Milano
    58
    41
    28
    82
    18
    Napoli
    05
    14
    52
    62
    57
    Palermo
    82
    31
    08
    38
    39
    Roma
    87
    22
    76
    82
    19
    Torino
    36
    50
    62
    61
    84
    Venezia
    21
    20
    52
    14
    71
    Nazionale
    86
    17
    01
    41
    20
    Estrazione Simbolotto
    Cagliari
    39
    10
    44
    35
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto