Ardurino IR-Empfang kann mit den Werten nichts anfangen werden nicht erkannt.

  • VB.NET

    Ardurino IR-Empfang kann mit den Werten nichts anfangen werden nicht erkannt.

    Ardurino IR-Empfang funktioniert Prima aber ich kann mit den Werten nichts anfangen werden nicht erkannt.

    Arduino Code:

    /*-----( Import needed libraries )-----*/

    #include "IRremote.h"

    /*-----( Declare Constants )-----*/
    int receiver = 11; // pin 1 of IR receiver to Arduino digital pin 11

    /*-----( Declare objects )-----*/
    IRrecv irrecv(receiver);// create instance of 'irrecv'
    decode_results results; // create instance of 'decode_results'
    /*-----( Declare Variables )-----*/

    void setup() /*----( SETUP: RUNS ONCE )----*/
    {
    Serial.begin(9600);
    Serial.println("IR Receiver Raw Data + Button Decode Test");
    irrecv.enableIRIn(); // Start the receiver

    }/*--(end setup )---*/

    void loop() /*----( LOOP: RUNS CONSTANTLY )----*/
    {
    if (irrecv.decode(&results)) // have we received an IR signal?

    {
    // Serial.println(results.value, HEX); UN Comment to see raw values
    translateIR();
    irrecv.resume(); // receive the next value
    }
    }/* --(end main loop )-- */

    /*-----( Declare User-written Functions )-----*/
    void translateIR() // takes action based on IR code received

    // describing Car MP3 IR codes

    {

    switch(results.value)

    {

    case 0xFF30CF:
    Serial.println("AA");
    break;
    default:
    Serial.println(" other button");

    }

    delay(500);

    } //END translateIR

    /* ( THE END ) */

    Ich lass den Empfang aus dem Serialport ein eine Textbox laden. Das geht auch. Aber ich kann mit dem Ergebnis nichts anfangen.


    SerialPort1.PortName = "com3"
    SerialPort1.BaudRate = CInt("9600")
    SerialPort1.Encoding = System.Text.Encoding.GetEncoding("US")
    SerialPort1.Open()

    Dim txt As String

    txt = (SerialPort1.ReadLine)

    Me.Invoke(Sub() Textbox1.Text = (txt))

    Denn es steht dann z.b. AA in der Textbox aber egal ob Timer / oder ein Textchance Feld ist nichts Passiert.

    If Textbox1.Text = "AA" Then MsgBox("") (nur als beispiel)

    Wenn ich z.B. AA von Hand eingebe dann geht das.

    Kann mir jemand helfen?

    Vielen Dank