Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
richiesta scrip
- Creatore Discussione armando59
- Data di inizio
Joe91
Advanced Member >PLATINUM PLUS<
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.
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
Advanced Member >GOLD<
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
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
Advanced Member >PLATINUM PLUS<
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.
Codice:
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 SubAlla 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
Joe91
Advanced Member >PLATINUM PLUS<
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:
Con evidenti rilievi a Bari per i ritardisti.
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:
Codice:
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 59armando59
Advanced Member >GOLD<
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:
Codice: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
ciao joe91 cercavo un lavoro simile
se non è troppo disturbo per me sarebbe il massimo averlo ti ringrazio ciao.
Joe91
Advanced Member >PLATINUM PLUS<
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.
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.
Codice:
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
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 11 luglio 2025Bari3928270180Cagliari5479694361Firenze6260868005Genova4510427984Milano2859234611Napoli0155525039Palermo7517748254Roma3813792544Torino6829264006Venezia4684642767Nazionale7277466123Estrazione Simbolotto
Nazionale
1234361039
