Categoria:
Esta função mostra os caracteres de 32 até 255.
#include "hbgtinfo.ch" REQUEST HB_LANG_PT REQUEST HB_CODEPAGE_EN function main() local l local i SetMode(60,180) REQUEST HB_GT_WVT_DEFAULT HB_LANGSELECT('PT') HB_CDPSELECT('EN') HB_GtInfo( HB_GTI_MAXIMIZED, .F. ) HB_GtInfo( HB_GTI_FONTNAME, "Courier new" ) HB_GtInfo( HB_GTI_WINTITLE, "Teste de menu" ) for i = 32 to 255 ?? i ?? "=" + chr(i) + " " next wait "Pressione uma tecla" return
Comentários recentes