Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
i legend ha scritto:
ciao potete controllare se i risultati a voi coincidono ?
script per twb
Codice: 
Public Sub MyScriptRoutine()

    ' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
    ' NON MODIFICARE IL NOME DI QUESTA SUB
   
       Dim k As Long, nTro As Long
 
 
   '''''''''''''''''''''''''''''''''''''''
    Dim aRetU() As STRUCT_ELENCO_USCITE
   Call ElencoUscite("0,1,2", 1, EstrazioneFin, 1, aRetU, 1)
 
    For k = UBound(aRetU) To 1 Step -1
         If Month(DataEstrazione(aRetU(k).idEstrazione)) = 3 Then
         nTro = nTro + 1
          Scrivi nTro & " | " & aRetU(k).idEstrazione & " |  " & _  
         DataEstrazione(aRetU(k).idEstrazione) & " | " & StringaEstratti(aRetU(k).idEstrazione, 1)
       '  If CLng(Right(DataEstrazione(aRet(k).idEstrazione), 2)) = 2 Then Exit For
    End If
    Next
 
 
End Sub
per spaziometria

Codice: 
Option Explicit
Sub Main
    Dim i,ntro
    Dim aE:aE = Array(0,1,2)
    Dim aR(1):aR(1) = 1
    ReDim aRit(0),aId(0)
    Call ElencoRitardiTurbo(aE,aR,1,1,EstrazioneFin,aRit,aId)
    For i = UBound(aId) To 1 Step - 1
        If Mese(aId(i)) = 3 Then
            ntro = ntro + 1
            Scrivi ntro & "  | " & GetInfoEstrazione(aId(i)) & "|" & StringaEstratti(aId(i),aR(1))
        End If
    Next
End Sub

ho 16 differenze
Clicca per espandere...
Ciao ilegend questi i risultati che ho ottenuto io:
Codice: 
twinBasic
1 | 10051 |  05/03/2022 | 89.26.36.01.68
2 | 9904 |  27/03/2021 | 02.66.86.76.79
3 | 9762 |  19/03/2020 | 32.02.61.56.52
4 | 9756 |  05/03/2020 | 44.20.78.76.02
5 | 9297 |  30/03/2017 | 49.61.42.09.01
6 | 9294 |  23/03/2017 | 54.33.01.15.71
7 | 8984 |  31/03/2015 | 09.01.43.79.28
8 | 8827 |  29/03/2014 | 23.02.34.65.12
9 | 8823 |  20/03/2014 | 12.02.76.86.09
10 | 8671 |  30/03/2013 | 76.33.45.02.25
11 | 8669 |  26/03/2013 | 66.01.79.81.62
12 | 8508 |  15/03/2012 | 61.01.13.08.05
13 | 8356 |  26/03/2011 | 36.31.43.57.02
14 | 8351 |  15/03/2011 | 15.02.04.65.86
15 | 8040 |  19/03/2009 | 01.07.69.88.54
16 | 8036 |  10/03/2009 | 33.01.73.57.53
17 | 7886 |  25/03/2008 | 75.78.70.30.02
18 | 7881 |  13/03/2008 | 74.01.40.84.60
19 | 7728 |  22/03/2007 | 80.02.71.15.26
20 | 7725 |  15/03/2007 | 43.78.40.54.02
21 | 7721 |  06/03/2007 | 08.01.42.04.70
22 | 7571 |  21/03/2006 | 40.02.01.82.17
23 | 7568 |  14/03/2006 | 54.59.71.74.02
24 | 7566 |  09/03/2006 | 12.62.79.29.01
25 | 7565 |  07/03/2006 | 01.50.23.24.52
26 | 7323 |  20/03/2004 | 69.12.65.01.68
27 | 7320 |  10/03/2004 | 71.59.55.02.35
28 | 7106 |  09/03/2002 | 88.48.79.03.02
29 | 7006 |  28/03/2001 | 74.33.14.01.34
30 | 6902 |  29/03/2000 | 70.37.45.01.77
31 | 6798 |  31/03/1999 | 60.85.62.01.02
32 | 6692 |  25/03/1998 | 05.10.40.02.73
33 | 6690 |  18/03/1998 | 71.84.65.77.01
34 | 6687 |  07/03/1998 | 02.32.11.30.83
35 | 6584 |  12/03/1997 | 37.01.53.34.71
36 | 6534 |  30/03/1996 | 47.01.64.68.62
37 | 6427 |  12/03/1994 | 22.34.90.01.60
38 | 6220 |  24/03/1990 | 01.22.43.06.87
39 | 6012 |  29/03/1986 | 86.34.48.22.02
40 | 5959 |  23/03/1985 | 81.48.01.16.85
41 | 5802 |  20/03/1982 | 01.55.30.35.88
42 | 5697 |  15/03/1980 | 60.48.04.19.01
43 | 5591 |  04/03/1978 | 78.19.02.83.49
44 | 5333 |  24/03/1973 | 24.01.87.44.03
45 | 5279 |  11/03/1972 | 42.49.77.01.89
46 | 5124 |  22/03/1969 | 02.82.44.38.37
47 | 4862 |  14/03/1964 | 01.31.74.58.42
48 | 4811 |  23/03/1963 | 45.01.35.31.63
49 | 4653 |  05/03/1960 | 31.64.02.50.38
50 | 4187 |  31/03/1951 | 01.70.44.82.86
51 | 4134 |  25/03/1950 | 11.76.38.24.01
52 | 4133 |  18/03/1950 | 12.73.04.01.61
53 | 4081 |  19/03/1949 | 35.10.64.02.58
54 | 4028 |  13/03/1948 | 09.72.82.50.02
55 | 3977 |  22/03/1947 | 02.56.70.41.01
56 | 3976 |  15/03/1947 | 25.54.01.27.69
57 | 3922 |  02/03/1946 | 76.10.16.06.01
58 | 3769 |  27/03/1943 | 07.26.01.54.24
59 | 3560 |  25/03/1939 | 88.01.19.11.36
60 | 3401 |  07/03/1936 | 42.58.18.01.20
61 | 3193 |  12/03/1932 | 01.35.02.27.24
62 | 3090 |  22/03/1930 | 05.28.01.43.81
63 | 2985 |  17/03/1928 | 83.87.25.50.02
64 | 2984 |  10/03/1928 | 29.01.14.32.58
65 | 2775 |  08/03/1924 | 02.38.39.51.17
66 | 2358 |  11/03/1916 | 86.30.08.01.85
67 | 2256 |  28/03/1914 | 01.37.41.82.03
68 | 2204 |  29/03/1913 | 17.47.61.10.01
69 | 2200 |  01/03/1913 | 60.55.78.08.01
70 | 2046 |  19/03/1910 | 58.19.01.20.48
71 | 1995 |  27/03/1909 | 02.59.06.78.57
72 | 1890 |  23/03/1907 | 80.01.34.57.54
73 | 1889 |  16/03/1907 | 78.55.02.21.22
74 | 1784 |  11/03/1905 | 09.37.36.70.01
75 | 1731 |  05/03/1904 | 85.01.08.33.65
76 | 1577 |  23/03/1901 | 16.26.02.60.30
77 | 1317 |  28/03/1896 | 60.63.41.09.02
78 | 1001 |  08/03/1890 | 16.20.01.75.51
79 | 846 |  19/03/1887 | 01.44.78.16.13
80 | 687 |  01/03/1884 | 70.71.88.78.02
81 | 584 |  11/03/1882 | 56.01.22.44.54
82 | 273 |  25/03/1876 | 17.70.52.37.02
---------------------------------------------

Spaziometria
1  | [10051] [ 28] 05.03.2022|89.26.36.01.68
2  | [09904] [ 37] 27.03.2021|02.66.86.76.79
3  | [09762] [ 34] 19.03.2020|32.02.61.56.52
4  | [09756] [ 28] 05.03.2020|44.20.78.76.02
5  | [09297] [ 38] 30.03.2017|49.61.42.09.01
6  | [09294] [ 35] 23.03.2017|54.33.01.15.71
7  | [08984] [ 39] 31.03.2015|09.01.43.79.28
8  | [08827] [ 38] 29.03.2014|23.02.34.65.12
9  | [08823] [ 34] 20.03.2014|12.02.76.86.09
10  | [08671] [ 39] 30.03.2013|76.33.45.02.25
11  | [08669] [ 37] 26.03.2013|66.01.79.81.62
12  | [08508] [ 32] 15.03.2012|61.01.13.08.05
13  | [08356] [ 37] 26.03.2011|36.31.43.57.02
14  | [08351] [ 32] 15.03.2011|15.02.04.65.86
15  | [08040] [ 34] 19.03.2009|01.07.69.88.54
16  | [08036] [ 30] 10.03.2009|33.01.73.57.53
17  | [07886] [ 37] 25.03.2008|75.78.70.30.02
18  | [07881] [ 32] 13.03.2008|74.01.40.84.60
19  | [07728] [ 35] 22.03.2007|80.02.71.15.26
20  | [07725] [ 32] 15.03.2007|43.78.40.54.02
21  | [07721] [ 28] 06.03.2007|08.01.42.04.70
22  | [07571] [ 34] 21.03.2006|40.02.01.82.17
23  | [07568] [ 31] 14.03.2006|54.59.71.74.02
24  | [07566] [ 29] 09.03.2006|12.62.79.29.01
25  | [07565] [ 28] 07.03.2006|01.50.23.24.52
26  | [07323] [ 23] 20.03.2004|69.12.65.01.68
27  | [07320] [ 20] 10.03.2004|71.59.55.02.35
28  | [07106] [ 20] 09.03.2002|88.48.79.03.02
29  | [07006] [ 25] 28.03.2001|74.33.14.01.34
30  | [06902] [ 26] 29.03.2000|70.37.45.01.77
31  | [06798] [ 26] 31.03.1999|60.85.62.01.02
32  | [06692] [ 24] 25.03.1998|05.10.40.02.73
33  | [06690] [ 22] 18.03.1998|71.84.65.77.01
34  | [06687] [ 19] 07.03.1998|02.32.11.30.83
35  | [06584] [ 11] 12.03.1997|37.01.53.34.71
36  | [06534] [ 13] 30.03.1996|47.01.64.68.62
37  | [06427] [ 11] 12.03.1994|22.34.90.01.60
38  | [06220] [ 12] 24.03.1990|01.22.43.06.87
39  | [06012] [ 13] 29.03.1986|86.34.48.22.02
40  | [05959] [ 12] 23.03.1985|81.48.01.16.85
41  | [05802] [ 12] 20.03.1982|01.55.30.35.88
42  | [05697] [ 11] 15.03.1980|60.48.04.19.01
43  | [05591] [ 9 ] 04.03.1978|78.19.02.83.49
44  | [05333] [ 12] 24.03.1973|24.01.87.44.03
45  | [05279] [ 11] 11.03.1972|42.49.77.01.89
46  | [05124] [ 12] 22.03.1969|02.82.44.38.37
47  | [04862] [ 11] 14.03.1964|01.31.74.58.42
48  | [04811] [ 12] 23.03.1963|45.01.35.31.63
49  | [04653] [ 10] 05.03.1960|31.64.02.50.38
50  | [04187] [ 13] 31.03.1951|01.70.44.82.86
51  | [04134] [ 12] 25.03.1950|11.76.38.24.01
52  | [04133] [ 11] 18.03.1950|12.73.04.01.61
53  | [04081] [ 11] 19.03.1949|35.10.64.02.58
54  | [04028] [ 11] 13.03.1948|09.72.82.50.02
55  | [03977] [ 12] 22.03.1947|02.56.70.41.01
56  | [03976] [ 11] 15.03.1947|25.54.01.27.69
57  | [03922] [ 9 ] 02.03.1946|76.10.16.06.01
58  | [03769] [ 13] 27.03.1943|07.26.01.54.24
59  | [03560] [ 12] 25.03.1939|88.01.19.11.36
60  | [03401] [ 10] 07.03.1936|42.58.18.01.20
61  | [03193] [ 11] 12.03.1932|01.35.02.27.24
62  | [03090] [ 12] 22.03.1930|05.28.01.43.81
63  | [02985] [ 11] 17.03.1928|83.87.25.50.02
64  | [02984] [ 10] 10.03.1928|29.01.14.32.58
65  | [02775] [ 10] 08.03.1924|02.38.39.51.17
66  | [02358] [ 10] 11.03.1916|86.30.08.01.85
67  | [02256] [ 13] 28.03.1914|01.37.41.82.03
68  | [02204] [ 13] 29.03.1913|17.47.61.10.01
69  | [02200] [ 9 ] 01.03.1913|60.55.78.08.01
70  | [02046] [ 11] 19.03.1910|58.19.01.20.48
71  | [01995] [ 13] 27.03.1909|02.59.06.78.57
72  | [01890] [ 12] 23.03.1907|80.01.34.57.54
73  | [01889] [ 11] 16.03.1907|78.55.02.21.22
74  | [01784] [ 10] 11.03.1905|09.37.36.70.01
75  | [01731] [ 10] 05.03.1904|85.01.08.33.65
76  | [01577] [ 12] 23.03.1901|16.26.02.60.30
77  | [01317] [ 13] 28.03.1896|60.63.41.09.02
78  | [01001] [ 10] 08.03.1890|16.20.01.75.51
79  | [00846] [ 11] 19.03.1887|01.44.78.16.13
80  | [00687] [ 9 ] 01.03.1884|70.71.88.78.02
81  | [00584] [ 10] 11.03.1882|56.01.22.44.54
82  | [00273] [ 13] 25.03.1876|17.70.52.37.02
:)
 
Sto andando avanti nella composizione del form.

ho corretto alcune cose sotto il cofano come si suol dire

ampliato la possibilita di ordinamento della lista non solo in base al mese , ma anche al ritardo e alle presenze.
questa piccola modifica , mi ha tirato scemo (andare a modificare gli indici, ele sub e le funzioni legate, e per complicarmi la vita gli ho cambiato anche nome )

In base allo spostamento degli indici ho dovuto modificare anche le routine di pesca dati, spero di non aver fatto errori ma ho tempo e modo di controllare.

anche l ultima parte del form è stata inizializzata:ROFLMAO:
spero che riesca anche a finirizzarla 🤣
in base al valore della combobox visualizzo le caselle di distribuzione ,
essendo routine diverse dovrei ottenere un controllo incrociato per i dati

ecco la nuova immagine,
workinprogress.png
 
i legend ha scritto:
Sto andando avanti nella composizione del form.

ho corretto alcune cose sotto il cofano come si suol dire

ampliato la possibilita di ordinamento della lista non solo in base al mese , ma anche al ritardo e alle presenze.
questa piccola modifica , mi ha tirato scemo (andare a modificare gli indici, ele sub e le funzioni legate, e per complicarmi la vita gli ho cambiato anche nome )

In base allo spostamento degli indici ho dovuto modificare anche le routine di pesca dati, spero di non aver fatto errori ma ho tempo e modo di controllare.

anche l ultima parte del form è stata inizializzata:ROFLMAO:
spero che riesca anche a finirizzarla 🤣
in base al valore della combobox visualizzo le caselle di distribuzione ,
essendo routine diverse dovrei ottenere un controllo incrociato per i dati

ecco la nuova immagine,
Vedi l'allegato 2255063
Clicca per espandere...

Complimenti i legend davvero spettacolare! :eek:💪(y)😀 Anche io piano piano sto procedendo con il montaggio di boss robot twin 🤖😄 (sono riuscito non so come... a programmarlo per ben 4 punti rispetto agli 8 della relativa check list) e ne sono a dir poco entusiasta 😅 Un saluto a tutti! 👋🙂

ps: sarebbe bello che anche gli altri studenti... condividessero almeno alcuni screen shot o loro idee riguardo il loro tema di esercitazione twin... 👀


 
Ultima modifica:
lotto_tom75 ha scritto:
condividessero almeno alcuni screen shot o loro idee riguardo il loro tema di esercitazione twin...
Clicca per espandere...
Condivido appieno, questo pensiero.
Anche perché così facendo si potrebbe ricompilare un software aggiungendo plugin
Gli script sono più veloci, ovviamente nell output ,ma nell input dati non vi è paragone.
Inserire una serie di inputbox ti stanca quando con il form è immediato.
Cmq questo è utile. Nel prossimo form ho già le idee più chiare per velocizzare le cose.
Stai facendo un buon lavoro Tom.🤣👍
 
Domandona .
La LuigiB 's Grid sarà molto più veloce della lista box vero?
Se si potrà ordinare dalle colonne , si guadagnerà in termini di grafica e di tempo perché non dovrà ordinare.:)👍
 
i legend ha scritto:
Domandona .
La LuigiB 's Grid sarà molto più veloce della lista box vero?
Se si potrà ordinare dalle colonne , si guadagnerà in termini di grafica e di tempo perché non dovrà ordinare.:)👍
Clicca per espandere...
la griglia è un visualizzatore di una porzioene di dati , non è come la flexgrid che viene alimentata con tutti i dati disponibili è che è per questo ha una gestine lentisima , quindi l'ordinamento va fatto dal chiamate, naturalmente la griglia risponde agli eventi click sulle colonne quindi i l flusso in cui si voglia ordinare per una colonna sola è gestire l'evento click della griglia , lei ti dice quale colonna è stata cliccata , tu ordini i tuoi dati totali che sono a disposizioe del chiamante per quelal colonna e poi fai il refresh della griglia con i dati ordinati .. in altre parole te tocca lavorà !
 
Con la tua ordinamatrice sarà un lampo.
Nonostante non abbia un PC performante è più veloce di spaziometria.
Avevo intenzione di inserire una label messaggio che indica che sta lavorando quando impiega 30 secondi ma non mi è riuscito. Sicuramente troverò una strada.:)
 
Comunque è una figata i dati restano in griglia non vanno ricalcolati.
Al momento nel mio script anche lasciando gli stessi parametri ma volendo cambiare solo l indice della tabella o il verso ricalcolo tutto.
Non ho pensato di memorizzare i dati della listbox in un array d appoggio al di fuori della routine di calcolo.
Cmq in ogni caso la ricerca è semplice e veloce.
 
Ho una domanda da porre

apro un menu dove ho messo alcuni bottoni e richieste di statistica diversi.
Se lancio il primo lavoretto in esecuzione mi dice dopo averlo eseguito che ha impiegato 13 secondi. Ok

Se pigio un altro bottone in esecuzione, veloce anch'essa, mi dice che ha impiegato 50 secondi, ma non e' esatto, perche' e stato velocissimo anche questo, ma e' la somma delle due richieste, ed anche dei tempi morti per inserire alcuni dati.

In altre parole, come faccio ad azzerare il tempo in secondi o tempo impiegato per ogni lavoro?
E non continui progressivamente dal tempo d aperturA del menu iniziale?
 
prima dell'esecuzioen di uno script si devono lanciare queste funzioni ,questo lo fa gia automaticamente il progetto di esempio , se nel tuo caso le cose sono state un po modificate va fatto a mano

le prime 2 servono se il tuo script prevede un output in html , in questo caso il file lo devi impostare tu a picimento , il progetto originale lo metteva nelal sottocartella output.

Presto (appena legend si sbriga perche voglio metterci il suo script per primo) postero i sorgenti di un progeto che gestisce automaticamete tutto il discorso che ti ho detto senza l'interfaccia di prima ma con un interfaccia piu simile ad un programma dove si possono aggiungere menu e pulsanti e ad ogni menu una funzione di script , in questo modo uno si puo fare il prorio programam che raccoglie le sue funzioni migliori.



cScript.ResetOutput
Call cScript.PulisciDirectoryOutput(GetPathFile(sRetFileHtml))
Call cScript.InizializzaTimer
 
format2 serve per formattare un numero non i 2 punti ,, riceve un valore variant perche il numero puo essere integer/long ecc..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto