TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: japifer_22 en 11 de Julio de 2011, 16:26:53

Título: mandar datos desde el pc al pic
Publicado por: japifer_22 en 11 de Julio de 2011, 16:26:53

hola, he aqui otra vez. resulta que no se como enviar datos por el puerto serie, pero que lo envie solo al presionar un commandbutton, resulta que estoy intentando enviar una seguida de aciis, la cual es 0x0D hola 0x0D abrete 0x0D. eso es todo, pero no se como enviar esto. me podrian orientar en esto.

saludos

Título: Re: mandar datos desde el pc al pic
Publicado por: Diego E. en 13 de Julio de 2011, 22:23:32

Hola amigo, si estás usan visual 6 sería algo así

Debes configurar el puerto más o menos así

Private Sub Form_Load()

On Error Resume Next
MSComm1.PortOpen = True
If MSComm1.PortOpen = False Then MsgBox ("Puerto no habilitado")

MSComm1.Settings = "4800,n,8,1" 'configuracion de velocidad,paridad,# bit,bit parada
MSComm1.PortOpen = True         'se abre el puerto

End Sub

y luego para enviar puede ser así:

Private Sub tecla_enter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1 = "TECLA ENTER" & " (13)"      'evento que ocurre al presionar el click del mause
  MSComm1.Output = Chr(13)    'se envia el decimal 13 en binario

End Sub

Saludos.

Título: Re: mandar datos desde el pc al pic
Publicado por: vdiazg en 13 de Julio de 2011, 22:41:21

La solución de Diego es correcta, pero entendiendo bien tu pregunta, creo que lo que deseas es esto:

Private Sub Command1_Click()
  MSComm1.Output = Chr(13)   '0x0D
  MSComm1.Output = "hola"      'Aqui pones el texto
  MSComm1.Output = Chr(13)   '0x0D
  MSComm1.Output = "abrevete"   'Aqui pones el texto
  MSComm1.Output = Chr(13)   '0x0D
End Sub

La primera parte que puso diego (form_load) tambien usala, eso te configura el puerto, claro que tienes que especificar en esa parte la velocidad del puerto para que coincida con tu circuito.

Saludos  ;-)