no hay nada que disculpar... simplemente pedimos que sean un poco más explícictos con lo que piden... si a ustedes les da fiaca ponerse a escribir qué es lo que necesitan, a nosotros nos da fiaca ponernos a pensar "que carajo quiere este boludo"... pero bueno... más allá de la cagada a pedos...
Para manejar el puerto RS-232 Visual Basic nos provee de un control (sí, ya sé que no es looooooo mejor, pero bueh, por lo menos para empezar sirve) que se llama MSCOMM. Lo agregas desde Proyecto/Componentes.../Microsoft Comm Control 6.0.
donde las propiedades más importantes son:
CommPort -> Es el número de puerto com
Settings -> especifica la velocidad, paridad, bits de datos, bit de parada
Ejemplo: MSComm1.Settings = "9600,n,8,1"
InputLen -> que especifica cuántos caracteres vas a querer leer cuando le digas "lee el puerto", yo por lo general uso el valor 1
Ejemplo: MSCOmm1.InputLen=1
PortOpen-> es un boolean con el cual estableces si quieres abrir (true) o cerrar (false) el puerto
Para enviar un dato al puerto simplemente haces:
dim dato as string
dato = "Hola"
MSCOmm1.Output = dato
y listo... ya te lo mandó por el puerto serie
para leer un dato haces esto (siempre y cuando tengas inputlen en 1):
dim caracter as string
Do while inbuffercount >0
caracter = MSCOMM1.Input
if caracter = "lo que yo quiero" then
exit do
endif
loop
cualquier cosa avisame y te mando un ejemplo!!!
PD: si averiguás lo del USB, AVISAMEEEE (yo también lo necesito)
saludos!!!!
