Off Topic: VB MSCOMM question

[TL]

Hi,

I’m trying to receive 4 bytes of “char” data (eg, ‘$’, ‘FF’, ‘01’, ‘ED’) in MSCOMM from the pic. A command button in VB can be pressed to send them all back to the PIC. I have the following VB6 code but I’ve been getting compiling errors in VB. I’m new to VB. Could someone please amend the code under “Private Sub MSComm1_OnComm()” and “Command1_Click()” to make it work for me. Also, how do I save and retrieve the 4 bytes onto the PC hard disk? Thanks.

‘ Send button
Private Sub Command1_Click()
MSComm1.Output = <TBA>
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 4
MSComm1.PortOpen = True
MSComm1.RThreshold = 4
End Sub

Private Sub MSComm1_OnComm()
Dim lDataLength As Long
Dim sData As String
Dim sChar(5) As String
Dim x As Long
If (MSComm1.CommEvent = comEvReceive) Then
sData = MSComm1.Input
lDataLength = Len(sData)
For x = 1 To lDataLength
sChar(x) = Mid$(sData, x, 1)
Next x
End If
End Sub

[jamesjl]

Your code seemed to work pretty well. I changed the order of a few things and added a text box the the form so that I could see the contents of sData. THe code is below:

[TL]

Jason,

Thanks very much for your time. BTW, both TX and RX are on COM1. How do I pass the sChar() data into the Command1_Click() function (command button) ? I have tried writing the following code but I got a compile error:

Compile error:
"Procedure declaration does not match description of event or procedure having the same name." The "Private Sub Command1_Click(sChar() As Long)" was highlighted.

[Mark]

You cannot change the declaration for the control. You would need to use a global var to do it.

[TL]

Thanks Mark. Can you please give me more details as I'm only a beginner in VB? Thanks.

[Mark]

Declare this at the top of the file

Dim sChar(5) As String

Then your code should be: