Autore Topic: [RISOLTO] Timer  (Letto 658 volte)

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
[RISOLTO] Timer
« il: 20 Febbraio 2010, 22:39:24 »
Tempo fà avevo già chiesto informazioni a riguardo, ho fatto una ricerca sul forum ma non ho trovato il vecchio post.
Mi scuso in anticipo nel caso abbia sbagliato la ricerca.

Avrei bisogno di un esempio (ci ho provato da solo ma non ho risolto) riguardo una TextLabel che contiene dei valori numerici che se scendono sotto un certo valore la TextLabel deve lampeggiare.
 
« Ultima modifica: 20 Febbraio 2010, 23:25:03 da tornu »
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
Re: Timer
« Risposta #1 il: 20 Febbraio 2010, 23:23:42 »
Al momento ho risolto così
Codice: [Seleziona]
PRIVATE bacceso1 AS Boolean

PUBLIC SUB controllo1()
  IF Val(TextLabel.Text) < 0 THEN
      TextLabel.Foreground = Color.Red
      bAcceso1 = TRUE
      Timer1.enabled = TRUE
      Timer1.delay = 500
    ELSE IF Val(TextLabel.Text) >= 0 THEN
      Timer1.Enabled = FALSE
      TextLabel.Foreground = Color.Black
  ENDIF
END

PUBLIC SUB Timer1_Timer()
  IF bAcceso1 THEN
      TextLabel.Foreground = Color.Black
      bAcceso1 = FALSE
    ELSE
      TextLabel.Foreground = Color.Red
      bAcceso1 = TRUE
  ENDIF
END
Se avete altre soluzioni ho il codice è migliorabile, fattemi sapere.
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline Will32

  • Maestro Gambero
  • ****
  • Post: 273
  • Evviva Linux e la Programmazione
    • Mostra profilo
    • TuttoComputer
Re: [RISOLTO] Timer
« Risposta #2 il: 21 Febbraio 2010, 11:42:17 »
Scusa ma...., non ti va bene anche solo se cambia colore ?
Poi, metti una legenda su i vari tipi di colori .

Ex :

Rosso => il numero è minore di 50
Giallo => il numero è maggiore di 50

Ti basta fare così, se vuoi solo che si illumini la Label ( al posto della TextLabel ) :

Codice: [Seleziona]
PUBLIC SUB Button1_Click()

DIM numero AS String

 numero = TextBox1.Text
 
 Label1.text = numero
 
 IF numero < "50"
 
      Label1.Foreground = Color.Red
     
    ELSE IF numero > "50" THEN
     
      Label1.Foreground = Color.Yellow
 
  ENDIF

END


Visita le comunità di Gambas, programma e diventa nostro amico :2birre:

Offline Ceskho

  • Amministratore
  • Senatore Gambero
  • *****
  • Post: 3.778
  • Vi Veri Veniversum Vivus Vici
    • Mostra profilo
    • Pagina Personale
Re: [RISOLTO] Timer
« Risposta #3 il: 21 Febbraio 2010, 12:24:12 »
@ will32

L'amico non vuole che la targhetta cambi solo colore ma vuole che lampeggi, ecco perchè il tuo codice non può andare bene in questo caso..

Offline Will32

  • Maestro Gambero
  • ****
  • Post: 273
  • Evviva Linux e la Programmazione
    • Mostra profilo
    • TuttoComputer
Re: [RISOLTO] Timer
« Risposta #4 il: 21 Febbraio 2010, 13:36:45 »
Ah !   : D

Visita le comunità di Gambas, programma e diventa nostro amico :2birre:

Offline tornu

  • Gran Maestro dei Gamberi
  • *****
  • Post: 855
    • Mostra profilo
Re: [RISOLTO] Timer
« Risposta #5 il: 22 Febbraio 2010, 00:01:28 »
@ will32

L'amico non vuole che la targhetta cambi solo colore ma vuole che lampeggi, ecco perchè il tuo codice non può andare bene in questo caso..
Ceskho ormai sei diventato il mio "Avatar"....grazie.... 8)
Il software è come il sesso, è meglio quando è libero. (Linus Torvalds)

Offline Ceskho

  • Amministratore
  • Senatore Gambero
  • *****
  • Post: 3.778
  • Vi Veri Veniversum Vivus Vici
    • Mostra profilo
    • Pagina Personale
Re: [RISOLTO] Timer
« Risposta #6 il: 22 Febbraio 2010, 01:05:28 »
@ will32

L'amico non vuole che la targhetta cambi solo colore ma vuole che lampeggi, ecco perchè il tuo codice non può andare bene in questo caso..
Ceskho ormai sei diventato il mio "Avatar"....grazie.... 8)

Non penso che il blu sia bello.... :)