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
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35

Ultimi Messaggi

Indietro
Alto