La Web del Programador: Comunidad de Programadores
 
    Pregunta:  8036 - IMPRIMIR CODIGO HEXADECIMAL SIN UTILIZAR LA OPCION PRINTER
Autor:  Rafael Morales
Hola:
Nesesito mandar a lpt1, un codigo hexademimal, que el usuario introduce, tipo 40H, sin utilizar el objeto priter, como podria realizazarlo, se puede utilizar la funcion put, pero para mandar el hexadecimal(text1), como lo realizo
Gracias de antemano

  Respuesta:  Vicente
Hola, existe una funcion que convierte un numero en formato hexadecimal, esta es Hex(), entonces puedes poner el parametro de la caja de texto, y despues enviarlo con put(). Y para enviar los datos a traves del puerto puedex utilizar el componente Comm Control, que quizás te sirva para esto.

  Respuesta:  Carlos Araya
mira para realizar lo que deseas hacer una de esllas es la sgte.

open "lpt1" for output as #1
print #1, asc(caracter)
close #1

en caracter tu puedes colocar el keyascii que preciona el usuario, tienes que tener en consideracion que con la instruccion close #1 se ejecutara la impresion no antes.

espero que te sirva lo anterior

salu2 carlos araya d.