X Mike58

[solare]

Ciao Mike, volevo chiederti se puoi inserire in questo listato fatto da te un'altra aggiunta:
Avere alla fine le convergenze totali dei numeri dati dalla cinquina analizzata sulla ruota.
Grazie per la tua gentilezza....Allego:

Sub Main()
'Primi 10 più frequenti usciti dopo il numero Spia a scelta- QUANDO LA FREQUENZA DI UN NUMERO E' > 9 MICIDIALE '
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
ne = CInt(InputBox("Estrazioni di Controllo","NUMERO ESTRAZIONI",90))
r = InputBox("Su quale ruota?","RUOTA DI CONTROLLO",1)
my = MsgBox("INSERIRE I NUMERI IN ORDINE CRESCENTE " & Chr(13) & " DAL PIU' PICCOLO AL PIU' GRANDE",,"INSERIMENTO NUMERI SPIA")
E1 = CInt(InputBox("1° numero spia","1° NUMERO SPIA",18))
E2 = CInt(InputBox("2° numero spia","2° NUMERO SPIA",22))
E3 = CInt(InputBox("3° numero spia","3° NUMERO SPIA",38))
E4 = CInt(InputBox("4° numero spia","4° NUMERO SPIA",57))
E5 = CInt(InputBox("5° numero spia","5° NUMERO SPIA",80))
colpi = InputBox("Quanti colpi?","NUMERO COLPI",10)
ruote(1) = r
ini = EstrazioneFin - ne
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = E1 To E5
If sp = E1 Or sp = E2 Or sp = E3 Or sp = E4 Or sp = E5 Then
Messaggio " Spia: " & Format2(sp) & " < Script by Mike58 >"
Call AvanzamentoElab(E1,E5,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenzaTurbo(r,n,es + 1,es + colpi)
num(n,2) = frc
rit = EstrattoRitardoTurbo(r,n,Ini,fin)
rtsp = EstrattoRitardoTurbo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________________________"
ColoreTesto 1
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp),0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp)
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreqTurbo(Ini,fin,anum,ruote,2)
sf3 = SerieFreqTurbo(Ini,fin,anum,ruote,3)
sr2 = SerieRitardoTurbo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardoTurbo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
End If
Next
End Sub

 

[Mike58]

Ciao Solare fosse facile fare il riordino dei numeri trovati e conteggiarli.
Ci stò provando ma non arrivo alla soluzione forse perché scopiazzando altri script mi riporto errori vari.

Se arrivo volentieri altrimenti se altri volessero sono i ben accetti.

Ciao

 

[solare]

Grazie comunque per la tua gentilezza.