Try this... start a new project in the VB IDE. Create a form and put a VB com control component on it. open the code window and paste the following code into it. be sure and change the com port to the one the Arduino is using. Make sure you have the Arduino IDE closed or the VB app will not connect.
open the immediate window in the VB IDE
This is the simplest possible case. If should work if you are sending a string with a @ in it .
Private Sub Form_Load()
With MSComm1
If .PortOpen Then .PortOpen = False
' change this to the com port shown by the arduino
.CommPort = 3
.Settings = "9600,N,8,1"
.DTREnable = True
.RTSEnable = True
.RThreshold = 4
.SThreshold = 3
.PortOpen = True
End With
End Sub
Private Sub MSComm1_OnComm()
Dim strData As String
Static strBuffer As String
Dim strWords() As String
Dim intPos As Integer
Dim boComplete As Boolean
Dim mystr As String
mystr = "" ' set the string to nothing
mystr = MSComm1.Input
intPos = InStr(mystr, "@")
If intPos > 0 Then
Debug.Print mystr
End If
End Sub