Novità

script

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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
 
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
 
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
 
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!!!
 
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!!!
 
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
 
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
 
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
 
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
 
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
 
Stato
Chiusa ad ulteriori risposte.

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