Componente IMAGE como apoio

Podemos utilizar o componente IMAGE apenas para mostrar fotografia de produtos? Fotos de clientes? De funcionários?

Inicio do Projeto DIGITIME - versão 1

Estaremos totalmente enganados se pensarmos assim, utilizando os componentes IMAGE e um pouco de imaginação, podemos criar muitos aplicativos que diferenciados, eu mesmo particularmente já criei alguns projetos deste tipo, quem acompanha o site já viu o aplicativo de máquinas Caça-Níqueis que criei ainda quando estava no Japão, totalmente utilizando o componente IMAGE.

Projeto DIGITIME - Versão 2

Podemos fazer trabalhos que irão além de tudo aquilo que estamos acostumados a criar em termos de interface com o usuário, esquecendo o uso do mouse e do teclado um pouco, lembrando que existem atualmente muitas outras formas de interação com um sistema, uma delas com certeza, são as telas sensíveis ao toque, ou mesmo no caso das máquinas de caça níqueis,  “joysticks” que são acoplados à um “box” que compõem o conjunto total.

Somente para ilustrar a idéia geral, abaixo temos um código para mostrar um painel de “LED” parecido com os de um rádio relógio.

Divirtam-se com o código.

#include "hmg.ch"

declare window Main

Function main_timer_digitime_action

   cTime := SUBSTR(TIME(),1,5)

   IF bLigado

      IF GETPROPERTY("main","image_dig1","PICTURE") != cColor+SUBSTR(cTime,1,1)
         SETPROPERTY("main","image_dig1","PICTURE",cColor+SUBSTR(cTime,1,1))
      ENDIF

      IF GETPROPERTY("main","image_dig2","PICTURE") != cColor+SUBSTR(cTime,2,1)
         SETPROPERTY("main","image_dig2","PICTURE",cColor+SUBSTR(cTime,2,1))
      ENDIF

      IF GETPROPERTY("main","image_dig3","PICTURE") == cColor+"doff"
         SETPROPERTY("main","image_dig3","PICTURE",cColor+"don")
      ELSE
         SETPROPERTY("main","image_dig3","PICTURE",cColor+"doff")
      ENDIF

      IF GETPROPERTY("main","image_dig4","PICTURE") != cColor+SUBSTR(cTime,4,1)
         SETPROPERTY("main","image_dig4","PICTURE",cColor+SUBSTR(cTime,4,1))
      ENDIF

      IF GETPROPERTY("main","image_dig5","PICTURE") != cColor+SUBSTR(cTime,5,1)
         SETPROPERTY("main","image_dig5","PICTURE",cColor+SUBSTR(cTime,5,1))
      ENDIF

   ELSE

      IF GETPROPERTY("main","image_dig1","PICTURE") == cColor+"on"
         SETPROPERTY("main","image_dig1","PICTURE",cColor+"off")
         SETPROPERTY("main","image_dig2","PICTURE",cColor+"off")
         SETPROPERTY("main","image_dig3","PICTURE",cColor+"doff")
         SETPROPERTY("main","image_dig4","PICTURE",cColor+"off")
         SETPROPERTY("main","image_dig5","PICTURE",cColor+"off")
      ENDIF

   ENDIF

   INKEY(.5)

Return Nil

Ate+

ps.E só para adiantar por estes dias o amigo Paulo Sérgio deverá estar devolta aqui conosco. Devemos compreender que ele também tem uma vida profissional, enfim, ele explicará melhor no post dele.