Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Con la 248 (ultima release di 8 h fa) gestionale tutto ok (si compila regolarmente) (y):)


gestionalescriptconv248tuttook.jpg

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

trannequestoerrore.jpg

Good Saturday Night 👋:)
 
ciao a tutti :)
Luigi domandina :)
comeFare.png
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 :(
 
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?

Codice:
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... 🫠


👋😀
 
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)

Codice:
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"

:unsure:
 
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
 
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
 
Codice:
    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... :eek:💪👌👋:)

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?

Codice:
stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore
 
Ultima modifica:
Codice:
    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... :eek:💪👌👋:)

il cake design si apre a nuovi orizzonti :-)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto