solare
Advanced Member >PLATINUM<
Ciao Mike58, questo listato è tuo ed è spettacolare.
Volevo chiederti puoi inserire la possibilità di ricerca anche a più ruote !
Grazie qualunque sia la tua decisione
Sub Main()
Dim ru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
ESRT = CInt(InputBox("ESTRAZIONI DA ESAMINARE?","ESTRAZIONI",90))
r = CInt(InputBox("RUOTA DEL NUMERO PRINCIPALE","RUOTA",1))
a = CInt(InputBox(" NUMERO PRINCIPALE","NUMERO",57))
ru(1) = CInt(InputBox("RUOTA APPARTENENTE AL NUMERO ","RUOTA",r))
cl = CInt(InputBox("ESTRAZIONI A RITROSO DEI RILEVATORI"," ES ",18))
nStart = Timer
ini = EstrazioneFin - ESRT
fin = EstrazioneFin
Tot = fin - Ini
cc = 0
'block = 0 ' contatore blocca spia
For es = ini To fin
Messaggio(es)
Call(AvanzamentoElab(Ini,fin,es))
'If block = 1 Then es = es + cl : block = 0 ' se spia = 1nei colpi allora azzera
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
'block = 1 ' spia trovata
'--------------------- calcolo Numero rilevatore ---------------------
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es - cl + 1,es - 1,nn,ru,1)
'If fr1 > 1 Then fr1 = 0 ' se trovato 1 allora prossimo diventa 0
mt1(co,3) = mt1(co,3) + fr1
rit1 = RitardoCombinazione(ru,nn,1)
mt1(co,5) = rit1
Next
'----------------------------------------------------------------------
ColoreTesto 1
Scrivi FormatSpace(cc,2,1) & "°) Caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r) & " [" & DataEstrazione(es) & "]"
ColoreTesto 0
End If
Next
OrdinaMatrice mt1,- 1,3
Scrivi
Scrivi "NUMERO " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
ColoreTesto 1
Scrivi " Estrazioni Totali: " & Tot,1
ColoreTesto 0
Scrivi: ColoreTesto 2
Scrivi"PROBABILI RILEVATORI CHE NELLE ULTIME " & Format2(cc) & " VOLTE HANNO ANTICIPATO IL NUMERO " & Format2(a),1,,,,3
Scrivi"NELLE " & cl & " ESTRAZIONI PRECEDENTI",1,,,,3 :ColoreTesto 0:Scrivi
Scrivi "| Rilevatori del Numero " & Format2(a) & " con frequenze & ritardo |",1,- 1,3,,2
ColoreTesto 0:Scrivi
For xx = 1 To 10
Scrivi " N° " & Format2(mt1(xx,2)) & " [FREQUENZA " & Format2(mt1(xx,3)) & " | RITARDO " & FormatSpace(mt1(xx,5),2) & "]"
If mt1(xx,5) >= 0 And mt1(xx,5) < cl Then
c = c + 1
End If
Next
Scrivi"----------------------------------------------------------------"
Scrivi "ci sono " & c & " Numeri Rivelatori Attivi OK da 5 in poi, quindi prossima l'uscita",True,True,2,4,4
Scrivi:Scrivi
Scrivi " scripted by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
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
Volevo chiederti puoi inserire la possibilità di ricerca anche a più ruote !
Grazie qualunque sia la tua decisione
Sub Main()
Dim ru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
ESRT = CInt(InputBox("ESTRAZIONI DA ESAMINARE?","ESTRAZIONI",90))
r = CInt(InputBox("RUOTA DEL NUMERO PRINCIPALE","RUOTA",1))
a = CInt(InputBox(" NUMERO PRINCIPALE","NUMERO",57))
ru(1) = CInt(InputBox("RUOTA APPARTENENTE AL NUMERO ","RUOTA",r))
cl = CInt(InputBox("ESTRAZIONI A RITROSO DEI RILEVATORI"," ES ",18))
nStart = Timer
ini = EstrazioneFin - ESRT
fin = EstrazioneFin
Tot = fin - Ini
cc = 0
'block = 0 ' contatore blocca spia
For es = ini To fin
Messaggio(es)
Call(AvanzamentoElab(Ini,fin,es))
'If block = 1 Then es = es + cl : block = 0 ' se spia = 1nei colpi allora azzera
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
'block = 1 ' spia trovata
'--------------------- calcolo Numero rilevatore ---------------------
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es - cl + 1,es - 1,nn,ru,1)
'If fr1 > 1 Then fr1 = 0 ' se trovato 1 allora prossimo diventa 0
mt1(co,3) = mt1(co,3) + fr1
rit1 = RitardoCombinazione(ru,nn,1)
mt1(co,5) = rit1
Next
'----------------------------------------------------------------------
ColoreTesto 1
Scrivi FormatSpace(cc,2,1) & "°) Caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r) & " [" & DataEstrazione(es) & "]"
ColoreTesto 0
End If
Next
OrdinaMatrice mt1,- 1,3
Scrivi
Scrivi "NUMERO " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
ColoreTesto 1
Scrivi " Estrazioni Totali: " & Tot,1
ColoreTesto 0
Scrivi: ColoreTesto 2
Scrivi"PROBABILI RILEVATORI CHE NELLE ULTIME " & Format2(cc) & " VOLTE HANNO ANTICIPATO IL NUMERO " & Format2(a),1,,,,3
Scrivi"NELLE " & cl & " ESTRAZIONI PRECEDENTI",1,,,,3 :ColoreTesto 0:Scrivi
Scrivi "| Rilevatori del Numero " & Format2(a) & " con frequenze & ritardo |",1,- 1,3,,2
ColoreTesto 0:Scrivi
For xx = 1 To 10
Scrivi " N° " & Format2(mt1(xx,2)) & " [FREQUENZA " & Format2(mt1(xx,3)) & " | RITARDO " & FormatSpace(mt1(xx,5),2) & "]"
If mt1(xx,5) >= 0 And mt1(xx,5) < cl Then
c = c + 1
End If
Next
Scrivi"----------------------------------------------------------------"
Scrivi "ci sono " & c & " Numeri Rivelatori Attivi OK da 5 in poi, quindi prossima l'uscita",True,True,2,4,4
Scrivi:Scrivi
Scrivi " scripted by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
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
buona giornata.
