PER Thauk help mi..2

[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

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

Se ci fosse Luigi ti bacchetterebbe come faceva con me

 

[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!!!

 

[claudio8]

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

 

[keeper]

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

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

Se ci fosse Luigi ti bacchetterebbe come faceva con me

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

 

[claudio8]

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

 

[elephantbig]

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

 

[claudio8]

Ciao Ele un abbraccio da Claudio ed auguroni nonnone per il nuovo elephant-little

Ps il 56 è caduto a Napoli
Notte

 

[fillotto]

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

 

[elephantbig]

quote:Originally posted by claudio8

Ciao Ele un abbraccio da Claudio ed auguroni nonnone per il nuovo elephant-little

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.

ma in compenso ho recuperato le spese con questa

Alla prossima

 

[keeper]

quote:Originally posted by claudio8

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è?

 

[claudio8]

quote:Originally posted by keeper

quote:Originally posted by claudio8

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

 

[keeper]

Quindi se ho capito bene dichiarando la viabile dim nr 1 2 3 ecc. posso inseririre altri numeri quanto dichìarato