joi_lotto
Super Member >PLATINUM<
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
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