Aiuto modifica di uno script fatto per spaziometria a l8 / lottodesk

[simon-simon]

Sub Main()
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")
r = InputBox("Su quale ruota?",,1)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = 1
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 = 1 To 90
Messaggio " Spia: " & sp & " < >"
Call AvanzamentoElab(1,90,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 = EstrattoFrequenza(r,n,es,es + colpi)
num(n,2) = frc
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(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: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & 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 = SerieFreq(Ini,fin,anum,ruote,2)
sf3 = SerieFreq(Ini,fin,anum,ruote,3)
sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardo(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
Next
End Sub

 

[Master]

ciao
Credo sia così

Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim nn(1),nsp(1)
   Dim num(90,4),anum(10)
   Dim uscito(90,2)
   Dim sp,r,colpi,Ini,fin,i,co,es,ess,a,v,e,n,per
   Dim riga,riga1,riga2,riga3,rit,rtsp,fru
   Ini = CInt(InputBox("Ssegli Inizio?","INIZIO",9556))
   r = CInt(InputBox("Su quale ruota?","RUOTA",5))
   colpi = CInt(InputBox("Quanti colpi?","COLPI",10))
   ruote(1) = r
   fin = EstrazioneFin
   Scrivi "Analisi dal " & DataEstrazione(Ini) & " ad oggi"
   Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
   For sp = 1 To 90
      Messaggio " Spia: " & sp
      For i = 1 To 90
         num(i,1) = 0 : num(i,2) = 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
                  uscito(v,2) = 0
               Next
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n,1) = n
                  num(n,2) = num(n,2) + 1
                  uscito(n,1) = n
                  uscito(n,2) = uscito(n,2) + 1
                  If uscito(n,2) > 1 Then
                     num(n,2) = num(n,2) - 1
                     uscito(n,2) = 1
                  End If
                  nn(1) = n
                  nsp(1) = sp
                  rit = SerieRitardo(Ini,fin,nn,ruote,1)
                  rtsp = SerieRitardo(Ini,fin,nsp,ruote,1)
                  fru = SerieFreq(es,ess,nn,ruote,1)
                  num(n,3) = rit
                  num(n,4) = fru
               Next
            Next
         End If
      Next
      OrdinaMatrice num,- 1,2
      per = Int((co/100)*65)
      Scrivi "_________________________________________________________________"
      Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & _
      " casi = " & co & "   colpi " & colpi & "  - Rit Spia " & rtsp,1
      Scrivi
      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 = SerieFreq(Ini,fin,anum,ruote,2)
         sf3 = SerieFreq(Ini,fin,anum,ruote,3)
         sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
         sr3 = SerieRitardo(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
   Next
End Sub