Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
LuigiB ha scritto:
ATTENZIONE NUOVO AGGIORNAMENTO CON PULIZIA REGISTRO PER CHI HA AVUTO PROBLEMI E REGISTRAZIONE AUTOMATICA

Visto i problemi riscontrati ho realizzato un utility apposta per chi non vuole eseguire i passaggi manuali specie quelli di rimozione delle chiavi
nel registro di windows allo scopo di ricreare uan situazione pulita prima della nuova registrazione.



www.mediafire.com

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com


la funzione DEREGISTRA crea un file bat dal nome Elimina.bat , lanciare questo file con diritti di amministratore per pulire i lregistro

Vedi l'allegato 2252574
Clicca per espandere...
(y)
 
Ultima modifica:
i legend ha scritto:
ciao giomi non so se ti serviva stringaestratti
ho provato cosi
allora fatta velocemente, manca la gestione degli errori e sicuramente ho scritto troppo codice quindi non è ottimizzato

ecco qui , a me sembra funziare :)
Codice: 
Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
Dim r As Long
Dim IdEstr As Long
IdEstr = EstrazioneFin
r = 1
Call MsgBox(StringaEstratti(IdEstr,r,",",False),vbOKOnly,"informatin")
Call MsgBox(StringaEstratti(IdEstr,r),vbOKOnly,"informatin")
End Sub
Function StringaEstratti(idestr As Long,r As Long,Optional sScharSep As String = ".",Optional Formato As Boolean = True,Optional idArch As Integer = 0) As String
    Dim p As Integer,e As Integer,s As String
    ' If sScharSep = "" Then sScharSep = "."
    s = ""
    If Formato = True Then
        For p = 1 To 5
            e = cScript.Estratto(idestr,r,p,idArch)
            s = s & Format2(e) & sScharSep
        Next
    Else
        For p = 1 To 5
            e = cScript.Estratto(idestr,r,p,idArch)
            s = s & e & sScharSep
        Next
    End If
    s = Left(s,Len(s) - 1)
    Return s
End Function
Function Format2(n As Integer) As Variant
    Dim b As Variant
    b = n
    If b > 0 And b <= 9 Then
        b = "0" & b
    End If
    Return b
End Function
Clicca per espandere...


cioa Legend , attenzione che quando uno fa uno script non è necessario scrivere Cscript.Estratto ma basta scrivere solo Estratto , il modulo Wrapper che c'è serve proprio a questo , tu chiami estratto e lui internamente chiam la funzione dell'oggetto cScript

1675405455744.png


altra cosa , i nomi delel ruote non si dovrebebro ricalcolare ogni volta , vabe la tua funzione si sovrappone a una che gia c'è e non servirebbe comunque la logica è avere in memoria gia un array strutturato nel modo giusto che contiene io nomi sia estesi che berevi ..

come vedi nel progetot Twinbasic è fatto cosi

1675405596054.png

si alimenta all'inizio un array sempre disponibile fino alal chiusura del programma

1675405717784.png


e poi c'è la funzione che l'utente puo chiamare . che ha i lcampo rutoa Variant perche puo assumere diversi tipologie di valori , puo essere un solo idd ruota per esempio 1 per Bari , ma puo essere anche un arya con gli indici nel qual caso NomeRuota restituisce uan stringa con i nomi delle ruote separati da "."


1675405769147.png
 
Grazie LuigiB, devo smettere di pensare di guidare un utilitaria, ora ho una formula uno con possibilità di mettere le mani sul motore.
Domanda.
Se non antepongo la classe cscript prima della funzione la velocità di esecuzione ne risente?
Chiedo questo per via della conversione.
Abbiamo solo una classe oppure anche altre?
 
quella che espone le funzioni è solo quella , puoi continuare ad usare anche CScript. perche cScript è comunque visibile a livello globale , anzi qando scrivi cScript, l'intellisense ti fa uscire i nomi delel funzioni che espone quindi sarebeb pure comodo da quel punto di vista , pero per non dover scrivere sempre sto cScript. e per fare SpaziometriaLike allora c'è la funzione wrapper , certo si potrebbe pure evitare , il tempo che aggiunge è trascurabile.
 
non scrivete funzoni che gia esistono , semmai se vedete che manca prima ditemi qual'è cosi si evitano di fare doppioni , le funzioni di spaziometria vorrei pio meno rimetterle tutte anhce se razionalizzate.
 
Quella importante è sceglinumeri:)
Altri tipo le combobox oppure lista sarebbe bello imparare a farle da noi.
Non mi permetterei sfacciatamente di chiederti una lezione, forse velatamente 🤣🤣🤣🤣🤣
🫣👍
A parte gli scherzi grazie.
Non ho ancora scaricato l ultimo aggiornamento.
Hai inserito una cartella script, almeno con i tuoi ?
Come sempre , un grande Grazie.
 
visto che la funzione scegli da menu non c'è ancora , oggi pomeriggio faro un breve video su come si fa , visto che è una di quelle funzioni che inseriamo direttamente nel progetto twinbasic
 
Buongiorno a Tutti,

Volendo fare dei test qual'è il modulo da creare o da aprire così da non modificare qualcosa che non devo?

vado sul progetto

MyScript.twin tasto destro add poi module o class sperando di acer compreso...

Grazie
 
Xeroxs ha scritto:
Buongiorno a Tutti,

Volendo fare dei test qual'è il modulo da creare o da aprire così da non modificare qualcosa che non devo?

vado sul progetto

MyScript.twin tasto destro add poi module o class sperando di acer compreso...

Grazie
Clicca per espandere...
il modulo dove va scritto il coicedello script è questo in figura , la routine "MyScriptRoutine" è come se fosse la Sub Main i spaziometria , qui va scritto lo script , come vedi io li ho dicgitato qualche istruzione per le prove.


1675415180824.png
 
per capire meglio mi fate un due righe codice da inserire che mi stampi in out numero estrazione data estrazione estratti su una qualsiasi ruota delle ultime 10 estrazioni in archivio .

Grazie
 
grazie i legend , provero al piu' presto .
per luigiB , in Spaziometria ,si potrebbe usare TW, al posto di VB6
per la compilazione degli exe.
quando sara comodo potrebbe inserire function .
Codice: 
DownloadFromWeb
ObjIe.Navigate2
 
genios ha scritto:
per capire meglio mi fate un due righe codice da inserire che mi stampi in out numero estrazione data estrazione estratti su una qualsiasi ruota delle ultime 10 estrazioni in archivio .

Grazie
Clicca per espandere...

1675426194844.png



aspetta la nuova versione perche delle funzioni che ho usato non ci sono nella vostra
 
caspita stavo per scrivere GetInfoEstrazione,
rilancio
Codice: 
GetEstrazioneCompleta
GetArrayNumeriRuota
e adesso vado a ....
 
giomi ha scritto:
grazie i legend , provero al piu' presto .
per luigiB , in Spaziometria ,si potrebbe usare TW, al posto di VB6
per la compilazione degli exe.
quando sara comodo potrebbe inserire function .
Codice: 
DownloadFromWeb
ObjIe.Navigate2
Clicca per espandere...

per la prima ci sarà
Function DownloadFile(URL As String, LocalFilename As String, sRetErr As String) As Boolean

l'altra non mi ricord a che serve , apre internet explorer su un indirizzo web ? ma esternamente o internamente ? in twinbasic non c'è il conrollo webbroser per farlo interno
 
luiggi , solo per informarti che e' uscita la nuova release 238 ed anche 239 .
ma evidenzia errore alla label.twain .
la 237 , funzia .
 
grazie , per ora tengo questa che per ora mi funziona , poi provero le altre .. troppe ne dovranno uscire..dopo do uno sguardo
 
nuovo aggiornamento , questa volta è necessario registrare nuovamente la dll
eventualmente con l'utility di deregistrazione fate prima la pulizia del registro , poi eseguite la registrazione o con l'utility o a mano come prima
usandosia il file bat32 che il file bat 64 .
Date sempre uno sgaurdo all'help per sapere quali funziuoni sono implementate.

nel file TwinBasic sono scritti alcuni codici per prove varie .. (Genios vaia vedere )

www.mediafire.com

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com



questa invece è la video lezione di 12 minuti per Legend e per tutti .. cosa semplice alla portata di tutti

www.mediafire.com

ScegliOpzioneMenu

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com


c'era stato n problema col video e l'ho sostituito
 
Ultima modifica di un moderatore:
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