Arduino und Visual Basic?

Hi,

ich habe folgendes Problem: Also, ich habe es geschafft mit VB, daten an meinen Arduino zu senden und der Arduino dann auf die Daten reagiert und Befehle ausführt. Ich sage einfach in VB Serialport1.write("A") und dann einfach im Arduino if(Serial.read() == 'A') {Irgend ein Befehl}

Das klappt auch Super!

Nur jetzt weiß ich nicht wie das anders herum gehen soll.

Ich habe es probiert indem ich dem Arduino sage: Serial.println("A"); Und in VB: if(Serialport1.readLine = "A") then

msgbox("Hallo")

end if

Doch dann hängt sich mein Programm auf.

Weiß wer von euch wie das gehen könnte?

Danke im Voraus!

3 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

HaaDeeTeeVau

14.08.2017, 18:37

Probiers in VB mal mit

Try
"Code zum auslesen der Schnittstelle"
catch ex as Exception
MsgBox("Tralala")
end try

Dann sollte sich das Programm zumindest nicht mehr aufhängen

Für das Auslesen kannst du aber auch folgenden Code benutzen

'Globale Variable
 Delegate Sub SetTextCallBack(ByVal [text] As String)

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        RecievedText(SerialPort1.ReadExisting())
    End Sub

    Private Sub RecievedText(ByVal [text] As String)
        If Me.tb_Empfangen.InvokeRequired Then
            Dim x As New SetTextCallBack(AddressOf RecievedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.tb_Empfangen.Text &= [text]
        End If
    End Sub

Kannst aber auch anstatt in eine TextBox auch eine String-Variable nehmen

tom20032005

Fragesteller

14.08.2017, 18:42

Danke für die Antwort ich habe es aber geschafft das aufhängen zu verhindern mit: Windows.Forms.Control.CheckforillegalThreadcalls = false und der Rest funktioniert dann auch gut

tom20032005

Fragesteller

14.08.2017, 18:44

und deine Methode funktioniert übrigens auch XD

tavkomann

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren

07.07.2017, 19:59

Es heißt ReadLine(), weil es eine Methode ist.

tom20032005

Fragesteller

07.07.2017, 20:05

bringt aber auch nix. Und was mir aufgefallen ist, ist dass wenn ich in der arduino Software den Serial Monitor starte und wieder schließe und dann mein Programm ausführe funktioniert alles

tavkomann

07.07.2017, 20:32

Öffnest du vielleicht den seriellen Port nicht in deinem Programm?

tom20032005

Fragesteller

10.08.2017, 17:14

@tavkomann

Doch mache ich und ich schließe ihn auch wieder wenn das Programm geschlossen wird.

tavkomann

07.07.2017, 20:34

Poste mal den ganzen Code

thefungamer

07.07.2017, 18:23

Du musst bei einer if Abfrage 2 == Zeichen benutzen.

Also

if(Serial....=="A")

tom20032005

Fragesteller

07.07.2017, 18:31

Aber doch nicht in visual basic

Ähnliche Fragen

HC-05 Arduino mit Handy?

Hey, ich würde gerne Daten von meinem Handy über ein Bluetooth modul(HC-05) auf den Arduino übertragen. Zum Test habe ich die Daten(Text) auf den Serial Monitor weitergeleitet. Aber ich bekommen nur "x" und "?" als Ausgabe. Das gleiche passiert wenn ich versuche Daten auf das Handy zu senden.

Code:

#include <SoftwareSerial.h>

SoftwareSerial BTserial(2, 3); // RX, TX

void setup() {

Serial.begin(9600);

BTserial.begin(38400);

}

void loop(){

// Read from the Bluetooth module and send to the Arduino Serial Monitor

if (BTserial.available()){

Serial.write(BTserial.read());

}

// Read from the Serial Monitor and send to the Bluetooth module

if (Serial.available()){

BTserial.write(Serial.read());

}

...zur Frage

Arduino - Musik abspielen und gleichzeitig LEDs steuern?

In meinem Projekt möchte ich mit einem Elegoo Uno R3 einen mini DVPlayer von AZDelivery (MP3-Player auf kleiner Platine) bedienen und einen Song abspielen.

Gleichzeitig sollen zwei LEDs nach einem Muster blinken.

Ist soviel Multitasking mit irgendeinem Workaround möglich?

Hier der Code, wie müsste ich das mit den LEDs einpflegen?

/***************************************************


DFPlayer - A Mini MP3 Player For Arduino
 <https://www.dfrobot.com/product-1121.html>


#include "Arduino.h"
#include "SoftwareSerial.h"
#include "DFRobotDFPlayerMini.h"


SoftwareSerial mySoftwareSerial(10, 11); // RX, TX
DFRobotDFPlayerMini myDFPlayer;
void printDetail(uint8_t type, int value);


void setup()
{
  mySoftwareSerial.begin(9600);
  Serial.begin(115200);
  
  Serial.println();
  Serial.println(F("DFRobot DFPlayer Mini Demo"));
  Serial.println(F("Initializing DFPlayer ... (May take 3~5 seconds)"));
  
  if (!myDFPlayer.begin(mySoftwareSerial)) {  //Use softwareSerial to communicate with mp3.
    Serial.println(F("Unable to begin:"));

    while(true){
      delay(0); // Code to compatible with ESP8266 watch dog.
    }
  }
  Serial.println(F("DFPlayer Mini online."));
  
  myDFPlayer.volume(30); // Set volume 0-30
  myDFPlayer.play(1);  //Play first mp3
}


void loop()
{
  static unsigned long timer = millis();
  
  if (millis() - timer > 3000) {
    timer = millis();
 //   myDFPlayer.next();  //Play next mp3 eve 
  }
  
  if (myDFPlayer.available()) {
    printDetail(myDFPlayer.readType(), myDFPlayer.read()); 
  }
}


void printDetail(uint8_t type, int value){
  switch (type) {
    case TimeOut:
      Serial.println(F("Time Out!"));
      break;
    case WrongStack:
      Serial.println(F("Stack Wrong!"));
      break;
    case DFPlayerCardInserted:
      Serial.println(F("Card Inserted!"));
      break;
    case DFPlayerCardRemoved:
      Serial.println(F("Card Removed!"));
      break;
    case DFPlayerCardOnline:
      Serial.println(F("Card Online!"));
      break;
    case DFPlayerPlayFinished:
      Serial.print(F("Number:"));
      Serial.print(value);
      Serial.println(F(" Play Finished!"));
      break;
    case DFPlayerError:
      Serial.print(F("DFPlayerError:"));
      switch (value) {
        case Busy:
          Serial.println(F("Card not found"));
          break;
        case Sleeping:
          Serial.println(F("Sleeping"));
          break;
        case SerialWrongStack:
          Serial.println(F("Get Wrong Stack"));
          break;
        case CheckSumNotMatch:
          Serial.println(F("Check Sum Not Match"));
          break;
        case FileIndexOut:
          Serial.println(F("File Index Out of Bound"));
          break;
        case FileMismatch:
          Serial.println(F("Cannot Find File"));
          break;
        case Advertise:
          Serial.println(F("In Advertise"));
          break;
        default:
          break;
      }
      break;
    default:
      break;
  }
}

...zur Frage

Wie lese ich Impulse eines Durchflussensors aus mit Arduino?

Hallo,

ich habe einen Durchflusssensor (DeLonghi Flowmeter Durchflussmeter 974-9541-A DeLonghi Magnifica) und diesen möchte ich mit einem Arduino Mega auslesen damit ich weiß wie viele Impulse dieser pro Liter ausgibt. Ich möchte diesen nämlich für einen Getränkeautomat verwenden, um beim dosieren zu sehen wie viel ml ich bereits eindosiert habe.

Ich habe unten stehenden Code programmiert, jedoch zählt dieser immer hoch, auch wenn kein Durchfluss vorhanden ist:

int count = 0, z = 0;

void setup() {

pinMode(14, INPUT);

Serial.begin(9600);

}

void loop() {

z = digitalRead(14);

if (z == HIGH){

count = count + 1;

}

Serial.println(count);

delay(100);

}

Und ich verstehe nicht wieso das nicht geht. Egal ob ich Durchfluss drauf habe oder nicht. Er zählt immer gleich schnell hoch.

...zur Frage

vbs msgbox script funktioniert nicht?

x=MsgBox("hello",vbyes,"status")

if vbyes then

End If

Das is mein code. ich würde gerne das sich per click auf yes eine internet seite öffnet

...zur Frage

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zur Frage

VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?

Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

Dim rDatWartung

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

lz = Cells(Rows.Count, 5).End(xlUp).Row

For Each rDatWartung In Range("D30:D600")

If rDatWartung.Value <> "" Then

If rDatWartung.Value <= Date + 7 Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

Else

If rDatWartung.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

End If

End Sub

Herzlichen Dank, und einen schönen Abend

...zur Frage

VBA Inputbox Werte verrechnen?

Moin Leute,

anbei eine kurze Aufgabenstellung. Ich konnte den ersten Teil bereits erfolgreich lösen, leider scheitere ich aber daran den Inputwert mit der zugehörigen prozentzahl zu multiplizieren.

Folgende Aufgabenstellung:

Schreiben Sie eine Prozedur zur Ermittlung des Zinssatzes für eine Geldanlage. Liegt der anfänglich angelegte Geldbetrag über 10.000,00 €, beträgt der Zinssatz 3 %, liegt er über 20.000,00 €, beläuft sich der Zinssatz auf 3,5 % ansonsten liegt er bei 2,75 %. Verwenden Sie eine If-Else-Anweisung. Der Eingangsbetrag ist über eine Inputbox zu erhalten. Der gültige Zinssatz und das Resultat ist über eine MsgBox anzuzeigen.

Mein Fortschritt:

Sub test2()

Dim Zahl As Double

Zahl = InputBox("Gebe Sie eine Zahl ein")

If Zahl > 20000 Then

MsgBox (("3,5%"))

ElseIf Zahl > 10000 Then

MsgBox (("3%"))

ElseIf Zahl <= 10000 Then

MsgBox (("2,75%"))

End If

End Sub

...zur Frage

Was bedeuted diese Fehlermeldung in Arduino IDE?

Ich habe diesen Code für die Arduino IDE geschrieben kriege jedoch Folgende Fehlermeldung :

lvalue required as left operand of assignment

if(IRKey == "POWER" && LightsON = false){
    Serial.println("Turning Lights OFF");
    servoON.attach(8);
    servoON.write(90);
    delay(1000);
    servoON.write(0);
    delay(1000);
    servoON.detach();
    lightsON = true;
  }else if(IRKey == "POWER" && LightsON = true){ //für diese Codezeile
    Serial.println("Turning Lights ON");
    servoOFF.attach(9);
    servoOFF.write(0);
    delay(1000);
    servoOFF.write(90);
    delay(1000);
    servoOFF.detach();
    LightsON = false;
  }

...zur Frage

Bash Einzeiler if date then?

Ich suche nach einem Einzeiler der innerhalb eines Bash Scripts den Befehl bzw diese eine Zeile nur ausführt wenn ein bestimmtes Datum vorliegt.

Falls dies als Einzeiler nicht machbar ist, wie schaut dies als If then Schleife aus?

Also quasi wie der Befehl | at am Ende einer Zeile nur auf ein bestimmtes Datum bezogen. Ich hoffe ihr wisst was ich meine :)

...zur Frage

Excel Aktive Zelle auslesen VBA?

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

...zur Frage

VBA if range then else?

Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

Arduino Delay für eine Sekunde?

Hallo, ich wollte eine Uhr für einen Display programmieren und diese mit einer Fernbedinung ansteuern. Nur habe ich ein Problem, meine Uhr ist etwas langsamer als eine normale Uhr (Atomuhr). Obwohl ich einen Delay von 1000 habe.

ich bin im Besitz des Arduino Elegoo Mega 2560

Falls es interessant ist, kopiere ich hier den kompletten Code:

#include <LiquidCrystal.h>

#include "IRremote.h"

LiquidCrystal lcd(7, 8, 9, 10, 11, 12);

int offTimer;

int onTimer;

int s=15; //sekunden

int m=49; //minuten

int h=19; //stunden

int tag=3; //tage

int monat=6; //monate

int jahr=2018; //Jahr

int receiver = 6;

int lcdsize[] = {16, 2};

IRrecv irrecv(receiver);

decode_results results;

void translateIR() // takes action based on IR code received

// Beschreibt Remote-IR-Codes

{

switch(results.value)

{

case 0xFFA25D: onTimer++; offTimer=0; break;

case 0xFFE21D: offTimer++; onTimer=0; break;

case 0xFF629D: Serial.println("VOL+"); break;

case 0xFF22DD: Serial.println("FAST BACK"); break;

case 0xFF02FD: Serial.println("PAUSE"); break;

case 0xFFC23D: Serial.println("FAST FORWARD"); break;

case 0xFFE01F: Serial.println("DOWN"); break;

case 0xFFA857: Serial.println("VOL-"); break;

case 0xFF906F: Serial.println("UP"); break;

case 0xFF9867: Serial.println("EQ"); break;

case 0xFFB04F: Serial.println("ST/REPT"); break;

case 0xFF6897: Serial.println("0"); break;

case 0xFF30CF: Serial.println("1"); break;

case 0xFF18E7: Serial.println("2"); break;

case 0xFF7A85: Serial.println("3"); break;

case 0xFF10EF: Serial.println("4"); break;

case 0xFF38C7: Serial.println("5"); break;

case 0xFF5AA5: Serial.println("6"); break;

case 0xFF42BD: Serial.println("7"); break;

case 0xFF4AB5: Serial.println("8"); break;

case 0xFF52AD: Serial.println("9"); break;

case 0xFFFFFFFF: Serial.println(" REPEAT");break;

default:

Serial.println(" other button ");

}

void setup() {

irrecv.enableIRIn(); // Startet den Empfänger

lcd.begin(lcdsize[0], lcdsize[1]);

}

void loop() {

if (irrecv.decode(&results)) // Haben wir ein IR-Signal erhalten?

{

translateIR();

irrecv.resume(); // Erhalte den nächsten Wert

}

delay(990);

lcd.clear();

lcd.setCursor(0, 0);

lcd.print("----");

if(h<10){

lcd.print("0");

}

lcd.print(h);

lcd.print(":");

if(m<10){

lcd.print("0");

}

lcd.print(m);

lcd.print(":");

if(s<10){

lcd.print("0");

}

lcd.print(s);

lcd.print("----");

lcd.setCursor(0, 1);

if(tag<10){

lcd.print("0");

}

lcd.print(tag);

lcd.print(".");

if(monat<10){

lcd.print("0");

}

lcd.print(monat);

lcd.print(".");

lcd.print(jahr);

s++;

if(s>=60){

m++;

s=0;

}

if(m>=60){

h++;

m=0;

}

if(h>=24){

tag++;

h=0;

}

if(tag==31&monat==4){

monat++;

tag=1;

}

if(tag==31&monat==6){

monat++;

tag=1;

}

if(tag==31&monat==9){

monat++;

tag=1;

}

Ab hier kommen noch ca. 40 weitere Zeilen.

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen