DÃºvida Urgente

vhclara · July 28, 2005

Pessoal, tenho uma dÃºvida, gostaria de contar com o auxÃlio de vocÃªs. Bem, o problema Ã© o seguinte. Estou tentando compilar uma tela simples em Clipper, porÃ©m, nÃ£o Ã© exibida. Ele nÃ£o mostra erros, mas nÃ£o mostra o resultado final.

Estou enviando o cÃ³digo. Obrigado.

#include "fivewin.ch"

function main()

tela("testes fivewin")

return nil

Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento)

Public _tela_

Private ColorTela := SetColor()

SetColor("W/B+")

//Clear

@ 0,00 To 3,79 Double // Borda Superior

@ 5,00 To 22,79 Double

Setcolor("B/W")

@ 01,01 clear To 02,78

SetColor("N/W")

SetColor("W+/BG")

If !Empty(Fantasia)

@ 02,03 Say " "

@ 02,Col()+1 Say Fantasia

Endif

If !Empty(Empresa)

@ 02,03 Say Empresa

Endif

If !Empty(Movimento)

@ 01,03 Say Movimento

Endif

IF !Empty(Texto1)

SetColor("N/W")

Centraliza(1,Texto1)

Endif

IF !Empty(Texto2)

SetColor("N/W")

Centraliza(2,Texto2)

Endif

SetColor(ColorTela)

Stela(1,@_tela_)

Return

procedure STela(Modo,Varv)

If Modo = 1

Varv := SaveScreen(00,00,MaxRow(),MaxCol())

Elseif Modo = 2

RestScreen(00,00,MaxRow(),MaxCol(),Varv)

Endif

return

Function Centraliza(Linha,Texto)

Private Colun := 40-(Len(Texto)/2)

msginfo(Texto)

Return(Colun)

vhclara · July 28, 2005

Pessoal, tenho uma dÃºvida, gostaria de contar com o auxÃlio de vocÃªs. Bem, o problema Ã© o seguinte. Estou tentando compilar uma tela simples em Clipper, porÃ©m, nÃ£o Ã© exibida. Ele nÃ£o mostra erros, mas nÃ£o mostra o resultado final.

Estou enviando o cÃ³digo. Obrigado.

#include "fivewin.ch"

function main()

tela("testes fivewin")

return nil

Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento)

Public _tela_

Private ColorTela := SetColor()

SetColor("W/B+")

//Clear

@ 0,00 To 3,79 Double // Borda Superior

@ 5,00 To 22,79 Double

Setcolor("B/W")

@ 01,01 clear To 02,78

SetColor("N/W")

SetColor("W+/BG")

If !Empty(Fantasia)

@ 02,03 Say " "

@ 02,Col()+1 Say Fantasia

Endif

If !Empty(Empresa)

@ 02,03 Say Empresa

Endif

If !Empty(Movimento)

@ 01,03 Say Movimento

Endif

IF !Empty(Texto1)

SetColor("N/W")

Centraliza(1,Texto1)

Endif

IF !Empty(Texto2)

SetColor("N/W")

Centraliza(2,Texto2)

Endif

SetColor(ColorTela)

Stela(1,@_tela_)

Return

procedure STela(Modo,Varv)

If Modo = 1

Varv := SaveScreen(00,00,MaxRow(),MaxCol())

Elseif Modo = 2

RestScreen(00,00,MaxRow(),MaxCol(),Varv)

Endif

return

Function Centraliza(Linha,Texto)

Private Colun := 40-(Len(Texto)/2)

msginfo(Texto)

Return(Colun)

vhclara · July 28, 2005

Pessoal, tenho uma dÃºvida, gostaria de contar com o auxÃlio de vocÃªs. Bem, o problema Ã© o seguinte. Estou tentando compilar uma tela simples em Clipper, porÃ©m, nÃ£o Ã© exibida. Ele nÃ£o mostra erros, mas nÃ£o mostra o resultado final.

Estou enviando o cÃ³digo. Obrigado.

#include "fivewin.ch"

function main()

tela("testes fivewin")

return nil

Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento)

Public _tela_

Private ColorTela := SetColor()

SetColor("W/B+")

//Clear

@ 0,00 To 3,79 Double // Borda Superior

@ 5,00 To 22,79 Double

Setcolor("B/W")

@ 01,01 clear To 02,78

SetColor("N/W")

SetColor("W+/BG")

If !Empty(Fantasia)

@ 02,03 Say " "

@ 02,Col()+1 Say Fantasia

Endif

If !Empty(Empresa)

@ 02,03 Say Empresa

Endif

If !Empty(Movimento)

@ 01,03 Say Movimento

Endif

IF !Empty(Texto1)

SetColor("N/W")

Centraliza(1,Texto1)

Endif

IF !Empty(Texto2)

SetColor("N/W")

Centraliza(2,Texto2)

Endif

SetColor(ColorTela)

Stela(1,@_tela_)

Return

procedure STela(Modo,Varv)

If Modo = 1

Varv := SaveScreen(00,00,MaxRow(),MaxCol())

Elseif Modo = 2

RestScreen(00,00,MaxRow(),MaxCol(),Varv)

Endif

return

Function Centraliza(Linha,Texto)

Private Colun := 40-(Len(Texto)/2)

msginfo(Texto)

Return(Colun)

pauloaraujo · July 28, 2005

OlÃ¡,

VocÃª tentando fazer tudo como fazia no Clipper. Ã‰ necessÃ¡rio uma WINDOW ou DIALOG para se mostrar alguma coisa.

Tente assim sÃ³ para vocÃª pegar o jeitÃ£o da coisa:

#include "FiveWin.ch"

//----------------------------------------------------------

tela("testes fivewin")

return nil

//----------------------------------------------------------

function Tela(Texto1,Texto2,Fantasia,Empresa,Movimento)

local oWnd

DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;

TITLE "BEM VINDO" COLOR "W/B"

@ 2, 2 SAY TEXTO1

ACTIVATE WINDOW oWnd ;

ON RIGHT CLICK MsgInfo( "Right Click" ) ;

VALID MsgYesNo( " Deseja Sair ? ",OemToAnsi( " " ) )

return nil

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar Ã© um prazer, agradecer Ã© uma obrigaÃ§Ã£o

betovsp · July 28, 2005

vhclara, seja bem vindo ao forum.

O que acontece no Fivewin, Ã© que como vc esta trabalhando em ambiente windows, vc precisa definir, pra comeÃ§ar, a window que vc vai trabalhar, ex:

DEFINE WINDOW oWab FROM 100,100 TO 490,600 PIXEL MDI TITLE "Teste Window";

MENU CriaMenu()

ACTIVATE WINDOW oWab MAXIMIZED

RETURN(NIL)

FUNCTION CriaMenu()

LOCAL oMenu

MENU oMenu

MENUITEM "&Cadastros" MESSAGE "ManutenÃ§Ã£o dos Cadastros"

MENU

MENUITEM oMenu10 PROMPT "&Campanhas" MESSAGE "ManutenÃ§Ã£o das Campanhas" ACTION MatCam()

MENUITEM oMenu11 PROMPT "&OfÃcio" MESSAGE "ManutenÃ§Ã£o dos OfÃcios" ACTION MatOfi()

ENDMENU

Return(omenu)

Espero ter ajudado, dentro da pasta de seu fivewin, tem a pasta sample, lÃ¡ vc encontrarÃ¡ muitos fontes pra poder te ajudar, fora os amigos desse forum.

AbraÃ§os.

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

RibeirÃ£o Preto/SP

supi · July 28, 2005

isso mesmo . Resposta correta.

BETOVSP ......... Ow. campanha / oficios......

Cuidado com a CPI aÃ heim.

hehehehehe

SUPI

betovsp · July 28, 2005

citaÃ§Ã£o:BETOVSP ......... Ow. campanha / oficios......
Cuidado com a CPI aÃ heim.

id=quote>id=quote>

eheheheheheeheh.

ehehehehehehehe.

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

RibeirÃ£o Preto/SP

personal · July 28, 2005

Procura direitinho, quem sabe na cueca.

Porque em clientes...

betovsp · July 28, 2005

Sergio, nem na cueca, e como vc disse, em cliente.....

ehehehehehehehehehe

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

RibeirÃ£o Preto/SP

Valdir · July 28, 2005

OlÃ¡ vhclara...

Bem Vindo(a) ao FÃ³rum...

AlÃ©m das respostas corretas acima, vale lembrar que pode ser utilizado o WorkShop (FW-Clipper) ou o Pelles (xHarbour) para construir as suas telas...

um abraÃ§o

Valdir - JundiaÃ - S.P.

FW23/CLIP52E/BLINKER7

supi · July 29, 2005

BELEZA BETO.

SE PRECISAR DE MULA , PRA TRANSPORTAR AVISA AI' , SE APARECER GRANA ! TAMO PRECISANDO AQUI HEHEHEHEHEHEHEHEHEHEHE

SUPI

Luiz Arruda (ICO) · July 29, 2005

Ola.

compile assim CLIPPER /N /M id=blue>

Abra seu editor preferido.. copie e cole, de um nome a ele

pode ser bli.lnkid=blue>

***********

BLINKER CLIPPER SYMBOL OFF

fi ADM

FI id=blue>

OUT id=red> //* NOME DO SEU EXECUTÃVEL.EXE

PACKCODE

PACKDATA

DEFBEGIN

name Contas

description 'LED-INFO'

exetype Windows 3.1

code moveable discardable preload

data preload moveable

stacksize 20000

heapsize 85204

segment 'PLANKTON_TEXT' nondiscardable

segment 'EXTEND_TEXT' nondiscardable

segment 'OM_TEXT' nondiscardable

segment 'OSMEM_TEXT' nondiscardable

segment 'SORTOF_TEXT' nondiscardable

segment 'STACK_TEXT' nondiscardable

DEFEND

NOBELL

sear Five, FiveC, Objects, _DBFCDX .. ETECETERAS

faÃ§a assim

BLINKER @SEUARQUIVO.LNKid=blue>

Pimba ! tÃ¡ pronto seu primeiro executavel em FiveWin

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

kapiaba · July 29, 2005

Luiz Arruda... E o Arquivo.rmk kadÃª??

Bad Boy - SÃ£o Paulo.

kmt_karinha@pop.com.br - 1 GB de EspaÃ§o.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Luiz Arruda (ICO) · July 29, 2005

He! he! he! isquici

De uma olhada neste exemplo, que refresca... (alembria)

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3382

http://www.fivewin.com.br/exibedicas.asp?id=484

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

kapiaba · July 29, 2005

citaÃ§Ã£o:
He! he! he! isquici

De uma olhada neste exemplo, que refresca... (alembria)

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3382

http://www.fivewin.com.br/exibedicas.asp?id=484

IntÃ© a prÃ³chima.

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

id=quote>id=quote>

Rapaiz.. TÃº tÃ¡ ficando bom nessa bagaÃ§a... Acho ke vocÃª vai 'bater' o the best ANGELO... hehehehe. ParabÃ©ns, Ã© isso mesmo.

Bad Boy - SÃ£o Paulo.

kmt_karinha@pop.com.br - 1 GB de EspaÃ§o.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Luiz Arruda (ICO) · July 29, 2005

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

DÃºvida Urgente

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation