PC Toledo

Pessoal estou querendo colocar um resultado em letras grandes tem como fazer isso.

Helio Beltrao Jr.
helio@hrbinfo.com.br

Ola,

Usando alguma lib em particular ? ou em modo texto ?

[]s
Manoel Angeiras

Utilizo Xharbour + GTWVW modo texto

Hélio, olha um exemplo de "números grandes" na tela (em modo texto)...

Código: Selecionar todos

function lupa3
para entra,lin,col
priv cont,a1,a2,a3,a4,b1,b2,b3,b4,corant
corant=setcolor()
set color to
entra=alltrim(tran(entra,"@E 99,999,999.99"))
a1="ÜÜÜ ÜÜ  ÜÜÜ ÜÜÜ Ü Ü ÜÜÜ Ü   ÜÜÜ ÜÜÜ ÜÜÜ "
a2="Û Û  Û  ÜÜÛ ÜÜÛ ÛÜÛ ÛÜÜ ÛÜÜ   Û ÛÜÛ ÛÜÛ "
a3="ÛÜÛ ÜÛÜ ÛÜÜ ÜÜÛ   Û ÜÜÛ ÛÜÛ   Û ÛÜÛ   Û "
*   xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
b1:=b2:=b3:=""
for cont=1 to len(entra)
  if substr(entra,cont,1)$".,"
    b1=b1+"   "
    b2=b2+"   "
    b3=b3+" "+iif(substr(entra,cont,1)=".",chr(220),chr(220))+" "
  else
    b1=b1+substr(a1,(val(substr(entra,cont,1))*4)+1,4)
    b2=b2+substr(a2,(val(substr(entra,cont,1))*4)+1,4)
    b3=b3+substr(a3,(val(substr(entra,cont,1))*4)+1,4)
  endi
next
@lin+0,col say b1
@lin+1,col say b2
@lin+2,col say b3
setcolor(corant)

Acabei de enviar para o seu e-mail uma funcao para mostrar numeros grandes no seu sistema.

voce tb pode tirar como exemplo para construcao de uma funcao para exebir letras grandes tb.

PC Toledo

Como fazer letras grandes

Como fazer letras grandes

Caro Helio