PER JOE91 - SE POSSIBILE...................

[Lucio P.]

Ciao Joe, avrei bisogno del tuo aiuto e, poiché questo script sui determinati è tua progettazione, avrei la necessità di visionare tutte le novanta spie “una posizione alla volta”.
Pensi di poter assecondare questa mia richiesta? Ne sarei grato. Naturalmente con il tempo che occorre.
Peraltro, nell'output allegato, la somma finale mi restituisce un’unità in più. Dovrebbe essere 176 ma è 177; nulla di grave ovviamente.

3990 Ge 1° S01 58   2 --- 3992
4168 Ge 1° S01 58   6 --- 4174
4295 Ge 1° S01 58  55 --- 4350
4567 Ge 1° S01 58  29 --- 4596
4614 Ge 1° S01 58   7 --- 4621
4929 Ge 1° S01 58  57 --- 4986
4958 Ge 1° S01 58  28 --- 4986
5196 Ge 1° S01 58   6 --- 5202
5283 Ge 1° S01 58   2 --- 5285
5332 Ge 1° S01 58  28 --- 5360
5384 Ge 1° S01 58   6 --- 5390
5509 Ge 1° S01 58   5 --- 5514
5601 Ge 1° S01 58   1 --- 5602
5767 Ge 1° S01 58  14 --- 5781
5833 Ge 1° S01 58  41 --- 5874
5834 Ge 1° S01 58  40 --- 5874
5868 Ge 1° S01 58   6 --- 5874
6130 Ge 1° S01 58  35 --- 6165
6179 Ge 1° S01 58  11 --- 6190
6364 Ge 1° S01 58   8 --- 6372
6366 Ge 1° S01 58   6 --- 6372
6393 Ge 1° S01 58   6 --- 6399
6470 Ge 1° S01 58   6 --- 6476
6477 Ge 1° S01 58   3 --- 6480
6783 Ge 1° S01 58   4 --- 6787
6798 Ge 1° S01 58  43 --- 6841
6835 Ge 1° S01 58   6 --- 6841
6855 Ge 1° S01 58   1 --- 6856
6899 Ge 1° S01 58   5 --- 6904
6927 Ge 1° S01 58  18 --- 6945
6987 Ge 1° S01 58  10 --- 6997
7131 Ge 1° S01 58   5 --- 7136
7179 Ge 1° S01 58  14 --- 7193
7181 Ge 1° S01 58  12 --- 7193
7198 Ge 1° S01 58  10 --- 7208
7281 Ge 1° S01 58  12 --- 7293
7335 Ge 1° S01 58  11 --- 7346
7496 Ge 1° S01 58   1 --- 7497
7499 Ge 1° S01 58   1 --- 7500
7543 Ge 1° S01 58   9 --- 7552
7565 Ge 1° S01 58  38 --- 7603
7582 Ge 1° S01 58  21 --- 7603
7649 Ge 1° S01 58  10 --- 7659
7662 Ge 1° S01 58   2 --- 7664
7689 Ge 1° S01 58   8 --- 7697
7797 Ge 1° S01 58  15 --- 7812
7799 Ge 1° S01 58  13 --- 7812
7825 Ge 1° S01 58   8 --- 7833
7895 Ge 1° S01 58  30 --- 7925
7944 Ge 1° S01 58  18 --- 7962
8100 Ge 1° S01 58  51 --- 8151
8124 Ge 1° S01 58  27 --- 8151
8132 Ge 1° S01 58  19 --- 8151
8191 Ge 1° S01 58  30 --- 8221
8391 Ge 1° S01 58  15 --- 8406
8480 Ge 1° S01 58   2 --- 8482
8623 Ge 1° S01 58  64 --- 8687
8667 Ge 1° S01 58  20 --- 8687

58 Casi.
  0 Attuali.
 64 1° Sto +
 57 2° Sto +
 55 3° Sto +
177 Somma 
 33 % Casi/Somma

Buona serata, ciao.


SEGUE SCRIPT,

'Cadute di Lunghetta in Pos. Det. da Spia. By Joe. V.7.1 del 05/03/2013

Sub Main()
 Dim Ru(1) 
 Ru(1) = 4'ScegliRuota

 Sp = CInt(InputBox("Inserisci NumeroSpia","SCELTA SPIA",1))
 Po = CInt(InputBox("Inserisci la Posizione (1-5)","SCELTA DELLA POSIZIONE",1)) ': So = Po + 5
 Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","58")

So = 1 'InputBox("Inserisci Sorte","1=Ambata | 2=AMBO",1)

 Nu = Split("0." & Lu,".") : L = UBound(Nu)
 Ini = 3950 : Fin = EstrazioneFin
 For Es = Ini To Fin : ColoreTesto 0 : Messaggio Fin - Es
  If Estratto(Es,Ru(1),Po) = Sp Then
  Casi = Casi + 1
   Scrivi FormatSpace(Es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Po & "° ",0,0
   Scrivi "S" & Format2(Sp) & " " & Lu & " ",0,0 
    
   S = SeriePrima(Es + 1,Fin,Nu,Ru,So)
           
   If S > 0 Then    
     Rt = S - Es : Scrivi FormatSpace(Rt,3,1) & " " & String(3,"-") & FormatSpace (S,5,1)
     kSt = kSt + 1 : Redim Preserve Sto (kst) : Sto (kst) = Rt  
    Else
     Rt = Fin - Es : Scrivi String(3,"-") & " " & FormatSpace(Rt,3,1) & FormatSpace (Fin,5,1)
     kAt = kAt + 1 : Redim Preserve Att (kAt) : Att(kAt) = Rt 
   End If

  End If
 Next
 
 Scrivi : Scrivi Casi & " Casi."
 Scrivi FormatSpace (CInt (kAt),3,1) & " Attuali."
 OrdinaMatrice  Sto,-1
 For k = 1 To 3 : Scrivi FormatSpace (Sto(k),3,1) & " "& K & "° Sto +" : So = So + Sto (k) : Next
 Scrivi So  &  " Somma "'& K-1 & " Masssimi Storici" 
 Scrivi FormatSpace ((Round (Casi * 100/ So)),3,1) & " % Casi/Somma"  
End Sub

 

[Lucio P.]

Ciao Joe, lascia stare ho risolto con Pietro.
Grazie