Imprimir ASCII 179 - 223

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Re: Imprimir ASCII 179 - 223

Post by fchirico » Thu Oct 23, 2008 5:22 pm

Jan Ribeiro wrote:Fernando Chirico
Imprimo carater um por vez.
Quando encontro * no array quero imprimir "▄".
Jan, creo haber entendido:

A mi criterio lo que tienes que hacer es esto...

oObjPrt:printdata( nLinha, nColuna, HB_OemToAnsi( chr(220) ) )

o prueba

oObjPrt:printdata( nLinha, nColuna, HB_OemToAnsi("▄") )

La función HB_OEMTOANSI() es propia de Harbour, tu no tienes que declarar nada ( ya que usas el HMG Oficial ), solamente debes utilizarla.

Espero que solucione tu problema.

Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 9:54 pm

Fernando Chirico
Você entendeu. Eu usei as duas linhas não dá erro mas imprime '_'
Eu usei também
oObjPrt:printdata( nLinha, nColuna, HB_OemToAnsi( eval({|| chr(220)}) ) )
apresentou o mesmo resultado
Você sabe como pegar caractere da tabela Unicode?
O código Unicode do "▄" é U+2580
Na hora de imprimir colocar eval({|| Unicode })
ou Local cChar := eval({|| Unicode })
oObjPrt:printdata( nLinha, nColuna, cChar )
Para que o acesso a tabela seja só na hora da execução.
Gracias, tenho aprendido muito contigo
Saludos, Jan Ribeiro

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Fri Oct 24, 2008 12:26 am

Jan Ribeiro wrote:Fernando Chirico
Você sabe como pegar caractere da tabela Unicode?
O código Unicode do "▄" é U+2580 ...
El codigo U+2580 se crea con ALT+2580 ---> "¶".

Lamento no poder ayudarte como tu necesitas.
Si me necesitas no hay problema.


Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Fri Oct 24, 2008 12:39 am

fchirico wrote:
Jan Ribeiro wrote:Fernando Chirico
Você sabe como pegar caractere da tabela Unicode?
O código Unicode do "▄" é U+2580 ...
El codigo U+2580 se crea con ALT+2580 ---> "¶".

Lamento no poder ayudarte como tu necesitas.
Si me necesitas no hay problema.

Saludos, Fernando Chirico.
Jan, perdón pero te informé mal, me basé en la AYUDA del "Mapa de caracteres de Windows" y evidentemente lo mal interpreté.

Ayuda de "Mapa de caracteres" de Windows:
Si conoce el equivalente Unicode del carácter que desea insertar, puede insertar también un carácter especial directamente en un documento sin utilizar Mapa de caracteres. Para ello, abra el documento y coloque el punto de inserción en el lugar en el que desea que aparezca el carácter especial. A continuación, con BLOQ NUM activada, mantenga presionada la tecla ALT mientras utiliza las teclas del teclado numérico para escribir el valor del carácter Unicode.
De verdad lamento no poder ayudarte.

Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Fri Oct 24, 2008 12:58 pm

Fernando Chirico
Você ja tem me ajudado me dando informações que eu nao conhecia.
Eu não sabia se poderia usar os comandos do Harbour que estão em www.harbour-project.org/index.htm voce me abriu novos horizontes.
Eu fiz o teste com o Bloco de notas no Windows e manualmente consegui imprimir o "▄".
O Bloco de notas me informou que "▄" era um carater Unicode e que nao poderia salvar mas imprimiu.
O que pensei é que usando eval({|| Unicode do "▄" }) a tabela do unicode fosse usada na hora da impressao.
Porém eu não sei como ler a tabela unicode dentro da programação.
Sei que o código do "▄" na tabela é 2580.
Como colocar no programa para ler o Unicode 2580 ?
Eu estou escrevendo mais para que de alguma forma voce consiga me entender OK?
Eu estou com um programa Dicionario de dados em término de ajustes. Te interessas?
Gracias pelas ajudas muito importantes que voce me tem dado.
Saludos, Jan Ribeiro

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Fri Oct 24, 2008 5:26 pm

Jan Ribeiro wrote:Fernando Chirico
Como colocar no programa para ler o Unicode 2580 ?
Eu estou escrevendo mais para que de alguma forma voce consiga me entender OK?
Eu estou com um programa Dicionario de dados em término de ajustes. Te interessas?
Jan, primeramente agradecer tus palabras.

Como colocar no programa para ler o Unicode 2580 ?
Lo intenté pero no encontré la forma.

Eu estou com um programa Dicionario de dados em término de ajustes. Te interessas?
Si, me interesaría ver como lo estas manejando, es algo que tengo en mente para mis futuros desarrollos.

Saludos y muchas gracias, Fernando Chirico.
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Fri Oct 24, 2008 10:38 pm

Fernando Chirico
O que te escreví é a verdade voce abriu novos hrizontes para mim.
O programa Dicionário de dados já tem as partes mais importantes em funcionamento.
Voce cria tabela faz comentários
Voce cria os campos e comenta cada um deles
Voce cria os indices NTX com as chaves e comenta
Num botão voce monta os arquivos que voce criou
Voce relaciona os PRG com as funcoes internas usando tree
Eu ainda não conclui porque estou com o problema para terminar o programa com a impressão do "▄" para montar cartões de loteria que se basea na impressao do "▄".
Eu posso mandar como está com os fontes?
Preciso do seu Email o meu é == > jan1939@gmail.com
Saludos y muchas gracias, Jan

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Fri Oct 24, 2008 11:50 pm

Jan Ribeiro wrote:Fernando Chirico
Eu posso mandar como está com os fontes?
Preciso do seu Email o meu é == > jan1939@gmail.com
Sería interesante ver como funciona, le paso el eMail fernandochirico@yahoo.com.ar.

Gracias!

Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

Post Reply