https://foro.gambas-es.org/viewtopic.php?f=4&t=576&p=3254#p3254
-----------------------------------
oirnavi
Miercoles, 14 Abril 2010, 04:27

Re: Indicación Barra De Desplazamiento
-----------------------------------
OK

Lo que intento realizar es una barra de desplazamiento de forma vertical para indicar el valor de una temperatura, la indicación la hago con 20 "Lavel" y la parte de visualización la realizo de la siguiente forma

     IF (TA > 0) THEN IND121.Visible = TRUE
     IF (TA >= 5) THEN IND122.Visible = TRUE
     IF (TA >= 10) THEN IND123.Visible = TRUE
     IF (TA >= 15) THEN IND124.Visible = TRUE
     IF (TA >= 20) THEN IND125.Visible = TRUE
     IF (TA >= 25) THEN IND126.Visible = TRUE
     IF (TA >= 30) THEN IND127.Visible = TRUE
     IF (TA >= 35) THEN IND128.Visible = TRUE
     IF (TA >= 40) THEN IND129.Visible = TRUE
     IF (TA >= 45) THEN IND130.Visible = TRUE
     IF (TA >= 50) THEN IND131.Visible = TRUE
     IF (TA >= 55) THEN IND132.Visible = TRUE
     IF (TA >= 60) THEN IND133.Visible = TRUE
     IF (TA >= 65) THEN IND134.Visible = TRUE
     IF (TA >= 70) THEN IND135.Visible = TRUE
     IF (TA >= 75) THEN IND136.Visible = TRUE
     IF (TA >= 80) THEN IND137.Visible = TRUE
     IF (TA >= 85) THEN IND138.Visible = TRUE
     IF (TA >= 90) THEN IND139.Visible = TRUE
     IF (TA >= 95) THEN IND140.Visible = TRUE
     
     IF (TA = 0) THEN IND121.Visible = FALSE
     IF (TA < 5) THEN IND122.Visible = FALSE
     IF (TA < 10) THEN IND123.Visible = FALSE
     IF (TA < 15) THEN IND124.Visible = FALSE
     IF (TA < 20) THEN IND125.Visible = FALSE
     IF (TA < 25) THEN IND126.Visible = FALSE
     IF (TA < 30) THEN IND127.Visible = FALSE
     IF (TA < 35) THEN IND128.Visible = FALSE
     IF (TA < 40) THEN IND129.Visible = FALSE
     IF (TA < 45) THEN IND130.Visible = FALSE
     IF (TA < 50) THEN IND131.Visible = FALSE
     IF (TA < 55) THEN IND132.Visible = FALSE
     IF (TA < 60) THEN IND133.Visible = FALSE
     IF (TA < 65) THEN IND134.Visible = FALSE
     IF (TA < 70) THEN IND135.Visible = FALSE
     IF (TA < 75) THEN IND136.Visible = FALSE
     IF (TA < 80) THEN IND137.Visible = FALSE
     IF (TA < 85) THEN IND138.Visible = FALSE
     IF (TA < 90) THEN IND139.Visible = FALSE
     IF (TA < 95) THEN IND140.Visible = FALSE

En donde TA es el valor de un "SLIDER" que simula el valor de la temperatura a medir.


