Clipper On Line • Ver Tópico - Harbour - Classes: ON ERROR

Harbour - Classes: ON ERROR

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Harbour - Classes: ON ERROR

Mensagempor susviela@bol.com.br » 27 Set 2018 15:49

Pessoal publiquei um exemplo do recurso ON ERRO em classes;

#include <hmg.ch>
#include "hbclass.ch"

CREATE CLASS tMinhaClasse

        PROTECTED:

   DATA   cMensagem INIT ""
        EXPORTED:   

   METHOD New()    CONSTRUCTOR

        ON ERROR MetodoDesconhecido()

ENDCLASS

*------------------------------------------
METHOD New(cArqDB) CLASS tMinhaCasse
*-----------------------------------------

      // seu código construtor aqui

Return Self // retorna self

*------------------------------------------
METHOD MedodoDesconhecido() CLASS tMInhaClasse
*-----------------------------------------
      // esse método é chamado quando ocorrer erro

      MSGINFO("Método desconhecido: tMinhaCasse " )

Return Self    // construtor retorna self



Exemplo de uso lá no post do Blog: Programando xBase

https://programandoxbase.wordpress.com/2018/09/27/harbour-classe-on-error/

On-Error-Classe.png
On-Error-Classe.png (6.9 KiB) Visualizado 1290 vezes
Nota de Moderação:
Toledo: O presente tópico foi movido da seção Harbour, uma vez que seu conteúdo não tem relação com os objetivos daquela seção, onde só podem constar dúvidas técnicas de programação diretamente relacionadas com o [x]Harbour.
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar de usuário

susviela@bol.com.br
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 236
Data de registro: 30 Jun 2017 11:17
Cidade/Estado: São José / SC
Curtiu: 153 vezes
Mens.Curtidas: 24 vezes

Harbour - Classes: ON ERROR

Mensagempor JoséQuintas » 27 Set 2018 17:45

#include "hmg.ch"


Se é minigui, deveria ser na seção de minigui.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18148
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1215 vezes

Harbour - Classes: ON ERROR

Mensagempor alxsts » 27 Set 2018 19:32

Olá!

Sem querer criar polêmica, acho que este código é essencialmente código Harbour...
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

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

Harbour - Classes: ON ERROR

Mensagempor susviela@bol.com.br » 27 Set 2018 19:59

Por isso lá no BLOG já coloco no início de todos os posts...


Pré requisitos :

– HMG ( 3.4.4 – 32 bits)

Observação se você não usa HMG … teria que excluir a linha
#include <hmg.ch>
e também mudar onde aparece
MsgInfo(“Texto ….”) por ? “Texto ….”



https://programandoxbase.wordpress.com/2018/09/27/harbour-classe-on-error/

Vou procurar ter mais cuidado nas próximas publicações e publicar lá no HMG que no momento é a LIB que estou usando.

#AllxBase
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar de usuário

susviela@bol.com.br
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 236
Data de registro: 30 Jun 2017 11:17
Cidade/Estado: São José / SC
Curtiu: 153 vezes
Mens.Curtidas: 24 vezes

Harbour - Classes: ON ERROR

Mensagempor JoséQuintas » 27 Set 2018 23:02

Harbour é Harbour.
Minigui... pode ser Harbour ou XHarbour.
E tem as funções da própria minigui, tentando se ajustar com Harbour e XHarbour ao mesmo tempo, além de certas funções e comandos próprios.

o simples fato do #include "hmg.ch" e depender da minigui, deixa na dúvida se vai funcionar com Harbour puro, se vai funcionar com Harbour oficial, se vai funcionar com Harbour 3.2 ou 3.4.

Quem já conhece, pode até se virar pra resolver os problemas.
Mas isso é direcionado pra quem está aprendendo, que nem sempre vai saber qual é a diferença.

Se os fontes são direcionados pra HMG, deveria estar na seção HMG, assim o aprendiz de HMG não vai ter problemas pra resolver.

Já pra aprendiz de Harbour... vai des-ensinar.
O cara vai lá pra aprender classe.... e desvia do aprendizado que queria pra outra coisa.

Aliás.... des-ensina logo na primeira linha.

#include <hmg.ch>

essa sintaxe é pra linguagem C, arquivos H, e não pra arquivos CH.
Já vai confundir quem está aprendendo logo na primeira linha.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18148
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1215 vezes

Harbour - Classes: ON ERROR

Mensagempor susviela@bol.com.br » 28 Set 2018 15:44

JoséQuintas escreveu:
#include <hmg.ch>

essa sintaxe é pra linguagem C, arquivos H, e não pra arquivos CH.
Já vai confundir quem está aprendendo logo na primeira linha.


O mais engraçado é que a própria IDE do HMG gera o código assim e funciona sem problemas.

include.png
#include <hmg.ch> // gerado pela IDE - HMG 1.2a Unicode
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar de usuário

susviela@bol.com.br
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 236
Data de registro: 30 Jun 2017 11:17
Cidade/Estado: São José / SC
Curtiu: 153 vezes
Mens.Curtidas: 24 vezes

Harbour - Classes: ON ERROR

Mensagempor JoséQuintas » 28 Set 2018 19:53

Isto também funciona:

# INCLUDE "INKEY.CH"

pelo menos no Windows....

stat func também funciona

e BATs pra compilar também funcionam....

Funcionar não significa que é pra usar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18148
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1215 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Google [Bot] 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