Aiuto per correzione script

[Lucio P.]

MAGNIFICO JOE!!! Hai interpretato correttamente
Grazie per l'aiuto senza del quale non avrei potuto far nulla.

Ciao e buona giornata

 

[Lucio P.]

Piccola svista

Piccola svista

Ciao Joe, mi sono messo da una mezzora dietro questo script che mi allevia un mucchio di ore; però mi sono accorto solo ora che manca la posizione del numero Spia e quindi lo sfaldamento sulla medesima del numero aggregato.

L'output che segue, esamina il numero 13 come Spia e 12 come aggregato in seconda posizione.
Penso che la soluzione migliore sia quella d'inserire una colonna fra ruota e numero Spia che indichi per l'appunto la posizione di rilevamento e gioco.

216 Ba S13 12  73 ---  289 350 Ba S13 12  26 ---  376
 608 Ba S13 12  60 ---  668
 868 Ba S13 12 127 ---  995
 911 Ba S13 12  84 ---  995
 941 Ba S13 12  54 ---  995
 966 Ba S13 12  29 ---  995
1057 Ba S13 12   8 --- 1065
1068 Ba S13 12  54 --- 1122
1155 Ba S13 12  24 --- 1179
1156 Ba S13 12  23 --- 1179
1227 Ba S13 12  42 --- 1269
1259 Ba S13 12  10 --- 1269
1279 Ba S13 12   3 --- 1282
1300 Ba S13 12 200 --- 1500
1312 Ba S13 12 188 --- 1500
1375 Ba S13 12 125 --- 1500
1423 Ba S13 12  77 --- 1500
1447 Ba S13 12  53 --- 1500
1532 Ba S13 12 105 --- 1637
1611 Ba S13 12  26 --- 1637
1655 Ba S13 12  18 --- 1673
1699 Ba S13 12   9 --- 1708
1794 Ba S13 12  11 --- 1805
1838 Ba S13 12 113 --- 1951
1877 Ba S13 12  74 --- 1951
1892 Ba S13 12  59 --- 1951
2041 Ba S13 12   6 --- 2047
2061 Ba S13 12  58 --- 2119
2101 Ba S13 12  18 --- 2119
2117 Ba S13 12   2 --- 2119
2211 Ba S13 12 101 --- 2312
2280 Ba S13 12  32 --- 2312
2283 Ba S13 12  29 --- 2312
2404 Ba S13 12  40 --- 2444
2497 Ba S13 12 153 --- 2650
2513 Ba S13 12 137 --- 2650
2541 Ba S13 12 109 --- 2650
2597 Ba S13 12  53 --- 2650
2603 Ba S13 12  47 --- 2650
2619 Ba S13 12  31 --- 2650
2632 Ba S13 12  18 --- 2650
2701 Ba S13 12 202 --- 2903
2760 Ba S13 12 143 --- 2903
2989 Ba S13 12  36 --- 3025
3132 Ba S13 12  12 --- 3144
3169 Ba S13 12  34 --- 3203
3210 Ba S13 12  51 --- 3261
3253 Ba S13 12   8 --- 3261
3410 Ba S13 12  98 --- 3508
3458 Ba S13 12  50 --- 3508
3566 Ba S13 12 198 --- 3764
3760 Ba S13 12   4 --- 3764
3792 Ba S13 12  17 --- 3809
3996 Ba S13 12  91 --- 4087
4155 Ba S13 12   5 --- 4160
4185 Ba S13 12 151 --- 4336
4282 Ba S13 12  54 --- 4336
4334 Ba S13 12   2 --- 4336
4355 Ba S13 12   2 --- 4357
4378 Ba S13 12 133 --- 4511
4494 Ba S13 12  17 --- 4511
4523 Ba S13 12  88 --- 4611
4525 Ba S13 12  86 --- 4611
4565 Ba S13 12  46 --- 4611
4621 Ba S13 12  35 --- 4656
4634 Ba S13 12  22 --- 4656
4941 Ba S13 12  13 --- 4954
5085 Ba S13 12 256 --- 5341
5137 Ba S13 12 204 --- 5341
5223 Ba S13 12 118 --- 5341
5257 Ba S13 12  84 --- 5341
5264 Ba S13 12  77 --- 5341
5301 Ba S13 12  40 --- 5341
5342 Ba S13 12 171 --- 5513
5357 Ba S13 12 156 --- 5513
5398 Ba S13 12 115 --- 5513
5603 Ba S13 12 154 --- 5757
5660 Ba S13 12  97 --- 5757
5709 Ba S13 12  48 --- 5757
5717 Ba S13 12  40 --- 5757
5751 Ba S13 12   6 --- 5757
6003 Ba S13 12  18 --- 6021
6239 Ba S13 12 117 --- 6356
6266 Ba S13 12  90 --- 6356
6480 Ba S13 12  64 --- 6544
6619 Ba S13 12  95 --- 6714
6653 Ba S13 12  61 --- 6714
6655 Ba S13 12  59 --- 6714
6711 Ba S13 12   3 --- 6714
6729 Ba S13 12  85 --- 6814
6754 Ba S13 12  60 --- 6814
6828 Ba S13 12 233 --- 7061
6953 Ba S13 12 108 --- 7061
7008 Ba S13 12  53 --- 7061
7052 Ba S13 12   9 --- 7061
7077 Ba S13 12 246 --- 7323
7135 Ba S13 12 188 --- 7323
7309 Ba S13 12  14 --- 7323
7312 Ba S13 12  11 --- 7323
7390 Ba S13 12   6 --- 7396
7409 Ba S13 12  81 --- 7490
7436 Ba S13 12  54 --- 7490
7605 Ba S13 12  41 --- 7646
7637 Ba S13 12   9 --- 7646
7689 Ba S13 12  33 --- 7722
7713 Ba S13 12   9 --- 7722
8016 Ba S13 12   6 --- 8022
8027 Ba S13 12 218 --- 8245
8329 Ba S13 12   2 --- 8331
8488 Ba S13 12 --- 172 8660
8529 Ba S13 12 --- 131 8660
8579 Ba S13 12 ---  81 8660
8611 Ba S13 12 ---  49 8660


114 Casi.
  4 Attuali.
256 1° Sto +
246 2° Sto +
233 3° Sto +
742 Somma 
 15 % Casi/Somma

CIAO

 

[Joe91]

Ciao Lucio,

Ho inserito un' evidenziatore della posizione considerata come da te richiesto.

'Cadute di Lunghetta in Pos. Det. da Spia. By Joe. V.7.1 del 05/03/2013
Sub Main()
 Dim Ru(1) 
 Ru(1) = ScegliRuota
 Sp = CInt(InputBox("Inserisci NumeroSpia","SCELTA SPIA",48))
 Po = CInt(InputBox("Inserisci la Posizione (1-5)","SCELTA DELLA POSIZIONE",1)) : So = Po + 5
 Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","1.2.3.4.5.6.7.8.9.10")
 Nu = Split("0." & Lu,".") : L = UBound(Nu)
 Ini = 1 : 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

Buona serata a tutte/i.

 

[Lucio P.]

Grazie Joe è perfetto!

Anticipo a caldo una richiesta ma davvero non ho nessuna fretta. So benissimo che hai tante cose da svolgere con tutte le richieste che ti vengono poste ma poiché trattasi del medesimo output, e ho già fatto delle prove molto interessanti ti spiego:

Si tratta di inserire un numero Spia come ora fa, cui seguono un certo numero di aggregati supponiamo (3 numeri); di questi però, va visto lo sfaldamento per ambo su tutte le ruote.

Nel ringraziarti enormemente per l'aiuto e disponibilità, ti auguro una buona giornata.
Ciao

 

[Lucio P.]

Grazie Joe è perfetto!

Anticipo a caldo una richiesta ma davvero non ho nessuna fretta. So benissimo che hai tante cose da svolgere con tutte le richieste che ti vengono poste ma poiché trattasi del medesimo output, e ho già fatto delle prove molto interessanti ti spiego:

Si tratta di inserire un numero Spia come ora fa, cui seguono un certo numero di aggregati supponiamo (3 numeri); di questi però, va visto lo sfaldamento per ambo su tutte le ruote.

Nel ringraziarti enormemente per l'aiuto e disponibilità, ti auguro una buona giornata.
Ciao

Piccola correzione a quanto su esposto riguardante il numero "Spia".

Esso appartiene a una qualunque posizione, non più determinata ma generica, cioè ambata semplice a tutte le ruote.

Esempio:
I primi cinque numeri più frequenti a tutte per estratto dal 1871 a oggi sono:

81 con fre. 4618
12 ''''''''''''''' 4542
85 ''''''''''''''' 4533
86 ''''''''''''''' 4509
19 ''''''''''''''' 4506

Ovviamente, ognuno sceglie secondo i propri criteri quale numero o più di uno; da adottare come Spia.
A queste spie, si aggregano i numeri per ambo dei quali si vedrà lo sfaldamento a tutte le ruote.

Spero di aver chiarito nel migliore dei modi, ciao

 

[Lucio P.]

Ciao Joe, non prenderti altro disturbo ho risolto diversamente.

grazie per quanto hai fatto, ciao.