Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: tornu - 20 Febbraio 2010, 22:39:24

Titolo: [RISOLTO] Timer
Inserito da: tornu - 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.
 

Titolo: Re: Timer
Inserito da: tornu - 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.

Titolo: Re: [RISOLTO] Timer
Inserito da: Will32 - 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

Titolo: Re: [RISOLTO] Timer
Inserito da: Ceskho - 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..

Titolo: Re: [RISOLTO] Timer
Inserito da: Will32 - 21 Febbraio 2010, 13:36:45

Ah !   : D

Titolo: Re: [RISOLTO] Timer
Inserito da: tornu - 22 Febbraio 2010, 00:01:28

Citazione da: Ceskho - 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..

Ceskho ormai sei diventato il mio "Avatar"....grazie.... 8)

Titolo: Re: [RISOLTO] Timer
Inserito da: Ceskho - 22 Febbraio 2010, 01:05:28

Citazione da: tornu - 22 Febbraio 2010, 00:01:28

Citazione da: Ceskho - 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..

Ceskho ormai sei diventato il mio "Avatar"....grazie.... 8)

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