Uma função simples para mostrar os codigos de caracteres de 32 até 255

Foto de Major Anilto

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
Total votes: 0