PER UNO SCRIPTER VOLENTEROSO

[Joe91]

QUI GLI SCRIPT RELATIVI AL LIMITE DI ROTTURA 315

If n(1) & lt; & gt; numeri(r,1) Or m(1) & lt; & gt; numeri(r,2)Or o(1) & lt; & gt; numeri(r,3) Then
mi dice che è previsto Then

forse bisogna cambiare lt -gt
grazie

Ciao ...

si devi sostituire tutti quegli operatori logici ... non convertiti correttamente,

forse perchè mal scritti nel file originale ... o forse perchè esso non è stato incluso tra i Tag specifici.

Per la correzione:

L significa Less o Minore ...

G significa Great o Maggiore ...

T significa Than o di ...

Sostituendo secondo queste indicazioni lo script "dovrebbe" essere riportato allo stato originale ...

però si deve prestare attenzione a non dimenticare o trascurare nulla.

Dando "logicità" ... secondo la descrizione del metodo.

Questo debug lo lascio alla vostra opera e rendicontazione.



Esempio di ripristino sul file presente al messaggio #9

Sub Main()
'' > Sostituito con: >
'' < Sostituito con: < 
  
 'ottimo X RITARDATARI'
 Dim n(1)
 Dim m(1)
 Dim o(1)
 Dim numeri(14,3)
 Dim am(3)
 Dim posta(1)
 Dim ruote(1)
 posta(1) = 1
 r = ScegliRuota
 ruote(1) = r
 
 ini = 7441 ' data 4-5-2005
 fin = EstrazioneFin
 co=0
 For es = ini To fin
 Messaggio (es)
 'For r = 2 To 3
 

 n(1) = NumeroPosRit(es,r,1)
 m(1) = NumeroPosRit(es,r,2)
 o(1) = NumeroPosRit(es,r,3)
 If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
 rt1 = SerieRitardo(Ini,es,n,ruote,1)
 rt2 = SerieRitardo(Ini,es,m,ruote,1)
 rt3 = SerieRitardo(Ini,es,o,ruote,1)
 st1 = SerieStorico(Ini,es,n,ruote,1)
 st2 = SerieStorico(Ini,es,m,ruote,1)
 st3 = SerieStorico(Ini,es,o,ruote,1)
 somritardo = rt1 + rt2 + rt3
 mediart =(rt1 + rt2 + rt3)/3
 mediast =(st1 + st2)
 dif = somritardo
 If dif > 315 Then
 casi=casi+1
 Scrivi String(60,"=")&" Caso n° "&casi,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(n(1)) & " - - > > con ritardo di " & rt1,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(m(1)) & " - - > > con ritardo di " & rt2,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(o(1)) & " - - > > con ritardo di " & rt3,1
 ColoreTesto 1
 Scrivi
 Scrivi somritardo & " somma totale dei 3 ritardi per ruota ",1
 Scrivi mediart & " < - - - - - - media ritardo attuale ",1
 Scrivi mediast & " < - - - - - - media ritardo storico ",1
 Scrivi st1 & " < - - - ritardo storico- 1° ritardatario",1
 Scrivi st2 & " < - - - ritardo storico- 2° ritardatario ",1
 Scrivi st3 & " < - - - ritardo storico- 3° ritardatario ",1
 ColoreTesto 2
 Scrivi " 315-"& somritardo & " = "& dif &" ATTENZIONE!!!!! " & dif1 & " rottura somma raggiunta!! ",1
 ColoreTesto 0
 am(1) = n(1)
 am(2) = m(1)
 am(3) = o(1)
 ImpostaGiocata 1,am,ruote,posta,30,1 
Gioca es
 numeri(r,1) = am(1)
 numeri(r,2) = am(2)
 numeri(r,3) = am(3)
 Scrivi
 End If
 End If
 Next
 Scrivi : Scrivi "Casi Rilevati "& CInt (co)
 ScriviResoconto
 End Sub

PS: Lo script, ormai obsoleto, utilizza "un trucco" per evitare un bug ... che fu corretto successivamente nella istruzione "siglaruota"

Tuttavia cosi' facendo con l' introduzione della Nazionale ... creerebbe un altro errore.

Con due caratteri non è possibile distinguere Na = Napoli da Na = Nazionale.

Ho pertanto abbreviato le indicazioni delle ruote in "Nap" , "Naz" ... troncando dopo il terzo carattere.