Microsoft Word in Progress

30Dez08

Creating a microsfot word document in progress abl
DEFINE VARIABLE chWord AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chDocument AS COM-HANDLE NO-UNDO.
CREATE “Word.Application”:U chWord.
IF chWord = ? THEN DO:
MESSAGE “Microsoft Word is not installed in this pc.” VIEW-AS ALERT-BOX.
RETURN.
END.
chDocument = chWord:Documents:ADD().
chWord:Selection:FONT:bold = NO.
chWord:Selection:FONT:size = 10.
chWord:Selection:Font:Name = “Verdana”.
chWord:Selection:TypeText(“sl4v3r…. “).
chWord:VISIBLE = YES.
RELEASE OBJECT chWord.
see u…

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, handle, microsoft, Progress, word, Word.Application

Biblia para smartphone – Parte2

26Dez08

Ola…
Seguem alguns links bíblicos para smartphones… Palm, Symbiam, Windows Mobile, Blackberry, Iphone
PalmBrasil
http://www.palmbrasil.com.br/biblioteca/biblicos.html
Biblia Online
http://www.bibliaonline.net/acessar.cgi?pagina=pocket&lang=%27BR%27
Igreja Adventista de Moema
http://www.iasdmoema.org.br/palm/biblia.html
God’s Iphone
http://www.godsiphone.com/
Bussola Holy Bible
http://bussolaholybible.blogspot.com/
abs

Filed under: SmartPhone   |  1 Comment
Tags: bible, biblia, blackberry, download, iphone, Mobile, palm, SmartPhone, symbiam, Windows

Merry Xmas

25Dez08

Merry Xmas!!!

Filed under: English   |  Leave a Comment
Tags: Christmas, merry, xmas

More phrasal verbs

24Dez08

5 phrasal verbs…
get the gut feeling
traducao
intuição
exemplo
I get the gut feeling there was something wrong.

get yourself into something strange
traducao
entrar em
exemplo
I think I got myself into trouble.

get something wrong
traducao
cometer um erro
exemplo
I knew I got it wrong when I saw her face.

to get mixed up
traducao
se confundir
exemplo
I got the adress all mixed up.

get a hold of yourself
traducao
se acalmar
exemplo
I try [...]

Filed under: English   |  Leave a Comment
Tags: English, exemplo, Phrasal, tradução, verb

Vocabulário de Natal – Parte 3

24Dez08

hehehe, mais algumas informacoes para o natal:
wisemen – magos
follow – seguir
star – estrela
bells – sinos
candles – velas
holidays – festas
put up a Christmas tree – montar uma arvore de natal
see u…

Filed under: English   |  Leave a Comment
Tags: Christmas, natal, vocabulário

The MENU-BAR in PROGRESS

24Dez08

Creating a menu-bar in progress character.
DEFINE SUB-MENU Arquivo
MENU-ITEM Opcao1  LABEL “Opcao1″
MENU-ITEM Opcao2  LABEL “Opcao2″
MENU-ITEM Opcao3  LABEL “Opcao3″.
DEFINE SUB-MENU Editar
MENU-ITEM Recortar LABEL “Recortar” ACCELERATOR “PAGE-DOWN”
MENU-ITEM Copiar   LABEL “Copiar”   ACCELERATOR “PAGE-UP”
MENU-ITEM Colar    LABEL “Colar”.
DEFINE SUB-MENU Fechar
MENU-ITEM Sair   LABEL “Sair”.
DEFINE MENU mbar   MENUBAR
SUB-MENU Arquivo LABEL “Arquivo”
SUB-MENU Editar  LABEL “Editar”
SUB-MENU Fechar  LABEL “Fechar”.
ON CHOOSE OF MENU-ITEM Opcao1
MESSAGE “Opcao1″ VIEW-AS [...]

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, accelerator, character, example, menu, menu-bar, menu-item, Progress, sub-menu

Inheritance in Progress ABL

24Dez08

How to inherits a class in Progress 4gl ABL.
The class used
dev.OOP.Pessoa
Inheritance
USING dev.OOP.Pessoa.
CLASS dev.oop.corretor INHERITS Pessoa:
DEFINE PRIVATE VARIABLE endereco AS CHARACTER INITIAL “”.
CONSTRUCTOR PUBLIC corretor ():
SUPER ().
END CONSTRUCTOR.
DESTRUCTOR PUBLIC corretor ():
END DESTRUCTOR.
METHOD PUBLIC VOID setEndereco (INPUT p_endereco AS CHARACTER):
ASSIGN endereco = p_endereco.
END METHOD.
METHOD PUBLIC CHARACTER getEndereco ():
RETURN endereco.
END METHOD.
END CLASS.
Calling Corretor
DEFINE VARIABLE cCorretor AS [...]

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, class, example, inheritance, inherits, method, Progress

Instancing a class in Progress ABL

21Dez08

This is a example of how to instance a class in ABL.
Used class
Pessoa
ABL Procedure
DEFINE VARIABLE cPessoa   AS CLASS dev.OOP.Pessoa   NO-UNDO.
cPessoa = NEW dev.OOP.Pessoa().
cPessoa:setNome(“carlos”).
cPessoa:setSalario(500).
MESSAGE cPessoa:getNome() VIEW-AS alert-box.
MESSAGE cPessoa:getSalario() VIEW-AS alert-box.
DELETE OBJECT cPessoa.

see u…

Filed under: Progress   |  1 Comment
Tags: 4gl, abl, class, constructor, delete, destructor, example, instance, method, object, oo, Progress

Progress Orientado a Objetos?

21Dez08

Eh isso mesmo, eh possivel trabalhar com orientacao a objetos no Progress.
Segue um exemplo de um classe no progress… a famosa classe pessoa.
CLASS dev.OOP.Pessoa:
DEFINE PRIVATE VARIABLE nome AS CHARACTER INITIAL “”.
DEFINE PRIVATE VARIABLE salario AS DECIMAL INITIAL 0.
CONSTRUCTOR PUBLIC Pessoa ():
SUPER ().
END CONSTRUCTOR.
DESTRUCTOR PUBLIC Pessoa ():
END DESTRUCTOR.
METHOD PUBLIC VOID setNome (INPUT p_nome AS [...]

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, atributo, Classe, construtor, destrutor, exemplo, getter, metodo, objetos, oo, orientado, Progress, setter

Mysql GUI tools in Ubuntu

21Dez08

To install Mysql Administrador and Mysql Query Browser in Ubuntu:
sudo aptitude install mysql-admin

see u

Filed under: Ubuntu   |  Leave a Comment
Tags: administrator, aptitude, browser, gui, install, Linux, Mysql, query, tools, Ubuntu