Correzione Script

[maurizio.bardelle]

Buonanotte ,
qualche anima buona mi puo perfezionare questo script.
Ricava due terzine a tutte per ambo in 3 colpi.
GRAZIE.

Sub Main()

Dim n(4),nn(4)
Dim ruota(1),ruote(1),ru(1)
Dim posta(1),poste(3)

posta(1) = 1 : poste(2) = 1 : poste(3) = 1

ruota(1) = 11

k = 3 ' colpi
For es = EstrazioneFin - 114 To EstrazioneFin
If IndiceMensile(es) = 12 Then
Scrivi "--------------------------------------------------------"
ColoreTesto 2 :Scrivi "Metodo MAGIA ' 2 Terzine a Tutte '",1 :ColoreTesto 0

ColoreTesto 0 :Scrivi "Calcolo 1a Terzina = 2°Bari + fissi 39-47-74",1 :ColoreTesto 0
ColoreTesto 0 :Scrivi "Calcolo 2a Terzina = 1° Roma + fissi 6-41-65 ",1 :ColoreTesto 0


Scrivi "---------------------------------------------------------"
n(1) = Fuori90(Estratto(es,1,2) + 39)'1a Terzina
n(2) = Fuori90(Estratto(es,1,2) + 47)
n(3) = Fuori90(Estratto(es,1,2) + 74)

ImpostaGiocata 1,n,ruota,poste,k

nn(1) = Fuori90(Estratto(es,8,1) + 6) '2a Terzina
nn(2) = Fuori90(Estratto(es,8,1) + 41)
nn(3) = Fuori90(Estratto(es,8,1) + 65)

ImpostaGiocata 2,nn,ruota,poste,k





Gioca es
End If
Next
ScriviResoconto

End Sub

 

[Baffoblu]

Sub Main()
    ' sono state necessarie diverse modifiche
    Dim n(3)' qui prima c'era 4, ma se sono terzine, a che prò mettere 4 ?
    Dim nn(3)' idem come sopra, ho inserito 3
    'Dim ruota(1)'in questo script non serve in quanto inutilizzato
    Dim ruote(1)
    'Dim ru(1)' in questo script non serve in quanto inutilizzato
    'Dim posta(1)'in questo script non serve in quanto inutilizzato
    Dim poste(3)
    'posta(1) = 1'in questo script non serve in quanto inutilizzato
    poste(2) = 1
    poste(3) = 1
    ruote(1) = 11
    k = 3 ' colpi
    For es = EstrazioneFin - 500 To EstrazioneFin
        Messaggio es
        If IndiceMensile(es) = 12 Then
            Scrivi "--------------------------------------------------------"
            ColoreTesto 2
            Scrivi "Metodo MAGIA ' 2 Terzine a Tutte '",1
            ColoreTesto 0
            ColoreTesto 0
            Scrivi "Calcolo 1a Terzina = 2°Bari + fissi 39-47-74",1
            ColoreTesto 0
            ColoreTesto 0
            Scrivi "Calcolo 2a Terzina = 1° Roma + fissi 6-41-65 ",1
            ColoreTesto 0
            Scrivi "---------------------------------------------------------"
            ' Nel 2011 fino adesso si è comportato bene, ma se si va indietro nel tempo, NO.....
            n(1) = Fuori90(Estratto(es,1,2) + 39)'1a Terzina
            n(2) = Fuori90(Estratto(es,1,2) + 47)
            n(3) = Fuori90(Estratto(es,1,2) + 74)
            ImpostaGiocata 1,n,ruote,poste,k,2,,2
            nn(1) = Fuori90(Estratto(es,8,1) + 6) '2a Terzina
            nn(2) = Fuori90(Estratto(es,8,1) + 41)
            nn(3) = Fuori90(Estratto(es,8,1) + 65)
            ImpostaGiocata 2,nn,ruote,poste,k,2,,1
            Gioca es,1
        End If
    Next
    ScriviResoconto
End Sub

 

[maurizio.bardelle]

La ringrazio molto,
stavo modificando uno script , e le sue osservazioni mi serviranno pe il futuro. grazie Baffoblu, che dicono uno tra i migliori.

 

[Baffoblu]

La ringrazio molto,
stavo modificando uno script , e le sue osservazioni mi serviranno pe il futuro. grazie Baffoblu, che dicono uno tra i migliori.

Prego,

Sono solo l'ultimo che
ha imparato a scriptare,
In fase di continuo
apprendimento.....

 

[paomultipla]

BAFFOBLU non è il migliore tra gli scripter, E' IL MIGLIORE a creare sistemi da scriptare, per gli script e programmi il TOP è LUIGIB, se l'area download è frequentatissima è merito LORO,chissà penso siano romani tutti e due, dovrebbero mettersi in società, allora la Lottomatica dovrebbe cominciare ad avere paura.
Paolo

 

[Baffoblu]

BAFFOBLU non è il migliore tra gli scripter, E' IL MIGLIORE a creare sistemi da scriptare, per gli script e programmi il TOP è LUIGIB, se l'area download è frequentatissima è merito LORO,chissà penso siano romani tutti e due, dovrebbero mettersi in società, allora la Lottomatica dovrebbe cominciare ad avere paura.
Paolo

hehehehehe