Per LuigiB

Beppignello · 19 Febbraio 2016

ciao LuigiB

questo script gira regolarmente sulla 1.5.73, mi dicono che da errore nella versione 1.5.76

puoi controllare, per cortesia, cosa è cambiato tra queste versioni?

se qualche altro utente ha la versione 1.5.76 lo può provare e far sapere se da errore o se funziona?

basta inserire una decina di numeri a piacere e scegliere una ruota

grazie

Codice:

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
      [B]Dim[/B] [B]fine[/B],[B]Classe2[/B],[B]sor[/B],[B]colonne[/B],[B]scolonna[/B],[B]y[/B],[B]j[/B],[B]retrit[/B],[B]retritmax[/B],[B]retfre[/B],[B]r[/B],[B]x[/B],[B]ambo[/B],[B]y1[/B],[B]y2[/B],[B]y3[/B],[B]z[/B],[B]sel[/B],[B]Ord[/B],[B]Ordine[/B],[B]prec1[/B]
      [B]Dim[/B] [B]num[/B](40),[B]nm[/B](5),[B]ar[/B](1)
      [B]sel[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Scegli ruota per ordinamento frequenza da 01:12 ",,1))
      [B]fine[/B] [B]=[/B] [B]InputBox[/B]("Estrazione n.",,[B]EstrazioneFin[/B])
      [B]Classe2[/B] [B]=[/B] [B]InputBox[/B]("Sviluppa classe 1,2,3,4,5  ",,2)
      [B]sor[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Sorte 1,2,3",,2))
      [B]ScegliNumeri[/B]([B]num[/B])
      [B]Scrivi[/B] " Visualizza situazione Generale di Tutte le Ruote",1
      [B]Scrivi[/B] " Sviluppo combinazione scelta..." [B]&[/B] [B]StringaNumeri[/B]([B]num[/B],"."),1
      [B]Scrivi[/B] " Situazione aggiornata all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] "/" [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
      [B]Scrivi[/B] " Classe " [B]&[/B] [B]Classe2[/B] [B]&[/B] "    Sorte scelta " [B]&[/B] [B]sor[/B] [B]&[/B] "   Richiesto ordinamento Frequenza Ruota di.." [B]&[/B] [B]NomeRuota[/B]([B]sel[/B]),1
      [B]If[/B] [B]sel[/B] [B]=[/B] 11 [B]Then[/B]
            ''''''calcola indice colonna da ordinare
            [B]If[/B] [B]Int[/B]([B]sel[/B]) [B]=[/B] 1 [B]Then[/B]
                  [B]Ordine[/B] [B]=[/B](1 [B]*[/B] [B]sel[/B]) [B]+[/B] 3
            [B]Else[/B]
                  [B]Ordine[/B] [B]=[/B](3 [B]*[/B] [B]sel[/B]) [B]+[/B] 1
            [B]End[/B] [B]If[/B]
            [B]ReDim[/B] [B]atitoli[/B](37),[B]avalori[/B](37)
            ' preimposto i titoli delle colonne
            [B]atitoli[/B](1) [B]=[/B] " Ambo "
            [B]atitoli[/B](2) [B]=[/B] " BAra "
            [B]atitoli[/B](3) [B]=[/B] " BArx "
            [B]atitoli[/B](4) [B]=[/B] " BAfr "
            [B]atitoli[/B](5) [B]=[/B] " CAra "
            [B]atitoli[/B](6) [B]=[/B] " CArx "
            [B]atitoli[/B](7) [B]=[/B] " CAfr "
            [B]atitoli[/B](8) [B]=[/B] " FIra "
            [B]atitoli[/B](9) [B]=[/B] " FIrx "
            [B]atitoli[/B](10) [B]=[/B] " FIfr "
            [B]atitoli[/B](11) [B]=[/B] " GEra "
            [B]atitoli[/B](12) [B]=[/B] " GErx "
            [B]atitoli[/B](13) [B]=[/B] " GEfr "
            [B]atitoli[/B](14) [B]=[/B] " MIra "
            [B]atitoli[/B](15) [B]=[/B] " MIrx "
            [B]atitoli[/B](16) [B]=[/B] " MIfr "
            [B]atitoli[/B](17) [B]=[/B] " NAra "
            [B]atitoli[/B](18) [B]=[/B] " NArx "
            [B]atitoli[/B](19) [B]=[/B] " NAfr "
            [B]atitoli[/B](20) [B]=[/B] " PAra "
            [B]atitoli[/B](21) [B]=[/B] " PArx "
            [B]atitoli[/B](22) [B]=[/B] " PAfr "
            [B]atitoli[/B](23) [B]=[/B] " ROra "
            [B]atitoli[/B](24) [B]=[/B] " ROrx "
            [B]atitoli[/B](25) [B]=[/B] " ROfr "
            [B]atitoli[/B](26) [B]=[/B] " TOra "
            [B]atitoli[/B](27) [B]=[/B] " TOrx "
            [B]atitoli[/B](28) [B]=[/B] " TOfr "
            [B]atitoli[/B](29) [B]=[/B] " VEra "
            [B]atitoli[/B](30) [B]=[/B] " VErx "
            [B]atitoli[/B](31) [B]=[/B] " VEfr "
            [B]atitoli[/B](32) [B]=[/B] " TTra "
            [B]atitoli[/B](33) [B]=[/B] " TTrx "
            [B]atitoli[/B](34) [B]=[/B] " TTfr "
            [B]atitoli[/B](35) [B]=[/B] " NZra "
            [B]atitoli[/B](36) [B]=[/B] " NZrx "
            [B]atitoli[/B](37) [B]=[/B] " NZfr "
            [B]SetTableWidth[/B]("98%px")
            [B]Call[/B] [B]InitTabella[/B]([B]atitoli[/B],2,"center",1.35,5,"Cambria")
            '''sviluppa combinazione numeri nella classe scelta
            [B]colonne[/B] [B]=[/B] [B]SviluppoIntegrale[/B]([B]num[/B],[B]Classe2[/B])
            [B]For[/B] [B]y[/B] [B]=[/B] 1 [B]To[/B] [B]UBound[/B]([B]colonne[/B])
                  [B]scolonna[/B] [B]=[/B] ""
                  [B]Messaggio[/B]([B]y[/B])
                  [B]If[/B] [B]ScriptInterrotto[/B] [B]Then[/B] [B]Exit[/B] [B]For[/B]
                  [B]Call[/B] [B]AvanzamentoElab[/B](1,[B]UBound[/B]([B]colonne[/B]),[B]y[/B])
                  [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] [B]Classe2[/B]
                        [B]scolonna[/B] [B]=[/B] [B]scolonna[/B] [B]&[/B] [B]Format2[/B]([B]colonne[/B]([B]y[/B],[B]j[/B])) [B]&[/B] " "
                        [B]nm[/B]([B]j[/B]) [B]=[/B] [B]Format2[/B]([B]colonne[/B]([B]y[/B],[B]j[/B]))
                  [B]Next[/B]
                  [B]x[/B] [B]=[/B] 1
                  [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                        [B]ar[/B](1) [B]=[/B] [B]r[/B]
                        [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]nm[/B],[B]ar[/B],[B]sor[/B],[B]retrit[/B],[B]retritmax[/B],,[B]retfre[/B],[B]EstrazioneIni[/B],[B]fine[/B])
                        [B]avalori[/B]([B]x[/B] [B]+[/B] [B]r[/B]) [B]=[/B] [B]retrit[/B]
                        [B]avalori[/B]([B]x[/B] [B]+[/B] 1 [B]+[/B] [B]r[/B]) [B]=[/B] [B]retritmax[/B]
                        [B]avalori[/B]([B]x[/B] [B]+[/B] 2 [B]+[/B] [B]r[/B]) [B]=[/B] [B]retfre[/B]
                        [B]x[/B] [B]=[/B] [B]x[/B] [B]+[/B] 2
                  [B]Next[/B]
                  [B]avalori[/B](1) [B]=[/B] [B]StringaNumeri[/B]([B]nm[/B],".")
                  [B]Call[/B] [B]AddRigaTabella[/B]([B]avalori[/B],[B]Bianco_[/B],"center",1)
                  [B]y1[/B] [B]=[/B] 2
                  [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                        [B]Call[/B] [B]SetColoreCella[/B]([B]Int[/B]([B]y1[/B]),[B]RGB[/B](255,252,187),[B]vbBlue[/B])
                        [B]y1[/B] [B]=[/B] [B]y1[/B] [B]+[/B] 3
                        [B]Call[/B] [B]SetColoreCella[/B]([B]Int[/B]([B]Ordine[/B]),[B]RGB[/B](206,101,89),[B]vbWhite[/B])
                  [B]Next[/B]
            [B]Next[/B]
            [B]Call[/B] [B]CreaTabella[/B]([B]Ordine[/B],[B]-[/B] 1,,500)
            [B]ColoreTesto[/B](2)
            [B]Scrivi[/B] " Elaborate e sviluppate combinazioni n." [B]&[/B] [B]UBound[/B]([B]colonne[/B]),1
            [B]Scrivi[/B] " Ordinato Colonna nr. (" [B]&[/B] [B]Ordine[/B] [B]&[/B] ")    Frequenza Ruota di " [B]&[/B] [B]NomeRuota[/B]([B]sel[/B]),1
      [B]Else[/B]
            ''''''calcola indice colonna da ordinare
            [B]ReDim[/B] [B]atitoli[/B](5),[B]avalori[/B](5)
            ' preimposto i titoli delle colonne
            [B]atitoli[/B](1) [B]=[/B] " Ambo "
            [B]atitoli[/B](2) [B]=[/B] " Rit.Att"
            [B]atitoli[/B](3) [B]=[/B] " Rit.Max"
            [B]atitoli[/B](4) [B]=[/B] " Freq.  "
            [B]atitoli[/B](5) [B]=[/B] " nr.e data ult.estraz. "
            [B]SetTableWidth[/B]("98%px")
            [B]Call[/B] [B]InitTabella[/B]([B]atitoli[/B],2,"center",1.35,5,"Cambria")
            '''sviluppa combinazione numeri nella classe scelta
            [B]colonne[/B] [B]=[/B] [B]SviluppoIntegrale[/B]([B]num[/B],[B]Classe2[/B])
            [B]For[/B] [B]y[/B] [B]=[/B] 1 [B]To[/B] [B]UBound[/B]([B]colonne[/B])
                  [B]scolonna[/B] [B]=[/B] ""
                  [B]Messaggio[/B]([B]y[/B])
                  [B]If[/B] [B]ScriptInterrotto[/B] [B]Then[/B] [B]Exit[/B] [B]For[/B]
                  [B]Call[/B] [B]AvanzamentoElab[/B](1,[B]UBound[/B]([B]colonne[/B]),[B]y[/B])
                  [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] [B]Classe2[/B]
                        [B]scolonna[/B] [B]=[/B] [B]scolonna[/B] [B]&[/B] [B]Format2[/B]([B]colonne[/B]([B]y[/B],[B]j[/B])) [B]&[/B] " "
                        [B]nm[/B]([B]j[/B]) [B]=[/B] [B]Format2[/B]([B]colonne[/B]([B]y[/B],[B]j[/B]))
                  [B]Next[/B]
                  [B]ar[/B](1) [B]=[/B] [B]sel[/B] : [B]Ordine[/B] [B]=[/B] 4
                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]nm[/B],[B]ar[/B],[B]sor[/B],[B]retrit[/B],[B]retritmax[/B],,[B]retfre[/B],[B]EstrazioneIni[/B],[B]fine[/B])
                  [B]avalori[/B](2) [B]=[/B] [B]retrit[/B]
                  [B]avalori[/B](3) [B]=[/B] [B]retritmax[/B]
                  [B]avalori[/B](4) [B]=[/B] [B]retfre[/B]
                  [B]avalori[/B](1) [B]=[/B] [B]StringaNumeri[/B]([B]nm[/B],".")
                  [B]prec1[/B] [B]=[/B] [B]fine[/B] [B]-[/B] [B]retrit[/B]
                  [B]avalori[/B](5) [B]=[/B] [B]prec1[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]prec1[/B])
                  [B]Call[/B] [B]AddRigaTabella[/B]([B]avalori[/B],[B]Bianco_[/B],"center",1)
            [B]Next[/B]
            [B]Call[/B] [B]CreaTabella[/B]([B]Ordine[/B],[B]-[/B] 1,,500)
            [B]ColoreTesto[/B](2)
            [B]Scrivi[/B] " Elaborate e sviluppate combinazioni n." [B]&[/B] [B]UBound[/B]([B]colonne[/B]),1
            [B]Scrivi[/B] " Ordinato Colonna nr. (" [B]&[/B] [B]Ordine[/B] [B]&[/B] ")    Frequenza Ruota di " [B]&[/B] [B]NomeRuota[/B]([B]sel[/B]),1
      [B]End[/B] [B]If[/B]
[B]End[/B] [B]Sub[/B]

Mike58 · 19 Febbraio 2016

SpazioMetria 1.5.76, lo script funziona regolarmente nelle elaborazioni anche con 15 numeri.

Ciao

Beppignello · 19 Febbraio 2016

Grazie Mike58

Joe91 · 20 Febbraio 2016

Ciao.

Nello specifico riferisco che come per Mike ... con 15 numeri funziona correttamente.

Tuttavia questo script contiene questa riga di istruzioni:

Call CreaTabella(Ordine,- 1,,500)

Mentre ho rilevato che in script diversamente funzionanti ... "CreaTabellaOrdinabile"

dà origine ad un segnaposto, vuoto, con il segno di divieto. (PS: Anche con output esterno)
_

Un grande saluto a Luigi ... ed a tutte/i.

skygirl · 20 Febbraio 2016

Help perché a me da questo errore

se poi do' l'ok nonostante l'errore mi restituisce questo output dove però le colonne non hanno il titolo e quindi non capisco a cosa si riferiscono
Provate inserendo questa formazione
7.37.70.12.60.76.68.21

Joe91 · 20 Febbraio 2016

Ciao Skygirl.

Prova a sostituire quella che le è simile con questa riga:

Call InitTabella (atitoli,2,"center",2,5,"ms Sans serif")

Con gli stessi parametri e numeri che hai proposto:

Ovvero tutto l'inventario ... e ordinamento per Bari ... l' Ambo 7.12 (con 18 presenze)

dovrebbe ordinarsi diversamente perchè non è il capolista.

Naturalmente spero che compaiano anche i titoli.

Buon WeekEnd a tutte/i

claudio8 · 21 Febbraio 2016

Mike58;n1959661 ha scritto:
SpazioMetria 1.5.76, lo script funziona regolarmente nelle elaborazioni anche con 15 numeri.

Ciao

Idem, anche senza cambiare il carattere....

Joe91 · 21 Febbraio 2016

Ciao Claudio.

Si, ma se ... ha allegato una immagine in cui si vede che funziona malamente ...

Con messaggio di errore,

senza titoli e con

un errore sul primo ambo in elenco ...

... ho ritenuto opportuno dare un suggerimento specifico per tentare una soluzione specifica al problema specifico.

Con questo non volevo dichiarare... che ad altri funzioni correttamente.

Cordiali saluti.

claudio8 · 21 Febbraio 2016

Joe, non ho scritto che il cambio di carattere sia una "non soluzione", ho solo ripetuto quanto scritto da mike58 confermando il funzionamento, anche senza cambio di carattere, cosa possa essere successo a skygirl, non lo so, il tuo suggerimento potrebbe essere una soluzione, non saprei.
Saluti

Beppignello · 21 Febbraio 2016

magari sarebbe utile che skygirl ci dica, se lo fa sempre o l'errore è comparso una sola volta.
può essere che abbia inserito qualche cosa di errato, per esempio una classe errata , una sorte errata, etcccc

comunque può essere come dice Joe, nel suo computer ha i font diversi da quello dello script, o la compressione delle colonne non gli va bene

SetTableWidth("98%px")
Call InitTabella(atitoli,2,"center",1.35,5,"Cambria")

skygirl · 21 Febbraio 2016

Era proprio un problema di caratteri thanks

ottima intuizione, adesso funziona perfettamente.
Approfitto per chiedervi se è possibile avere un ordinamento degli ambi in base al ritardo storico da quello con maggior ritardo a quello con minor ritardo

in base alla frequenza dal più frequente al meno frequente grazie a tutti

Cerca

Cerca

Per LuigiB

Beppignello

Guest

Mike58

Advanced Member >PLATINUM PLUS<

Beppignello

Guest

Joe91

Advanced Member >PLATINUM PLUS<

skygirl

Advanced Member >GOLD<

Allegati

Joe91

Advanced Member >PLATINUM PLUS<

claudio8

Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

claudio8

Premium Member

Beppignello

Guest

skygirl

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi