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: