Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
non riesco a scrivere
cmq il codice è facilissimo
basta fare un ciclo for dei 90 numeri
lanciare la funzione elenco ritardi turbo
fare un ciclo delle tot quantita della array di ritorno e scrivere la stringa che ti serve
lo script l ho fatto ma non riesco ad incollarlo
Sub Main
Dim anum(90),n,aRit,aruo(11),aretrit,v
ReDim aretrit(100),retIdEstr(100)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
sorte = 1
aruo(1) = 1
Scrivi " n° .. rit. data estrazione"
For n = 1 To 61 Step 60
anum(1) = n
Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
For v = 1 To UBound(aretrit)
Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v))
Next
Next
Scrivi "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin)
End Sub
For v = 2 To UBound(aretrit)
Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr((v-1)))
Next
claudio8;n1953949 ha scritto:Test della funzione "ElencoRitardiTurbo"
Codice:Sub Main Dim anum(90),n,aRit,aruo(11),aretrit,v ReDim aretrit(100),retIdEstr(100) Ini = EstrazioneFin - 100 fin = EstrazioneFin sorte = 1 aruo(1) = 1 Scrivi " n° .. rit. data estrazione" For n = 1 To 61 Step 60 anum(1) = n Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr) For v = 1 To UBound(aretrit) Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v)) Next Next Scrivi "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin) End Sub
X Luigi.... spero di non sbagliarmi, i ritardi sono esatti, ma le date estrazioni relative sono errate, vengono scritte in corrispondenza del ritardo precedente.. in quest'ultima estrazione di bari sono stati estratti sia il n° 1 che il 61, entrambi risultano "data estrazione fuori dal range", mentre la data ultima di archivio 21/1/20106 appare con il ritardo precedente.
Ciao
come scritto sopra, modificando il codice, usando ( v-1) a "retIdEstr " il tutto va alla perfezione
Codice:For v = 2 To UBound(aretrit) Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr((v-1))) Next
ri Ciao
=============================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]Rosanna58;n1953896 ha scritto:Ciao a tutti, stò cercando uno script che mi crei una tabella degl'ultimi 18 ritardi di un numero e/o una formazione su una determinata ruota, esiste già qualcosa del genere? Grazie per l'aiuto
Sub Main
Dim anum(90),n,aRit,aruo(11),aretrit,v,Qr,r
ReDim aretrit(100),retIdEstr(100)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,10))
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
sorte = 1 'estratto
aruo(1) = r
Scrivi " n°.. rit. data estrazione"
For n = 1 To 90
anum(1) = n
co = 0
Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
For v = UBound(aretrit) To 1 Step - 1
co = co + 1
Scrivi " " & FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v-1))
If co = Qr Then Exit For
Next
Scrivi " . . . . . . . . . . . . . "
Next
Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)
End Sub
Sub Main
Dim anum(90),n,aRit,aruo(11),aretrit,v,Qr,r
ReDim aretrit(100),retIdEstr(100)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,10))
n = CInt(InputBox("Per quale numero vuoi cercare?",,16))
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
sorte = 1 'estratto
aruo(1) = r
Scrivi " n°.. rit. data estrazione"
'For n = 1 To 90
anum(1) = n
co = 0
Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
For v = UBound(aretrit) To 1 Step - 1
co = co + 1
Scrivi " " & FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v-1))
If co = Qr Then Exit For
Next
Scrivi " . . . . . . . . . . . . . "
'Next
Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)
End Sub
Sub Main
Dim anum(90),n,aRit,aruo(11),aretrit,v
ReDim aretrit(100),retIdEstr(100)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
sorte = 1
aruo(1) = 1
Scrivi " n° .. rit. data estrazione"
For n = 1 To 61 Step 60
anum(1) = n
Call ElencoRitardi(anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
For v = 1 To UBound(aretrit)
Scrivi " " & FormatSpace(n,2,1) & " .. precedentemente all'estr. del " & DataEstrazione(retIdEstr(v))& " il rit. è: " & FormatSpace(aretrit(v),3,1)
Next
Next
Scrivi "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin)
End Sub