Solo che ti debbo segnalare anche che tutti i vecchi script... (antecedenti a questa versione del programma e perfettamente funzionanti anche con la versione subito precedente (la 1.5.79) ) non danno più nessun output! Ne eri già al corrente? Io purtroppo al momento cercherò di reinstallare la versione 1.5.79 in attesa che si possa risolvere il problemino Grazie e complimentissimi insuperabileee Maestro
LuigiB;n1971763 ha scritto:
Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i
Dim contatore
contatore = 1
ReDim aRuote(2)
aRuote(1) = BA_
aRuote(2) = CA_
'aRuote(3) = FI_
'aRuote(1) = GE_
'aRuote(1) = MI_
'aRuote(1) = NA_
'aRuote(1) = PA_
'aRuote(1) = RO_
'aRuote(2) = TO_
'aRuote(1) = VE_
'aRuote(2) = NZ_
'aRuote(12) = TU_
nSorte = 2
ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)
Classe = 2
coltot = InitSviluppoIntegrale(anum,Classe)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
i = i + 1
Call StatisticaFormazioneTurbo(acol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
Dim Diff
Diff = RetRitMax - RetRit1
If(RetRit1 >= 0) Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & " ruote decise (unite)" & " Diff " & Diff & " " & contatore)
contatore = contatore + 1
End If
Call AvanzamentoElab(1,coltot,i)
Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End SubLuigiB;n1971801 ha scritto:
Grazie a te piuttosto!!! Ciao grandissimo! 
Buona giornata
Option Explicit
Sub Main
Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
Dim TimeStart
Dim k,CollComb,cColonna
Dim aN
Dim TipoAlgo
nTrov = 0
nNumSel = ScegliNumeri(aN)
'aN = Array(0,16,49,60)
nSorte = 2' ScegliEsito
nClasseLunghetta = 10' ScegliClassseLunghetta
TipoAlgo = 0
nRuoteSel = 1 : ReDim aRuote(1) : aRuote(1) = TT_ 'SelRuote(aRuote)
nLunghetteDaTrov = 10 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
ReDim Preserve aRuote(nRuoteSel)
nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
nMoltip = 8
sMsg = "Inserire il ritardo massimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per " & nMoltip
nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
sMsg = "Inserire il ritardo minimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per 3"
nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
fin = EstrazioneFin
Ini = fin - nRitMax
If Ini <= 0 Then Ini = 1
TimeStart = Timer
Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo)
'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
For Each cColonna In CollComb
Call Scrivi(cColonna.GetStringaNum & " Rit " & cColonna.Ritardo)
Next
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi(Timer - TimeStart))
End Sub
Function ScegliClassseLunghetta
Dim aVoci(30)
Dim k,i
For k = 2 To(2 - 1) + UBound(aVoci)
i = i + 1
aVoci(i) = k
Next
k = ScegliOpzioneMenu(aVoci,5,"Classe lunghetta")
ScegliClassseLunghetta = Int(aVoci(k))
End Function
Function SelRuote(aRuote)
Dim t,k,bTutte
bTutte = False
t = ScegliRuote(aRuote)
For k = 1 To t
If aRuote(k) = TT_ Then
bTutte = True
Exit For
End If
Next
If bTutte Then
ReDim aRuote(10)
For k = 1 To 10
aRuote(k) = k
Next
SelRuote = 10
Else
SelRuote = t
End If
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
| Casi | Combinazione | Ritardo | Freq | Rit. Max | Incr Max |
| 2 | 08.14.49 | 208 | 597 | 208 | 79 |
| 5 | 08.55.85 | 155 | 621 | 155 | 63 |
| 4 | 08.49.83 | 145 | 610 | 145 | 43 |
| 6 | 10.55.64 | 141 | 641 | 141 | 48 |
| 1 | 07.33.88 | 140 | 591 | 140 | 11 |
| 8 | 21.67.72 | 139 | 590 | 139 | 51 |
| 7 | 14.49.77 | 139 | 624 | 139 | 44 |
| 3 | 08.49.60 | 139 | 593 | 139 | 34 |
| 9 | 27.46.55 | 132 | 635 | 132 | 38 |
| 11 | 57.68.69 | 131 | 643 | 131 | 38 |
| 10 | 36.59.69 | 131 | 592 | 131 | 48 |
Option Explicit
Sub Main
Dim nSorte,aRuote,Ini,fin,sMsg,nMoltip,nTrov,nNumSel
Dim nCicloTeo,nRitMax,nRitMin,nClasseLunghetta,nRuoteSel,nLunghetteDaTrov
Dim TimeStart
Dim k,CollComb,cColonna
Dim aN
Dim TipoAlgo
Dim RetRit,RetRitMax,RetIncrRitMax,RetFrq
nTrov = 0
nNumSel = ScegliNumeri(aN)
'aN = Array(0,16,49,60)
nSorte = 2' ScegliEsito
nClasseLunghetta = 3' ScegliClassseLunghetta
TipoAlgo = 0
nRuoteSel = 1 : ReDim aRuote(1) : aRuote(1) = TT_ 'SelRuote(aRuote)
nLunghetteDaTrov = 10 ' Int(InputBox("Lunghette da trovare","Quantità lunghette",10))
ReDim Preserve aRuote(nRuoteSel)
nCicloTeo = CicloTeorico(nClasseLunghetta,nSorte,UBound(aRuote))
nMoltip = 8
sMsg = "Inserire il ritardo massimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per " & nMoltip
nRitMax = 0' Int(InputBox(sMsg,,nCicloTeo * nMoltip))
sMsg = "Inserire il ritardo minimo ipotizzato per la sorte voluta nella lunghetta" & vbCrLf
sMsg = sMsg & "Il valore mostrato è il CicloTeorico per la sorte di " & nSorte
sMsg = sMsg & " su " & nClasseLunghetta & " numeri su " & nRuoteSel & " ruote moltiplicato per 3"
nRitMin = 0 ' Int(InputBox(sMsg,,nCicloTeo * 3))
fin = EstrazioneFin
Ini = fin - nRitMax
If Ini <= 0 Then Ini = 1
TimeStart = Timer
Call GetLunghettePiuRitardate(aN,aRuote,nClasseLunghetta,nSorte,CollComb,EstrazioneIni,EstrazioneFin,nRitMin,nRitMax,nLunghetteDaTrov,TipoAlgo)
'Call GetLunghettePiuRitardate(aN,aRuote,EstrazioneIni,EstrazioneFin,nClasseLunghetta,nSorte,CollComb)
Call OrdinaItemCollection(CollComb,"Ritardo",,,- 1)
For Each cColonna In CollComb
Call StatisticaFormazioneTurbo(cColonna.aNum ,aRuote,nSorte ,RetRit,RetRitMax,RetIncrRitMax,RetFrq ,EstrazioneIni,EstrazioneFin)
Call Scrivi(cColonna.GetStringaNum & " Rit " & cColonna.Ritardo & " Freq :" & RetFrq )
Next
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi(Timer - TimeStart))
End Sub
Function ScegliClassseLunghetta
Dim aVoci(30)
Dim k,i
For k = 2 To(2 - 1) + UBound(aVoci)
i = i + 1
aVoci(i) = k
Next
k = ScegliOpzioneMenu(aVoci,5,"Classe lunghetta")
ScegliClassseLunghetta = Int(aVoci(k))
End Function
Function SelRuote(aRuote)
Dim t,k,bTutte
bTutte = False
t = ScegliRuote(aRuote)
For k = 1 To t
If aRuote(k) = TT_ Then
bTutte = True
Exit For
End If
Next
If bTutte Then
ReDim aRuote(10)
For k = 1 To 10
aRuote(k) = k
Next
SelRuote = 10
Else
SelRuote = t
End If
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
