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
    venerdì 06 giugno 2025
    Bari
    40
    88
    30
    09
    66
    Cagliari
    76
    30
    05
    09
    70
    Firenze
    22
    67
    41
    85
    63
    Genova
    57
    23
    30
    89
    60
    Milano
    26
    45
    77
    70
    22
    Napoli
    01
    71
    32
    07
    41
    Palermo
    13
    11
    86
    34
    76
    Roma
    67
    81
    23
    72
    47
    Torino
    42
    73
    40
    61
    15
    Venezia
    90
    23
    22
    79
    34
    Nazionale
    34
    72
    33
    01
    53
    Estrazione Simbolotto
    Napoli
    20
    33
    17
    11
    40

Ultimi Messaggi

Indietro
Alto