Dove correggere questo script ?

[joi_lotto]

Ho scaricato questo script e non riesco a farlo girare, qualcuno sa dirmi come fare.
Grazie.
joi


'Ricerca e Frequenze dei Sommatori V.6.0. scritto da Joe per Marconi Alba 18/10/2011
'http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299#1089419 <http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299>
Sub
Main()
Dim
Fr(90,2) : Sc = 1
Fin
= EstrazioneFin : Ini = Fin - 155
R1
= 1 : R2 = 1 : C = 5
Scrivi
"Resoconto dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) & ".",1
For
Es = Ini To Fin
M
= Fuori90(Estratto(Es,R1,1) + Estratto(Es,R1,5))
For
Ex = Es + 1 To Es + C
If
Ex = < Fin Then <-------ERRORE DI SINTASSI
If
Posizione(Ex,R2,M) > 0 Then
If
Sc = 1 Then K = K + 1 : Scrivi FormatSpace(K,2,1) & "° " & String(72,"=") & " ",1 : Sc = 0
For
P = 1 To 5
A
= Estratto(Ex,R2,P)
If
M <> A Then
If
M > A Then N = Fuori90(A + 90 - M) Else N = A - M
Fr
(N,1) = N : Fr(N,2) = Fr(N,2) + 1
Scrivi
DataEstrazione(Es) & " ",0,0
Scrivi
SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " ",0,0
Scrivi
Format2(M) & "." & Format2(A) & " +" & FormatSpace(N,2,1) & " ",0,0
Scrivi
DataEstrazione(Ex) & " ",0,0

Scrivi SiglaRuota(R2) & " " & StringaEstratti(Ex,R2) & " " & Ex - Es & "°C" : Sc = 1
End
If
Next
End
If
End
If
Next
Next
Scrivi
String(69,"="),1,0
ColoreTesto
1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi
OrdinaMatrice
Fr,- 1,2
For
N = 1 To 90
If
Fr(N,2) > 0 Then Scrivi Format2(N) & ") +" & Format2(Fr(N,1)) & " Fr " & FormatSpace(Fr(N,2),2,1)
Next
End
Sub

 

[Enplein]

Ho scaricato questo script e non riesco a farlo girare, qualcuno sa dirmi come fare.
Grazie.
joi


'Ricerca e Frequenze dei Sommatori V.6.0. scritto da Joe per Marconi Alba 18/10/2011
'http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299#1089419 <http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299>
Sub
Main()
Dim
Fr(90,2) : Sc= 1
Fin
=EstrazioneFin : Ini = Fin - 155
R1
= 1 : R2 = 1 : C = 5
Scrivi
"Resoconto dal " &DataEstrazione(Ini) & " al " &DataEstrazione(Fin) & ".",1
For
Es = Ini To Fin
M
=Fuori90(Estratto(Es,R1,1) +Estratto(Es,R1,5))
For
Ex = Es + 1 To Es + C
If
Ex =< Fin Then <-------ERRORE DI SINTASSI
If
Posizione(Ex,R2,M) > 0 Then
If
Sc= 1 Then K = K + 1 : ScriviFormatSpace(K,2,1) & "° " &String(72,"=") & "",1 : Sc= 0
For
P = 1 To 5
A
=Estratto(Ex,R2,P)
If
M <> A Then
If
M > A Then N =Fuori90(A + 90 - M) Else N = A - M
Fr
(N,1) = N : Fr(N,2) =Fr(N,2) + 1
Scrivi
DataEstrazione(Es) & "",0,0
Scrivi
SiglaRuota(R1) & "" &StringaEstratti(Es,R1) & "",0,0
Scrivi
Format2(M) & "." &Format2(A) & " +" &FormatSpace(N,2,1) & "",0,0
Scrivi
DataEstrazione(Ex) & "",0,0

ScriviSiglaRuota(R2) & "" &StringaEstratti(Ex,R2) & "" & Ex - Es & "°C" : Sc= 1
End
If
Next
End
If
End
If
Next
Next
Scrivi
String(69,"="),1,0
ColoreTesto
1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi
OrdinaMatrice
Fr,- 1,2
For
N = 1 To 90
If
Fr(N,2) > 0 ThenScriviFormat2(N) & ") +" &Format2(Fr(N,1)) & " Fr " &FormatSpace(Fr(N,2),2,1)
Next
End
Sub

...ecco la formattazione giusta.

Ciao, Enplein.

'Ricerca e Frequenze dei Sommatori V.6.0. scritto da Joe per Marconi Alba 18/10/2011
'http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299#1089419 <[URL]http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299[/URL]>
Sub Main()
Dim Fr(90,2) : Sc= 1
Fin =EstrazioneFin : Ini = Fin - 155
R1 = 1 : R2 = 1 : C = 5
Scrivi"Resoconto dal " &DataEstrazione(Ini) & " al " &DataEstrazione(Fin) & ".",1
For Es = Ini To Fin
M =Fuori90(Estratto(Es,R1,1) +Estratto(Es,R1,5))
For Ex = Es + 1 To Es + C
If Ex =< Fin Then '<-------ERRORE DI SINTASSI
If Posizione(Ex,R2,M) > 0 Then
If Sc= 1 Then K = K + 1 : Scrivi FormatSpace(K,2,1) & "° " &String(72,"=") & "",1 : Sc= 0
For P = 1 To 5
A =Estratto(Ex,R2,P)
If M <> A Then
If M > A Then N =Fuori90(A + 90 - M) Else N = A - M
Fr(N,1) = N : Fr(N,2) =Fr(N,2) + 1
Scrivi
DataEstrazione(Es) & " ",0,0
Scrivi SiglaRuota(R1) & " " &StringaEstratti(Es,R1) & " ",0,0
Scrivi Format2(M) & "." &Format2(A) & " +" &FormatSpace(N,2,1) & " ",0,0
Scrivi DataEstrazione(Ex) & " ",0,0
Scrivi SiglaRuota(R2) & " " &StringaEstratti(Ex,R2) & " " & Ex - Es & "°C" : Sc= 1
End If
Next
End If
End If
Next
Next
Scrivi String(69,"="),1,0
ColoreTesto 1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi
OrdinaMatrice Fr,- 1,2
For N = 1 To 90
If Fr(N,2) > 0 Then Scrivi Format2(N) & ") +" &Format2(Fr(N,1)) & " Fr " &FormatSpace(Fr(N,2),2,1)
Next
End Sub

 

[joi_lotto]

Ciao Enplein, la formattazione che hai fatto tu è quella che ho io, solo che nel fare copia incolla nel forum è uscito quel modo.
Errore di sintassi richiede un qualcosa che non riesco a capire.(sono molto incompetente in materia, ma ci provo).
Questo errore come posso correggerlo?
Grazie
joi.

 

[Enplein]

If Ex =< Fin Then '<-------ERRORE DI SINTASSI

Ciao joi_lotto, basta mettere l'apice " ' " davanti (come mostrato sopra) o cancellare questa (<-------ERRORE DI SINTASSI).

Ciao, Enplein.

 

[claudio8]

If Ex =< Fin Then '<-------ERRORE DI SINTASSI

Ciao joi_lotto, basta mettere l'apice " ' " davanti (come mostrato sopra) o cancellare questa (<-------ERRORE DI SINTASSI).

Ciao, Enplein.

Scusate se intervengo ma il testo

If Ex = < Fin Then '<-------ERRORE DI SINTASSI

va corretto in

If Ex <= Fin Then '<------- NON DA ERRORE DI SINTASSI --- non inserire spazi tra i 2 segni
e lo script gira.

In Spaziometria, differentemente da L8 che erroneamente li accetta, l' = bisogna sempre sciverlo dopo i segni > o < , che è il modo corretto di scrittura matematica

mi correggo: anche Spaziometria accetta loscambio dei segni, purche senza spazi.


Vorrei dire al Professor Joe che non era di mio interesse il suo script, ho solo suggerito la correzione minima perchè non si bloccasse.

Saluti e pazienza

 

[joi_lotto]

Grazie a tutti e due, ho fatto come ha detto Claudio e funziona. (errore di sintassi l'ho scritto io, per evidenziare l'errore.
Grazie.

joi.

 

[Joe91]

Buon Giorno a tutti ...

Ringrazio Joi, Franco e Claudio per l'interesse a questo mio script.

Ho reperito "adesso" ed ancora presente in Internet la versione 6.1 ...

che corregge alcuni dettagli come mi fu richiesto, allora, da Marconi.

Giusta la correzione di Claudio ... si possono scambiare di posto gli operatori logici,

ma è errato separarli con uno o più "spazi" vuoti. Ho applicato e provato, questo, nello script che segue.

La Versione 6.2 ... anch'essa ancora reperibile prevedeva la "ricerca libera".

Se riesco la porto "su" a questo nuovo Forum.

Buon Anno a tutti.

'Ricerca e Frequenze dei Sommatori V.6.1.1 Scritto da Joe per Marconi. Alba 19/10/2011
'http://forum.lottoced.com/f12/dove-correggere-questo-script-89802/
Sub Main()
Dim  Fr(90,2) 
Fin = EstrazioneFin : Ini = Fin-155  
R1 = 1 : R2 = 1 : C = 5
Scrivi "Resoconto dal " & DataEstrazione (Ini) & " al " & DataEstrazione (Fin) & ".",1 
For Es = Ini To Fin
 M = Fuori90(Estratto(Es,R1,1) + Estratto(Es,R1,5)) 
 For Ex = Es+1 To Es+C
  If Ex <= Fin Then 
   If Posizione (Ex,R2,M) > 0 Then 
       K=K+1 : Scrivi FormatSpace (K,2,1) & "° "&  String(72,"=") & " "  ,1  
    For P = 1 To 5 
    A = Estratto (Ex,R2,P) 
     If M <> A Then       
      If M > A Then N = Fuori90(A+90-M) Else N = A-M 
       Fr(N,1) = N : Fr(N,2) = Fr(N,2) + 1    
       Scrivi DataEstrazione  (Es) & " " ,0,0
       Scrivi SiglaRuota (R1) & " " & StringaEstratti (Es,R1)  & "  " ,0,0
       Scrivi  Format2 (M) & "." & Format2(A) & "  +" & FormatSpace (N,2,1) & "  ",0,0
       Scrivi DataEstrazione (Ex) & " " ,0,0
       Scrivi SiglaRuota (R2) & " " & StringaEstratti (Ex,R2) & "  " & Ex-Es & "°C"
     End If
    Next      
   End If 
  End If 
 Next
Next
Scrivi String(69,"="),1,0
ColoreTesto 1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi 
OrdinaMatrice Fr,-1,2
For N=1 To 90
 If Fr(N,2)>0 Then Scrivi Format2 (N) & ") +" & Format2 (Fr(N,1)) & " Fr "  & FormatSpace (Fr(N,2),2,1) 
Next 
End SuB

 

[Joe91]

'Ricerca LIBERA delle Frequenze dei Sommatori V.6.2 
'Scritto da Joe per Marconi. Alba 21/10/2011 
'http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299 
Sub main()
Dim  Fr(90,2) 
Fin = EstrazioneFin : Ini = Fin-15  
R1 = 1 : R2 = 1 : C = 5
Scrivi "Resoconto dal " & DataEstrazione (Ini) & " al " & DataEstrazione (Fin) & ".",1 
For Es = Ini To Fin
 M = Fuori90(Estratto(Es,R1,1) + Estratto(Es,R1,5)) 
 For Ex = Es+1 To Es+C
  If Ex =< Fin Then 
   'If Posizione (Ex,R2,M) > 0 Then 
       K=K+1 : Scrivi FormatSpace (K,2,1) & "° "&  String(72,"=") & " "  ,1  
    For P = 1 To 5 
    A = Estratto (Ex,R2,P) 
     'If M <> A Then       
      If M >= A Then N = Fuori90(A+90-M) Else N = A-M 
       Fr(N,1)=N : Fr(N,2) = Fr(N,2) + 1    
       Scrivi DataEstrazione  (Es) & " " ,0,0
       Scrivi SiglaRuota (R1) & " " & StringaEstratti (Es,R1)  & "  " ,0,0
       Scrivi  Format2 (M) & "." & Format2(A) & "  +" & FormatSpace (N,2,1) & "  ",0,0
       Scrivi DataEstrazione (Ex) & " " ,0,0
       Scrivi SiglaRuota (R2) & " " & StringaEstratti (Ex,R2) & "  " & Ex-Es & "°C"
     'End If
    Next      
   'End If 
  End If 
 Next
Next
Scrivi String(69,"="),1,0
ColoreTesto 1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi 
OrdinaMatrice Fr,-1,2
For N=1 To 90
 If Fr(N,2)>0 Then Scrivi Format2 (N) & ") +" & Format2 (Fr(N,1)) & " Fr "  & FormatSpace (Fr(N,2),2,1) 
Next 
End Sub

 

[joi_lotto]

Ciao joe91, dove è possibile inserire una ruota diversa da bari? Ho provato ma nall'output non la evidenzia.
E' giusto che sia così?
Grazie

joi

 

[Joe91]

Ciao Joi,

Non so quale fosse la tua conoscenza di questo script ...

e quindi do per scontato, tu sappia quali furono gli 'input' su cui esso è stato assemblato.

Nell' specifico invece, è possibile scegliere la ruota diciamo "Base" ovvero R1

e quella di "riscontro" ... R2.


Si può scegliere nelle prime linee di programma ed in particolare questa:

R1 = 1 : R2 = 1 : C = 5

assegnando appunto ad una o ad entrambe le ruote valori differenti da 1.

Dove naturalmente 1 è Bari .. 2 Cagliari ecc.

Per controllare Genova con Palermo Scriverai:

R1=GE_ : R2=PA_ : C=5 se intendi, confermare e controllare per 5 Colpi. (C=5)

Cordiali saluti.

 

[joi_lotto]

Ciao, io inserivo N. della ruota e non la sigla. Lo farò.
Grazie
Ciao
joi.