PDA

View Full Version : send data from VB 6 to PIC 16f84



win_832001
- 27th February 2006, 18:00
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

Srigopal007
- 6th March 2006, 20:12
I have successfully used the serial communication from the VB.NET 2003 (not VB6) and have the data be downloaded, onto a PIC. And it worked. I do not know how different VB6 is from VB.net. Here is the link I used, and I donwloaded the program onto my project and it worked perfectly. You may want to get yourself upgraded to VB.net.

I changed this program around to fit my needs, I hope this helps.


http://www.codeworks.it/net/VBNetRs232.htm


Srig

kadirozen
- 9th March 2006, 15:21
hi,
if you change your code like this you will success

start:
SerIn si,T2400,["255"],loop' Get the servo# and position for that servo.

IF loop = 255 Then
Goto led
else
GOTO start
endif

led:

High PORTB.4
Pause 5000

GoTo start

End