send serial data to PIC 16f84 ausing VB6

[win_832001]

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

[picster]

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
-----------

Is the mscomm1.output being called by something? From this, it looks like it never gets there. Do you have a button to click to send it? Try adding a command button and:

sub command1_click() 'turn LED on for 5 seconds
mscomm1.output=chr$(255) & chr$(1) 'sends (255)(1)


Try this:

led var byte

grabserial:
serin porta.4,4,[255],led
if led=1 then 'turn on the led
high portb.4
pause 5000 'wait 5 seconds
low portb.4
endif
goto grabserial

end

---------Picster---------