PER MIKE58

[rob]

CIAO MIKE,GRAZIE MILLE PER LA MODIFICA DEL LISTATO,PERO' MI DA QUESTO ERRORE!!-TI DISPIACEREBBE RICONTROLLARLO??-GRAZIE ROB

 

[imported_n/a]

Mi spiace Rob lo script gira su spaziometria perfettamente
Non saprei quale sarebbe l'errore in lottoscript.

Mike58
ma dove è finita la miscrrenshot - ------------------> IMMAGINE

<script src='http://img585.imageshack.us/shareable/?i=immagine1111.jpg&p=tl' type='text/javascript'></script><noscript>[URL=http://imageshack.us/photo/my-images/585/immagine1111.jpg/][IMG]http://img585.imageshack.us/img585/7366/immagine1111.jpg[/IMG][/URL]</noscript>

 

[rob]

CIAO MIKE,NON CAPISCO:A ME NON FUNZIONA NE' CON L8+ VER. 6.1E NE' CON SPAZIOMETRIA VER.1.1.22

MI DA LO STESSO ERRORE:rit = LINEA 32 COLONNA 0 EstrattoRitardo(r,n,Ini,fin)</u>

SCUSA=CHE COSA E' ----->miscrrenshot

 

[imported_n/a]

Rob c'è una immagine allegata mia screenshot (molto spostata) se cosi si dice
forse devi aggiornare spaziometria io uso l'ultima versione 1.2.90.
Anche se spaziometria 1.1.22 dovrebbe leggerla.
prova a ri-incollare lo script in quanto l'ho modificata una volta con l'inserimento del ritardo spia, magari ho toccato qualche cosa.

Mike58

 

[imported_n/a]

Rob è come temevo nel cancellare e modificare lo script è rimasto qualche cosa di anomalo lo script ora dovrebbe funzionare.

Mi spiace ma in quel mentre ho avuto problemi di connessione.

lo script è ri-corretto nell'altra sezione ma te lo ri-allego anche qui. prova...


'"Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,3)
Dim uscito(90,2)
r = InputBox("Su quale ruota?",,12)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = EstrazioneFin - 200
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)

num(n,3) = rit

uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,1
ColoreTesto 0
Scrivi
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "

For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
Next

Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 0
Next
End Sub