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
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38

Ultimi Messaggi

Indietro
Alto