R
Roby
Guest
Ciao Luigi,
lo script qui sotto, trova le cinquine che abbiano n ritardi consecutivi superiore al valore impostato.
Ho due domande da farti:
1)Perchè in alcune cinquine trovate la funzione StringaNumeri non scrive la sequenza di numeri?
2)Vorrei elaborare tutte le combinazioni possibili, ma come ben sai, con gli script i tempi di elaborazione sono lunghissimi.
C'è qualche modo per poter risolvere questo problema?
Grazie per la tua disponibilità, ciao.
lo script qui sotto, trova le cinquine che abbiano n ritardi consecutivi superiore al valore impostato.
Ho due domande da farti:
1)Perchè in alcune cinquine trovate la funzione StringaNumeri non scrive la sequenza di numeri?
2)Vorrei elaborare tutte le combinazioni possibili, ma come ben sai, con gli script i tempi di elaborazione sono lunghissimi.
C'è qualche modo per poter risolvere questo problema?
Grazie per la tua disponibilità, ciao.
Codice:
Option Explicit
Sub Main
Dim aRuota(1)
Dim aNumeri(4)
Dim aRitCons(10)
Dim aRitMinimo
Dim Inizio
Dim Fine
Dim co,r,a,b,c,d,y
aRitMinimo = CInt(InputBox("Inserisci il ritardo minimo :",,10))
For r = 1 To 10
aRuota(1) = r
For a = 1 To 1
For b = a + 1 To 50
For c = b + 1 To 5
For d = c + 1 To 10
aNumeri(1) = a
aNumeri(2) = b
aNumeri(3) = c
aNumeri(4) = d
Inizio = EstrazioneIni
Fine = EstrazioneFin
co = 0
Erase aRitCons
For y = 1 To 10
aRitCons(y) = SerieRitardo(Inizio,Fine,aNumeri,aRuota,2)
If aRitCons(y) >= aRitMinimo Then
co = co + 1
Else
Exit For
End If
Fine = Fine - aRitCons(y) - 1
Next
If co >= 5 Then
Scrivi FormatSpace(NomeRuota(r),10) & FormatSpace(StringaNumeri(aNumeri),15) & FormatSpace(StringaNumeri(aRitCons),50)
End If
Next
Next
Next
Next
Next
End Sub