win_832001
- 5th March 2006, 19:04
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 should receive the "255"
and my PIC PRO Basic coding :
INCLUDE "modedefs.bas" ' Include serial modes
DEFINE OSC 4
si VAR PORTA.4
loop VAR BYTE
start:
SerIn si,T2400,["255"],loop
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
Reply With Quote
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 should receive the "255"
and my PIC PRO Basic coding :
INCLUDE "modedefs.bas" ' Include serial modes
DEFINE OSC 4
si VAR PORTA.4
loop VAR BYTE
start:
SerIn si,T2400,["255"],loop
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
Reply With Quote