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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto