Clipper On Line • Ver Tópico - estado do DEVICE

estado do DEVICE

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

estado do DEVICE

Mensagempor ssflavio » 30 Nov 2021 19:00

Boa tarde amigos!
tem como eu saber o status do DEVICE?
preciso saber se esta como PRINT ou SCREEN
se estiver como PRINT, tem algumas rotinas que eu devo mudar o funcionamento
vou dar um exemplo:
tenho uma função que se chama catavento(), ela coloca os seguintes sinais |/-\ na ultima linha, um de cada vez, fazendo uma animação que o programa esta funcionando. Quando estiver imprimindo o relatorio, tenho que saber o status do DEVICE, para trocar para SCREEN e depois voltar para PRINT
Flávio dos Santos Szelbracikowski
ssflavio@osite.com.br
ssflavio
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 86
Data de registro: 10 Jul 2008 09:57
Cidade/Estado: São Paulo / SP
Curtiu: 3 vezes
Mens.Curtidas: 3 vezes

estado do DEVICE

Mensagempor alxsts » 30 Nov 2021 20:38

Olá!

Use a função Set().
#include "set.ch"
  LOCAL cSet

   cSet := Set ( _SET_DEVICE )
   If cSet == "PRINTER"
      Set ( _SET_DEVICE, "SCREEN" )
      Catavento ()
      Set ( _SET_DEVICE, "PRINTER" )
   Endif
Não testei mas o caminho é este.
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

estado do DEVICE

Mensagempor ssflavio » 01 Dez 2021 09:08

é quase isso!
preciso saber o estado que esta o DEVICE, mais ou menos isso

if set(_set_device) == "SCREEN"
   catavento()
endif
Flávio dos Santos Szelbracikowski
ssflavio@osite.com.br
ssflavio
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 86
Data de registro: 10 Jul 2008 09:57
Cidade/Estado: São Paulo / SP
Curtiu: 3 vezes
Mens.Curtidas: 3 vezes

estado do DEVICE

Mensagempor alxsts » 01 Dez 2021 10:17

Olá!
ssflavio escreveu:é quase isso!

Set.ch escreveu:#define _SET_DEVICE 20

É isto:
if set( _SET_DEVICE ) == "SCREEN"
   catavento()
endif

Se usar a constante manifesta " _SET_DEVICE", ela tem que estar escrita exatamente como foi definida no arquivo Set.ch. estas definições são case sensitive.

Pode usar também
if set( 20 ) == "SCREEN"
mas assim fica menos legível...
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro