sábado, 9 de maio de 2009

Clarion - Primeiro Programa - 09 05 09 08:20

program

map
testeproc
end

code
testeproc()

testeproc procedure
code
message('ola')

terça-feira, 5 de maio de 2009


Para mostrar texto na caixa de dialogo, coloque o seguinte comando..:

?Prompt2{PROP:Text} = 'Ex1 ' & |
'Cont1 ' & |
'fina.'

segunda-feira, 4 de maio de 2009

Clarion - Xml - IqXml - Como Fazer

!After Global Includes
INCLUDE('iQXML.inc','Equates')
--
!Before File Declarations
SOFTBALL FILE,DRIVER('TOPSPEED'),PRE(TEA),CREATE,BINDABLE,THREAD
LastNameKey KEY(TEA:LastName),DUP,NOCASE
Record RECORD,PRE()
Id LONG
FirstName STRING(30)
LastName STRING(30)
Hits SHORT
END
END

ASC2:ASCIIFile FILE,PRE(ASC2),DRIVER('ASCII'),NAME(ASCIIFileName),create
RECORD RECORD,PRE()
STRING STRING(5000)
END
END
----
!Inside the Global Map
INCLUDE('iQXML.inc','Modules')

domingo, 3 de maio de 2009