Comunicazione seriale VS Express 2012 con Arduino Wifi Rev2

Buongionro a tutti.
Mi chiamo Enrico ed è la prima volta che accedo al Forum di Arduino. Sono un ingegnere meccanico che da circa 6 anni impiega i prodotti Arduino, non ho molte conoscenze di programmazione. Solo per completezza conosco il Fortran e Visual Studio.

Con Arduino ho realizzato diversi progetti:
controllo e realizzazione di riscaldamento PID,
controllo di velocità per un motore DC in retroazione,
automazione di un escavatore idraulico in scala 1:8- spero a breve di presentarlo,
HMI con Nextion ed Arduino,
Automazione di plastico lego con power function,
realizzazione e automazione di un braccio robotico,
realizzazione di un simulatore di PT1000,
sistemi di monitoraggio qualita aria con sensori seedstudio (Grove)

La maggior parte dei progetti li ho realizzati impiegando la conoscenza della rete e chiedono ad amici, devo dire che è un mondo incredibile.

Ora però ho un problema che da circa 1 mese non riesco a risolvere.

Con le varie schede Arduino uno o Mega2560 la mia intefaccia VS di comunicazione seriale… impiegando le istruzioni di apertura della porta controllo… funziona alla grande senza nessuna anomalia.
Riporto una breve parte spero sia sufficiente


Private Sub connect_BTN_Click(sender As Object, e As EventArgs) Handles connect_BTN.Click
If (connect_BTN.Text = “Connect”) Then
If (comPORT <> “”) Then
SerialPort1.Close()
SerialPort1.PortName = comPORT
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
SerialPort1.ReadTimeout = 10000

SerialPort1.Open() ’ Qui apro la porta seriale in lettura e scrittura
connect_BTN.ForeColor = Color.Red
connect_BTN.Text = “Dis-connect”
Timer1.Enabled = True
Timer_LBL.ForeColor = Color.Green
Timer_LBL.Text = “Timer: ON”

Else
MsgBox(“Select a COM port first”)
End If
Else
SerialPort1.Close()
connect_BTN.ForeColor = Color.Green
connect_BTN.Text = “Connect”
Timer1.Enabled = False
Timer_LBL.ForeColor = Color.Red
Timer_LBL.Text = “Timer: OFF”

End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

SerialPort1.Write(“1”)

End Sub


Da quando ho iniziato ad impiegare le schede Arduino Wifi Rev2 (riporto le info)

BN: Arduino Uno WiFi Rev2
VID: 0x03eb
PID: 0x2145
SN: C0E67E0C4D4D3CE00715

lo stesso programma VS non funziona o meglio realizzato uno Sketch molto semblice per accedere e spegnere il LED_BUILTIN (pin 13) si osserva che quando invio il dato tramite seriale il LED RX presente nella scheda lampeggia ma non c’è nessuna ulteriore azione. Se provo a inviare i comandi tramite il monito seriale alla scheda Arduino si osserva che lampeggia il LED RX, poi TX e il LED_BUILTIN si accende.

Allego lo Sketch:
int VTemp = 0 ; // variabile per lettura seriale
char junk;

void setup() {
pinMode(LED_BUILTIN, OUTPUT);
Serial.begin(9600);
}

void loop() {
if (Serial.available())
{
int VTemp = Serial.read();

if (VTemp == ‘1’){
digitalWrite(LED_BUILTIN,HIGH);
Serial.println (" Acceso “);
}
else if (VTemp == ‘0’){
digitalWrite(LED_BUILTIN,LOW);
Serial.println (” Spento ");
}
}
delay (50);
while (Serial.available()>0 ) //>0
{ junk = Serial.read() ;
}
delay(500);
}

Lascio questa traccia se qualcuno mi può aiutare.

Dimenticavo, ringrazio fin d'ora chi gentilmente mi fornira informazioni per poter completare il mio progetto.
Buona gioranta a tutti