Novità

per skygirl

  • Creatore Discussione Creatore Discussione Beppignello
  • Data di inizio Data di inizio
B

Beppignello

Guest
prova a vedere se ti può andare bene

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]Dim[/B] [B]num[/B](40),[B]nm[/B](5),[B]ar[/B](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]sel[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Scegli ruota per ordinamento frequenza ",,1))
      [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]SiglaRuota[/B]([B]sel[/B]),1
      ''''''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]SiglaRuota[/B]([B]sel[/B]),1
[B]End[/B] [B]Sub[/B]
 
8ina.jpg

Come prima cosa grazie Beppignello ho provato ad inserire un 8ina ma non riesco a capire bene l'output che mi restituisce mi puoi dare un aiuto nella lettura delle colonne
la formazione scelta è 86.62.56.10.79.6.21.45
vediamo se esce qualche ambo a questa estrazione
La prima img Richiesto ordinamento Frequenza Ruota di..BA
La seconda img Richiesto ordinamento Frequenza Ruota di..MI

PS: inserisco immagine di parte dell'output perché se la inserisco intera me la visualizza troppo piccola gruhhh come faccio ad inserirla per intero senza che la microbizzi :)? MI2.jpg
 
Ultima modifica:
dalla tua combinazione è uscito l'ambo 21 45 a FIRENZE / tutte frequenza 10
si è ripetuto a colpo
l'estrazione precedente era uscito a venezia / tutte


url immagine


per postare le immagini il problema è sempre lo stesso del forum lottoced
io passo dal postimage.org è copio il link ed incollo su lottoced
 
nello script ho messo per il colpo d'occhio o come unica richiesta, tutto in una schermata, cioè tutte le ruote.
forse non è molto comodo in fase di lettura, a prima vista potrebbe apparire più comodo vedere una ruota alla volta, quindi 12 richieste separate da effettuare, ma poi si perderebbe di vista il confronto diretto con le altre, bisognerebbe passare prendendo nota su qualche foglio di alcuni dati delle ruote preferite.

oppure si mi dici, cosa e quali dati privilegi nella eventuale selezione, le posso colorare in modo che risultino subito come se fossero in evidenza, sullo script attuale

come leggere le colonne?

esempio:

BAra dove ra sta per ritardo attuale
BArx dove rx sta per ritardo massimo storico
BAfr dove fr sta per frequenza delle uscite

idem per tutte 12 le ruote


non ho messo il nr.estraz. e la data dell'ultima uscita dell'ambo, ma comunque c'è il ritardo corrente o attuale che sia.
 
Ultima modifica di un moderatore:
riposto lo script con 2 modifiche

la prima possibilità è quella di richiedere tutte le ruote,inserendo ruota 11, presenterà il prospetto di tutte le 12 ruote
la seconda possibilità è quella invece di inserire una sola ruota richiesta, quindi presenterà come output solo i dati di quella ruota
completi dell'altro campo, cioè ultima uscita e data ultima uscita.


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]SiglaRuota[/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]
 
Credo ci siano problemi nel funzionamento dello script a me non visualizza queste info da te indicate

come leggere le colonne?

esempio:

BAra dove ra sta per ritardo attuale
BArx dove rx sta per ritardo massimo storico
BAfr dove fr sta per frequenza delle uscite

idem per tutte 12 le ruote


ti posto l'img dell'output dell'ultimo script da te inserito
quando mi dice Sviluppa classe 1,2,3,4,5 non capisco cosa significa e lascio come valore 2, (suppongo estratto, ambo, terno, quaterna, cinquina :)

come Sorte inserisco (2) quindi ambo

poi mi da errore 380 Invalid Property value proseguo dando OK e mi da questo output
dov'è il problema?
http:// free image upload
 
Ultima modifica:
Dimenticavo per la prox estrazione mi concentrerei su questi numeri 37.60.68 su FI PA e TO in particolar modo
magari con lo script che hai fatto si possono esaminare meglio
grazie ancora
ciao
 
ciao per classe si intende

si ordina allo script di sviluppare la combinazione che gli dai in

classe 1 = in formazioni di 1 nr
classe 2 = in formazioni di coppia
classe 3 = in formazioni di terzine
classe 4 = in formazioni di quartine
classe 5 = in formazioni di cinquine

invece
la sorte 1 = estratto 2 = ambo 3 = terno 4 = quaterna 5 = cinquina
servono per calcolare i ritardi e la frequenze delle 12 ruote

buona giornata
 
Ultima modifica di un moderatore:
Purtroppo Beppignello gli script non funzionano siano l'uno che l'altro mi danno 380 Invalid Property Value :( e l'output che mi restituiscono sono delle tabelle incomplete in cui mancano le indicazioni per la lettura delle colonne http:// upload
 
Ultima modifica:
che versione di spaziometria hai?

io ho la versione 1.5.73 e funziona

quale script hai copiato? hai preso solo il primo?

il secondo ha la possibilità di chiedere solo una ruota alla volta, oltre a chiedere anche la ruota = 11 che vuol dire "Tutte".


riprendilo con copia ed incolla, quest'ultimo.




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

ho messo una segnalazione in sezione download a LuigiB, aspettiamo qualche risposta.

Mike e joe riferiscono che lo script funziona correttamente anche con la 1.5.76, cioè la tua.

non so cosa dirti.
 
Ultima modifica di un moderatore:
Risolto il problema dello script era proprio un problema di caratteri adesso funziona ottimamente, grazie siete stati gentilissimi tutti:D allego l'immagine dell'ultima formazione che ritengo interessante
54.42.28.35.46.59
 
Ultima modifica:
se vuoi puoi prendere lo script, ho aggiunto qualche informazione in più, soprattutto scegliendo una singola ruota.

provalo se vuoi.

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]retIncrRitMax[/B],[B]aRetRitardi[/B],[B]aRetIdEstr[/B]
      [B]Dim[/B] [B]es[/B],[B]Ritardo[/B],[B]RitardoMax[/B],[B]IncrRitMax[/B],[B]Frequenza[/B],[B]xt[/B],[B]difincr[/B],[B]maxincr[/B],[B]difpre[/B],[B]qt[/B],[B]ye[/B],[B]det[/B],[B]difincrMX[/B],[B]RG[/B]
      [B]Dim[/B] [B]num[/B](40),[B]nm[/B](10),[B]ar[/B](1)
      [B]sel[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Scegli ruota per ordinamento frequenza da 01:11 ",,1))
      [B]fine[/B] [B]=[/B] [B]CInt[/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]det[/B] [B]=[/B] [B]InputBox[/B]("Vuoi vedere il dettaglio",,"NO")
      [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]ColoreTesto[/B](2)
      [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],1
      [B]ColoreTesto[/B](0)
      [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]If[/B] [B]avalori[/B]([B]Int[/B]([B]y1[/B])) [B]>[/B] 40 [B]Then[/B]
                             [B]Call[/B] [B]SetColoreCella[/B]([B]Int[/B]([B]y1[/B]),[B]RGB[/B](255,0,0),[B]vbBlack[/B])
                        [B]End[/B] [B]If[/B]
                        [B]If[/B] [B]avalori[/B]([B]Int[/B]([B]y1[/B])) [B]>=[/B] [B]avalori[/B]([B]Int[/B]([B]y1[/B] [B]+[/B] 1)) [B]Then[/B]
                             [B]Call[/B] [B]SetColoreCella[/B]([B]Int[/B]([B]y1[/B] [B]+[/B] 1),[B]RGB[/B](255,0,0),[B]vbBlack[/B])
                        [B]End[/B] [B]If[/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]
            [B]For[/B] [B]RG[/B] [B]=[/B] 1 [B]To[/B] 10
                  [B]ar[/B](1) [B]=[/B] [B]RG[/B] : [B]maxincr[/B] [B]=[/B] 0
                  [B]ColoreTesto[/B](1)
                  [B]Scrivi[/B] "--------------------------------------------------------------------------------------------------",1
                  [B]Scrivi[/B] " ELABORAZIONE RUOTA DI " [B]&[/B] [B]NomeRuota[/B]([B]RG[/B]),1
                  [B]ColoreTesto[/B](0)
                  ''''''calcola indice colonna da ordinare
                  [B]ReDim[/B] [B]atitoli[/B](7),[B]avalori[/B](7)
                  ' 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] " IncrMax "
                  [B]atitoli[/B](6) [B]=[/B] " N.Incrmax"
                  [B]atitoli[/B](7) [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]&[/B] " / " [B]&[/B] [B]SiglaRuota[/B]([B]RG[/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]Ordine[/B] [B]=[/B] 4:[B]qt[/B] [B]=[/B] 0:
                        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
                        '''''''''''''''calcola n.incrementi max avuto della combinazione
                        [B]Call[/B] [B]ElencoRitardiTurbo[/B]([B]nm[/B],[B]ar[/B],[B]sor[/B],[B]EstrazioneIni[/B],[B]fine[/B],[B]aRetRitardi[/B],[B]aRetIdEstr[/B])
                        [B]ye[/B] [B]=[/B] [B]UBound[/B]([B]aRetRitardi[/B])
                        [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] [B]ye[/B]
                             [B]es[/B] [B]=[/B] [B]Int[/B]([B]aRetIdEstr[/B]([B]z[/B]))
                             [B]Call[/B] [B]StatisticaFormazione[/B]([B]nm[/B],[B]ar[/B],[B]sor[/B],[B]Ritardo[/B],[B]RitardoMax[/B],[B]IncrRitMax[/B],[B]Frequenza[/B],[B]EstrazioneIni[/B],[B]es[/B])
                             [B]If[/B] [B]Int[/B]([B]aRetRitardi[/B]([B]z[/B])) [B]>=[/B] [B]Int[/B]([B]RitardoMax[/B]) [B]Then[/B]
                                   [B]If[/B] [B]xt[/B] [B]>[/B] 0 [B]Then[/B]
                                         [B]difincr[/B] [B]=[/B] [B]aRetRitardi[/B]([B]z[/B]) [B]-[/B] [B]difpre[/B]
                                   [B]End[/B] [B]If[/B]
                                   [B]If[/B] [B]xt[/B] [B]>[/B] 0 [B]Then[/B]
                                         [B]qt[/B] [B]=[/B] [B]qt[/B] [B]+[/B] 1
                                         [B]If[/B] [B]difincr[/B] [B]>[/B] [B]maxincr[/B] [B]Then[/B]
                                               [B]maxincr[/B] [B]=[/B] [B]difincr[/B]
                                         [B]End[/B] [B]If[/B]
                                         [B]If[/B] [B]Int[/B]([B]aRetIdEstr[/B]([B]z[/B])) [B]=[/B] [B]fine[/B] [B]Then[/B]
                                               [B]ColoreTesto[/B](1)
                                         [B]Else[/B]
                                               [B]ColoreTesto[/B](0)
                                          [B]End[/B] [B]If[/B]
                                         [B]If[/B] [B]det[/B] [B]=[/B] "SI" [B]Or[/B] [B]det[/B] [B]=[/B] "si" [B]Then[/B]
                                               [B]Scrivi[/B] [B]SiglaRuota[/B]([B]ar[/B](1)) [B]&[/B] " " [B]&[/B] [B]StringaNumeri[/B]([B]nm[/B],".") [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]aRetIdEstr[/B]([B]z[/B]),"0000") [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]aRetRitardi[/B]([B]z[/B]),"0000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]RitardoMax[/B],"0000") [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]difincr[/B],"0000") [B]&[/B] " " [B]&[/B] [B]Frequenza[/B],1
                                         [B]End[/B] [B]If[/B]
                                   [B]End[/B] [B]If[/B]
                                   [B]xt[/B] [B]=[/B] 1
                                   [B]difpre[/B] [B]=[/B] [B]aRetRitardi[/B]([B]z[/B])
                             [B]End[/B] [B]If[/B]
                        [B]Next[/B]
                        [B]If[/B] [B]det[/B] [B]=[/B] "SI" [B]Or[/B] [B]det[/B] [B]=[/B] "si" [B]Then[/B]
                             [B]Scrivi[/B] "-----------------------" [B]&[/B] [B]qt[/B],1
                        [B]End[/B] [B]If[/B]
                        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
                        [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]nm[/B],[B]ar[/B],[B]sor[/B],[B]retrit[/B],[B]retritmax[/B],[B]retIncrRitMax[/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]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                             [B]avalori[/B](5) [B]=[/B] "SI / " [B]&[/B] [B]FormattaStringa[/B]([B]difincr[/B],"0000")
                        [B]Else[/B]
                             [B]avalori[/B](5) [B]=[/B] ""
                        [B]End[/B] [B]If[/B]
                        [B]avalori[/B](6) [B]=[/B] [B]qt[/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](7) [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]If[/B] [B]avalori[/B](2) [B]>=[/B] [B]avalori[/B](3) [B]Then[/B]
                             [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](255,255,168),[B]vbBlack[/B])
                             [B]Call[/B] [B]SetColoreCella[/B](3,[B]RGB[/B](255,255,168),[B]vbBlack[/B])
                             [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,168),[B]vbBlack[/B])
                             [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,168),[B]vbBlack[/B])
                        [B]End[/B] [B]If[/B]
                  [B]Next[/B]
                  [B]Call[/B] [B]CreaTabella[/B]([B]Ordine[/B],[B]-[/B] 1,,500)
                  [B]ColoreTesto[/B](0)
                  [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]RG[/B]),1
                  [B]Scrivi[/B] " Dif.Max tra tutte le combinazioni è stato di...." [B]&[/B] [B]maxincr[/B],1
                  [B]Scrivi[/B]
            [B]Next[/B]
      [B]End[/B] [B]If[/B]
[B]End[/B] [B]Sub[/B]
 
Ultima modifica di un moderatore:
Ciao ho provato l'ultimo script purtroppo va in errore
ci deve essere qualcosa che lo manda in errore in questa parte
grazie cmq per il tuo lavoro
Dim fine,Classe2,sor,colonne,scolonna,y,j,retrit,retri tmax,retfre,r,x,ambo,y1,y2,y3,z,sel,Ord,Ordine,pre ,c1,retIncrRitMax,aRetRitardi,aRetIdEstr
Dim es,Ritardo,RitardoMax,IncrRitMax,Frequenza,xt,difi ncr,maxincr,difpre,qt,ye,det,difincrMX,RG

 
Ultima modifica:
è il solito problema della formattazione del forum, quando si fa copia ed incolla.


in mezzo ad alcuni nomi di campi, li formatta purtroppo mettendoci in mezzo uno spazio vuoto

esempio:
difincr , retritmax,

basta togliere lo spazio vuoto e riunire il nome per intero



prova a copiare e incollare lo script, quello ultimo sopra riportato, ho cercato di sistemarlo.
 
Ultima modifica di un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto