richiesta scrip

[armando59]

una cortesia,se si può fare questo scrip.
sarebbe possibile un listrato che elabora i primi 5 ritardatari sulle 11 ruote e anche su tutte?
magari mettendo le ruote e i numeri in una griglia tipo quella del televideo.

grazie

 

[Joe91]

Ciao Armando,

una prima parte della tua domanda è semplicissima da risolvere. (CON SPAZIOMETRIA)

Quando citi il TeleVideo ... dipende da quale, ed allora scendo allo specifico:

Ti servono anche i ritardi dei ( 5? (il TV per antonomasia ne ha 4)) Capolista ?

Su tutte ... non so interpretare in maniera univoca. Spiega, con un esempio.

Buona Giornata.

 

[armando59]

grazie x la risposta
si, intendevo la prima parte della richiesta per ( spaziometria)
in quanto su tutte intendevo una ricerca sulle 10ruote, dei cinque numeri + in ritardo su tutto
il quadro estrazionale.
spero di essermi fatto capire
comunque buona giornata anche a te
ciao joe

 

[Joe91]

Ciao Armando ...

Ti rispondo dicendo che porto avanti con l'ottimizzazione dello script ... del MicroBrowser,

poi, capirai perchè, ho scritto semplicissimo.

 

[Joe91]

una cortesia, se si può fare questo script.

Sarebbe possibile un listato che elabora i primi 5 ritardatari sulle 11 ruote ?

Grazie

ATTENZIONE: il confronto è con quanto si elabora a questo percorso Internet :

LOTTOCED / LOTTO / TOP 15 RITARDI.

Lo script, è lo stesso del Microbrowser 3.0 "ma lavora" con gli elenchi ordinati degli estratti.

Un Array di 90 numeri. Di questi il confronto è sui primi 15 RITARDATARI.

NumeroPosRit invece di Estratto è l'unica differenza sostanziale con lo script da cui è ricavato.

Sub Main()

REM MicroBrowser con Evidenziatore By Joe V.3.1 del 18/05/2013
REM ELENCHI ORDINATI DEGLI ESTRATTI x Armando59
REM http://forum.lottoced.com/f12/script-104315/index4.html#post1159871 

Sp = " " 'Spazio
Es = EstrazioneFin 'ID-ESTRAZIONE LETTO DALLO SCRIPT.

N = InputBox("Numeri da Cercare ","INSERISCI  I NUMERI ","87.88.89")
Nu = Split("0."& N,".")
Scrivi Es & " - " & DataEstrazione(Es),True : Scrivi

 For R = 1 To 12 : If R = 11 Then R = 12 
 Scrivi SiglaRuota(R) & Sp,1,0
 
  For P = 1 To 15
   E = NumeroPosRit (Es,R,P)
     For X  = 1 To UBound (Nu)
       If E = CInt (Nu(X)) Then ColoreTesto 2 : Gr = True : T = True
     Next
   Scrivi Format2(E) & Sp,Gr,0 : ColoreTesto 0 : Gr = False
  Next
  Scrivi "" 'ACapo 

 Next
 
 If T = False Then Scrivi : Scrivi "Il Numero " & N & " non è presente.",True

End Sub

Alla data del 14 Maggio 2013 ... dal confronto si nota l'inversione al del 14° e 15° Ritardatario.

Dei Lottroni: 88 / 89 a Firenze. Dipende dall'algoritmo di calcolo.

Quello prodotto della combinazione, Spaziometria / Script a parere mio è migliore.

Buona Giornata a Tutti.

PS: Confermo l' affermazione/ipotesi precedentemente esposta

effettuando il conteggio sul Tabellone Analitico di FIRENZE,

validando i risultati prodotti dallo script. (in SPAZIOMETRIA)


| .. ... .. ... .. ... .. ... 58=07° | 37
| 73=08° .. ... 27=09° .. ... .. ... | 36
| .. ... .. ... .. ... .. ... .. ... | 35
| .. ... 60=10° .. ... .. ... .. ... | 34
| 51=11° .. ... .. ... .. ... 17=12° | 33
| .. ... .. ... .. ... .. ... .. ... | 32
| .. ... .. ... 87=13° .. ... .. ... | 31
| .. ... .. ... .. ... .. ... .. ... | 30
| .. ... .. ... .. ... 89=14° 88=15° | 29 <<<===
| .. ... .. ... .. ... .. ... .. ... | 28
| .. ... .. ... 75=16° .. ... .. ... | 27
| .. ... .. ... 31=17° 35=18° .. ... | 26
| .. ... .. ... .. ... .. ... 57=19° | 25

 

[armando59]

ottimo lavoro, è meglio di quello che cercavo

grazie e buona domenica ciao joe91

 

[Joe91]

Ciao Armando,

pur contento che ti sia gradito lo script ... ho trovato singolare la richiesta.

Sia perchè poteva essere soddisfatta con "l'ultimo" script a cui stavo lavorando ... sia con il primo che avevo fatto decenni fa.

Pur inadeguato agli script "moderni" ed impresentabile ai gorni nostri, produce questo:

Estr. N° 8693 del 21.05.2013

Ruota       -R--I--T--A--R--D--I-   -E--S--T--R--A--T--T--I- Rit.Lun

           1°   2°   3°   4°   5°     1°   2°   3°   4°   5°

Bari       85   52   78   70   71                              5
Ritardo   111  106  105   82   60                         

Cagliari   68   17   22   12   56                              2
Ritardo    62   54   53   51   50                         

Firenze    78   25    7   42   77                              7
Ritardo    87   83   57   53   51                         

Genova     36    9   11   53   86                              3
Ritardo   104   77   66   66   64                         

Milano     74   53   37   76   77                              5
Ritardo    98   83   63   62   61                         

Napoli     70   62   28   36   21                              1
Ritardo    55   53   51   41   40                         

Palermo    27   59   22   24   21                              5
Ritardo   128   80   67   64   53                         

Roma       35   49   34   78   86                       22     0
Ritardo    80   68   56   54   47                       52

Torino     53   60   22   16   15                              3
Ritardo    83   57   53   52   51                         

Venezia    47   41   19   20   71                              1
Ritardo    84   66   59   56   55                         

Tutte      72   62   78   33   50        32   24   28   75     0
Ritardo    11    6    6    5    5         8    7    6    6

Nazionale  20   43   78   26   25                              3
Ritardo    69   68   63   60   59

Con evidenti rilievi a Bari per i ritardisti.

 

[armando59]

Ciao Armando,

pur contento che ti sia gradito lo script ... ho trovato singolare la richiesta.

Sia perchè poteva essere soddisfatta con "l'ultimo" script a cui stavo lavorando ... sia con il primo che avevo fatto decenni fa.

Pur inadeguato agli script "moderni" ed impresentabile ai gorni nostri, produce questo:

Estr. N° 8693 del 21.05.2013

Ruota       -R--I--T--A--R--D--I-   -E--S--T--R--A--T--T--I- Rit.Lun

           1°   2°   3°   4°   5°     1°   2°   3°   4°   5°

Bari       85   52   78   70   71                              5
Ritardo   111  106  105   82   60                         

Cagliari   68   17   22   12   56                              2
Ritardo    62   54   53   51   50                         

Firenze    78   25    7   42   77                              7
Ritardo    87   83   57   53   51                         

Genova     36    9   11   53   86                              3
Ritardo   104   77   66   66   64                         

Milano     74   53   37   76   77                              5
Ritardo    98   83   63   62   61                         

Napoli     70   62   28   36   21                              1
Ritardo    55   53   51   41   40                         

Palermo    27   59   22   24   21                              5
Ritardo   128   80   67   64   53                         

Roma       35   49   34   78   86                       22     0
Ritardo    80   68   56   54   47                       52

Torino     53   60   22   16   15                              3
Ritardo    83   57   53   52   51                         

Venezia    47   41   19   20   71                              1
Ritardo    84   66   59   56   55                         

Tutte      72   62   78   33   50        32   24   28   75     0
Ritardo    11    6    6    5    5         8    7    6    6

Nazionale  20   43   78   26   25                              3
Ritardo    69   68   63   60   59

Con evidenti rilievi a Bari per i ritardisti.

ciao joe91 cercavo un lavoro simile
se non è troppo disturbo per me sarebbe il massimo averlo ti ringrazio ciao.

 

[Joe91]

Ciao Armando,

Ho aggiunto, qui di seguito lo script cui avevo accennato.

Considera ... che è, molto-molto vecchio e ci possono essere alcune imperfezioni.

Tuttavia, esegue calcoli che, ancor oggi, non tutti riescono a compiere più agevolmente.

Buona Domenica a tutte/i.

Sub Main()
'Max_Rit_SM Script By Joe V.SM. (-Chr(9))
Dim n(1),ri(90),m(5),g(5),gp(5),mp(5),rz(1)
i = EstrazioneFin - 200 : f = EstrazioneFin
Scrivi "Estr. N° " & CStr(f) & " del " & CStr(DataEstrazione(f)),1 : Scrivi
Scrivi FormatSpace("Ruota",8) & Space(4) & "-R--I--T--A--R--D--I-",1,0
Scrivi "   -E--S--T--R--A--T--T--I- Rit.Lun",1,1 : Scrivi
Scrivi Space(8),0,0
For X = 1 To 5 : Scrivi FormatSpace(x,4,1) & "°",1,0 : Next
Scrivi Space(2),0,0
For X = 1 To 5 : Scrivi FormatSpace(x,4,1) & "°",1,0 : Next
Scrivi : Scrivi
For ru = 1 To 12 : AvanzamentoElab 0,12,ru
For x = 1 To 90
n(1) = x
rz(1) = Ru
ri(x) = SerieRitardo(i,f,n,rz,1)
Next
For l = 1 To 5
mp(l) = 0
For x = 1 To 90
If ri(x) > mp(l) Then
mp(l) = ri(x)
g(l) = x
End If
Next
ri(g(l)) = 0 'cancella il massimo trovato
Next
For rr = 1 To 50 'Estrazioni precedenti
For x = 1 To 90
n(1) = x
ri(x) = SerieRitardo(i,f - rr,n,rz,1)
Next
For l = 1 To 5
m(l) = 0
For x = 1 To 90
If ri(x) > m(l) Then
m(l) = ri(x)
gp(l) = x
End If
Next
ri(gp(l)) = 0 'cancella il massimo trovato
Next
For x = 1 To 5 'trova gli estratti
For y = 1 To 5
If gp(y) = g(x) Then gp(y) = ""
Next
Next
If gp(1) & gp(2) & gp(3) & gp(4) & gp(5) <> "" Then rm = rr - 1 : rr = 50 'Trovato almeno 1 azzera il ritardo; Esce
If rm > 0 Then gp(1) = "" : gp(2) = "" : gp(3) = "" : gp(4) = "" : gp(5) = "" 'Non è la prima di ritardo cancella il vecchio estratto
Next
Scrivi FormatSpace(NomeRuota(ru),10,0) & FormatSpace(g(1),3,1) & FormatSpace(g(2),5,1) & FormatSpace(g(3),5,1) & FormatSpace(g(4),5,1) & FormatSpace(g(5),5,1),0,0
Scrivi FormatSpace(gp(1),5,1) & FormatSpace(gp(2),5,1) & FormatSpace(gp(3),5,1) & FormatSpace(gp(4),5,1) & FormatSpace(gp(5),5,1),0,0
Scrivi FormatSpace(rm,6,1),1,1
For x = 1 To 5 'cancella i ritardi dei vecchi NON estratti
If gp(x) = "" Then m(x) = ""
Next
Scrivi FormatSpace("Ritardo",10,0) & FormatSpace(mp(1),3,1) & FormatSpace(mp(2),5,1) & FormatSpace(mp(3),5,1) & FormatSpace(mp(4),5,1) & FormatSpace(mp(5),5,1),0,0
Scrivi FormatSpace(m(1),5,1) & FormatSpace(m(2),5,1) & FormatSpace(m(3),5,1) & FormatSpace(m(4),5,1) & FormatSpace(m(5),5,1)
Scrivi
Next
End Sub

 

[rabberto]

Ciao Joe91 questo script dimostra tutta la tua bravura , sei veramente uno dei migliori , grazie dello script , ciao.

 

[armando59]

grazie joe91 sei veramante bravo
ciao e buona domenica.

 

[Joe91]

Vi ringrazio.