Modo gráfico Tutor Plug and Play - Hwgui

[Itamar M. Lins Jr.]

Ola!
Não precisa de nada instalado, apenas faça e veja o resultado!
Para as pessoas que estão vindo do clipper e quer uma coisa bem fácil!
Aprenda a programar em modo visual sem traumas.

Saudações,
Itamar M. Lins Jr.

[Araújo]

Prezado Itamar,
Baixei o tutorial, segui as orientações do tópico Instruction e atualizei as tags conforme abaixo no arquivo "tutor.xml", porém quando dou um duplo clic para compilar, apresenta a mensagem de erro "compile erro".
<init>
<hilight>
<keywords> init window activate dialog menu menuitem endmenu action font click tooltip editbox button combobox and case class data do else elseif end endcase enddo endif exit for func function get if local loop method next or private proc procedure prompt public request return say set seek skip static use while </keywords>
<functions> aadd abs adel aeval afill ains alert alias alltrim array asc ascan asize asort at bof chr col ctod curdir date day dtoc dtos empty eof eval fclose fcreate ferase file fopen found fread fseek fwrite isalpha isdigit islower left recno right set str stuff substr updated upper val valtype year </functions>
<single_line_comment> // </single_line_comment>
<multi_line_comment> /* */ </multi_line_comment>
</hilight>
<tutorial file="tutor_eng.xml" />
<hwgui_dir path="C:\hwgui\tutorial" />
<harbour_inc path="C:\hb32\include" />
<harbour_bin path="C:\hb32\bin" />
</init>

Você poderia me ajudar?!..

Grato,
Araújo

[Itamar M. Lins Jr.]

Ola!
Refiz novamente.
Precisa do Harbour.exe e da Hwgui. Adicionei eles no arquivo.
Já modifiquei o tutor.xml

Saudações,
Itamar M. Lins Jr.

[Duda 'Sgluber']

Muito legal, Itamar! Dei uma olhada rápida e gostei, vou dar uma boa olhada depois.

Corrija-me se eu estiver errado: a HwGui parece ser a lib visual mais parecida com a notação do Clipper, não é? Em outras palavras, pra quem quer caminhar na direção da interface gráfica pela primeira vez, a HwGui é a mais próxima daquilo que se escreve em Clipper puro?

[Itamar M. Lins Jr.]

Sim, sem dúvida.
A Hwgui foi feita pelo Russo Alexander um dos gurus do Harbour.
Outra muito legal é a Minigui com sintaxe parecida com VB.
Na época eu foquei na Hwgui e uso ela. Achei mais fácil de entender/migrar o sistema console.
Vantagens da Hwgui é que a sintaxe p/ usar no LINUX é a mesma e a sintaxe p/ usar no Android também muito similar.

Saudações,
Itamar M. Lins Jr.

[Marcelo Baliza]

Boa noite,
Estou conseguindo compilar meu programa Clipper em HB32.

Agora surgiu a necessidade de uma tela em modo gráfico, para marcação com mouse.

Verifiquei o seu tutorial, mas como não sou um expert, fiquei perdido.

Eu já utilizo a compilação:

set path=C:\hb32\bin;C:\hb32\comp\mingw\bin;%path%
set HB_COMPILER=mingw
hbmk2 CCPBNB

e para o modo gráfico, muda tudo ?

[JoséQuintas]

Agora surgiu a necessidade de uma tela em modo gráfico, para marcação com mouse.

Traduz isso.
Quer usar o mouse, é isso? ou precisa de uma tela gráfica?
Se for só mouse... poderia ter usado no Clipper há 30 anos atrás.... e pode usar do mesmo jeito no Harbour.
Correção: pode usar mais fácil ainda no Harbour.

[Marcelo Baliza]

Como faço uma tela dessas do Itamar e compilo ?

[Marcelo Baliza]

Estou utilizando uma tabela no Excel e estou querendo implantá-la no Harbour.

É um DBF com 4 campos e uns 200 registros.

Preciso de uma forma ágil de responder o questionário.

São os seguintes:

Pergunta, sim, nao, naoaplica

Apresentou identidade? Sim(x) Não( ) Não aplica( )

Preciso marcar um campo acima e gravar no DBF.

[Marcelo Baliza]

ITENS DE CADASTRO - SIM NÃO NSA
Certidao de casamento X
Comprovante de endereco X
Comprovante de renda X
Comprovante de renda - DAP X
Documento de identidade X
Roteiro p/ controle qualidade X

É isso que estou querendo fazer. Tenho um roteiro de mais de 200 questões para responder de cada cliente e estou tendo de chamar cada um na edição. Se eu tivesse uma tela com barra de rolagem, facilitaria muito, pois eu iria somente clicar em uma das 3 respostas com o mouse.

Não estou conseguindo fazer. Algum mestre me ajuda ?

[asimoes]

Poderia usar uma grid editável

[Marcelo Baliza]

o que seria uma grid editável ?

vc teria um código exemplo ?

[Itamar M. Lins Jr.]

Ola!
Já está montado o ambiente para Hwgui ?
Precisamos de mais informações.
Coloca um micro exemplo em clipper para ser convertido em harbour+hwgui.

Itamar M. Lins Jr.

[Marcelo Baliza]

Código: Selecionar todos

#include "inkey.ch"
#include "hbgtinfo.ch"
SET WRAP ON
SET ESCAPE ON
SET SAFETY OFF
SET STATUS OFF
SET TALK OFF
SET CONSOLE OFF
SET SCOREBOARD OFF
SET INTENSITY ON
**************************VIRADA DO MILENIO******
set epoc to 2000
**************************VIRADA DO MILENIO******
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN_DEFAULT


MAIN()


FUNCTION MAIN()
IF !FILE('MTESTE.DBF')
   MTESTE := {}
   AADD(MTESTE, {'QUESTAO     ', 'C', 65, 0})
   AADD(MTESTE, {'SIM         ', 'C',  1, 0})
   AADD(MTESTE, {'NAO         ', 'C',  1, 0})
   AADD(MTESTE, {'NAOAPLI     ', 'C',  1, 0})
   DBCREATE('MTESTE.DBF', MTESTE)
   RELEASE MTESTE
ENDIF



USE MTESTE

IF RECCOUNT()=0
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Cedula de Identidade ?                      '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Carteira de Habilitacao ?                   '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Comprovante de Endereco ?                   '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Prova de Quitacao com Servico Militar ?     '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Comprovante de Renda ?                      '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Certificado de Conclusao de Ensino Medio ?  '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Cartao de Vacina ?                          '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Titulo de Eleitor ?                         '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Ultima Declaracao IRRF ?                    '
   APPEND BLANK
   REPL QUESTAO WITH 'Apresentou Nota Fiscal da Compra ?                     '
ENDIF

GO TOP

LIN=5

DO WHILE !EOF()

   @ LIN,02 SAY QUESTAO
   @ LIN,70 GET SIM
   @ LIN,74 GET NAO
   @ LIN,78 GET NAOAPLI
   READ

   IF LASTKEY()=27
      CLOSE DATABASES
      RETURN
   ENDIF

   LIN++

   SKIP
   LOOP

ENDDO
CLOSE DATABASES
RETURN

[Marcelo Baliza]

Assim é minha compilação:(BAT)


set path=C:\hb32\bin;C:\hb32\comp\mingw\bin;%path%
set HB_COMPILER=mingw
hbmk2 MTESTE.hbp