Risultati della ricerca

devi rispettare la sequenza parametri nella guida è indicata in modo dettagliato e comunque eccola AddRigaTabella(T,RGB(255,255,255),,,,"Verdana") per le altre cose per la quale non sei contento.... con excel o il free libreOffice potresti fare le tabelle sia per dimensione che per...

Perfetto. Per completezza delle varie lotterie ( visto che in tanti chiedono script) se riesci a fare anche il vincicasa non sarebbe male. Intanto un grosso Grazie per la bella e comoda Utility. Ciao

Ciao C-64 (mio 1° computer) gli archivi per spaziometria hanno 3 parametri 1 - id progressivo 2 - Data separatore "/" esempio 07/05/2023 3 - Estratti il carattere separatore è modificabile a piacere Virgola , punto, Punto&Virgola , SpazioVuoto. esempio parametri completi MillionDay + extra...

C-64, puoi vedere perchè in fase di export della lotteria MillionDay exporta 15 estratti anzichè 10 (5 + 5Extra). vedi immagine

Grazie C-64, Peccato per la Lotteria VinciCasa che manca e peccato anche per L'ID progressivo mancante, cosi da usare gli archivi anche per gli script di spaziometria una volta esportati. Comunque bel programmino e soprattutto funzionale. Ciao(y)

No Zetrix, non mi interessa colorare la Tabella , quella la lascio alla fantasia propria. Io Intervengo solo quando posso dare una mano ad elaborare un dato progetto. Ciao

L'aspetto è come un vestito, ognuno a un suo stile, ma poi è anche importante come si porta. Ia colorazione è una la cosa che deve piacere a te che ne fai uso. Si !! quelle colonne gialle sono poche significative (orrende).:ROFLMAO: Ciao

Io Ti dico solo presta attenzione !!!! Gli ambi t che hai messo in tabella 30 x 3 = 90 ambi, hanno 2 ambi uguali es 55-90 e 90.55 Poi anche se il lo scopo e fare tabelle e colorarle , quello sta alla tua fantasia. Hai capito i procedimenti puoi procedere come credi

Riprova in tabella Sub Main Dim T Dim N1(2),N2(2) Scrivi "Ambi T By Zetrix",1,,,1,3,,1 T = Array(T,"Ambo 1","Somma Comune","Ambo 2") Call InitTabella(T) For n = 1 To 35 nn = n + 55 If Differenza(n,nn) = 55 Then k = k + 1 m = DiametraleD(n)...

Non lo so Zetrix, vedi tu se può andar bene il calcolo, qualche dato coincide e di qualche altro ho dei dubbi. Se corretto vedi come puoi metterlo in Tabella. Sub Main For a = 1 To 90 a1 = DiametraleD(a) a2 = Diametrale(a1) a3 = DiametraleD(a2) sum1 = Fuori90(a+a3) sum2 =...

Purtroppo ho provato a capire, ma non trovo lo standard matematico. La trasposizione poteva essere uno standard unione di decina 1N e Cadenza 2N & decina 2N e cadenza 1N ma poi non mi trovo con gli altri esempi. Comunque è una tua tabella ti lascio pensare il modus operandi. Ciao

esempio se metti la spunta Sub Main For n = 1 To 18 nn = DiametraleD(n) If nn > n Then ' spunta k = k + 1 Scrivi n & "." & nn End If ' spunta Next Scrivi "Trovati..." & k End Sub

Per il Diametrale T cosi come lo chiami ti basta fare il DiametraleD ( Diametrale in decina) di ogni numero. (semplice) Poi ti troverai ambi doppi ma e li che bisogna ragionarci. esempio 14 59 diam.t. 19 54 ma 19.54 sarà 14.59 quindi doppio, con qualche ragionamento si può escludere questo...

Joe (che saluto) ti ha suggerito le colonne alternate , io ti suggerisco le righe alternate. Come vedi l'escamotage c'era, bisogna ragionarci coi numeri. Sub Main Dim T T = Array(T," "," "," "," "," ") Call InitTabella(T) For n = 1 To 18 m1 = Diametrale(n) m2 =...

Ciao Zetrix, la Tabella la ho costruita come ti dicevo con l'abc in modo da capirla facilmente e si presta anche ad altre operazioni matematiche. le colorazioni sono personalizzate con libero sfogo alla propria fantasia. Per in Numero trasposto a cui fai riferimento sembra un diametrale in...

ok giocato previsione. Sperem !!!(y)

Zetrix, mi devo assentare, comunque fatto il progetto scriptico con abc se vedi e leggi ti sarà tutto + chiaro Sub Main Dim T T = Array(T," "," "," "," "," ") Call InitTabella(T) For n = 1 To 18 m1 = Diametrale(n) m2 = Diametrale(n+18) m3 = Diametrale(n+36) m4 =...

Per la 2° tabella basta ingegnarsi. Ci sono 5 colonne e 18 righe un ciclo for 1 to 18 e un ambo di distanza 45. Ricava la prima operazione e tutto il resto viene da solo.

Ciao Zetrix, per la riga non allineata, devi rispettare i parametri imposti e mettere nome font nel parametri giusto. Lo avevi messo molto prima del suo richiamo Call InitTabella(T1,,"arial black") a cosi Call InitTabella(T1,,,,,"arial black") Per il resto penso che si può scrivere una riga e...

Ottimo Happy . Ho fatto quanto suggerito e Funziona alla Grandissima. Ahia ahia ... mi tocca studiare come fare i form vb6 e i plugin. Per ora grazie della super dritta.