Novità

Solo una ambata e un ambo secco ba-ca

blusolemare

Premium Member
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.
 

sax71

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

Andrabene

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

Antondavide

Advanced Member >PLATINUM PLUS<
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.
 

burdiga

Advanced Member >PLATINUM PLUS<
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.
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:

salvo50

Advanced Member >PLATINUM PLUS<
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:

Alien.

Advanced Premium Member
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
 

Tizi

Super Member >GOLD<
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
CAPITO ZERO!!!!! SORRY
 

mina10

Advanced Member >PLATINUM PLUS<
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
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?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto