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.
Ricerca Frequente Migliore
- Creatore Discussione Xeroxs
- Data di inizio
joe
Advanced Member >PLATINUM PLUS<
Bravo Ilegend hai dimostrato praticamente come
scrivimatrice è una istruzione basic più evoluta che
"in una parola" elenca tutto, però ha il difetto di non
poter scegliere di eliminare gli zero o di selezionare ....
mentre la routine per il rendiconto scritta ad-hoc. richiede
più lavoro per lo scripter ma fornisce esattamente quanto voluto.
scrivimatrice è una istruzione basic più evoluta che
"in una parola" elenca tutto, però ha il difetto di non
poter scegliere di eliminare gli zero o di selezionare ....
mentre la routine per il rendiconto scritta ad-hoc. richiede
più lavoro per lo scripter ma fornisce esattamente quanto voluto.
e si gioca a genova? se cosi ho sbagliato xkè io calcolavo la prima del meseSCUSATE SE MI INTROMETTO FORSE KIRA SI RIFERIVA ALLA MIA EVOLUZIONE ALLA 1 DEL MESE…(B)
Guarda niente scuse perché il metodino e ricavato dallo studio di XEROXS X ambata da 1 TO x GE...ciao burdiga sono un pò rincoglionita di questi tempimi metteresti il link ?
e kiedo scusa anke a xeroxs x averlo fatto tribulare x niente
GENOVA_36 ambata_21-69-74...….(B) x 9 colpi.
P.S: la mia proposta la trovi in questo link in 1 pagina in data 16 Gennaio chiedo scusa a Xeroxs x aver invaso il suo campo.
Ultima modifica:
joe
Advanced Member >PLATINUM PLUS<
Codice:
'Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r
Dim K,x
Dim aNumFreq(90,2),nNum
r = BA_
Ini = EstrazioneFin - 100
Fin = EstrazioneFin
r = BA_
For IdEstr = Ini To Fin
If IsUltimaDelMese(IdEstr) Then
K = K + 1
Scrivi DataEstrazione(IdEstr) & " - " & SiglaRuota(r) & " " & StringaEstratti(IdEstr,r)
For x = 1 To 5 ' Ciclo per l'estrazione della ruota
nNum = Estratto(IdEstr,r,x) ' <<<
aNumFreq(nNum,1) = nNum
aNumFreq(nNum,2) = aNumFreq(nNum,2) + 1
Next
End If
Next
Scrivi
Scrivi "Estrazioni Rilevate = " & K
'For x = 1 To 90
' aNumFreq(x,1) = x
' aNumFreq(x,2) = 0
'Next
'----------------------------------
'For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
'r = BA_
'For x = 1 To 5 ' Ciclo per l'estrazione della ruota
' aNum = Estratto(IdEstr,r,x) ' incamero l'estrazione
' aNumFreq(aNum,2) = aNumFreq(aNum,2) + 1
'If aNumFreq(aNum,2) >= 1 Then
'End If
'Next
'End If
'Next
Scrivi
Scrivi Space(10) & "Num" & " " & " Freq",1
OrdinaMatrice aNumFreq,- 1,2
ScriviMatrice(aNumFreq)
End SubGrazie Joe, Buongiorno
A Volte le cose sono più semplici di quelle che immaginiamo.
un altro piccolo passo per me per capire alcune cose.
Mi rendo conto che devo ancora apprendere qualcosa e sto facendo gli sforzi necessari purtroppo a volte ho difficoltà ma poi quando vedo anche i vostri lavori mi accorgo dove sbagliavo, capisco ed imparo ma è diverso dall esserci riuscito da solo, ma mis ono reso conto che in certi casi vedere dei lavori ben eseguiti qualche volta valgono più di mille parole,
A questo progetto ci tengo molto perchè credo possa essere utile a molti, non credo che in giro ci siano dei programmi che fanno questo, ricercare i migliori abbinamenti con il calcolo dell'ambata e afrli a mano è davvero dispersivo e credetemi molte volte con quel frequente l'ambata si abbina ci vuole sempre fortuna ovvio, ma io amo cercare alternative dal semplice abbianmento dei numeri dato dai sogni, targhe auto o altro.....
Mi piacerebbe se più avanti se "i migliori di Voi" possano esporre le vostre idee su questo argomento, ovvio non pretendo mai nulla.
Sto cercando di mettere in pratica quanto esposto da Claudio8 e lo Ringrazio ancora per tutti gli spunti.
Grazie ad I-Legend e Te (Joe) ho capito che si possono avere alternative per la soluzione desiderata...
evo fare un passo alla volta.
Grazie come sempre e Vi chiedo scusa se a volte Vi rispondo in ritardo, come Tutti Noi poi le dinamiche della nostra Vita devono avere la priorità...
A Volte le cose sono più semplici di quelle che immaginiamo.
un altro piccolo passo per me per capire alcune cose.
Mi rendo conto che devo ancora apprendere qualcosa e sto facendo gli sforzi necessari purtroppo a volte ho difficoltà ma poi quando vedo anche i vostri lavori mi accorgo dove sbagliavo, capisco ed imparo ma è diverso dall esserci riuscito da solo, ma mis ono reso conto che in certi casi vedere dei lavori ben eseguiti qualche volta valgono più di mille parole,
A questo progetto ci tengo molto perchè credo possa essere utile a molti, non credo che in giro ci siano dei programmi che fanno questo, ricercare i migliori abbinamenti con il calcolo dell'ambata e afrli a mano è davvero dispersivo e credetemi molte volte con quel frequente l'ambata si abbina ci vuole sempre fortuna ovvio, ma io amo cercare alternative dal semplice abbianmento dei numeri dato dai sogni, targhe auto o altro.....
Mi piacerebbe se più avanti se "i migliori di Voi" possano esporre le vostre idee su questo argomento, ovvio non pretendo mai nulla.
Sto cercando di mettere in pratica quanto esposto da Claudio8 e lo Ringrazio ancora per tutti gli spunti.
Grazie ad I-Legend e Te (Joe) ho capito che si possono avere alternative per la soluzione desiderata...
evo fare un passo alla volta.
Grazie come sempre e Vi chiedo scusa se a volte Vi rispondo in ritardo, come Tutti Noi poi le dinamiche della nostra Vita devono avere la priorità...
Zetrix
Advanced Premium Member
Codice:
'Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r
Dim K,x,es
Dim aNumFreq(90,2),nNum
r = ScegliRuota
es = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 per l'ultima, 1 per la prima..)",,0)
If IndiceMensile(IdEstr) = es Then
Ini = EstrazioneFin - 100
Fin = EstrazioneFin
'r = BA_
For IdEstr = Ini To Fin
' If IsUltimaDelMese(IdEstr) Then
K = K + 1
Scrivi DataEstrazione(IdEstr) & " " & SiglaRuota(r) & " " & StringaEstratti(IdEstr,r),0,0,1,4
Scrivi
For x = 1 To 5 ' Ciclo per l'estrazione della ruota
nNum = Estratto(IdEstr,r,x) ' <<<
aNumFreq(nNum,1) = nNum
aNumFreq(nNum,2) = aNumFreq(nNum,2) + 1
End If
Next
End If
Next
Scrivi
Scrivi "Estrazioni Rilevate " & K
'For x = 1 To 90
' aNumFreq(x,1) = x
' aNumFreq(x,2) = 0
'Next
'----------------------------------
'For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
'r = BA_
'For x = 1 To 5 ' Ciclo per l'estrazione della ruota
' aNum = Estratto(IdEstr,r,x) ' incamero l'estrazione
' aNumFreq(aNum,2) = aNumFreq(aNum,2) + 1
'If aNumFreq(aNum,2) >= 1 Then
'End If
'Next
'End If
'Next
Scrivi
Scrivi Space(10) & "Num" & " " & " Freq ",0,0,1,4
Scrivi
OrdinaMatrice aNumFreq,- 1,2
ScriviMatrice(aNumFreq)
End Subciao a tutti
ciao joe se io volessi identificare una estr mensile diversa dell'ultima est
come si deve scrivere nello script ho provato con questa stringa
qui sotto ma mi da errore lo script
es = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 per l'ultima, 1 per la prima..)",,0)
If IndiceMensile(IdEstr) = es Then
joe
Advanced Member >PLATINUM PLUS<
Ciao Zetrix, buona giornata a tutte/i.
Premesso che non è molto facile sapere quale è l'ultima estrazione mensile,
ma grazie a LuigiB ed all'istruzione dedicata ... ci si riesce.
Zero non lo è e di per sè non è adatto ad esserlo.
Semmai potrebbe essere un numero simile a 12/013/14.
... ma per questo un "valore numerico" è poco adatto ad essere
ciò che potrebbe essere "numericamente" diverso.
Poi c'è il problema che i dcpm del governo,
hanno inserito nell'archivio del lotto lo stesso sconquasso
fatto dalle guerre mondiali cioè i famigerati "buchi".
Dunque recentemente ci potrebbero essere mesi
con meno concorsi di quelli che ci sarebbero potuti essere.
12/13/14 ... potrebbe essere ed è anche solo 9.
Dunque "oggi" bisogna scrivere codice nuovo perché
le regole dal 1945 e degli ultimi anni ...
sono state politicamente distrutte.
Tutto ciò premesso, quanto hai proposto non da errori, semmai non funziona.
Corretto così puoi trovare quello che serve per farlo funzionare:
Ma, il mio parere è che sia meglio evitare di voler imporre "limiti innaturali"
a ciò che "naturalmente" non ha limiti.
Premesso che non è molto facile sapere quale è l'ultima estrazione mensile,
ma grazie a LuigiB ed all'istruzione dedicata ... ci si riesce.
Zero non lo è e di per sè non è adatto ad esserlo.
Semmai potrebbe essere un numero simile a 12/013/14.
... ma per questo un "valore numerico" è poco adatto ad essere
ciò che potrebbe essere "numericamente" diverso.
Poi c'è il problema che i dcpm del governo,
hanno inserito nell'archivio del lotto lo stesso sconquasso
fatto dalle guerre mondiali cioè i famigerati "buchi".
Dunque recentemente ci potrebbero essere mesi
con meno concorsi di quelli che ci sarebbero potuti essere.
12/13/14 ... potrebbe essere ed è anche solo 9.
Dunque "oggi" bisogna scrivere codice nuovo perché
le regole dal 1945 e degli ultimi anni ...
sono state politicamente distrutte.
Tutto ciò premesso, quanto hai proposto non da errori, semmai non funziona.
Corretto così puoi trovare quello che serve per farlo funzionare:
Codice:
Option Explicit
Sub Main
Dim EM,IdEstr,M
EM = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 per l'ultima, 1 per la prima..)",,1)
For IdEstr = 9000 To EstrazioneFin
If IndiceMensile(IdEstr) = CInt(EM) Then Scrivi IdEstr & Chr(9)& IdEstr-M : M = IdEstr
Next
End SubMa, il mio parere è che sia meglio evitare di voler imporre "limiti innaturali"
a ciò che "naturalmente" non ha limiti.
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
'Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r
Dim K,x,es
Dim aNumFreq(90,2),nNum
Dim EM,M
r = ScegliRuota
EM = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 per l'ultima, 1 per la prima..)",,1)
Ini = EstrazioneFin
Fin = EstrazioneFin
'r = BA_
For IdEstr = 9729 To EstrazioneFin
If IndiceMensile(IdEstr) = CInt(EM) Then Scrivi IdEstr & Chr(9)& IdEstr-M : M = IdEstr
' If IsUltimaDelMese(IdEstr) Then
K = K + 1
Scrivi DataEstrazione(IdEstr) & " " & SiglaRuota(r) & " " & StringaEstratti(IdEstr,r)& " ",0,0,1,4
Scrivi
For x = 1 To 5 ' Ciclo per l'estrazione della ruota
nNum = Estratto(IdEstr,r,x) ' <<<
aNumFreq(nNum,1) = nNum
aNumFreq(nNum,2) = aNumFreq(nNum,2) + 1
Next
Next
Scrivi
Scrivi "Estrazioni Rilevate " & K,0,0,7,4
Scrivi
'For x = 1 To 90
' aNumFreq(x,1) = x
' aNumFreq(x,2) = 0
'Next
'----------------------------------
'For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
'r = BA_
'For x = 1 To 5 ' Ciclo per l'estrazione della ruota
' aNum = Estratto(IdEstr,r,x) ' incamero l'estrazione
' aNumFreq(aNum,2) = aNumFreq(aNum,2) + 1
'If aNumFreq(aNum,2) >= 1 Then
'End If
'Next
'End If
'Next
Scrivi
Scrivi Space(10) & " Num " & "" & Space(2) & "" & " Freq ",0,0,1,4
Scrivi
OrdinaMatrice aNumFreq,- 1,2
ScriviMatrice(aNumFreq)
End Subgrazie joe per la tua disponibilità e professionalità lo sistemato lo script
purtroppo mi incasino sempre con questi next e end if
so che si devono mettere tanti next quanti sono i cicli for
e cosi per end if se ci sono gli if e si devono mettere in ordine prima
gli end if e infine gli next ma ho notato in alcuni script che non tutti
rispettano questo ordine ci sono alcuni script che ci sono prima i next
e poi seguono gli end if e poi seguono ancora i next
e qui e chiaro che se si sbaglia a impostare l'ordine dei next
e end if lo script da errore
joe
Advanced Member >PLATINUM PLUS<
Ciao, se ...
Consiglio di scrivere subito:
If
End If
E poi tra l'uno e l'altro di scriverci il codice
oppure di scrivere subito:
For
Next
... e poi tra l'uno e l'altro, ci scrivi il codice.
Meglio ancora è aggiungere subito un commento al fianco degi
End if ed al fianco dei Next appena scritti.
Così si sa ... subito ed in futuro cosa "cicla" fino a quel punto
o quale "condizione-test" si sta chiudendo
in quella linea di comando dello script.
Per gli script già fatti (anche da altri) è più difficile dare consigli.
Devono essere letti e studiati attentamente.
E' possibile che non siano capiti (o capibili) in tutte le scelte che essi contengono.
Anche "il perché" di una certa struttura o del come risolvono "il problema".
Ti assicuro di avere dei miei lavori, che non sono in grado di decodificare,
perché avendo dimenticato le scelte fatte "un tempo" (nella loro scrittura),
"adesso", sono troppo difficili da "leggere".
Penso sia giusto così (perlomeno mi consola).
Consiglio di scrivere subito:
If
End If
E poi tra l'uno e l'altro di scriverci il codice
oppure di scrivere subito:
For
Next
... e poi tra l'uno e l'altro, ci scrivi il codice.
Meglio ancora è aggiungere subito un commento al fianco degi
End if ed al fianco dei Next appena scritti.
Così si sa ... subito ed in futuro cosa "cicla" fino a quel punto
o quale "condizione-test" si sta chiudendo
in quella linea di comando dello script.
Per gli script già fatti (anche da altri) è più difficile dare consigli.
Devono essere letti e studiati attentamente.
E' possibile che non siano capiti (o capibili) in tutte le scelte che essi contengono.
Anche "il perché" di una certa struttura o del come risolvono "il problema".
Ti assicuro di avere dei miei lavori, che non sono in grado di decodificare,
perché avendo dimenticato le scelte fatte "un tempo" (nella loro scrittura),
"adesso", sono troppo difficili da "leggere".
Penso sia giusto così (perlomeno mi consola).
Ultima modifica:
Zetrix
Advanced Premium Member
joe i tuoi script sono difficili da modificare come si cambia qualcosa nello script
mi da subito errore invece gli script degli altri riesco a modificarli piu facile
ma non e semplice scrivere con visual basic a meno che uno a studiato
le basi, comunque grazie joe
ciao
mi da subito errore invece gli script degli altri riesco a modificarli piu facile
ma non e semplice scrivere con visual basic a meno che uno a studiato
le basi, comunque grazie joe
ciao
Ultima modifica:
Buongiorno a Tutti,
In Questo Periodo Devo condividere il Mio PC con i Miei per i vari motivi noti a tutti, lezioni remote, ecc..., Così ho potuto dedicare poco tempo al mio progetto ed alle cose riguardo il lotto legato in questo caso al programma Spaziometria.
Ho stampato i vari consigli di Claudio8, I-Legend, Joe e altri che sono intervenuti, qualcosa in più ho appreso proprio per capire le matrici nel modo più specifico su questo progetto, ho creato qualche script per vedere cosa riuscivo a fare e qualcosa è venuto fuori, devo certo ancora assorbirne i vari costrutti logici e spero di essere sulla strada giusta..
In quanto vorrei arrivare a quanto esposto da Claudio8, ovvero incrementare i vari estratti frequenti, e poi riassumere i risultati ottenuti, bene per quanto riguarda l'incremento non ci riesco, forse mi perdo in qualche sciocchezza oppure per me è davvero complicato, non so...
mentre per quanto riguarda il riassunto finale creando uno script ad esempio ricerco una somma su una ruota e carico le varie estrazioni dove questa viene rintracciata, quindi eseguo le ricerche dei frequenti e questo riesco ad ottenerlo, mentre ritornando sul mio script di questo post riesco a caricare le varie estrazioni ma non l'incremento.....
Cercheò di capire il perchè...
Intanto continuo a visionare quanto sono riuscito a trovare riguardo l'argomento, alcuni sono dei lavori che dire perfetti, ed anche senza note riesco a capirne i vari passaggi, infatti nel mio script sto cercando di completarlo con più note possibili per seguirne esattamente i vari passaggi.
Volevo solo dirVi che non ho abbandonato o mi sono arreso, anzi ma le dinamiche che Ti circondano Ti portano ad avere priorità diverse.
Se Qualcuno può postare qualche Script di esempio sulle frequenze certamente potrà aiutarmi a perseguire la giusta direzioni, anche postare cose semplici di base non necessariamente quelle complesse che per me penso siano inarrivabili..
Intanto continuo con la mia didattica.... Grazie a Tutti Voi Come Sempre
In Questo Periodo Devo condividere il Mio PC con i Miei per i vari motivi noti a tutti, lezioni remote, ecc..., Così ho potuto dedicare poco tempo al mio progetto ed alle cose riguardo il lotto legato in questo caso al programma Spaziometria.
Ho stampato i vari consigli di Claudio8, I-Legend, Joe e altri che sono intervenuti, qualcosa in più ho appreso proprio per capire le matrici nel modo più specifico su questo progetto, ho creato qualche script per vedere cosa riuscivo a fare e qualcosa è venuto fuori, devo certo ancora assorbirne i vari costrutti logici e spero di essere sulla strada giusta..
In quanto vorrei arrivare a quanto esposto da Claudio8, ovvero incrementare i vari estratti frequenti, e poi riassumere i risultati ottenuti, bene per quanto riguarda l'incremento non ci riesco, forse mi perdo in qualche sciocchezza oppure per me è davvero complicato, non so...
mentre per quanto riguarda il riassunto finale creando uno script ad esempio ricerco una somma su una ruota e carico le varie estrazioni dove questa viene rintracciata, quindi eseguo le ricerche dei frequenti e questo riesco ad ottenerlo, mentre ritornando sul mio script di questo post riesco a caricare le varie estrazioni ma non l'incremento.....
Cercheò di capire il perchè...
Intanto continuo a visionare quanto sono riuscito a trovare riguardo l'argomento, alcuni sono dei lavori che dire perfetti, ed anche senza note riesco a capirne i vari passaggi, infatti nel mio script sto cercando di completarlo con più note possibili per seguirne esattamente i vari passaggi.
Volevo solo dirVi che non ho abbandonato o mi sono arreso, anzi ma le dinamiche che Ti circondano Ti portano ad avere priorità diverse.
Se Qualcuno può postare qualche Script di esempio sulle frequenze certamente potrà aiutarmi a perseguire la giusta direzioni, anche postare cose semplici di base non necessariamente quelle complesse che per me penso siano inarrivabili..
Intanto continuo con la mia didattica.... Grazie a Tutti Voi Come Sempre
joe
Advanced Member >PLATINUM PLUS<
Si diceva che le soluzioni sono molte ed anche molto differenti.
Quanto ti ha proposto Claudio utilizza istruzioni di un basic maggiormente evoluto.
Quello che ha spaziometria.
Invece altri (me compreso) ti abbiamo consigliato soluzioni "più da scriversi"
e per questo più facilmente gestibili perché più vicine alle istruzioni,
più semplici, sia da capire che da gestire.
Quindi una funzione tipo SerieFrequenza (inizio, fine, numeri,ruota, sorte)
è molto più facile da scrivere che ciclare le estrazioni contare uno ad uno gli estratti sommarli ecc...
Ma permette per esempio di verificare estrazione per estrazione come cambiano le frequenze,
Mentre seriefreq ti restituisce il totale delle presenze in quel periodo.
Senza dirti se sono tutte ben distribuite, all'inizio, alla fine ... cioè il "quanto" e non il "come" sono.
Quanto ti ha proposto Claudio utilizza istruzioni di un basic maggiormente evoluto.
Quello che ha spaziometria.
Invece altri (me compreso) ti abbiamo consigliato soluzioni "più da scriversi"
e per questo più facilmente gestibili perché più vicine alle istruzioni,
più semplici, sia da capire che da gestire.
Quindi una funzione tipo SerieFrequenza (inizio, fine, numeri,ruota, sorte)
è molto più facile da scrivere che ciclare le estrazioni contare uno ad uno gli estratti sommarli ecc...
Ma permette per esempio di verificare estrazione per estrazione come cambiano le frequenze,
Mentre seriefreq ti restituisce il totale delle presenze in quel periodo.
Senza dirti se sono tutte ben distribuite, all'inizio, alla fine ... cioè il "quanto" e non il "come" sono.
Ciao Joe, Concordo con Te.
Vorrei cercare di imparare entrambe le soluzioni, le più semplici come quelle un pò complesse, per ora mi limiterò a cercare di Terminare quanto esposto da Claudio8, perchè ci tengo molto, ed è ovvio quanto dici infatti le altre soluzioni per me hanno una più semplice chiarezza.
Grazie.
Vorrei cercare di imparare entrambe le soluzioni, le più semplici come quelle un pò complesse, per ora mi limiterò a cercare di Terminare quanto esposto da Claudio8, perchè ci tengo molto, ed è ovvio quanto dici infatti le altre soluzioni per me hanno una più semplice chiarezza.
Grazie.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
