#include "inkey.ch"
#include "hbgtinfo.ch"
REQUEST HB_CODEPAGE_PTISO
HB_CDPSELECT("PTISO")
function main()
*altd()
CLS
setmode(25,80)
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" ) // fonte
HB_GtInfo( HB_GTI_CLOSABLE, .F. ) // nÆo permite fechar pelo X
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
HB_GtInfo( HB_GTI_WINTITLE, "MNF - Sistemas" )
// Ativa as ações do mouse
SET( _SET_EVENTMASK, 255 )
// Ativa cores intensas no fundo
SetBlink(.f.)
// Torna o cursor do mouse visivel
mSetCursor(.T.)
CLS
SET BELL OFF
SET SCORE OFF
SET EPOCH TO 1960
SET CENTURY ON
SET DELETED ON
SET DATE BRITISH
SET EXCLUSIVE OFF
SET PROCEDURE TO CEPC00
SET WRAP ON
PUBLIC BRANCOS
nomep=space(40)
anoletp=str(year(date()),4,0)
@ 10,10 say "Ano Letivo"get anoletp pict '9999'
@ 12,10 say "Nome Aluno"get nomep pict "@!"
read
return nil
Problemas na Acentuação.
Moderador: Moderadores
18 Mensagens • Página 2 de 2 • 1, 2
Problemas na Acentuação.
por filizola » 21 Ago 2017 22:14
- ROTINA PRINCIPAL
- Anexos
-
teste.prg- (963 Bytes) Baixado 53 vezes
Nota de Moderação:Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
"Um passo a frente, e já não estará mais no mesmo lugar..."
-
filizola Usuário NÃvel 3 
- Mensagens: 412
- Data de registro: 19 Ago 2003 20:10
- Cidade/Estado: Belo Horizonte/MG
- Curtiu: 5 vezes
- Mens.Curtidas: 6 vezes
Problemas na Acentuação.
por Itamar M. Lins Jr. » 23 Ago 2017 14:12
Ola!
Veja ai onde está o BO!
Assim funcionou 100%... Detalhes, detalhes...
Saudações,
Itamar M. Lins Jr.
Veja ai onde está o BO!
*- ROTINA PRINCIPAL
#include "inkey.ch"
#include "hbgtinfo.ch"
REQUEST HB_CODEPAGE_PTISO
function main()
HB_CDPSELECT("PTISO")
*altd()
CLS
setmode(25,80)
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" ) // fonte
HB_GtInfo( HB_GTI_CLOSABLE, .F. ) // nÆo permite fechar pelo X
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
HB_GtInfo( HB_GTI_WINTITLE, "MNF - Sistemas" )
// Ativa as ações do mouse
SET( _SET_EVENTMASK, 255 )
// Ativa cores intensas no fundo
SetBlink(.f.)
// Torna o cursor do mouse visivel
mSetCursor(.T.)
CLS
SET BELL OFF
SET SCORE OFF
SET EPOCH TO 1960
SET CENTURY ON
SET DELETED ON
SET DATE BRITISH
SET EXCLUSIVE OFF
SET PROCEDURE TO CEPC00
SET WRAP ON
PUBLIC BRANCOS
nomep=space(40)
anoletp=str(year(date()),4,0)
@ 10,10 say "Ano Letivo"get anoletp pict '9999'
@ 12,10 say "Nome Aluno"get nomep pict "@!"
read
return nil
Assim funcionou 100%... Detalhes, detalhes...
Saudações,
Itamar M. Lins Jr.
-
Itamar M. Lins Jr. Colaborador 
- Mensagens: 6949
- Data de registro: 30 Mai 2007 11:31
- Cidade/Estado: Ilheus Bahia
- Curtiu: 312 vezes
- Mens.Curtidas: 506 vezes
Problemas na Acentuação.
por filizola » 23 Ago 2017 16:03
:D :)) valeu.
Detalhes...
Detalhes...
"Um passo a frente, e já não estará mais no mesmo lugar..."
-
filizola Usuário NÃvel 3 - Mensagens: 412
- Data de registro: 19 Ago 2003 20:10
- Cidade/Estado: Belo Horizonte/MG
- Curtiu: 5 vezes
- Mens.Curtidas: 6 vezes
Quem está online
Usuários vendo este fórum: Bing [Bot] e 7 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!
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!
