script buono aiuto per piccola modifica

[Roby]

Mi è capitato fra le mani, da un amico, che cambiando computers, ha prima scaricato tutto sul mio pc!!! (Ho solo guardato alla cartella giochi!)
Sembra buono ma ripete troppe volte i risultati, il proprietario non ne è capace, io neanche, chiedo a voi se riuscite a fare quache cosa. Grazie

Sub main()
Dim n1,n2,n3,n4,n5,n6,n7,n8
Dim ruote(2)
Dim ruota(1)
Dim posta(1)
Dim poste(2)
Dim poste1(3)
Dim poste2(4)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
posta(1)=1
poste(2)=1
poste1(3)=1
poste2(4)=1

fin=EstrazioneFin
ini=fin-10
For es=ini To fin
AvanzamentoElab ini,fin,es


For r = 1 To 1 '<---- 1=ruota di Bari, Tutte sostituire 1 con 11

For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)

ex=es-1
For p1=1 To 4
For q1=p1+1 To 5
c=Estratto (ex,r,p1)
d=Estratto (ex,r,q1)

For g= 15 To 15

Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " " & Format2(a)
Scrivi DataEstrazione(ex)&" "& Left(NomeRuota(r),2) & " "& Format2 (b)
Scrivi Left(NomeRuota(r),2) & " ciao da clopper "& Format2 (g)
Scrivi

n1=Fuori90 ((a+ 45)+g)
n2=Fuori90 ((a+ 45)-g)
n3=Fuori90 ((b+ 45)+g)
n4=Fuori90 ((b+ 45)-g)
n5=Fuori90 ((c+ 45)+g)
n6=Fuori90 ((c+ 45)-g)
n7=Fuori90 ((d+ 45)+g)
n8=Fuori90 ((d+ 45)-g)


ambo1(1)=n1:ambo1(2)=n2
ambo2(1)=n3:ambo2(2)=n4
ambo3(1)=n5:ambo3(2)=n6
ambo4(1)=n7:ambo4(2)=n8



ImpostaGiocata 1,ambo1,ruote,poste,9,2
ImpostaGiocata 2,ambo2,ruote,poste,9,2
ImpostaGiocata 3,ambo3,ruote,poste,9,2
ImpostaGiocata 4,ambo4,ruote,poste,9,2

ruote(1)=r
Gioca es,True

Next
Next
Next
Next
Next
Next
Next

ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
ScriviResoconto
End Sub


Abib

 

[cipisto]

Permettimi di dirlo, ma chi ha fatto questo script era sotto l'effetto di qualche forte, ma molto forte sostanza. Comunque te l'ho riscritto in modo decente, poi magari mi dici cosa vuoi essere modificato. Praticamente tira fuori ad ogni estrazione 100 (alcuni ripetuti) ambi..... mah!

Sub main()
Dim Ambo(2)
Dim poste(5)
Dim ruote(12)
Dim es
Dim ex
Dim nEstratti(4)
Dim nGiocata
Dim nPosizioneES
Dim nPosizioneESS
Dim nPosizioneEX
Dim nPosizioneEXX

poste(2) = 1
ruote(1) = 1

For es = (EstrazioniArchivio - 10) To EstrazioniArchivio
AvanzamentoElab (EstrazioniArchivio - 10), EstrazioniArchivio, es
nGiocata = 1

For nPosizioneES = 1 To 4
For nPosizioneESS = (nPosizioneES + 1) To 5
nEstratti(1) = Estratto(es, BA_, nPosizioneES)
nEstratti(2) = Estratto(es, BA_, nPosizioneESS)

ex = es - 1
For nPosizioneEX = 1 To 4
For nPosizioneEXX = (nPosizioneEX + 1) To 5
nEstratti(3) = Estratto(ex, BA_, nPosizioneEX)
nEstratti(4) = Estratto(ex, BA_, nPosizioneEXX)


Ambo(1) = Fuori90((((nEstratti(1)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(1)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, ruote, poste, 9, 2
nGiocata = nGiocata + 1

Ambo(1) = Fuori90((((nEstratti(2)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(2)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, ruote, poste, 9, 2
nGiocata = nGiocata + 1

Ambo(1) = Fuori90((((nEstratti(3)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(3)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, ruote, poste, 9, 2
nGiocata = nGiocata + 1

Ambo(1) = Fuori90((((nEstratti(4)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(4)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, ruote, poste, 9, 2
nGiocata = nGiocata + 1
Next
Next
Next
Next

Gioca es, False, False
Next
ScriviResoconto
End Sub



P.S. odio quando non vengono dichiarate le variabili, è un casino capire cosa fanno!!!!!!!

------------
Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
------------

 

[cipisto]

Ragionandoci a freddo credo che secondo la logica dell'autore debbano venir fuori solo 10 ambi, ma a causa delle combinazioni ne vengono fuori 100. Ho apportate delle modifiche, senza andare troppo per il sottile, potrebbe venire meglio ma credo che già così vada bene:

Sub main()
Dim Ambo(2)
Dim Poste(5)
Dim Ruote(10)
Dim es
Dim ex
Dim nEstratti(4)
Dim nGiocata
Dim nPosizioneES
Dim nPosizioneEX
Dim k

Poste(2) = 1
Ruote(1) = 1

For es = (EstrazioniArchivio - 10) To EstrazioniArchivio
AvanzamentoElab (EstrazioniArchivio - 10), EstrazioniArchivio, es
nGiocata = 1

k = 0
For nPosizioneES = 1 To 4
If nPosizioneES <> k Then
nEstratti(1) = Estratto(es, BA_, nPosizioneES)
Ambo(1) = Fuori90((((nEstratti(1)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(1)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, Ruote, Poste, 9, 2
nGiocata = nGiocata + 1
End If
If k <> (nPosizioneES + 1) Then
nEstratti(2) = Estratto(es, BA_, (nPosizioneES + 1))
Ambo(1) = Fuori90((((nEstratti(2)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(2)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, Ruote, Poste, 9, 2
nGiocata = nGiocata + 1
k = nPosizioneES + 1
End If
Next

ex = es - 1
k = 0
For nPosizioneEX = 1 To 4
If nPosizioneEX <> k Then
nEstratti(3) = Estratto(ex, BA_, nPosizioneEX)
Ambo(1) = Fuori90((((nEstratti(3)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(3)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, Ruote, Poste, 9, 2
nGiocata = nGiocata + 1
End If
If k <> (nPosizioneEX + 1) Then
nEstratti(4) = Estratto(ex, BA_, (nPosizioneEX + 1))
Ambo(1) = Fuori90((((nEstratti(4)) + 45) + 15))
Ambo(2) = Fuori90((((nEstratti(4)) + 45) - 15))
ImpostaGiocata nGiocata, Ambo, Ruote, Poste, 9, 2
nGiocata = nGiocata + 1
k = nPosizioneEX + 1
End If
Next

Gioca es, False, False
Next
ScriviResoconto
End Sub


------------
Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
------------

 

[Abib]

Grazie Cipisto, per il tuo interessamento, ho dovuto limitare a 10 la dimensione del vettore delle ruote, e poi sembra che tutto funzioni a meraviglia, ora mi studio questa tua meraviglia e provo a chiedere dove voleva arrivare l'artefice.....anche se a parer mio, conoscendolo, non ne ha la più pallida idea o non si ricorda.
Grazie ancora
Ovviamente si accettano tutte le possibili varianti.
Ciao

Abib

 

[rudivall]

Ciao Cipisto l'ho detto che sei un grande, ho letto su altro post il malfuzionamento del listato anche io l'ho risolto cambiando il vettore delle ruote da 12 a 10

rodolfo

 

[cipisto]

quote:Originally posted by rudivall
Ciao Cipisto l'ho detto che sei un grande, ho letto su altro post il malfuzionamento del listato anche io l'ho risolto cambiando il vettore delle ruote da 12 a 10
rodolfo

Ciao Rodolfo, grazie ancora. Ascolta nel caso ti riferissi al listato del centro di massa, portando il vettore delle ruote da 10 a 12 escludi la nazionale, anzi potrebbe anche andare in errore lo script. Il problema dell'errore col vettore delle ruote a 12 mi pare lo abbiano risolto con uno degli ultimi aggiornamenti del programma. Potresti dirmi la versione esatta del programma che hai? Dovrebbe essere tipo 6.qualcosa la puoi vedere entrando nel programma, cliccando ne menu in alto su help e poi informazioni sul programma.
Attenzione che nel caso stessimo parlando della versione 5 non posso fare nulla, tale versione non gestisce a nessun livello (nemmeno Script) la ruota Nazionale.
Ciao

------------
Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
------------

 

[rudivall]

Grazie Cipisto per l'interessamento la versione che uso è L8+ versione 6.0.8

rodolfo

 

[cipisto]

quote:Originally posted by rudivall

Grazie Cipisto per l'interessamento la versione che uso è L8+ versione 6.0.8
rodolfo

l'ultima versione è la 6.1.11 ti converrebbe aggiornare, previo backup dei tuoi metodi e tabelle personalizzate (nel caso ne avessi).
Ciao

------------
Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
------------

 

[Rosanna]

Innanzitutto saluto a tutto il forum.

Per Cipisto,
non ho compreso questo:

portando il vettore delle ruote da 10 a 12 escludi la nazionale, anzi potrebbe anche andare in errore lo script. Il problema dell'errore col vettore delle ruote a 12 mi pare lo abbiano risolto con uno degli ultimi aggiornamenti del programma.

potresti spiegarmi meglio a quale problema ti riferisci?
Grazie. Ciao
Rosanna

 

[cipisto]

quote:Originally posted by Rosanna

Innanzitutto saluto a tutto il forum.
Per Cipisto,
non ho compreso questo:
portando il vettore delle ruote da 10 a 12 escludi la nazionale, anzi potrebbe anche andare in errore lo script. Il problema dell'errore col vettore delle ruote a 12 mi pare lo abbiano risolto con uno degli ultimi aggiornamenti del programma.
potresti spiegarmi meglio a quale problema ti riferisci?
Grazie. Ciao
Rosanna

grazie per avermelo chiesto, mi hai dato la possibilità di capire meglio quello che ho scritto. in effetti, nella fattispecie (il listato del centro di massa) basterebbe usare anche un vettore di dimensioni 1 tanto di volta in volta gli viene passato il valore della ruota... perdonate il lapis (Totò docet). per quanto riguarda la seconda parte di quello che ho detto, nelle prime release della 6.0.x mi pare ci fossero problemi nello script (tipo non veniva accettata) con la nazionale che poi sono stati risolti con una release di aggiornamento; (potrei anche sbagliarmi) dovrei fare una ricerca sul forum per risponderti con maggiore precisione.
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[Rosanna]

Grazie. Ciao