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
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto