Figure utente esempi utilizzo.

[LuigiB]

prova a modificare questi valori

    nBordo = 5
    nHCella = 7
    nWCella = 7
    nWDataEstr = 50

 

[LuigiB]

ah scusa non avevo letto che avevi risolto .ciao

 

[i legend]

Ciao luigi grazie.
Si avevo saltato la riga della costruzione della linea
E anche il segno c\5 nel caso c>5
Infatti dopo Venezia mi dava tutte con 00000.
Luigi è uno script eccezionale non avevo mai visto un codice così complesso e completo. Oggi ci ho lavorato su , cercando di capire riga per riga .
Grazie mille
Buona notte
Notte a tutti

 

[i legend]

Ciao luigi allora , sto provando a lavorare sullo script . Per estrapolare i dati che mi occorrono.
Ottengo i riscontri sfruttando il modulo M.S .
Allora nei prossimi 9 colpi
Su bari ci sono 2 coppie interessanti per estratto :
37.65
43.52
Al momento ci sono delle cose che non coincidono ma i risultati si
Figura ricercata:

Un esagono
Estrazione
9064
Estratti : 2.4->88.38
9065
1.5->65.68
9066
2.4->56.8
Condizione
Presenza cadenza 8>=4
Ciao
I risultati sono tutti da verificare. Ciao .luigi gra???

 

[genios]

Interessante questo script . Si potrebbe modificare raggruppando quattro ruote . Ruote di CA FI RO NZ evidenziando colorandoli i numeri uguali usciti nella stessa estrazione .

Ciao Eugenio

 

[LuigiB]

le ruote dipendono dalla struttura trovata
se ti serve uno script come quello che dici non c'è biisogno di sbattersi a creare da 0 una griglia , io qui l'ho fatto perche volevo disegnare anche i legami tra i numeri (la figura) forse se avrò voglia lo farò nel week end senno comunque sia lo script rimane adatto per potrerli disegnare prima o poi ..
invece se a te serve solo quello che hai detto puoi semplicemente usare una griglia ovvero la tabella con le apposite funzioni per gestirla

 

[i legend]

Ciao luigi
Lo script già così è immenso.
Più lo leggo più mi perdo.
Non sto scherzando:
Hai mai pensato di scrivere un libro sulla programmazione?non il classico Hello world
Ma un libro che a oltre alla esempio del codice
Spieghi anche perché si fa così.
Se lo fai lo compro subito qualsiasi linguaggio. Anche in c++ ; che è difficile
Ciao e ancora grazie mille.
Appena risolvo il problema sul mio script ti posto come ho fatto
P.s ; mai e poi mai avrei potuto arrivare ad una soluzione.
Grazie

 

[i legend]

Ciao luigi allora , sto provando a lavorare sullo script . Per estrapolare i dati che mi occorrono.
Ottengo i riscontri sfruttando il modulo M.S .
Allora nei prossimi 9 colpi
Su bari ci sono 2 coppie interessanti per estratto :
37.65
43.52
Al momento ci sono delle cose che non coincidono ma i risultati si
Figura ricercata:

Un esagono
Estrazione
9064
Estratti : 2.4->88.38
9065
1.5->65.68
9066
2.4->56.8
Condizione
Presenza cadenza 8>=4
Ciao
I risultati sono tutti da verificare. Ciao .luigi gra???

Ciao 43 a colpo ma è
Solo un caso

 

[i legend]

Ciao luigi lanciando il mio script ho visto che i risultati non coincidono con il modulo di ricerca strutture.
Allora ho lanciato il tuo script senza modifiche e ho notato lo stesso problema.
Potrebbe dipendere dal parametro nRidondanza?
Esempio
Estrazioni estrazionefin -195
Cubo test 3
Trova 28 figure
Spaziometria ne trova 40.
È un bug dello script ?
Ora devo scappare
Più tardi ti posto quello che vorrei fare per non farti perdere tempo inutilmente.
Grazie
Ciao

Io vorrei fare così
Figura trovata(ultimaEstr ) e la funzione che mi restituiscela data finale Della figura

For Num = 1 To 90
ANum  (1)= num
Pres = 0 
Freq = 0
FreqT = 0
For idestr = Ini To fin
If figuratrovata(ultimaEstr) Then 
Freq =serieFreqTurbo ( ultimaestr + 1 , ultimaestr + 9, aNum, aRuota, 1 ) 
If freq>0 Then 
Pres =pres + 1 
FreqT = FreqT + frq 
End if 
End if 
Next 
Redim  atab ( 3 ) 
Atab ( 1 ) = num
Atab ( 2 ) = Pres 
Atab ( 3 ) = freqtot 
Call addrigatabella ( atab ) 
Next
Call creatabellaordinabile

Ciao insomma qualcosa di simile se è possibile farla con lo script
Grazie ciao?

 

[i legend]

Ciao luigi lanciando il mio script ho visto che i risultati non coincidono con il modulo di ricerca strutture.
Allora ho lanciato il tuo script senza modifiche e ho notato lo stesso problema.
Potrebbe dipendere dal parametro nRidondanza?
Esempio
Estrazioni estrazionefin -195
Cubo test 3
Trova 28 figure
Spaziometria ne trova 40.
È un bug dello script ?
Ora devo scappare
Più tardi ti posto quello che vorrei fare per non farti perdere tempo inutilmente.
Grazie
Ciao

Io vorrei fare così
Figura trovata(ultimaEstr ) e la funzione che mi restituiscela data finale Della figura

For Num = 1 To 90
ANum  (1)= num
Pres = 0 
Freq = 0
FreqT = 0
For idestr = Ini To fin
If figuratrovata(idestr,ultimaEstr) Then 
Freq =serieFreqTurbo ( ultimaestr + 1 , ultimaestr + 9, aNum, aRuota, 1 ) 
If freq>0 Then 
Pres =pres + 1 
FreqT = FreqT + frq 
End if 
End if 
Next 
Redim  atab ( 3 ) 
Atab ( 1 ) = num
Atab ( 2 ) = Pres 
Atab ( 3 ) = freqtot 
Call addrigatabella ( atab ) 
Next
Call creatabellaordinabile

Ciao insomma qualcosa di simile se è possibile farla con lo script
Grazie ciao?

Ciao la funzione senza la data non esisterebbe.
Cmq ci sto lavorando

 

[genios]

Non vorrei errare ma nella riga non manca qualcosa ? ciao Eugenio
Secondo me manca l' operatore di confronto.

If figuratrovata(idestr,ultimaEstr) Then

 

[i legend]

Ciao Eugenio mi spiace ma l unica cosa che manca è la cosa più importante ossia la funzione che ancora non sono riuscito a costruire (ci sto lavorando) la linea di script è corretta, magari fosse quello
Ciao

 

[LuigiB]

Ciao Legend ,sicuramente porebbe dipendere dal fatto che il quadro viene letto a porzioni fisse prendendo delle parti di volta in volta dal dell'archivio totoale ,
Si potrebbe cambiare leggermente la logica e invece di prendere il quadro a porzioni fisse
ogni volta si prende il nuovo quadro a partire dall'estrazione successiva a quella piu alta dell'ultima struttura trovata ..inoltre proprio per quel valore che ho chiamato ridondanza potrebbe capitare di inserire 2 volte la stessa struttura perche non ho gestito i casi doppi.. tutte cose che si possono fare
armati di buona volonta ..

 

[i legend]

Ok, immaginavo
Non preoccuparti, ci provo,
Se non dovessi riuscirci non succede nulla.
Tutti gli script che volevo fare anche se li avevo momentaneamente abbandonati perché non riuscivo poi li ho ripresi e fatti.
Ho riscritto uno dei primi script di cui andavo molto fiero adesso è 20 volte più veloce letteralmente.
Piano piano sto imparando.
Cmq lo script che ci hai regalato per me resta una pietra miliare nella mia formazione .
Ciao e grazie

 

[LuigiB]

una pietra emiliana ... come diceva Toto .. ..Ciao

 

[i legend]

Ahhhhhh ?
Se non si capisse c è una pallina che piange dal ridere. Ahhhhhh ahhhhhh
Grazie anche per questo.
Ciao

 

[genios]

Ciao i legend . Quindi si puo' usare l' istruzione if then senza fare il confronto con qualcosa d ' altro ?

Ciao Eugenio mi spiace ma l unica cosa che manca è la cosa più importante ossia la funzione che ancora non sono riuscito a costruire (ci sto lavorando) la linea di script è corretta, magari fosse quello:)
Ciao

 

[i legend]

Se la funzione ritorna true si se invece restituisce un valore Bisogna mettere il valore
Es:
For idestr = 1 To estrazionefin
If pari (idestr) Then Scrivi idestr
Next
For idestr = 1 To estrazionefin
If inficemensile (idestr )=1 Then Scrivi idestr
Next
For idestr = 1 To estrazionefin
If isultimadelmese ( idestr ) Then Scrivi ( idestr )
Next
Scritto da cell
Bisogna controllare se è tutto corretto
Ciao

 

[LuigiB]

Bravo Legend
If condizione Then FaiQualcosa

sottintende che condizione sia true
True ė qualsiasi valore diverso da 0

Ciao

 

[i legend]

Thank 's
Ciao luigi