insomma la gente ti chiede gli script piu astrusi e glie li fai e a me che ti chiedo delle cose semplicissime e ben definite allo scopo di farti arrivare da solo alla soluzione non mi vuoi accontentare . .ahahah
Tu quoqe Brutus fili mi
P.S.
Non ti preoccuare mike scherzo ... ciao
Option Explicit
Sub Main
Dim Ruota,IdEstr,aRit(90)
Ruota = BA_
IdEstr = EstrazioneFin
Call GetRitardoEstratti (aRit,Ruota,IdEstr)
Scrivi aRit (1)
'controllo
Scrivi RitardoEstratto (1,EstrazioneFin,BA_)
End Sub
Sub GetRitardoEstratti(aRit,Ruota,idEstr)
Dim N
'Rit(1) dovra contenere il ritardo del numero 1 sulla Ruota Ruota all'estrazione IdEstr
'aRit(90) dovra contenere il ritardo del numero 90 sulla Ruota Ruota all'estrazione IdEstr
'le posizioni dalla 2 alla 89 seguono lo stesso concetto..
For N = 1 To 90
aRit(N) = EstrattoRitardoTurbo(Ruota,N,1,idEstr)
Next
End SubFunction GetRitardoNumero (aRit , NumCerc)
end function Function GetRitardoNumero (aRit , NumCerc)
end functionOption Explicit
Sub Main
Dim Ruota,IdEstr,aRit(90)
Dim NumCerc
Ruota = BA_
IdEstr = EstrazioneFin
Call GetRitardoEstratti(aRit,Ruota,IdEstr)
NumCerc = 1
Scrivi GetRitardoNumero(aRit,NumCerc)
'Controllo
Scrivi RitardoEstratto(1,EstrazioneFin,BA_)
End Sub
Sub GetRitardoEstratti(aRit,Ruota,idEstr)
Dim N
'Rit(1) dovra contenere il ritardo del numero 1 sulla Ruota Ruota all'estrazione IdEstr
'aRit(90) dovra contenere il ritardo del numero 90 sulla Ruota Ruota all'estrazione IdEstr
'le posizioni dalla 2 alla 89 seguono lo stesso concetto..
For N = 1 To 90
aRit(N) = EstrattoRitardoTurbo(Ruota,N,1,idEstr)
Next
End Sub
Function GetRitardoNumero(aRit,NumCerc)
'Una funzione che con i parametri dell'array aRit
'cioè quelli calcolati con la funzione GetRitardoEstratti(aRit,Ruota,idEstr)
'tornasse il ritardo di un determinato numero.
GetRitardoNumero = aRit(NumCerc)
End FunctionFunction GetQNumAlRit(aRit , nRitCercato)
end functionOption Explicit
Sub Main
Dim Ruota,IdEstr,aRit(90)
Dim NumCerc
Dim nRitCercato
Ruota = BA_
IdEstr = EstrazioneFin
Call GetRitardoEstratti(aRit,Ruota,IdEstr)
NumCerc = 1
Call Scrivi(GetRitardoNumero(aRit,NumCerc))
'Controllo
Call Scrivi(RitardoEstratto(1,EstrazioneFin,BA_))
Call Scrivi("")
Call Scrivi("Rit Pres")
For nRitCercato = 15 To 0 Step - 1
Scrivi nRitCercato & Space(3) & GetQNumAlRit(aRit,nRitCercato)
Next
End Sub
Sub GetRitardoEstratti(aRit,Ruota,idEstr)
Dim N
'Rit(1) dovra' contenere il ritardo del numero 1 sulla Ruota Ruota all'estrazione IdEstr
'aRit(90) dovra' contenere il ritardo del numero 90 sulla Ruota Ruota all'estrazione IdEstr
'le posizioni dalla 2 alla 89 seguono lo stesso concetto..
For N = 1 To 90
aRit(N) = EstrattoRitardoTurbo(Ruota,N,1,idEstr)
Next
End Sub
Function GetRitardoNumero(aRit,NumCerc)
'E' una funzione che ...[con i parametri dell'array aRit
'cioè quelli calcolati con la funzione GetRitardoEstratti(aRit,Ruota,idEstr)] ...
'ritorna il ritardo di un determinato numero.
GetRitardoNumero = aRit(NumCerc)
End Function
Function GetQNumAlRit(aRit,nRitCercato)
'E' una funzione che torna la QUANTITA' di numeri ad un dato ritardo.
Dim N,K
For N = 1 To 90
If aRit(N) = nRitCercato Then K = K + 1
Next
GetQNumAlRit = K
End Function
Option Explicit
Sub Main
End Sub
Sub GetRitardoEstratti(aRit,Ruota,IdEstr)
Dim Num
For Num = 1 To 90
aRit(Num) = EstrattoRitardoTurbo(Ruota,Num,1,IdEstr)
Next
End Sub
Function GetRitNum(aRit,Num)
Dim bRet
bRet = aRit(Num)
GetRitNum = bRet
End Function
Function GetQNumAlRit(aRit,nRitCercato)
Dim idR,Pres
Pres = 0
For idR = 1 To UBound(aRit)
If aRit(idR) = nRitCercato Then
Pres = Pres + 1
End If
Next
GetQNumAlRit = Pres
End FunctionFunction RitSincDiLiv(NumAnalizzato, Ruota, IdEstrazione, nRetLivello)
' NumAnalizzato : numero da analizzare lo passa l'utente
' Ruota : passata dall'utente
' IdEstrazione : inizio ricerca passato dall'utente
' nRetLivello : lo valorizza questa funzione è il livello a cui appartiene NumAnalizzato
Dim nRitDiLiv
'============================================
' qui devi scrivere il tuo codice
'============================================
' la funzione torna il ritardo di livello di un numero su una ruota
RitSincDiLiv = nRitDiLiv
End FunctionOption Explicit
Sub Main
Dim idestr
Dim NumAnalizzato
Dim Ruota
Dim RitNum
Dim Pres
idestr=EstrazioneFin
NumAnalizzato=6
Ruota=BA_
Scrivi NomeRuota(Ruota)&" ",0,0
Scrivi "Numero : "&NumAnalizzato&" ",0,0
Pres= RitSincDiLiv(NumAnalizzato,Ruota,idestr,RitNum)
Scrivi "Ritardo :"&RitNum&" ",0,0
Scrivi "Presenze sincrone:"&Pres
End Sub
Function RitSincDiLiv(NumAnalizzato,Ruota,IdEstr,Ritnum)
' NumAnalizzato : numero da analizzare lo passa l'utente
' Ruota : passata dall'utente
' IdEstrazione : inizio ricerca passato dall'utente
' nRetLivello : lo valorizza questa funzione è il livello a cui appartiene NumAnalizzato
Dim nRitDiLiv
'============================================
' qui devi scrivere il tuo codice
Dim aRit(90)
Call GetRitardoEstratti(aRit,Ruota,IdEstr)
Ritnum = GetRitNum(aRit,NumAnalizzato)
nRitDiLiv = GetQNumAlRit(aRit,Ritnum)
'============================================
' la funzione torna il ritardo di livello di un numero su una ruota
RitSincDiLiv = nRitDiLiv
End Function
Sub GetRitardoEstratti(aRit,Ruota,IdEstr)
Dim Num
For Num = 1 To 90
aRit(Num) = EstrattoRitardoTurbo(Ruota,Num,1,IdEstr)
Next
End Sub
Function GetRitNum(aRit,Num)
GetRitNum = aRit(Num)
End Function
Function GetQNumAlRit(aRit,nRitCercato)
Dim idR,Pres
Pres = 0
For idR = 1 To UBound(aRit)
If aRit(idR) = nRitCercato Then
Pres = Pres + 1
End If
Next
GetQNumAlRit = Pres
End Function
