Temas

yo estoy realizando un programa con el cual me comunico con un dispositivo conecto al puerto usando MSCOMM, hasta aqui todo bien.
con el siguente codigo configuro el puerto y envio un paquete de inicio de sesion al dispositivo.
Public Sub configurapuerto()
If MSComm1.PortOpen = True Then
'Parametros de configuracion de puerto
'abrir puerto
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada

'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"
Else

'Parametros de configuracion de puerto
'abrir puerto
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada

'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"

End If
End Sub
luego para enviar un mensaje al dispositivo hago lo siguiente:
rivate Sub BtnEnviaMsj_Click()
limpiar
If Textbox1.Text = "" Then

MsgBox "Digite Texto a enviar Por favor", vbInformation

configurapuerto

'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8"
MSComm1.Output = Chr$(3)
MSComm1.Output = "a"
Else
configurapuerto

'convierte texto en decimales
convertir

'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8" + Textbox1.Text
MSComm1.Output = Chr$(3)
MSComm1.Output = Chr$(Text2.Text)

'cerrar puerto
MSComm1.PortOpen = False
Salir:
Label5.Caption = "Mensaje Enviado!!!"
Label5.Visible = True
End If
End Sub

muy bonito todo... jajajaja

bueno el problema esta en que necesito hacer esto desde una DLL y la verdad no se como hacerlo ya estuve intentando y no he podido, quisiera alguna ayuda de como poder solucionar esto.
gracias por la atencion