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: 34
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
    giovedì 17 aprile 2025
    Bari
    82
    36
    16
    03
    81
    Cagliari
    46
    13
    40
    47
    09
    Firenze
    23
    87
    68
    48
    86
    Genova
    12
    68
    63
    41
    17
    Milano
    66
    58
    51
    21
    61
    Napoli
    84
    32
    71
    61
    22
    Palermo
    69
    18
    82
    75
    12
    Roma
    64
    78
    54
    89
    05
    Torino
    68
    49
    86
    23
    25
    Venezia
    29
    18
    44
    25
    47
    Nazionale
    02
    74
    67
    88
    84
    Estrazione Simbolotto
    Genova
    29
    38
    43
    03
    28
Indietro
Alto