Aiuto script

[Roby]

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

 

[arconte]

ciao, cuccadores, prova ad adattare questo alle tue esigenze:

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))

 

[cuccadores]

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 = 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

 

[arconte]

ecco il tuo listato corretto. ho aggiunto anche i colpi di gioco e la giocata mancante.

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

 

[cuccadores]

arconte

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

grazie infinite x la sua gentilezza.


cuccadores