Jump to content
Fivewin Brasil

Ajuda à um "iniciante(Jr)rs" oriundo do Clipper5.0

AMBROSIO

By AMBROSIO
in Programação

 Share

Recommended Posts

fatimafaria Newbie

fatimafaria

Posted
Posted

Comprei o FWH há quase 2 anos e estou usando apenas este ano de uma forma mais profissional

Senti falta de ter um sistema bem simples com uns 2 cadastros (relacionados entre si) e um programa de relatório, com isto a gente já poderia começar a trabalhar...

O que fiz este ano é pedir ajuda aqui no fórum e contratar um amigo daqui para me ajudar a começar. Ele me forneceu estes programas.

Aqui vai uma crítica, que acho que não será bem vinda, mas acho necessária:

começar no fwh, sem curso, sem manual completo, sem exemplos práticos, fica muito difícil...

Outras ferramentas possuem curso e vc sai de lá sabendo fazendo o básico.

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
  • Replies 96
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

fatimafaria Newbie

fatimafaria

Posted
Posted

Procurando lhe ajudar:

Eu trabalho com o Pelles (recursos), Xdev(editor).

Em primeiro lugar, vc deve começar a configurar o seu ambiente de trabalho:

. Criar as pastas de trabalho e colocar os softwares.

. Configurar o Xdev para acessar corretamente o compilador e o fwh.

. Depois criar um programa principal (menu) onde não exige que vc use o Pelles, apenas comandos do Fwh.

. E tentar criar um programa de cadastro, criando a tela no Pelles (código e nome).

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
AMBROSIO Newbie

AMBROSIO

Posted
  • Author
Posted

Com certeza minha amiga...pelo que vejo terei que contratar alguem tbm pra me dar algumas aulinhas tbm...

Este ultimo post seu eh muito interessante tbm, mas surgem varias duvidas justamente pela falta de conhecimento e principalmente falta de um manual,livro,professor..tem que ser no fuçometro mesmo , como diz nosso amigo logo acima...

Por exemplo:

Como configurar o xDev (ate ja o instalei e criei um projeto, mas nao avancei mais nada, nem tela consegui)

Pq usar o Pelles? Tmb tentei instalar, mas meu PC eh Win98, nao consegui.

Instalei o FW demo, segui as intruções e consegui configurar, pelo menos isso.

Ja peguei alguns prgs do proprio site Projeto xHarbour, fiz algumas alteraçoes, compilei pelo BUILD(linha do DOS), funcionou e tudo...mas quero mais, muito mais, pois quero usar o FW profissionalmente ... Confesso, estou perdidão mesmo...

Editado por - AMBROSIO on 16/06/2009 17:53:25

Link to comment
Share on other sites
fatimafaria Newbie

fatimafaria

Posted
Posted

Comece então configurando o Xdev:

ferramentas / configurar compiladores / fivewin 32 bits... / /

Exemplo de configuração:

SET PATH:

C:\BCC55;C:\BCC55\Bin;F:\Trab\FWH;F:\Trab\xHarbour;F:\Trab\xHarbour\bin

SET INCLUDE:

C:\BCC55\include;F:\Trab\FWH\include;F:\Trab\xHarbour\include

SET LIB:

C:\BCC55\lib;C:\BCC55\lib\psdk;F:\Trab\FWH\lib;F:\Trab\xHarbour\lib

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
fatimafaria Newbie

fatimafaria

Posted
Posted

*===============================================================================

* Programa.....: WNOVO.PRG

* Data.........: 17/02/2009

* Autor........: XXXXXXXXXXXXXXX

* Titulo.......: XXXXXXXXXXXXXXXXXXXX

*===============================================================================

#include "FiveWin.ch"

REQUEST DBFCDX

REQUEST ORDKEYCOUNT, ORDKEYNO, ORDKEYGOTO

REQUEST HB_CODEPAGE_PT850

REQUEST HB_LANG_PT

********************************************************************************

FUNCTION Main()

LOCAL oFont, oBar, oMsgBar, oIco

LOCAL vTitulo:="Wnovo for Windows - V2009.01", ;

vRodape:="Desenvolvido por ***xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx " , ;

vUsuario:=AllTrim(NetName())

LOCAL vImgFundo:=".\Bmp\Fundo.jpg" //--> uma figura ou logotipo que vai ficar no centro de sua tela

*****--- CONFIGURAÇOES DE AMBIENTE ---******************************************

RddSetDefault( "DBFCDX" )

HB_SetCodePage( "PT850" )

HB_LangSelect( 'PT' )

Set _3DLOOK ON

Set CENTURY ON

Set EPOCH TO 1990

Set CURSOR ON

Set DATE BRITISH

Set DELETED ON

Set ESCAPE ON

Set EXCLUSIVE ON

Set INTENSITY ON

Set MULTIPLE ON

Set WRAP ON

SetCancel( .F. )

Set CONFIRM OFF

Set SOFTSEEK On

DEFINE ICON oIco RESOURCE "INICIO"

oFont:=Sans6_6

DEFINE WINDOW oWnd TITLE vTitulo ;

ICON oIco ;

MENU MenuMain()

@ 4,00 Image oImag Size oWnd:nHorzRes()+116,oWnd:nVertRes()-116 Of oWnd Adjust

oImag:Progress(.F.)

oImag:LoadBmp(vImgFundo)

*****--- BARRA DE TAREFAS ---***************************************************

DEFINE BUTTONBAR oBar SIZE 70, 70 _3D OF oWnd 2007

DEFINE BUTTON OF oBar RESOURCE "CLIENTE" ;

PROMPT "Cliente" ;

MESSAGE "Manutenção de Cadastro de Clientes" ;

TOOLTIP "Cadastro de Clientes" ;

ACTION PRG1 //* Vai ser seu primeiro cadastro

DEFINE BUTTON OF oBar RESOURCE "EXIT1" ;

PROMPT "Sair" ;

MESSAGE "Encerra o Sistema" GROUP ;

TOOLTIP "Fecha o Sistema" ;

ACTION IIf( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T., oWnd:End() ), )

*****--- BARRA DE STATUS ---****************************************************

Set Message Of oWnd To vRodape 2007 Font oFont //--> A Opçao "2007" soh pode ser usada com o Fwh710 e versoes superiores.

DEFINE MsgItem OF oWnd:oMsgBar ;

Prompt vUsuario ;

Pixel Size Len(AllTrim(vUsuario))*6.5+25 ;

TOOLTIP "Usuário logado no sistema"

oWnd:oMsgBar:DateOn()

oWnd:oMsgBar:ClockOn()

ACTIVATE WINDOW oWnd MAXIMIZED

Close All

Set _3DLook Off

oFont:DeActivate()

oBar:END()

oIco:END()

oWnd:END()

Set RESOURCES TO

Release All

GlobalFree()

ResAllFree()

SysRefresh()

Clear Memory

RETURN( NIL )

********************************************************************************

FUNCTION MenuMain() //--> Menu Principal.

********************************************************************************

LOCAL oMenu

MENU oMenu 2007 //--> A Opçao "2007" soh pode ser usada com o Fwh711 e versoes superiores.

MENUITEM "&Cadastro"

MENU

MENUITEM "Clientes" MESSAGE "Manutenção do Cadastro de Clientes";

ACTION PRG1()

MENUITEM "Cadastro 2" MESSAGE "Manutenção de Cadastro de Cadastro 2" ;

ACTION PRG2()

SEPARATOR

MENUITEM "Sai&r " MESSAGE "Encerra a Aplicação" ;

ACTION IIF( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T.,oWnd:End()), )

ENDMENU

MENUITEM "&Relatórios"

MENU

MENUITEM "Lista de Clientes" MESSAGE "Lista Clientes" ;

ACTION RELAT1() //* seu programa de relatório

ENDMENU

MENUITEM "&Sair " MESSAGE "Encerra a Aplicação" ;

ACTION IIF( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T.,oWnd:End()), )

ENDMENU

RETURN oMenu

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
fatimafaria Newbie

fatimafaria

Posted
Posted

LOCAL vImgFundo:="Fundo.jpg"

aqui vc tem que ter uma figura desta na sua pasta de projeto (tirei o endereçamento). Ou colocar "*".

E PRG1 será um programa que vc ainda não criou, então pode estar dando erro no seu projeto.

Coloque no final deste programa:

Function PRG1

RETURN

Conseguiu compilar?

Se deu algum erro de compilação, aparece na parte de baixo da tela (talvez vc tenha que arrastar para ver).

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

Ambrosio.. Diga o que realmentye vc. já conseguiu fazer, tipo

01)-já fez uma Window ??

02)-Ja Fez uma Dialog com Gets ???

03)-Ja conseguiu compilar alguma cosa ??

Até agora eu é que não to entendo nada..

Abraços..

PS: Vou te chamar no MSN

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia.

-

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites
Ale SB Newbie

Ale SB

Posted
Posted

citação:

Gostei deste exemplo seu...

id=quote>id=quote>

Seu exemplo ? ( Fatima ) ?

citação:

bem estruturadinho e simples...

proprio para um aprendizado...

id=quote>id=quote>

Eh proprio para o aprendezado, pq ele foi feito para este fim...por quem realmente trabalha com Suporte/Acessoria/Cursos em Fivewin.

Fatima, por gentileza, entre em contato comigo, antes de continuar suas Aulas...com seus Exemplos (ou melhor, com os exemplos se sabe de quem,,,neh) !!!

Obrigado !!!

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

logofw.jpg

"Nois bebi pra fica ruim, se fosse pra fica bom tomava remedio."

Editado por - Ale SB on 16/06/2009 21:30:29

Link to comment
Share on other sites
fatimafaria Newbie

fatimafaria

Posted
Posted

Aqui deu certo.

Faça mais uma tentativa:

*===============================================================================

* Programa.....: WNOVO.PRG

* Data.........: 17/02/2009

* Autor........: XXXXXXXXXXXXXXX

* Titulo.......: XXXXXXXXXXXXXXXXXXXX

*===============================================================================

#include "FiveWin.ch"

*REQUEST DBFCDX

REQUEST ORDKEYCOUNT, ORDKEYNO, ORDKEYGOTO

REQUEST HB_CODEPAGE_PT850

REQUEST HB_LANG_PT

********************************************************************************

FUNCTION Main()

LOCAL oFont, oBar, oMsgBar, oIco

LOCAL vTitulo:="Wnovo for Windows - V2009.01", ;

vRodape:="Desenvolvido por ***xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx " , ;

vUsuario:=AllTrim(NetName())

LOCAL vImgFundo:=".\Bmp\Fundo.jpg" //--> uma figura ou logotipo que vai ficar no centro de sua tela

*****--- CONFIGURAÇOES DE AMBIENTE ---******************************************

*RddSetDefault( "DBFCDX" )

HB_SetCodePage( "PT850" )

HB_LangSelect( 'PT' )

Set _3DLOOK ON

Set CENTURY ON

Set EPOCH TO 1990

Set CURSOR ON

Set DATE BRITISH

Set DELETED ON

Set ESCAPE ON

Set EXCLUSIVE ON

Set INTENSITY ON

Set MULTIPLE ON

Set WRAP ON

SetCancel( .F. )

Set CONFIRM OFF

Set SOFTSEEK On

DEFINE WINDOW oWnd TITLE vTitulo ;

ICON oIco ;

MENU MenuMain()

@ 4,00 Image oImag Size oWnd:nHorzRes()+116,oWnd:nVertRes()-116 Of oWnd Adjust

oImag:Progress(.F.)

oImag:LoadBmp(vImgFundo)

*****--- BARRA DE TAREFAS ---***************************************************

DEFINE BUTTONBAR oBar SIZE 70, 70 _3D OF oWnd 2007

DEFINE BUTTON OF oBar RESOURCE "CLIENTE" ;

PROMPT "Cliente" ;

MESSAGE "Manutenção de Cadastro de Clientes" ;

TOOLTIP "Cadastro de Clientes" ;

ACTION PRG1 //* Vai ser seu primeiro cadastro

DEFINE BUTTON OF oBar RESOURCE "EXIT1" ;

PROMPT "Sair" ;

MESSAGE "Encerra o Sistema" GROUP ;

TOOLTIP "Fecha o Sistema" ;

ACTION IIf( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T., oWnd:End() ), )

*****--- BARRA DE STATUS ---****************************************************

Set Message Of oWnd To vRodape 2007 Font oFont //--> A Opçao "2007" soh pode ser usada com o Fwh710 e versoes superiores.

DEFINE MsgItem OF oWnd:oMsgBar ;

Prompt vUsuario ;

Pixel Size Len(AllTrim(vUsuario))*6.5+25 ;

TOOLTIP "Usuário logado no sistema"

oWnd:oMsgBar:DateOn()

oWnd:oMsgBar:ClockOn()

ACTIVATE WINDOW oWnd MAXIMIZED

Close All

Set _3DLook Off

oFont:DeActivate()

oBar:END()

oIco:END()

oWnd:END()

Set RESOURCES TO

Release All

GlobalFree()

ResAllFree()

SysRefresh()

Clear Memory

RETURN( NIL )

********************************************************************************

FUNCTION MenuMain() //--> Menu Principal.

********************************************************************************

LOCAL oMenu

MENU oMenu 2007 //--> A Opçao "2007" soh pode ser usada com o Fwh711 e versoes superiores.

MENUITEM "&Cadastro"

MENU

MENUITEM "Clientes" MESSAGE "Manutenção do Cadastro de Clientes";

ACTION PRG1()

MENUITEM "Cadastro 2" MESSAGE "Manutenção de Cadastro de Cadastro 2" ;

ACTION PRG1()

SEPARATOR

MENUITEM "Sai&r " MESSAGE "Encerra a Aplicação" ;

ACTION IIF( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T.,oWnd:End()), )

ENDMENU

MENUITEM "&Relatórios"

MENU

MENUITEM "Lista de Clientes" MESSAGE "Lista Clientes" ;

ACTION PRG1() //* seu programa de relatório

ENDMENU

MENUITEM "&Sair " MESSAGE "Encerra a Aplicação" ;

ACTION IIF( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ) , ;

(lSair:=.T.,oWnd:End()), )

ENDMENU

RETURN oMenu

Function prg1()

return

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

Link to comment
Share on other sites
Ale SB Newbie

Ale SB

Posted
Posted

citação:

Ale,

Coloquei aqui um exemplo de programa principal.

Tem nenhum comando exclusivo seu ??!!

Eu comparei com outros exemplos que tenho aqui e é o mesmo.

Programa principal não tem como SER DIFERENTE !!

Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65.

id=quote>id=quote>

Fatima, ja enviei um email p/ vc, o problema nao eh nem tanto o codigo, mas, enfim este eh um assunto particular q nao se resolve aki dentro do forum..ok.

Soh mais uma coisinha, o Abrosio ta usando o FwDemo.

E o FwDemo, trabalha com Clipper e nao [x]Hb.

Tem q configurar a xDev, para trabalhar com Clipper e nao com [x]Hb.

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

logofw.jpg

"Nois bebi pra fica ruim, se fosse pra fica bom tomava remedio."

Editado por - Ale SB on 17/06/2009 07:41:02

Link to comment
Share on other sites
AMBROSIO Newbie

AMBROSIO

Posted
  • Author
Posted

Opa,opa!!!!

Pessoal, nao quero ser a causa de gerar "CONTENDA" entre os programadores(profissionais) e amigos aqui no forum.

- Fatima agradeço e muito pela ajuda, à vc tbm "Ale"...espero que nao façam inimizade por causa desse "exemplo",,, baixei varios...mas confesso que esse tava mais ... como posso dizerrrr... EDUCATIVO heheheh

- Bom,,,tbm configurei o xDev com FW+Clipper+Blinker, mas o

erro al compilar, continua:

Biblioteca de vinculo dinamico ".\compilers.dll" nao encontrado.

OPA!!! Agora ja sou JUNIOR ...heheheh xxxxxxiiiibummm, pop-pop-bummmmmmm (isso eh um foguete, ok) rss

Editado por - AMBROSIO on 17/06/2009 13:49:05

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

Rapaz.. não quero te desanimar até porque não sei se o que vou falar tem algun fundamento.. mas acho que a xdev não compilar com o FWDemo.

Fiz uma Window com um "Alo Mundo" e configurei a xDev até de cabeça pra baixo e não consegui rodar o EXE, fiz um Bat com os mesmos parametros e executou normalmente..

Vou fazer mas algunm teste e depois reporto..

Mas por enquanto vai fazendo com BAT, a não ser que tem todo o tempo do mundo pra isso icon_smile_big.gificon_smile_big.gif

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia.

-

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...