Novità

PER Thauk help mi..2

quote:Originally posted by keeper

caro thauk ora ho qeusto problema
Dim pta(1) ' la puntata che faccio è l'estratto
pta(1) = 1 'la puntata sull'estratto (1) è di 1 euro bene
rt(1) = 1 ' la ruota è baribene
k = 12 ... sono i colpi ???

For n = 8000 To EstrazioneFin

per i colpi se è presente la 11 o 13 estrazione essa si ferma alla 12 estrazione e non a fine mese bravo i colpi non sono l'indice mensile

:D Manda lo script che te lo scipt..iamo noi asinello...:D

:D:DSe ci fosse Luigi ti bacchetterebbe come faceva con me :D:D
 
Claudio, ma che è sto 6 x 1000 [?][?]
No perchè io conosco l'8 x 1000 e l'ho dato alla chiesa cattolica
il 5 x 1000 e l'ho dato ad un onlus di un mio amico che insieme al Cardinal Tonini hanno messo in piedi questo che si occupa di assistere le popolazioni del Burundi che da un video che ho sono tutti invalidi per via delle mine, pensa che questo mio amico d'infanzia da ex colonello dei carabinieri ora passa più tempo nel Burundi che in Italia.
Il 6 x 1000 esiste davvero o è x schersà?
O ma Ele che fine ha fatto? mo lo chiamo forte : ELEEEEEE!!!
 
Filotto, vedo che hai capito bene di cosa si trattava...
sul web gira anche l'arma grigia e certe cose devo essere intuite non puntualizzate... comunque da quello che dici ti se mangiato già
tutto ...non importa ricordati nel 2012.... meno male che hai fatto delle opere buone.

ciao
 
quote:Originally posted by claudio8

quote:Originally posted by keeper

caro thauk ora ho qeusto problema
Dim pta(1) ' la puntata che faccio è l'estratto
pta(1) = 1 'la puntata sull'estratto (1) è di 1 euro bene
rt(1) = 1 ' la ruota è baribene
k = 12 ... sono i colpi ???

For n = 8000 To EstrazioneFin

per i colpi se è presente la 11 o 13 estrazione essa si ferma alla 12 estrazione e non a fine mese bravo i colpi non sono l'indice mensile

:D Manda lo script che te lo scipt..iamo noi asinello...:D

:D:DSe ci fosse Luigi ti bacchetterebbe come faceva con me :D:D
Sub Main()
Dim rt(1) 'la ruota è una (1)
Dim nr(2) ' i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'estratto

pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 12 ' i colpi in gioco sono 12
For n = 8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Or n=EstrazioneFin Then 'i conti li faccio sull'ultima estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,1,5) + 0)'prendo il 5° estratto dell'ultima estraz del mese di BA
nr(2) = Fuori90(Estratto(n,1,5) + 1)'prendo il 5° estratto dell'ultima estraz del mese di BA e aggiungo 1
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub
 
Codice:
Sub Main()
Dim rt(1) 'la ruota è una (1)
Dim nr(2) 'i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'estratto

pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 12 ' i colpi in gioco sono 12
For n = 8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Or n=EstrazioneFin Then 'i conti li faccio sull'ultima estrazione del mese
ng = 0
nr(1) = Estratto(n,1,5)'prendo il 5° estratto dell'ultima estraz del mese di BA
'nr(1) = Fuori90(Estratto(n,1,5) + 0)'prendo il 5° estratto dell'ultima estraz del mese di BA
nr(2) = Fuori90(Estratto(n,1,5) + 1)'prendo il 5° estratto dell'ultima estraz del mese di BA e aggiungo 1
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub

BRAVO
 
quote:Originally posted by fillotto

Claudio, ma che è sto 6 x 1000 [?][?]
No perchè io conosco l'8 x 1000 e l'ho dato alla chiesa cattolica
il 5 x 1000 e l'ho dato ad un onlus di un mio amico che insieme al Cardinal Tonini hanno messo in piedi questo che si occupa di assistere le popolazioni del Burundi che da un video che ho sono tutti invalidi per via delle mine, pensa che questo mio amico d'infanzia da ex colonello dei carabinieri ora passa più tempo nel Burundi che in Italia.
Il 6 x 1000 esiste davvero o è x schersà?
O ma Ele che fine ha fatto? mo lo chiamo forte : ELEEEEEE!!!

Ciao FILL :)
ho sentito il tuo richiamo nella jungla e sono accorso.
Io tutto bene. Sto fuori sede a godermi il nuovo nipotino arrivato :):):):).
è il 4° della serie.Un bel maschione di 3,800 kg.Tutto uguale al nonno.
Ci sentiamo presto . ciao un abbraccio :):)
 
quote:Originally posted by elephantbig

Ciao FILL :)
ho sentito il tuo richiamo nella jungla e sono accorso.
Io tutto bene. Sto fuori sede a godermi il nuovo nipotino arrivato :):):):).
è il 4° della serie.Un bel maschione di 3,800 kg.Tutto uguale al nonno.
Ci sentiamo presto . ciao un abbraccio :):)
Ciao Ele, beato te!!!! auguri x il 4° nipotino
Per quanto riguarda la Coppa Italia ho sperato x te e tifato per il Palermo, in effetti una bella partita aperta a tutti i risultati
ma la differenza l'ha fatta quel marziano di Etò!!!!
Ciao Fill
 
quote:Originally posted by claudio8

:D:DCiao Ele un abbraccio da Claudio ed auguroni nonnone per il nuovo elephant-little :D:D

Ps il 56 è caduto a Napoli
Notte

Ciao Claudio,:)
Per la serie "LA SFIGA SA DOVE COLPIRE"Il 56 l'avevo a BARI ,come tu ben sai,ma la Dea con l'invalità lo fa uscire a Cagliari.

5676.jpg


ma in compenso ho recuperato le spese con questa

senzaolo1rm.jpg


Alla prossima :D:D:D
 
quote:Originally posted by claudio8

Codice:
Sub Main()
Dim rt(1) 'la ruota è una (1)
Dim nr(2) 'i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'estratto

pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 12 ' i colpi in gioco sono 12
For n = 8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Or n=EstrazioneFin Then 'i conti li faccio sull'ultima estrazione del mese
ng = 0
nr(1) = Estratto(n,1,5)'prendo il 5° estratto dell'ultima estraz del mese di BA
'nr(1) = Fuori90(Estratto(n,1,5) + 0)'prendo il 5° estratto dell'ultima estraz del mese di BA
nr(2) = Fuori90(Estratto(n,1,5) + 1)'prendo il 5° estratto dell'ultima estraz del mese di BA e aggiungo 1
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub

BRAVO
x claudio8
continuiamo su questo esempio semplice
se vorrei inserire un terzo numero dimmi se ragiono bene
questa riga dovrebbe diventare
Dim nr(2) (3)'i nr in gioco sono 2 3 vero?
poi logicamete dovrei inserire
nr(3) = Fuori90(Estratto(n,1,5) + 63)'prendo il 5° estratto ecc..
ma mi da errore sintassi perchè?
 
quote:Originally posted by keeper

quote:Originally posted by claudio8


Codice:
Sub Main()
Dim rt(1) 'la ruota è una (1)
Dim nr(3) 'i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'estratto

pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
k = 12 ' i colpi in gioco sono 12
For n = 8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Or n=EstrazioneFin Then 'i conti li faccio sull'ultima estrazione del mese
ng = 0
nr(1) = Estratto(n,1,5)'prendo il 5° estratto dell'ultima estraz del mese di BA
'nr(1) = Fuori90(Estratto(n,1,5) + 0)'prendo il 5° estratto dell'ultima estraz del mese di BA
nr(2) = Fuori90(Estratto(n,1,5) + 1)'prendo il 5° estratto dell'ultima estraz del mese di BA e aggiungo 1

nr(3) = Fuori90(Estratto(n,1,5) + 63)'prendo il 5° estratto ecc..

ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub

BRAVO
x claudio8
continuiamo su questo esempio semplice
se vorrei inserire un terzo numero dimmi se ragiono bene
questa riga dovrebbe diventare
Dim nr(2) (3)'i nr in gioco sono 2 3 vero?
poi logicamete dovrei inserire
nr(3) = Fuori90(Estratto(n,1,5) + 63)'prendo il 5° estratto ecc..
ma mi da errore sintassi perchè?

BRAVO, a me gira perfettamente, l'unico errore che hai fatto è questo:
se vorrei inserire ---> se volessi inserire
 
Quindi se ho capito bene dichiarando la viabile dim nr 1 2 3 ecc. posso inseririre altri numeri quanto dichìarato
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto