Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

H

happy

Super member
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
:)
 
i legend

i legend

Premium Member
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
 
lotto_tom75

lotto_tom75

Advanced Premium Member
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:
i legend

i legend

Premium Member
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.🤣👍
 
i legend

i legend

Premium Member
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.:)👍
 
L

LuigiB

Guest
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à !
 
i legend

i legend

Premium Member
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.:)
 
i legend

i legend

Premium Member
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.
 
R

rubino2

Super Member >PLATINUM<
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?
 
L

LuigiB

Guest
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
 
L

LuigiB

Guest
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
    venerdì 28 giugno 2024
    Bari
    23
    76
    44
    33
    13
    Cagliari
    46
    73
    87
    52
    05
    Firenze
    52
    02
    38
    04
    71
    Genova
    82
    32
    64
    22
    27
    Milano
    28
    85
    04
    65
    13
    Napoli
    19
    66
    33
    15
    13
    Palermo
    80
    84
    64
    42
    61
    Roma
    12
    54
    78
    67
    24
    Torino
    80
    23
    36
    13
    64
    Venezia
    24
    44
    49
    05
    06
    Nazionale
    73
    35
    31
    70
    64
    Estrazione Simbolotto
    Napoli
    10
    36
    03
    44
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto