Novità

Aiuto script

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

Roby

Guest
Un cordiale saluto a tutti i forumini, sono nuovo ma seguo un po tutti, in particolare (Luigib Grandeeeeeee) che saluto. Cerco di fare script seguendo i consigli dello stesso luigi ma trovo dificoltà a implementare una funzione come nell'esempio.

Es. Ogni quinta estrazione mensile al 5° estratto di Roma devo sommare il numero fisso 28, il risultato ottenuto ed il suo diametrale in decina, sono le ambate (applicando la regola del fuori 90) se il 5° estratto è un numeretto o un numero in cadenza 9 il numero fisso dovrebbe cambiare invece del 28 diventa 32.

Cortesemente a chi mi può aiutare il mio problema diventa quando devo dire allo script come estrapolare al risultato ottenuto il diametrale in decina e come cambiare il risultato se il 5° estratto è un numeretto o cadenza 9.

Chiedo scusa a tutti se disturbo con il mio argomento so che ognuno di voi ha il suo da fare.


cuccadores
 
ciao, cuccadores, prova ad adattare questo alle tue esigenze:
Codice:
a=Estratto(es,8,5)
If a<10 Or Cadenza(a)=9 Then b=32 Else b=28
n(1)=Fuori90(a+b)
n(2)=DiametraleD(n(1))
:)
 
Grazie per la sollecitudine alla risposta, ma purtroppo forse qualcosa non va, il mio listato e questo:

Sub main()
Dim ruote(10) ' Indica il numero massimo gestibile delle ruote
Dim n1(10) ' Indica il numero massimo di numeri gestibile
Dim poste(5) ' Indica il numero di poste gestibili,in questo caso 5
poste(1) = 1.50 'Suddivide le poste,in questo caso 1 fra parentesi significa ambata
poste(2) = 0 'Suddivide le poste,in questo caso 2 fra parentesi significa ambo
poste(3) = 0 'Suddivide le poste,in questo caso 3 fra parentesi significa terno
poste(4) = 0 'Suddivide le poste,in questo caso 4 fra parentesi significa quaterna
poste(5) = 0 'Suddivide le poste,in questo caso 5 fra parentesi significa quaterna
ruote(1) = 8 'la ruota deve essere quella di BARI
For n = 8100 To EstrazioneFin 'deve cominciare dall'estraz 8100 fino all'ultima che vede
If IndiceMensile(n) = 5 Then 'quindi quando incontra l'indice mensile 1 ovvero la 5^ estr del mese allora deve calcolare le operazioni sottostanti
a=Estratto(es,8,5)
If a<10 Or Cadenza(a)=9 Then b=32 Else b=28
n1(1) = Fuori90(a+b)
n1(2) = DiametraleD(n(1))
Gioca n
End If 'chiude il ciclo if
Next
ScriviResoconto ' scrive il tipo di output quello progettato da te
End Sub

Comunque la ringrazio in anticipo per la cortese risposta data, come si può notare non sono bravo nel risolvere lo script.

cuccadores
 
ecco il tuo listato corretto. ho aggiunto anche i colpi di gioco e la giocata mancante. ;)
Codice:
Sub main()
Dim ruote(10) ' Indica il numero massimo gestibile delle ruote
Dim n1(10) ' Indica il numero massimo di numeri gestibile
Dim poste(5) ' Indica il numero di poste gestibili,in questo caso 5
poste(1) = 1.50 'Suddivide le poste,in questo caso 1 fra parentesi significa ambata
poste(2) = 0 'Suddivide le poste,in questo caso 2 fra parentesi significa ambo
poste(3) = 0 'Suddivide le poste,in questo caso 3 fra parentesi significa terno
poste(4) = 0 'Suddivide le poste,in questo caso 4 fra parentesi significa quaterna
poste(5) = 0 'Suddivide le poste,in questo caso 5 fra parentesi significa quaterna
ruote(1) = 8 'la ruota deve essere quella di BARI
For n = 8100 To EstrazioneFin 'deve cominciare dall'estraz 8100 fino all'ultima che vede
If IndiceMensile(n) = 5 Then 'quindi quando incontra l'indice mensile 1 ovvero la 5^ estr del mese allora deve calcolare le operazioni sottostanti
k=12 'numero di colpi di gioco
a=Estratto(n,8,5)
If a<10 Or Cadenza(a)=9 Then b=32 Else b=28
n1(1) = Fuori90(a+b)
n1(2) = DiametraleD(n1(1))
ImpostaGiocata 1,n1,ruote,poste,12
Gioca n
End If 'chiude il ciclo if
Next
ScriviResoconto ' scrive il tipo di output quello progettato da te
End Sub
 
arconte

La ringrazio infinitamente, funziona alla perfezione il risultato raggiunto è quello sperato.

grazie infinite x la sua gentilezza.


cuccadores
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 agosto 2025
    Bari
    41
    55
    23
    09
    54
    Cagliari
    52
    26
    51
    34
    47
    Firenze
    23
    78
    17
    35
    86
    Genova
    82
    15
    07
    44
    70
    Milano
    19
    86
    22
    77
    73
    Napoli
    39
    48
    82
    70
    15
    Palermo
    05
    25
    88
    54
    87
    Roma
    54
    19
    24
    62
    09
    Torino
    29
    83
    49
    59
    74
    Venezia
    65
    01
    45
    72
    55
    Nazionale
    10
    60
    88
    55
    37
    Estrazione Simbolotto
    Nazionale
    20
    24
    28
    33
    01
Indietro
Alto