Novità

formidabile metodo ambata su ruota e probabile ambo

Hia ragione, Tom.
Mi son fermata alla prima condizione.
Ma l'ambo dev'essere in posizioni consecutive ?

No Cinzia questa condizione delle posizioni consecutive charls mi sembra non la specifichi da nessuna parte...



x Croupier

Croupier un consiglio: per la massima leggibilità del tuo codice guarda di inserirlo tra i TAG appropriati ovvero:

[

code

]

TUO CODICE

[

/code

]

le parentesi quadre le devi mettere nella stessa riga delle due parole... code e /code io le ho messe così solo per il fatto che se si mettono come devono stare non le vedi perchè mostrano le parole da esse racchiuse come formato codice appunto...

Una via + veloce consiste nel cliccare prima di copiare e incollare il tuo codice nei tre puntini in alto a destra della barra editing del post... e poi scegliere l'ultima opzione con il simbolo </> che sta per code... A questo punto poi basta inserire il codice all'interno dei due TAG che appariranno.. magicamente... :)
 
Ultima modifica:
omaggio :


Sub main()

Dim N1(6),N2(6)

Dim ruota(10),ruote(10)

Dim posta(5),poste(5)

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'TUTTE LE RUOTE

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

posta(1)=5.0

posta(2)=6.0

'--------------------

poste(2)=2.0

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ini=8117

fin=EstrazioneFin

Messaggio DataEstrazione(es)

For es=ini To Fin

If IndiceMensile(es)=2 Then

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For R1=4 To 4



'ruota(1)=11'R1

'ruota(1)=r1

'ruota(2)=2

ruota(3)=3

'ruota(4)=4

'ruota(5)=5

'ruota(6)=6

'ruota(7)=7

'ruota(8)=8

'ruota(9)=9

ruota(10)=10

'--------------

ruote(1)=11

'ruote(2)=2

'ruote(3)=3

'ruote(4)=4

'ruote(5)=5

'ruote(6)=6

'ruote(7)=7

'ruote(8)=8

'ruote(9)=9

'ruote(10)=10

'-------------------------------------------------------

X=4

Y=4

'--------------------------

For K1=3 To 3

If Estratto(es,R1,K1)>0 And Cadenza(Estratto(es,R1,K1))=0 Then

For K2=5 To 5

If Estratto(es,R1,K2)>0 And Cadenza(Estratto(es,R1,K2))=0 Then



M1= inserite qui i numeri che volete

M2= inserite qui i numeri che volete

M3=

M4=

M5=

M6=

'-------------------------------

'-----------------------

'N1(1)=M1

'N1(2)=M2

N1(3)=M3'

N1(4)=M4'

N1(5)=M5'

N1(6)=M6'

'------------------------
N2(1)=M1

'N2 (2)=M2

N2(3)=M3'

N2(4)=M4'

N2(5)=M5'

N2(6)=M6'

SCRIVI""

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

co=co+1 : Scrivi String(70,"=")&" Caso n°"& Format2(co)&" indice mensile ES "& Format2(IndiceMensile(es)),1

Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K1))&" in pos. "& Format2(K1)&"° ",1

Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K2))&" in pos. "& Format2(K2)&"° ",1

'scrivi""

ColoreTesto 0

Scrivi String(50,"=")

Scrivi DataEstrazione(es) &" ES "& Format2(ES) & " "& StringaEstratti(es,R1)&" "& Left(NomeRuota(R1),9),1

Scrivi("Estrazione del ---> ")&" "&DataEstrazione(es) &" dalla ES "& Format2(IndiceMensile(es)+1) &" alla ES "& Format2(IndiceMensile(es)+1+4),1

'-----------------------------------------

ImpostaGiocata 1,N1,ruota,posta,X,Y

ImpostaGiocata 2,N2,ruote,poste,X+7,Y+7

'TabellaGiocate

Gioca es

End If

Next

End If

Next

Next

End If

Next



ScriviResoconto 1

ScriviResoconto 2



End Sub
A ME NON FUNZIONA
 
A ME NON FUNZIONA
Buona sera Cinzia non so come contattarti in privato per una informazione (quindi ho scritto qua).
Se ti e' possibile potresti farmi vedere come avviare uno script una volta salvato!
Ho cercato ovunque ma con l ultima versione non trovo nulla che spieghi come fare.
Riesco a copiarlo, salvarlo ma dopo non riesco ad avviarlo e utilizzarlo.
Grazie anticipatamente.
 
Buona sera Cinzia non so come contattarti in privato per una informazione (quindi ho scritto qua).
Se ti e' possibile potresti farmi vedere come avviare uno script una volta salvato!
Ho cercato ovunque ma con l ultima versione non trovo nulla che spieghi come fare.
Riesco a copiarlo, salvarlo ma dopo non riesco ad avviarlo e utilizzarlo.
Grazie anticipatamente.
premi il tasto dove cè il fulmine
che parte , se è tutto giusto
 
Scusatemi ma non riesco a capire cosa mettere in gioco cosa è in gioco per le prossime estrazioni? Grazie a tutti in anticipo e in attesa
 
Il metodo paga ancora
Condizione del 3 febbraio al quinto colpo
 

Allegati

  • Screenshot_2024-02-13-20-29-07-332_com.android.chrome-edit.jpg
    Screenshot_2024-02-13-20-29-07-332_com.android.chrome-edit.jpg
    229,3 KB · Visite: 35
Da oggi in avanti:

13 31 su Bari
58 85 su Cagliari
15 51 su Genova Palermo e Roma
3 30 38 83 a Milano
57 75 su Torino
28 82 su Venezia

Giusto Charls ?
 
1708014808841.png

Questi sono gli ambi/ambate rimaste in gioco , la data che vedete è il giorno in cui è uscita la condizione.
chiaramente non si possono giocare tutti , io gioco i più vecchi e quelli con condizioni ripetute tipo 56 - 65 a genova e venezia o 15 -51 a genova.
quando esce almeno l'ambata lo tolgo.
PER IL MOMENTO SIAMO IN POSITIVO
se esce qualcosa di più nuovo pazienza nel frattempo ci armiamo di Q.F.
 
Ciao, quelli in verde cosa rappresentano se posso chiedere?

Un saluto e grazie per il metodo!
Ciao Ascia ,
in verde sono i più vecchi o le condizioni ripetute

poi quel 15 -51 ripetuto su genova, poi su palermo, su roma su nazionale su milano.....
secondo me sta per esplodere, magari su tutte
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 aprile 2026
    Bari
    80
    54
    31
    75
    71
    Cagliari
    38
    23
    54
    50
    89
    Firenze
    57
    73
    82
    35
    45
    Genova
    58
    70
    12
    65
    85
    Milano
    82
    20
    35
    14
    08
    Napoli
    48
    65
    79
    52
    16
    Palermo
    05
    60
    56
    01
    25
    Roma
    65
    12
    73
    03
    49
    Torino
    39
    43
    44
    36
    67
    Venezia
    71
    76
    49
    06
    56
    Nazionale
    85
    42
    37
    41
    07
    Estrazione Simbolotto
    Genova
    07
    37
    43
    24
    27
Indietro
Alto