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.
Numeri Isotopi - ricerca con Spaziometria
- Creatore Discussione skygirl
- Data di inizio
Quando cerco qualche formazione faccio così:
Tabelloni - Tabellone analitico - Evidenzia - (in basso a sinistra clicco) NEW -
nel tuo caso inserisco i vertibili 11 22 33 44 etc etc
Poi facco SAVE e metto il nome (Vertibili) o quello che si ricerca così la prossima volta li ho già salvati senza reinserirli
Magari ci sono altre vie che non conosco
ciao
Tabelloni - Tabellone analitico - Evidenzia - (in basso a sinistra clicco) NEW -
nel tuo caso inserisco i vertibili 11 22 33 44 etc etc
Poi facco SAVE e metto il nome (Vertibili) o quello che si ricerca così la prossima volta li ho già salvati senza reinserirli
Magari ci sono altre vie che non conosco
ciao
joe
Advanced Member >PLATINUM PLUS<
Buon giorno a tutte/i.
Io scripter, reputo che per un numero sia conveniente la ricerca manuale,
per più di un numero quella script.
Così pure per un numero è idonea una variabile.
Oltre due, penso sia meglio organizzarli in array.
e ...prevedere cicli For-Next.
Ciò premesso, per i vertibili, che sono tanti,
forse sarebbe meglio uno script ad hoc.
Per ora, considerando che ho già proposto alcuni dati
attuali, in argomento ed in altro forum,
consiglio di seguire le evoluzioni del 90 (II° Determinato) in Cagliari e Venezia.
90 a Firenze con il 45 ed il 73 (tre x uno / due)
90.68 a Bari / Genova (due per uno) ed in Ambo anche a tutte.
Il vertibile 09 ancora a Bari ed in abbinamento.
10.58.85 Cagliari (tre per uno / due)
Per chi preferisce pronostici posizionali
58 x Estratto (e 4° Determinato) Cagliari e Torino.
85 Estratto a Bari (e 4° Determinato)
Ab libitum ... estraendi.
Io scripter, reputo che per un numero sia conveniente la ricerca manuale,
per più di un numero quella script.
Così pure per un numero è idonea una variabile.
Oltre due, penso sia meglio organizzarli in array.
e ...prevedere cicli For-Next.
Ciò premesso, per i vertibili, che sono tanti,
forse sarebbe meglio uno script ad hoc.
Per ora, considerando che ho già proposto alcuni dati
attuali, in argomento ed in altro forum,
consiglio di seguire le evoluzioni del 90 (II° Determinato) in Cagliari e Venezia.
90 a Firenze con il 45 ed il 73 (tre x uno / due)
90.68 a Bari / Genova (due per uno) ed in Ambo anche a tutte.
Il vertibile 09 ancora a Bari ed in abbinamento.
10.58.85 Cagliari (tre per uno / due)
Per chi preferisce pronostici posizionali
58 x Estratto (e 4° Determinato) Cagliari e Torino.
85 Estratto a Bari (e 4° Determinato)
Ab libitum ... estraendi.
joe
Advanced Member >PLATINUM PLUS<
Buon giorno a tutte/i.
Master ha pubblicato recentemente questo script,
che svolge una ricerca molto simile.
Infatti Verticale per alcuni è sinonimo di isotopo.
Si trattta di adattarlo e per questo è facile intuire che
le modifiche devono riguardare semplicemente
la seconda di queste due linee:
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
If Distanza(a,b) = 45 Then
dove invece di cercare un diametrale (in Distanza = 45)
sarà sufficiente cercare il Vertibile.
Poi ci sarà da risolvere la parte più difficile della richiesta:
"Sul Tabellone Analitico".
Vi proporrò una soluzione anche per questa.
Master ha pubblicato recentemente questo script,
che svolge una ricerca molto simile.
Infatti Verticale per alcuni è sinonimo di isotopo.
Codice:
'Ambo Diametrale Verticale
Sub Main()
ce = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = Ini To EstrazioneFin
ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(es) & " " & String(7,"="),1 : ColoreTesto 0
For r = 1 To 10
For p = 1 To 5
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
If Distanza(a,b) = 45 Then
If p = p1 Then ColoreTesto 2 Else ColoreTesto 0
Scrivi " " & Format2(p) & "^ " & FormatSpace(SiglaRuota(r),4) & FormatSpace((a),6),0,0
Scrivi Format2(p1) & "^ " & FormatSpace(SiglaRuota(r1),4) &(b)
End If
Next
Next
Next
Next
Scrivi
Next
End SubSi trattta di adattarlo e per questo è facile intuire che
le modifiche devono riguardare semplicemente
la seconda di queste due linee:
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
If Distanza(a,b) = 45 Then
dove invece di cercare un diametrale (in Distanza = 45)
sarà sufficiente cercare il Vertibile.
Poi ci sarà da risolvere la parte più difficile della richiesta:
"Sul Tabellone Analitico".
Vi proporrò una soluzione anche per questa.
joe
Advanced Member >PLATINUM PLUS<
Vediamo intanto lo script ...
con le modifiche per la ricerca dei Vertibili ISOTOPI.
(E' semplice intuire come "Diametrale" convertito in "Vertibile"
lasci intravvedere la possibilità di interscambio ... con le altre cabale).
In esso, ho ottimizzato le variabili / velocizzando la ricerca,
lasciando (remmate), come traccia dell'ottimizzazione
le istruzioni divenute "inutili".
Ora lo sviluppo "lottologicamente difficile"
è quello che s'era definito "sul Tabellone Analalitico"
Parafrasato si può dire che ... i lottoroni, presenti sul T.A. ,
hanno ancora il ritardo che compete a quel 'rigo' del tabellone stesso.
Sulla scorta di quanto appena detto è evidente che ho già
aggiunto il ritardo di rigo, si tratta solo più di verificare
se i Vertibili, di quel rigo ovvero di quella data
ovvero dei casi in oggetto ... lo hanno.
con le modifiche per la ricerca dei Vertibili ISOTOPI.
(E' semplice intuire come "Diametrale" convertito in "Vertibile"
lasci intravvedere la possibilità di interscambio ... con le altre cabale).
Codice:
'Option Explicit
Sub Main()
Dim Ini,Fin,Es,Rit
Dim P,R1,R2,A,B
Ini = EstrazioneFin - 15
Fin = EstrazioneFin
For Es = Ini To EstrazioneFin
Rit = Fin - Es
ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(Es) & " " & String(7,"="),1 : ColoreTesto 0
For R1 = 1 To 10
For P = 1 To 5
For R2 = R1 + 1 To 11
If R2 = 11 Then R2 = 12
'For p1 = 1 To 5
A = Estratto(Es,R1,P): B = Estratto(Es,R2,P)
If A = Vert(B) Then
'If p = p1 Then ColoreTesto 2 Else ColoreTesto 0
Scrivi " " & Format2(P) & "^ " & FormatSpace(SiglaRuota(R1),4) & FormatSpace((A),6),0,0
Scrivi Format2(P) & "^ " & FormatSpace(SiglaRuota(R2),4) &(B)
End If
'Next
Next
Next
Next
Scrivi
Next
End SubIn esso, ho ottimizzato le variabili / velocizzando la ricerca,
lasciando (remmate), come traccia dell'ottimizzazione
le istruzioni divenute "inutili".
Ora lo sviluppo "lottologicamente difficile"
è quello che s'era definito "sul Tabellone Analalitico"
Parafrasato si può dire che ... i lottoroni, presenti sul T.A. ,
hanno ancora il ritardo che compete a quel 'rigo' del tabellone stesso.
Sulla scorta di quanto appena detto è evidente che ho già
aggiunto il ritardo di rigo, si tratta solo più di verificare
se i Vertibili, di quel rigo ovvero di quella data
ovvero dei casi in oggetto ... lo hanno.
joe
Advanced Member >PLATINUM PLUS<
Buon Giorno a tutte/i.
In questa terza/ultima versione,
ho inserito il controllo per la selezioni dei casi ATTUALI.
Ho modificato anche leggermente l'output.
In questo ho previsto che anche le date
siano riportate, solo se significative ed una sola volta.
Sicchè in output si hanno, solo, date e numeri ancora validi.
Le varie "Estrazioni" sono separate cioè datate
ed in esse le coppie sono raggruppate in funzione del ritardo.
In sintesi ... come se fossero quelle/i sul tabellone analitico compatto.
In questa terza/ultima versione,
ho inserito il controllo per la selezioni dei casi ATTUALI.
Ho modificato anche leggermente l'output.
In questo ho previsto che anche le date
siano riportate, solo se significative ed una sola volta.
Sicchè in output si hanno, solo, date e numeri ancora validi.
Le varie "Estrazioni" sono separate cioè datate
ed in esse le coppie sono raggruppate in funzione del ritardo.
In sintesi ... come se fossero quelle/i sul tabellone analitico compatto.
Codice:
Option Explicit
Sub Main()
'Ricerca Coppie VERTIBILI Isotope ATTUALI
'Script di Master. Rev. By Joe.
Dim Ini,Fin,Es,Rit
Dim P,R1,R2,A,B,D
Ini = EstrazioneFin - 155
Fin = EstrazioneFin
For Es = Ini To EstrazioneFin
Rit = Fin - Es : D = True
For P = 1 To 5
For R1 = 1 To 10
For R2 = R1 + 1 To 11
If R2 = 11 Then R2 = 12
A = Estratto(Es,R1,P): B = Estratto(Es,R2,P)
If A = Vert (B) Then
If EstrattoRitardoTurbo(R1,A,Es,Fin) = Rit Then
If EstrattoRitardoTurbo(R2,B,Es,Fin) = Rit Then
If D Then
ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(Es) & " ",True,False
Scrivi String(7,"="),1 : ColoreTesto 0
D = False
End If
Scrivi " " & P & "^" & FormatSpace(SiglaRuota(R1),4,True) & FormatSpace((A),3,True),0,0
Scrivi Space(2) & FormatSpace(SiglaRuota(R2),2,True) & FormatSpace(B,3,True),0,0
Scrivi Space(2) & "Rit" & FormatSpace(Rit,3,True)
End If
End If
End If
Next
Next
Next
Next
ColoreTesto 1 : Scrivi String(5,"=") & " Script By Joe ",True,False
Scrivi String(6,"="),1 : ColoreTesto 0
End Subjoe
Advanced Member >PLATINUM PLUS<
Master;n2035307 ha scritto:
Ciao Master.
Riguardo al "solo i numeri isotopi";
Penso sia già parte fondamentale di quanto richiesto da Skygirl nel primo messaggio.
lo script, dovrebbe già aver accolto e trovato soluzione a questa vostra richiesta.
Se ho capito male ... si può trovare, anche,
qualche altra soluzione, alternativa e specifica.
Purtroppo però, non ho capito bene cosa mi si chiede.
Quindi avrei bisogno di ulteriori spiegazioni
per sapere/capire cosa fare.
Cioè ...
"solo i numeri isotopi" vuol dire:
solo i numeri ? (oppure)
in colore rosso: i numeri.
o ... qualcos'altro.
Fammi sapere.
Cordiali saluti.Ciao Joe
la richiesta che le ho fatto è per una mia conoscenza su come fare....
Lo script messo nel post #6 ricerca gli ambi diametrali verticali
evidenziando in rosso quando sono isotopi
questo è l'output di esempio
======= 03.01.2017 =======
03^ BA 80 03^ FI 35
04^ BA 42 01^ FI 87
04^ BA 42 05^ GE 87
05^ BA 71 05^ CA 26
02^ CA 70 04^ RO 25
04^ CA 61 04^ VE 16
05^ CA 26 01^ TO 71
02^ FI 20 04^ MI 65
01^ GE 61 04^ VE 16
03^ GE 63 01^ PA 18
04^ GE 17 03^ RO 62
01^ MI 19 01^ VE 64
05^ MI 23 05^ NA 68
03^ NA 63 01^ PA 18
05^ NA 68 05^ PA 23
03^ PA 19 01^ VE 64
05^ VE 31 01^ NZ 76
ora se è possibile vorrei delle indicazioni (lezione) come posso trasformarlo così:
Anziché avere tutta la linea di colore rosso che evidenzia quando isotopi
vorrei che solo i numeri siano rossi quando isotopi (come sotto)
Grazie
======= 03.01.2017 =======
03^ BA 80 03^ FI 35
04^ BA 42 01^ FI 87
04^ BA 42 05^ GE 87
05^ BA 71 05^ CA 26
02^ CA 70 04^ RO 25
04^ CA 61 04^ VE 16
05^ CA 26 01^ TO 71
02^ FI 20 04^ MI 65
01^ GE 61 04^ VE 16
03^ GE 63 01^ PA 18
04^ GE 17 03^ RO 62
01^ MI 19 01^ VE 64
05^ MI 23 05^ NA 68
03^ NA 63 01^ PA 18
05^ NA 68 05^ PA 23
03^ PA 19 01^ VE 64
05^ VE 31 01^ NZ 76
la richiesta che le ho fatto è per una mia conoscenza su come fare....
Lo script messo nel post #6 ricerca gli ambi diametrali verticali
evidenziando in rosso quando sono isotopi
questo è l'output di esempio
======= 03.01.2017 =======
03^ BA 80 03^ FI 35
04^ BA 42 01^ FI 87
04^ BA 42 05^ GE 87
05^ BA 71 05^ CA 26
02^ CA 70 04^ RO 25
04^ CA 61 04^ VE 16
05^ CA 26 01^ TO 71
02^ FI 20 04^ MI 65
01^ GE 61 04^ VE 16
03^ GE 63 01^ PA 18
04^ GE 17 03^ RO 62
01^ MI 19 01^ VE 64
05^ MI 23 05^ NA 68
03^ NA 63 01^ PA 18
05^ NA 68 05^ PA 23
03^ PA 19 01^ VE 64
05^ VE 31 01^ NZ 76
ora se è possibile vorrei delle indicazioni (lezione) come posso trasformarlo così:
Anziché avere tutta la linea di colore rosso che evidenzia quando isotopi
vorrei che solo i numeri siano rossi quando isotopi (come sotto)
Grazie
======= 03.01.2017 =======
03^ BA 80 03^ FI 35
04^ BA 42 01^ FI 87
04^ BA 42 05^ GE 87
05^ BA 71 05^ CA 26
02^ CA 70 04^ RO 25
04^ CA 61 04^ VE 16
05^ CA 26 01^ TO 71
02^ FI 20 04^ MI 65
01^ GE 61 04^ VE 16
03^ GE 63 01^ PA 18
04^ GE 17 03^ RO 62
01^ MI 19 01^ VE 64
05^ MI 23 05^ NA 68
03^ NA 63 01^ PA 18
05^ NA 68 05^ PA 23
03^ PA 19 01^ VE 64
05^ VE 31 01^ NZ 76
joe
Advanced Member >PLATINUM PLUS<
Ok.
Ogni riga di output dopo la data è composta di 2 gruppi
di 3 elementi posizione/ruota/numero.
Il colore deve essere attribuito sl solo numero.
per sommi capi
coloretesto 0 : scrivi posizione
coloretesto 0 : scrivi ruota
coloretesto 2 : scrivi numero
poi ripetuto per la seconda ruota e numero.
Eseguendo L' output avverrà su 6 linee.
Per mantenerlo su di una sola riga
ognuna delle prime 5 linee di codice
la termini con ",false, false".
Ogni riga di output dopo la data è composta di 2 gruppi
di 3 elementi posizione/ruota/numero.
Il colore deve essere attribuito sl solo numero.
per sommi capi
coloretesto 0 : scrivi posizione
coloretesto 0 : scrivi ruota
coloretesto 2 : scrivi numero
poi ripetuto per la seconda ruota e numero.
Eseguendo L' output avverrà su 6 linee.
Per mantenerlo su di una sola riga
ognuna delle prime 5 linee di codice
la termini con ",false, false".
L
LuigiB
Guest
ciao , un altro metodo che consente un maggior controllo lo si ottiene costruendo una stringa html
per farlo c'è l'apposita funzione
come mostrato con lo script seguente il quale per semplicita non cerca gli isotopi ma evidenzia i numeri pari e dispari dell'ultima estrazione l'esmpio esula dalal richiesta ma mostra come applicare diversi stili per il carattere sulla stessa riga
buona befana a tutti ,,
per farlo c'è l'apposita funzione
come mostrato con lo script seguente il quale per semplicita non cerca gli isotopi ma evidenzia i numeri pari e dispari dell'ultima estrazione l'esmpio esula dalal richiesta ma mostra come applicare diversi stili per il carattere sulla stessa riga
buona befana a tutti ,,
Codice:
Option Explicit
Sub Main
Dim sTesto
Dim n ,r , e
Dim Bold ,Color,hcolor,size,sName,Underline,Striked
Bold = True ' grassetto (true/false)
Color = vbRed ' colore (un colore valido)
hcolor = - 1 ' colore di evidenziatore un colore valido o -1 per nessun colore
size = 2 ' dimensione del carattere
sName= "Courier new" ' nome font
Underline = True ' sottolineato (true/false)
Striked = False ' barrato (true/false)
For r = 1 To 10
sTesto = ""
For e = 1 To 5
n = Format2(Estratto ( EstrazioneFin , r , e ))
If n Mod 2 =0 Then
' se il numero è pari applica lo stile del testo
sTesto = sTesto & GetTestoHtml( n ,Bold ,Color,hcolor,size,sName,Underline,Striked) & " "
Else
' se il numero è dispari scrive con lo stile di default
sTesto = sTesto & n & " "
End If
Next
Scrivi sTesto
Next
End Subjoe
Advanced Member >PLATINUM PLUS<
Ringrazio anch'io Luigi,
per il prezioso contributo che mi guarderò con calma.
Ho convertito lo pseudocodice che avevo suggerito
in script per soddisfare la richiesta di Master.
Ho anche semplificato un pò, la procedura.
Applicando cioè, il test condizionale, SOLO dove serve.
Ovvero "per il numero" e subito dopo averlo scritto
viene reimpostato il colore nero.
Idem per il grassetto o bold con il l quale
si evidenziano maggiormente i numeri-rossi.
per il prezioso contributo che mi guarderò con calma.
Ho convertito lo pseudocodice che avevo suggerito
in script per soddisfare la richiesta di Master.
Ho anche semplificato un pò, la procedura.
Applicando cioè, il test condizionale, SOLO dove serve.
Ovvero "per il numero" e subito dopo averlo scritto
viene reimpostato il colore nero.
Idem per il grassetto o bold con il l quale
si evidenziano maggiormente i numeri-rossi.
Codice:
Sub Main()
ce = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = Ini To EstrazioneFin
ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(es) & " " & String(7,"="),1 : ColoreTesto 0
For r = 1 To 10
For p = 1 To 5
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
If Distanza(a,b) = 45 Then
ColoreTesto 0
Scrivi " " & Format2(p) & "^ ",0,0
Scrivi FormatSpace(SiglaRuota(r),4),0,0
If p = p1 Then ColoreTesto 2 : GR = True
Scrivi FormatSpace(Format2(a),6),GR,0
ColoreTesto 0 : GR = False
Scrivi Format2(p1) & "^ ",0,0
Scrivi FormatSpace(SiglaRuota(r1),4),0,0
If p = p1 Then ColoreTesto 2 : GR = True
Scrivi Format2 (b),GR
ColoreTesto 0 : GR = False
End If
Next
Next
Next
Next
Scrivi
Next
End Subjoe
Advanced Member >PLATINUM PLUS<
Ok benissimo.
Una nota tecnica:
Quanto t'ho consigliato è molto generico.
Compatibile con i Basic di livello più basso / vecchi.
Spaziometria ha un Basic più evoluto.
Quindi potresti semplificare molto lo script, con questo codice per l'output.
Una nota tecnica:
Quanto t'ho consigliato è molto generico.
Compatibile con i Basic di livello più basso / vecchi.
Spaziometria ha un Basic più evoluto.
Quindi potresti semplificare molto lo script, con questo codice per l'output.
Codice:
If Distanza(a,b) = 45 Then
Scrivi " " & format2(p) & "^ " & SiglaRuota(r) & Space(2),0,0
Scrivi Format2(a) ,0,0,,Iif(p=p1,2,0)
Scrivi Space (4) & format2 (p1) & "^ " & SiglaRuota(r1) & Space(2),0,0
Scrivi Format2(b),0,1,,Iif(p=p1,2,0)
End Ifjoe
Advanced Member >PLATINUM PLUS<
Buona sera a tutte/i.
S'e accennato al fatto che si può anche utilizzare
il test condizionale TRA i parametri dell' istruzione "Scrivi"
per mezzo di un comando molto simile alle formule tipiche di excel.
Cioè: "Iif (p=p1,2,0)" per altrenare i colori Rosso e Nero (2/0).
Tra "i parametri" c'è anche al GRASSETTO. (1/0 o True/False)
Quindo, lo script modificato per utilizzare anche
questa seconda opzione diventa:
S'e accennato al fatto che si può anche utilizzare
il test condizionale TRA i parametri dell' istruzione "Scrivi"
per mezzo di un comando molto simile alle formule tipiche di excel.
Cioè: "Iif (p=p1,2,0)" per altrenare i colori Rosso e Nero (2/0).
Tra "i parametri" c'è anche al GRASSETTO. (1/0 o True/False)
Quindo, lo script modificato per utilizzare anche
questa seconda opzione diventa:
Codice:
Sub Main()
ce = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = Ini To EstrazioneFin
ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(es) & " " & String(7,"="),1 : ColoreTesto 0
For r = 1 To 10
For p = 1 To 5
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
[B]If Distanza(a,b) = 45 Then [/B]
Scrivi " " & Format2(p) & "^ " & SiglaRuota(r) & Space(2),0,0
Scrivi Format2(a) ,Iif(p=p1,1,0),0,,Iif(p=p1,2,0)
Scrivi Space (4) & Format2 (p1) & "^ " & SiglaRuota(r1) & Space(2),0,0
Scrivi Format2(b),Iif(p=p1,1,0),1,,Iif(p=p1,2,0)
[B]End If[/B]
Next
Next
Next
Next
Scrivi
Next
End SubUltima estrazione Lotto
-
Estrazione del lotto
venerdì 28 febbraio 2025Bari8185334775Cagliari7340186072Firenze0715678006Genova0445668514Milano5822648661Napoli5617502146Palermo3059728340Roma5821757055Torino4247847267Venezia6457338419Nazionale1478184008Estrazione Simbolotto
Cagliari
3311170937
