NUOVO AMBIENTE SCRIPT AREA TECNICA

[i legend]

buon fine settimana a tutti
ciao ho provato a scaricare il gestionale script. non funzia mi dice file non trovato mdb.

 

[LuigiB]

Ciao Legend , lo devi selezionare il db che poi rmarra impostato ..è il file dbscript.mdb

 

[i legend]

Io non ho un data base.
Suggerimenti?

 

[LuigiB]

nel file che hai scaricato c'è anche il file del db , si chiama dbScript.mdb , lo devi selezionare da programma...

 

[i legend]

Grazie

 

[lotto_tom75]

Con la 248 (ultima release di 8 h fa) gestionale tutto ok (si compila regolarmente)




tranne questo solito errore in fase di salvataggio script code (da gestionale compilato però stavolta)



Good Saturday Night

 

[i legend]

ciao a tutti
Luigi domandina

come faccio a fare un exe ?

anzi come far partire la form?

ho messo il codice per riempire le list box nel pulsante elaborA

Ma parte solo il form del lancio script.
mi perdo in un bicchiere d acqua

 

[LuigiB]

vai a rivedere il video di quando abbiamo fatto la funzione scegliopzione anche li si doveva far apparire uan form

 

[lotto_tom75]

vai a rivedere il video di quando abbiamo fatto la funzione scegliopzione anche li si doveva far apparire uan form

Se invece si volesse mostrare in output nello spazio "Messaggi" la scrittura a video di c come si aggancia c a quel componente del form?

Dim c As Long

For c = 1 To 100
Scrivi c
Next

Per cercare di ottenere qualcosa di simile ma molto + potente... della funzione "Messaggio" di spaziometria che consente appunto di visualizzare in run time i parametri voluti anche se in quel caso con una limitazione
appunto del numero e dei dettagli dei parametri visualizzabili...

 

[LuigiB]

e pure questo si vede in quel video ..

 

[Rookie]

ciao a tutti
Luigi domandina
Vedi l'allegato 2253191
come faccio a fare un exe ?

anzi come far partire la form?

ho messo il codice per riempire le list box nel pulsante elaborA

Ma parte solo il form del lancio script.
mi perdo in un bicchiere d acqua

Riproduci questo piccolo esempio:

 

[i legend]

Riproduci questo piccolo esempio:

Vedi l'allegato 2253197

Grazie per la dedica Rookie
Siete UNIX
GRAZIE RAGAZZI.

 

[lotto_tom75]

e pure questo si vede in quel video ..

Dunque sono riuscito ad agganciare, anche grazie all'es. di Rookie che ringrazio, la visualizzazione in output ad un campo testo (creato ex novo)

frmScript.Text1.Text = "prova"

ma non riesco a fare altrettanto con il campo già presente Messaggi con name lstMessaggi.
Se provo infatti a visualizzare allo stesso modo qualcosa lì dentro mi dice "Accesso Negato"

 

[LuigiB]

tom per mandare il messaggio nella lista l'istruzione già c'è

Sub Messaggio(sMessaggio As String,, Optional bInLista As Boolean = False)

devi passare True a lsecondo parametro

 

[lotto_tom75]

tom per mandare il messaggio nella lista l'istruzione già c'è

Sub Messaggio(sMessaggio As String,, Optional bInLista As Boolean = False)

devi passare True a lsecondo parametro

Provato!
Funzia!
Perfetto!
Grazieee!

 

[LuigiB]

le funzioni messaggio sono 2

Sub Messaggio(sMessaggio As String, nColore As Long, Optional bInLista As Boolean = False)
Sub Messaggio(sMessaggio As Variant, Optional bInLista As Boolean = False)

viene scelta quella giusta a seconda dei parametr che riceve

 

[lotto_tom75]

    Dim k As Long
    Dim aRet() As STRUCT_VALORI_MIGLIORI

    For k = 1 To UBound(aRet)
    
  'Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)

  stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore
    
        Messaggio(stringamessaggio, True)
            
      AvanzamentoElaborazione(k, UBound(aRet))
    
    Next

Spettacolareee!

Si aprono possibilità inimmaginabili...

A proposito di questo code di esempio... ho cercato in STRUCT_VALORI_MIGLIORI il parametro ruota...
ma non riesco nè a trovarlo nè ad agganciarlo... per avere ad esempio anzichè l'analisi dei valori ordinati per ra decrescente su una ruota sola su + ruote separate...

come faccio ad agganciarci a questo output sottostante il parametro nomeruota o numeroruota?

stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore

 

[LuigiB]

    For k = 1 To UBound(aRet)
       
  'Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)

  stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore
       
        Messaggio(stringamessaggio, True)
               
      AvanzamentoElaborazione(k, UBound(aRet))
       
    Next

Spettacolareee!

Si aprono possibilità inimmagginabili...

il cake design si apre a nuovi orizzonti

 

[lotto_tom75]

il cake design si apre a nuovi orizzonti

Mi sto innamorando di questo tween basic ogni ora di +...

 

[joe]

Siete Unix & Twinx.

Tom ... un po mi preoccupa.

Confermo che funziona bene.




Buon WeekEnd a tutte/i.