script

[Roby]

Buongiorno
Qualcuno mi puo spiegare x favore come si può sommare il primo estratto di napoli con il secondo di genova e il terzo di genova fare il fuori novanta e vedere se nelle 4 estrazioni successive mi ha dato l'ambata su na/ge ?
tutto con script

grazie di cuore


giulianolops

 

[maxma62]

ciao (non sono un esperto di listati) prova cosi':

Sub main()
Dim ruote(10)
Dim numeri1(10) 'giocata 1
Dim poste(10)
poste(1)=1
ruote(1)=4 'ruota di gioco ge
ruote(2)=6 'ruota di gioco na
fin=EstrazioneFin
ini=fin-110
For es = ini To fin
AvanzamentoElab ini,fin,es
scrivi
scrivi"**********************************************************************"
numeri1(1)=Fuori90(Estratto(es,6,1)+Estratto(es,4,2)+Estratto(es,4,3)) ' qui sommi gli estratti
ImpostaGiocata 1,numeri1,ruote,poste,10
Gioca es
Next
ScriviResoconto
End Sub

 

[giulianolops]

ciao grazie
ma ho questo errore

Istruzione Impostagiocata: indicata ruota non valida nel vettore delle ruote.

come mai?

giulianolops

 

[maxma62]

Mah non so. Ho provato copiarlo e incollarlo il listato del post e non vedo problemi. Forse e' un una questione di versione di. Io ho la versione 6.0.8.
Max

 

[imported_n/a]

Sub main()
Dim ruote(10)
Dim numeri1(10) 'giocata 1
Dim poste(5)
poste(1)=1
tmp=InputBox("Quante estrazioni controllo?",,75)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
Scrivi DataEstrazione(es),True
ruote(1)=4 'ruota di gioco ge
ruote(2)=6 'ruota di gioc
numeri1(1)=Fuori90(Estratto(es,6,1)+Estratto(es,4,2)+Estratto(es,4,3)) ' qui sommi gli estratti
ImpostaGiocata 1,numeri1,ruote,poste,10
Gioca es
scrivi"**********************************************************************"
Next
ScriviResoconto
End Sub


Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[giulianolops]

stesso errore!! la versione è la 6.0.0!!
non capisco come mai!!

giulianolops

 

[imported_n/a]

Con quello di Max ho problemi anch'io con la versione 5.2.39, mentre funziona sulla vers. 6.1.17
Quello che ho postato a me gira sia sulla 5 che sulla 6, probabile che hai qualche problema sul tuo programma.
Ciao

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[maxma62]

Tante volte i problemi di errore di listato con varie versioni di L8+ si risolvono disinstallando / riavviare il sistema / (controllando che non sia la cartella precedente di ) e reinstallare di nuovo .
Gia' fatto anch' io. Non so se questo è il tuo problema. Se vuoi provare.....
Ciao, max

 

[giulianolops]

non capisco con altri metodi trovati su internet funziona
quello che voglio e un metodo che facci la somma in tutte le estrazioni del primo di napoli napoli con il secondo di genova e il terzo di genova!!
booo
se avete metodi con la somma di estratti!! voglio capire se funziona!!
ciao

giulianolops

 

[giulianolops]

ok Ho risolto non erano dichiarate le variabili ruote!!!
ora se voglio giocare il risultato di questa procedura su due ruote come faccio?

numeri1(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1)+Estratto(es,6,2)) ' qui sommi gli estratti
numeri1(2)=Fuori90(Estratto(es,5,2)+Estratto(es,6,2)+Estratto(es,6,5)) ' qui sommi gli estratti
ImpostaGiocata 1,numeri1,ruote1,poste,4,2

ma voglio giocare gli stessi numeri sulla ruote2! come si fa?

grazie

giulianolops

 

[giulianolops]

inserisco il listato:
Sub main()
Dim ruote(10)
Dim ruote1(1)
Dim ruote2(1)
Dim numeri1(10) 'giocata 1
Dim poste(10)
poste(1)=1
ruote1(1)=1 'ruota di gioco pa
ruote2(1)=2 'ruota di gioco ro
fin=EstrazioneFin
ini=fin-110
For es = ini To fin
AvanzamentoElab ini,fin,es
Scrivi
scrivi"**********************************************************************"
numeri1(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1)+Estratto(es,6,2)) ' qui sommi gli estratti
numeri1(2)=Fuori90(Estratto(es,5,2)+Estratto(es,6,2)+Estratto(es,6,5)) ' qui sommi gli estratti
ImpostaGiocata 1,numeri1,ruote1,poste,4,1
'come posso mettere in gioco la stessa giocata sulla ruota2 come dico che il gioco finisce quando esce una ambata su una delle due ruote?
grazie per la disponibilità
Gioca es
Next
ScriviResoconto

End Sub

giulianolops

 

[maxma62]

Intendi cosi'?


Sub main()
Dim ruote(10)
Dim ruote1(3)'piu' ruote aggiungi piu' questo num. deve aumentare
Dim ruote2(3)'piu' ruote aggiungi piu' questo num. deve aumentare
Dim numeri1(10) 'giocata 1
Dim numeri2(10) 'giocata 2
Dim poste(10)
poste(1)=1
ruote1(1)=1 'ruota di gioco ba su 1a giocata
'ruote1(2)=2 'ruota di gioco ca su 1a giocata
'ruote1(3)=3 'ruota di gioco fi su 1a giocata
ruote2(1)=2 'ruota di gioco ca su 2a giocata
'ruote2(2)=3 'ruota di gioco ro su 2a giocata
'ruote2(3)=5 'ruota di gioco mi su 2a giocata
fin=EstrazioneFin
ini=fin-110
For es = ini To fin
AvanzamentoElab ini,fin,es
Scrivi
scrivi"**********************************************************************"
numeri1(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1)+Estratto(es,6,2)) '1a giocata
ImpostaGiocata 1,numeri1,ruote1,poste,4,1 '1a giocata
numeri2(1)=Fuori90(Estratto(es,5,2)+Estratto(es,6,2)+Estratto(es,6,5)) '2a giocata
ImpostaGiocata 2,numeri2,ruote2,poste,4,1 '2a giocata

'il num. 4 e' per i colpi di gioco / il num. 1
'ferma la giocata alla prima vincita naturalmente puoi modificarli

Gioca es
Next
ScriviResoconto
End Sub


ciao, max

 

[giulianolops]

ok
grazie maxma62 ora sono a lavoro lo provo domani!!

ciao

giulianolops