need help here...
ive try to turn 'on' the LED through PIC 16f84
can one help me:
VB6 code :
Private Sub Form_Load()
' Use COM1
MSComm1.CommPort = 1
' 2400 baud, no parity, 8 data bits, 1 stop bit
MSComm1.Settings = "2400,N,8,1"
' Disable DTR
MSComm1.DTREnable = False
' Open the port
MSComm1.PortOpen = True
InputLen = 0
RThreshold = 0
End Sub
MSComm1.Output = Chr$(255)
End Sub
from the coding the PIC shold receive the "255"
and my PIC PRO Basic coding :
INCLUDE "modedefs.bas" ' Include serial modes
DEFINE OSC 4
si VAR PORTA.4 ' Set portA.0 as our serial input pin
loop VAR BYTE ' Define our storage location for the servo number to move.
start:
SerIn si,T2400,["255"],loop' Get the servo# and position for that servo.
IF loop Then led
led:
High PORTB.4
Pause 5000
GoTo start
End
can anyone help me to solve the problem...i really need help..thank you
Bookmarks