|
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38 |
====================== |
Ciao Cinzia , |
====================== |
partecipo anch'io alla ricerca dei biambi di Cinzia |
ho un altro pc funzionante |
dove ho sia il programma Spaziometria e sia il programma L8+6.1 AGGIORNATI alla 10225 del 15/04/2023 |
ora chiedo a Cinzia e a Gam |
cosa debbo mettere nello script di Gam per iniziare la mia ricerca ? |
Mi dovresti indicare le righe da modificare…. e dove inserire i biambi... |
alla riga … x |
modifica cosi… |
ecc… ecc… |
Fatemi sapere |
====================== |
Buon lunedì a tutto il forum. |
====================== |
|
A presto |
Silop |
|
Ciao, Silop.
Mi fa piacere che partecipi anche tu.
Per quello di Gam vedi i suoi post 87 e 92
In pratica devi sostituire i di For i = 1 To 4004 con un valore che rappresenti il biambo di partenza
In più visto che hai l'altro progamma c'è anche questo
'Script usato per i risultati definitivi - Cinzia
Option Explicit
Sub main()
Dim ambi(4005,2)
Dim biambo(2,2)
Dim ru(2)
Dim so
Dim i,j,c,rt,st
ru(1)=11
ru(2)=12
so=2
For i= 5 To 89
For j= i+1 To 90
c=c+1
ambi(c,1)=i
ambi(c,2)=j
Next
Next
For i=1 To 4004 ' cambiare 1 con un numero superiore
biambo(1,1)=ambi(i,1)
biambo(2,1)=ambi(i,2)
For j=i+1 To 4005'i
biambo(1,2)=ambi(j,1)
biambo(2,2)=ambi(j,2)
rt=SerieRitardo (EstrazioneFin-51 , EstrazioneFin,biambo,ru,so)
If rt<50 Then 'imposta il ritardo attuale
st=SerieStorico (7440, EstrazioneFin,biambo,ru,so)
If st<50 Then 'imposta il ritardo storico
Scrivi CStr(biambo(1,1)) & "." & CStr(biambo(2,1)) & ";" & _
CStr(biambo(1,2)) & "." & CStr(biambo(2,2)) & vbtab & " Sto:" & _
FormatSpace(st,4,1)& " At:" &(FormatSpace(rt,4,1))
End If
End If
Next
Next
End Sub