Novità

Solo una ambata e un ambo secco ba-ca

blusolemare

Premium Member
Messaggi
5.612
Punti reazione
216
Punti
63
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
Messaggi
49
Punti reazione
12
Punti
8
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

Super member
Messaggi
152
Punti reazione
39
Punti
28
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
 

Alien.

Advanced Premium Member
Messaggi
22.939
Punti reazione
219
Punti
63
Serve uno script per valutare quale estrazione da più possibilità.
 

Antondavide

Advanced Member >GOLD<
Messaggi
987
Punti reazione
161
Punti
43
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.
 

Gian Andrea

Member
Messaggi
55
Punti reazione
10
Punti
8
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<
Messaggi
1.176
Punti reazione
478
Punti
83
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<
Messaggi
2.861
Punti reazione
998
Punti
113
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
Messaggi
22.939
Punti reazione
219
Punti
63
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
 

BEPPA51

Advanced Member >GOLD<
Messaggi
831
Punti reazione
288
Punti
63
io avevo fatto la prova su tt le estrazioni ,ma non e la stessa cosa
 

Antondavide

Advanced Member >GOLD<
Messaggi
987
Punti reazione
161
Punti
43
Ok Nando grazie del suggerimento. Io continuerò a giocare l'ambo sia a ruota che a tutte.
 

Tizi

Member
Messaggi
73
Punti reazione
12
Punti
8
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<
Messaggi
2.000
Punti reazione
308
Punti
83
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🥰
 

mina10

Advanced Member >PLATINUM PLUS<
Messaggi
2.000
Punti reazione
308
Punti
83
mina10 è uno script per testare metodi.
ciao ,e lo avevo capito, ma purtroppo non lo so interpretare, mi accontento di estrapolare carta ,penna 🖊 e calamaio,dai speriamo sortisca a ruota sarebbe bello per tutti.grazie comunque gentile ad avermi risposto 👍
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 settembre 2020
    Bari
    04
    30
    73
    82
    79
    Cagliari
    32
    17
    07
    74
    66
    Firenze
    65
    41
    23
    88
    85
    Genova
    79
    78
    60
    88
    73
    Milano
    22
    69
    02
    80
    27
    Napoli
    59
    53
    67
    13
    86
    Palermo
    81
    90
    39
    11
    65
    Roma
    53
    72
    39
    54
    52
    Torino
    62
    70
    10
    54
    82
    Venezia
    52
    43
    10
    80
    75
    Nazionale
    17
    23
    52
    76
    78
    Estrazione Simbolotto
    Palermo
    39
    08
    29
    03
    09

Ultimi Messaggi

Alto