adispo2000
Super Member >PLATINUM<
Ciao Rubino....potresti adattare questo script per il superenalotto.....10elotto5m..ed eventualmente per il milionday( prendendo in questo caso un archivio estrazione esterno..)
Option Explicit
Sub Main
'''' per una lunghetta a richiesta trova per classi minori le combinazioni con miglior presenze
Dim es,fine,r,retfre,classei,classef,qt,nsorte,Ord,nruo
Dim anum(90)
ReDim rt(10)
qt = ScegliNumeri(anum)
nruo = ScegliRuote(rt)
fine = InputBox("Estraz.n.",,EstrazioneFin)
nsorte = InputBox("Sorte ",,2)
classei = InputBox("Classe ini",,20)
classef = InputBox("Classe fin",,16)
Ord = InputBox("Ordine Pres. A/D asc/disc ",,"A")
'''
Scrivi "Ruote scelte " & StringaNumeri(rt," - "),1
Scrivi "Estraz.ini " & EstrazioneIni & " / Estraz.n." & fine & " / " & DataEstrazione(fine)
Scrivi "Richiesto per la sorte " & nsorte,1
Scrivi
Call Integrale(anum,classef,classei,nsorte,rt,fine,Ord)
End Sub
Function Integrale(ANUM,Classef,Classei,nsorte,rt,fine,Ord)
Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
frealeini = UBound(aretritardi) - 1
ColoreTesto(1)
Scrivi "Sviluppo in Classe..." & Classei,1
Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & " Pres." & frealeini,1
ColoreTesto(2)
If Ord = "A" Then Scrivi "Richiesto Presenze Ascendenti",1
If Ord = "D" Then Scrivi "Richiesto Presenze Discendenti",1
ColoreTesto(0)
'''''''S V I L U P P O I N T E G R A L E classe a decrescere
For cl = 1 To Classei - Classef
i = 0
Classef = Classei - cl
Scrivi
ColoreTesto(1)
Scrivi "Sviluppo In classe..." & Classef,1
ColoreTesto(0)
coltot = InitSviluppoIntegrale(ANUM,Classef)
ReDim rie(coltot,2)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
Call AvanzamentoElab(1,coltot,i)
Call Messaggio("Classe " & Classef & " Elab." & i & " di " & coltot)
If ScriptInterrotto Then Exit Do
Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
freale = UBound(aretritardi) - 1
If freale = 0 Then
Scrivi StringaNumeri(acol,"-")
Else
i = i + 1
rie(i,1) = freale
rie(i,2) = StringaNumeri(acol," ")
End If
Loop
Call OrdinaMatrice(rie,- 1,1)
If Ord = "D" Then
For hh = 1 To i
Scrivi rie(hh,2) & " pres. " & rie(hh,1)
Next
Else
For hh = 2 To 4
ColoreTesto(2)
Scrivi "---Pres." & rie(hh - 1,1) & " Comb." & rie(hh - 1,2),1
ColoreTesto(0)
Next
End If
End If
Next
Scrivi TempoTrascorso
End Function
Option Explicit
Sub Main
'''' per una lunghetta a richiesta trova per classi minori le combinazioni con miglior presenze
Dim es,fine,r,retfre,classei,classef,qt,nsorte,Ord,nruo
Dim anum(90)
ReDim rt(10)
qt = ScegliNumeri(anum)
nruo = ScegliRuote(rt)
fine = InputBox("Estraz.n.",,EstrazioneFin)
nsorte = InputBox("Sorte ",,2)
classei = InputBox("Classe ini",,20)
classef = InputBox("Classe fin",,16)
Ord = InputBox("Ordine Pres. A/D asc/disc ",,"A")
'''
Scrivi "Ruote scelte " & StringaNumeri(rt," - "),1
Scrivi "Estraz.ini " & EstrazioneIni & " / Estraz.n." & fine & " / " & DataEstrazione(fine)
Scrivi "Richiesto per la sorte " & nsorte,1
Scrivi
Call Integrale(anum,classef,classei,nsorte,rt,fine,Ord)
End Sub
Function Integrale(ANUM,Classef,Classei,nsorte,rt,fine,Ord)
Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
frealeini = UBound(aretritardi) - 1
ColoreTesto(1)
Scrivi "Sviluppo in Classe..." & Classei,1
Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & " Pres." & frealeini,1
ColoreTesto(2)
If Ord = "A" Then Scrivi "Richiesto Presenze Ascendenti",1
If Ord = "D" Then Scrivi "Richiesto Presenze Discendenti",1
ColoreTesto(0)
'''''''S V I L U P P O I N T E G R A L E classe a decrescere
For cl = 1 To Classei - Classef
i = 0
Classef = Classei - cl
Scrivi
ColoreTesto(1)
Scrivi "Sviluppo In classe..." & Classef,1
ColoreTesto(0)
coltot = InitSviluppoIntegrale(ANUM,Classef)
ReDim rie(coltot,2)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
Call AvanzamentoElab(1,coltot,i)
Call Messaggio("Classe " & Classef & " Elab." & i & " di " & coltot)
If ScriptInterrotto Then Exit Do
Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
freale = UBound(aretritardi) - 1
If freale = 0 Then
Scrivi StringaNumeri(acol,"-")
Else
i = i + 1
rie(i,1) = freale
rie(i,2) = StringaNumeri(acol," ")
End If
Loop
Call OrdinaMatrice(rie,- 1,1)
If Ord = "D" Then
For hh = 1 To i
Scrivi rie(hh,2) & " pres. " & rie(hh,1)
Next
Else
For hh = 2 To 4
ColoreTesto(2)
Scrivi "---Pres." & rie(hh - 1,1) & " Comb." & rie(hh - 1,2),1
ColoreTesto(0)
Next
End If
End If
Next
Scrivi TempoTrascorso
End Function