Adapte este proyecto a su proyecto final

TIPS (ud. Haga que el codigo funcione. )

* si tiene problemas enviando varios caracteres al mismoTiempo, pruebe

enviar uno por uno, mediante :

strCadena$=strCadena$ & "Ç" 'Ç es un caracter que se agrega al final para indicar fin de la transmisión

y un Ciclo: For intCont%=1 to len(strCadena$)

Y usando la función Mid(strCadena$, intCont%, 1)

* al recibir use:

if strcaracter$<> "Ç" then 'Ç indica fin de la transmisión

strCadena$=strCadena$ & strcaracter$

end if

 

 

Formulario en tiempo de diseño:

Código:

Private Sub cmdTransmite_Click()

Comm1.Output = txtDisplay.Text ' envia texto

End Sub

 

Private Sub Comm1_OnComm()

lblRecibe.Caption = Comm1.Input ' asigna mensaje recibido a etiqueta

End Sub

 

Private Sub Form_Load()

Comm1.CommPort = 1 'define puerto serial comm1

Comm1.InBufferSize = 1024 'default mayor tamaño

Comm1.InputLen = 0 'no limita tamaño

Comm1.Settings = "9600,n,8,1" 'define velocidad, paridad etc

Comm1.RThreshold = 1 'hab int al recibir

Comm1.SThreshold = 1 'hab int al transmitir

Comm1.Handshaking = comNone 'protocolo

Comm1.DTREnable = False 'lineas de protocolo NO

Comm1.NullDiscard = False 'no descarta los nulos

Comm1.PortOpen = True 'abrir puerto

End Sub