Pic y Visual Basic.

[Kenlly]

Saludos, estoy empezando a experimentar con la comunicacion de Pic a PC, y como siempre se empieza por lo basico estoy tratando de encender un led con un programa de Visual Basic y el Pic con Basic, tengo tiempo intentando sin un buen resultado, he visto en el foro temas parecidos pero no logro nada de todas formas. Aqui les pongo el codigo para ver que anda mal. Gracias de antemano.

Codigo del Pic:

Dim led As Byte

OSCCON = 01110110b
AllDigital
Hseropen 9600
WaitMs 1000

main:
Hserin led
If led = "k" Then
High RA7
Endif

Goto main
End



Codigo de Visual Basic:

Private Sub Command1_Click()
MSComm1.Output = "k"

End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
Timer1.Interval = 1



End Sub

Ambas velocidades son 9600,8,n1.

 

[Zankoku]

mmm solo por casualidad que tipo de pic estas usando? en estos momento ando algo desactualizado pero creo que las rutinas como Hserin y Hserout no son aplicables al 16f84a si este es el pic que usas, ahorita ando en el trabajo y lei el post llegando a mi casa me dare un tiempo para revisarlo mejor pero podrias intentar cambiar el Hserin y Hserout por Serin y Serout, ademas si vas a usar esos comandos creo que va un include "modedefs.bas" dejame revisarlo bien ando algo desactualizado en basic desde que aprendi algo de
assm

 

[Kenlly]

Estoy usando el 16f88 y las funciones Hserin y Hserout son las que se usan con el compilador que utilizo, de hecho la simulacion funciona perfectamente.