RICHIESTA CORREZIONE SCRIPT

[Roby]

HO TROVATO UNO SCRIPT IN GIRO PER LA RETE E' VOLEVO FARLO GIRARE SU SPAZIOMETRIA 1.1.33 MA MI DA ERRORE SULLA LINE 27 MI DICE ARGOMENTO NON VALIDO MID, ORA MOLTO GENTILMENTE CHIEDO SE C'E' QUALCHE ANIMA BUONA CHE SIA IN GRADO DI ADATTARLO VI RINGRAZIO ANTICIPAMENTE

'Ruote in Ordine di Velocità
'nel fornire 3 volte estratto il capolista del ritardo.
'Su idea di Genal scritto da Joe91 V.4.0

Sub main()
Dim Nu(12), Eo(12)
Fin = EstrazioneFin : Ini = Fin - 120

For r=1 To 11 : If r=11 Then r=12
K=0 : M=0 : ColoreTesto 0
'Scrivi SiglaRuota (R) & " ",1,0
For Es = Ini To Fin

Nu(R) = NumeroPosRit (Es,R,1)

If Nu (r) <> M Then
k=k+1
Redim preserve Pr(K)
Pr(k) = Es
M=Nu (R)

End If

Next

A=StringaNumeri (Pr)
DT = Mid(A,Len(A)-18,4)
'ColoreTesto 1 : Scrivi Format2 (Nu(R)) & " ",1,0
'ColoreTesto 2 : Scrivi DataEstrazione (DT) & " ",0
eo(R)=DataEstrazione(dt)


Next

For Es = Fin To Ini step -1
For r=1 To 11 : If r=11 Then r=12
ColoreTesto 0
If eo(r)= DataEstrazione (Es) Then
Scrivi SiglaRuota(R) & " ",1,0
ColoreTesto 1 : Scrivi Format2 (Nu(R)) & " ",1,0
ColoreTesto 2 : Scrivi DataEstrazione (Es)
End If
Next
Next

End Sub

 

[esselotto]

l'errore è scaturito perche A e vuoto cioè 0

il perche A e vuoto
perchè A=StringaNumeri (pr) non restituisce nessuna stringa quindi StringaNumeri e vuoto=0
Anche se pr() contiene al suo interno numeri StringaNumeri restituisce 0

ci ho provato anch'io con la versione .79
da lo stesso errore mentre con l8 non dà quell'errore

vai sul topic Spaziometria e chiedi a luigiB (il programmatore di spaziometria)
perchè StringaNumeri (pr) non restituisce nessuna stringa.

Forse esiste un'altro modo di chiamata alla subroutine

Vedi il programma Spaziometria è in fase di miglioramento quindi vuol dire
che ci sono ancora correzioni da fare o (chiamate verso un codice inesistente)
Comunque lui ti darà certamente la risposta giusta.


prova tu stesso con questo codice


Sub Main
Dim n(2)
n(1)=123
n(2)=456
a= StringaNumeri
Scrivi a,1
End Sub



esselotto

 

[ACQUARIO]

GRAZIE ESSELOTTO MOLTO GENTILE