per Black more

[pigreko73..]

..rivolgo questo quessito a Black..o ki kome lui sa elaborare gli script..se a questo script qui sotto

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 7000' qui diminuisci se vuoi analizzare ancora piu indietro
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,1)
n(1) = Fuori90(a + 45)
ImpostaGiocata 1,n,ruote,posta,15,1
Gioca es
End If
Next
Scrivi
ScriviResoconto
End Sub


..io volessi aggiungere altri numeri sullo stesso estratto kome dovrei modifikare.. ti faccio un esempio..
..nel listato messo lo script mi permette di addizionare al primo estratto di BARI il numero 45.. se io oltre al 45 volessi addizionare altri due numeri esempio il primo di BARI +45 +26 +75 ke komando dovrei aggiungere allo script??

..grazie a ki vorrà rispondermi..!!!

[Aldo.G]

Ciao,vedi se ho capito bene!

 Sub Main()
    Dim ruote(1)
    Dim posta(1)
    Dim n(3)
    ruote(1) = 1
    posta(1) = 1
    ini = EstrazioneFin - 100 
    fin = EstrazioneFin
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            a = Estratto(es,1,1)
            n(1) = Fuori90(a + 45)
            n(2) = Fuori90(a + 26)
            n(3) = Fuori90(a + 75)
            ImpostaGiocata 1,n,ruote,posta,15,1
            Gioca es
        End If
    Next
    Scrivi
    ScriviResoconto
End Sub

[pigreko73..]

Grazie..funziona esattamente kome volevo..!!!

[edesimone]

un saluto pigreko73 e aldo.g

puoi unire n(1) = Fuori90(a + 45 + 26 + 75)

un saluto
edesimone

[pigreko73..]

​..un altra informazione..questo script si ferma al primo risultato positivo..se invece io volessi decidere i kolpi..qualè la stringa da aggiungere??

[antelao]

​..un altra informazione..questo script si ferma al primo risultato positivo..se invece io volessi decidere i kolpi..qualè la stringa da aggiungere??

ImpostaGiocata 1,n,ruote,posta,15,1

Ciao PI,
Inquesta riga,partendo da destra vedi 15,1
dove il 15 sta per il numero di colpi e l'1
la ricerca si ferma al risultato utile per ambata
se metti 15,2 si ferma al risultato utile di ambo
e via dicendo.
Quindi se togli la virgola e l'uno,il listato gira
per tutti i 15 colpi.
il panterone

[pigreko73..]

​Grazieeeeee..!!! ora è ok.. (mi skuso un pò kon tutti..ma sto cerkando di imparare un poketto per volta..

[Blackmore]

..rivolgo questo quessito a Black..o ki kome lui sa elaborare gli script..

Ciao Pigreko, gli amici " MATTINIERI" ti hanno risposto benissimo, questo era abbastanza facile, ma io però gli script non li so fare, so solo modificare i più semplici
Sto cercando di imparare, ma il tempo è tiranno
Ciaooooooo