Novità

Script per cinquine numeri pari e dispari

SALVE...
1: non credo di aver compreso la sua richiesta
2: Rispondo io perchè non l'ha fatto nessuno che sa fare(veramente)gli script
3: non so fare gli script ma mi piace modificare,pasticciare,mischiare quelli che ho, presi in rete
4: con tutta l'umiltà possibile ho provato a fare questo:.......boh...se può essere utile

Codice: 
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
k = InputBox("Per quanti colpi? ",,13)
For n = EstrazioneFin - 100 To EstrazioneFin



numeri1(1) = Fuori90((Estratto(n,1,1) *2))
numeri1(2) = Fuori90((Estratto(n,1,2) *2))
numeri1(3) = Fuori90((Estratto(n,1,3) *2))
numeri1(4) = Fuori90((Estratto(n,1,4) *2))
numeri1(5) = Fuori90((Estratto(n,1,5) *2))

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(((Estratto(n,6,1) *2) + 11))
numeri1(2) = Fuori90(((Estratto(n,6,2) *2) + 11))
numeri1(3) = Fuori90(((Estratto(n,6,3) *2) + 11))
numeri1(4) = Fuori90(((Estratto(n,6,4) *2) + 11))
numeri1(5) = Fuori90(((Estratto(n,6,5) *2) + 11))

EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,1,2
ImpostaInterruzioni 2,1,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,2,2


Scrivi "----------------------------------------------------------------------------------------------------------"



Gioca n

Next
ScriviResoconto
End Sub
 
Marcorun ha scritto:
SALVE...
1: non credo di aver compreso la sua richiesta
2: Rispondo io perchè non l'ha fatto nessuno che sa fare(veramente)gli script
3: non so fare gli script ma mi piace modificare,pasticciare,mischiare quelli che ho, presi in rete
4: con tutta l'umiltà possibile ho provato a fare questo:.......boh...se può essere utile

Codice: 
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
k = InputBox("Per quanti colpi? ",,13)
For n = EstrazioneFin - 100 To EstrazioneFin



numeri1(1) = Fuori90((Estratto(n,1,1) *2))
numeri1(2) = Fuori90((Estratto(n,1,2) *2))
numeri1(3) = Fuori90((Estratto(n,1,3) *2))
numeri1(4) = Fuori90((Estratto(n,1,4) *2))
numeri1(5) = Fuori90((Estratto(n,1,5) *2))

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(((Estratto(n,6,1) *2) + 11))
numeri1(2) = Fuori90(((Estratto(n,6,2) *2) + 11))
numeri1(3) = Fuori90(((Estratto(n,6,3) *2) + 11))
numeri1(4) = Fuori90(((Estratto(n,6,4) *2) + 11))
numeri1(5) = Fuori90(((Estratto(n,6,5) *2) + 11))

EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,1,2
ImpostaInterruzioni 2,1,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,2,2


Scrivi "----------------------------------------------------------------------------------------------------------"



Gioca n

Next
ScriviResoconto
End Sub
Clicca per espandere...

Buongiorno, mi appare errore alla seguente riga:
k = InputBox("Per quanti colpi? ",,13)
 
Salve....l'ho riprovato,e usando spaziometria 1.6.34 a me funziona.

può provare così con 13 colpi fissi

Codice: 
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
'k = InputBox("Per quanti colpi? ",,13)
For n = EstrazioneFin - 100 To EstrazioneFin



numeri1(1) = Fuori90((Estratto(n,1,1) *2))
numeri1(2) = Fuori90((Estratto(n,1,2) *2))
numeri1(3) = Fuori90((Estratto(n,1,3) *2))
numeri1(4) = Fuori90((Estratto(n,1,4) *2))
numeri1(5) = Fuori90((Estratto(n,1,5) *2))

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,13,2

numeri1(1) = Fuori90(((Estratto(n,6,1) *2) + 11))
numeri1(2) = Fuori90(((Estratto(n,6,2) *2) + 11))
numeri1(3) = Fuori90(((Estratto(n,6,3) *2) + 11))
numeri1(4) = Fuori90(((Estratto(n,6,4) *2) + 11))
numeri1(5) = Fuori90(((Estratto(n,6,5) *2) + 11))

EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,13,2

ImpostaInterruzioni 1,1,2
ImpostaInterruzioni 2,1,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,2,2


Scrivi "----------------------------------------------------------------------------------------------------------"



Gioca n

Next
ScriviResoconto
End Sub
 
Con la modifica suggerita da I Legend

Codice: 
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
k = CInt(InputBox("Per quanti colpi? ",,13))
For n = EstrazioneFin - 100 To EstrazioneFin



numeri1(1) = Fuori90((Estratto(n,1,1) *2))
numeri1(2) = Fuori90((Estratto(n,1,2) *2))
numeri1(3) = Fuori90((Estratto(n,1,3) *2))
numeri1(4) = Fuori90((Estratto(n,1,4) *2))
numeri1(5) = Fuori90((Estratto(n,1,5) *2))

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(((Estratto(n,6,1) *2) + 11))
numeri1(2) = Fuori90(((Estratto(n,6,2) *2) + 11))
numeri1(3) = Fuori90(((Estratto(n,6,3) *2) + 11))
numeri1(4) = Fuori90(((Estratto(n,6,4) *2) + 11))
numeri1(5) = Fuori90(((Estratto(n,6,5) *2) + 11))

EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,1,2
ImpostaInterruzioni 2,1,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,2,2


Scrivi "----------------------------------------------------------------------------------------------------------"



Gioca n

Next
ScriviResoconto
End Sub
 
Ciao,
Penso che devi disattivare o cancellare questa prima riga, in quanto le variabili non sono tutte definite

Option Explicit
 
Che strano non capisco perchè non ti funziona, ci sarà qualche errore nel tuo archivio, se non fai modifiche allo script
 
Buona serata a tutte/i.

Nel box ove si descrive l'errore al messaggio #9

c'è scritto chiaramente: "variabile non definita k" linea 12 ecc...

Più probabilmente è attivo "Option Explicit" all'inizio dello script

e poi manca il dimensionamento di "k" come quello di possibili ... altre variabili .

Oppure lo script non è stato copiato per intero e mancano alcune linee del suo inizio.

Tra queste mancherebbe appunto "Dim K"

Si vede però tra i colori che anche n è in colore nero dunque si ricade nella prima delle 2 ipotesi.

Si devono aggiungere:

Dim k
Dim n

e se poi nell' eseguire lo script ci saranno altri errori si deve,

aggiungere la dimensione anche per le altre variabili.

Poi dovrebbe funzionare.

Si deve controllare che ci siano SEMPRE

Sub Main ()

all'inizio dello script e

End Sub

alla fine

:)
 
Ultima modifica:
DAI.....questi che x noi sono dilemmi,almeno faranno sorridere tanti esperti che sono qui e che studiano cose di ben altro livello ,ben superiore :giggle:
Premesso che a me funziona(anche se non farà arricchire nessuno :cry: ),provo ad inserire le cose consigliate da JOE(che se ne intende x davvero x quel che ne so:cool:)
Codice: 
Option Explicit
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim k
Dim n
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota? ",,1)
k = CInt(InputBox("Per quanti colpi? ",,13))
For n = EstrazioneFin - 100 To EstrazioneFin



numeri1(1) = Fuori90((Estratto(n,1,1) *2))
numeri1(2) = Fuori90((Estratto(n,1,2) *2))
numeri1(3) = Fuori90((Estratto(n,1,3) *2))
numeri1(4) = Fuori90((Estratto(n,1,4) *2))
numeri1(5) = Fuori90((Estratto(n,1,5) *2))

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(((Estratto(n,6,1) *2) + 11))
numeri1(2) = Fuori90(((Estratto(n,6,2) *2) + 11))
numeri1(3) = Fuori90(((Estratto(n,6,3) *2) + 11))
numeri1(4) = Fuori90(((Estratto(n,6,4) *2) + 11))
numeri1(5) = Fuori90(((Estratto(n,6,5) *2) + 11))

EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,1,2
ImpostaInterruzioni 2,1,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,2,2


Scrivi "----------------------------------------------------------------------------------------------------------"



Gioca n

Next
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 aprile 2026
    Bari
    80
    54
    31
    75
    71
    Cagliari
    38
    23
    54
    50
    89
    Firenze
    57
    73
    82
    35
    45
    Genova
    58
    70
    12
    65
    85
    Milano
    82
    20
    35
    14
    08
    Napoli
    48
    65
    79
    52
    16
    Palermo
    05
    60
    56
    01
    25
    Roma
    65
    12
    73
    03
    49
    Torino
    39
    43
    44
    36
    67
    Venezia
    71
    76
    49
    06
    56
    Nazionale
    85
    42
    37
    41
    07
    Estrazione Simbolotto
    Genova
    07
    37
    43
    24
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto