VB.NET
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Dim stringtosend As String
Private MySerialPort As New SerialPort("COM4", 9600, Parity.None, 8, StopBits.One)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
MySerialPort.Handshake = Handshake.None
MySerialPort.Encoding = System.Text.Encoding.Default
End Sub
''------------------------------------------------------
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim TextSend As String = "ABC;"
MySerialPort.Open()
MySerialPort.WriteTimeout = 2000
MySerialPort.Write(TextSend)
MySerialPort.Close()
TextBox1.Text = "Sending: " + TextSend
End Sub
End Class
SKETCH:
String Str;
//--------------------------------------------------
void setup(){
Serial.begin(9600);
pinMode(13, OUTPUT);
digitalWrite(12, LOW);
}
//---------------------------------------------------
void loop(){
//---------------------------------
//blink LED while buffer is empty
if (Serial.available() <= 0) {
digitalWrite(13,HIGH);
delay(500);
digitalWrite(13,LOW); }
Serial.println("Buffer is Empty");
delay(2000);
// read text string until ";" is found
if (Serial.available() > 0) {
digitalWrite(13,HIGH);
Str = Serial.readStringUntil(';');
delay(10000);
Serial.println(Str);
digitalWrite(13,LOW);
}
}
My problem is:
Sketch works as intended with Sketch serial monitor
LED is on during receiving text string from VB.NET
However, nothing shown on Sketch serial monitor.
please help.
Thanks