[VB.Net + Arduino] LED einschalten und ausschalten

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Glossy Cherry.

    [VB.Net + Arduino] LED einschalten und ausschalten

    Hey,
    Ich wollte mal was ganz simples ausprobieren, und bei irgend einem event z.b vlc mediaplayer beat eine LED an und ausschalten.
    Jedoch bringt mir google verschiedene Möglichkeiten, aber keine bezogen auf den Arduino. (jedoch wenn dan nur verschiedene wege)

    Hat jemand schonmal mit vb eine LED am Arduino an und ausgeschaltet?, wenn ja könntet ihr mir eine Hilfestellung geben?
    Was ich z.b brauche?

    Vielen Dank im vorraus,
    Greetz

    *Topic verschoben*
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    VB.NET-Quellcode

    1. int ledPin = 13; // LED liegt am (digitalen) Pin 13.
    3. Private Sub setup() // Am Anfang der Sketch einmal laufen lassen.
    4. pinMode(ledPin, OUTPUT); // Setzt den ledPin (Pin 13) als Ausgang
    5. End Sub
    7. Private Sub loop() // Immer wieder durchlaufen lassen.
    8. digitalWrite(ledPin, HIGH); // LED einschalten
    9. delay(1000); // 1000 Milisekunden (= 1s) warten
    10. digitalWrite(ledPin, LOW); // LED ausschalten
    11. delay(1000); // 1000 Milisekunden (= 1s) warten
    12. End Sub


    Hier gefunden

    Das ähnelt sehr der C-Arduino variante, vielen dank :)
    funkst ned:



    Greetz
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Glossy Cherry“ ()

    Es ist eigentlich die Arduino-C syntax die er gepostet hat (außer die Private sub)
    Fehler oben dazu editiert.
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    FALSCH! wofür hat der arduino denn ne Serial funktion?

    du machst aufm pc sonen serialconnector oder wie auch immer der heisst und aufm arduino machste im setup Serial.begin(9600); dann stellt der ne serielle verbindung auf.
    du fragst den datenpuffer im arduino ab und wenn da z.b. "AN" drinne ist(was du per programm an den arduino gesendet hast) geht die led an und umgekehrt. wenn du mehr hilfe brauchst scheib mir ne pn oderso

    SeriTools schrieb:

    Brauchst halt die Arduino-Funktionen bzw. APIs in VB.

    Quatsch ;)

    Man muss nur per SerialPort ei "Kommando" an den Arduino schicken (der auf der seriellen lauscht).

    Ganz simpler Quickack:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents p As New IO.Ports.SerialPort("COM5", 9600)
    4. Private onoff As Integer = 0
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. End Sub
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim b() As Byte = {1, 0}
    12. p.Open()
    13. p.Write(b, onoff Mod 2, 1)
    14. p.Close()
    15. onoff += 1
    16. End Sub
    17. End Class


    und auf dem Arduino:

    Quellcode

    1. int led = 13;
    3. void setup()
    4. {
    5. Serial.begin(9600);
    6. pinMode(led, OUTPUT);
    7. }
    9. void loop()
    10. {
    11. if(Serial.available())
    12. {
    13. unsigned char s = Serial.read();
    14. if(s==1) digitalWrite(13,HIGH);
    15. else digitalWrite(13,LOW);
    16. }
    17. }


    Das ganze kann man natürlich beliebig ausbauen

    @Madd Eye: Was zur Hölle ist das denn? Private SUB?? Hast einen weg? das ist c. void setup()
    was willst du mit dem blink example??

    Folgender Code ist ungetestet, müsste aber gehen.

    Ardunio Code:

    VB.NET-Quellcode

    1. int inByte = 0;
    3. void setup()
    4. {
    5. Serial.begin(9600);
    6. pinMode(13, OUTPUT);
    7. }
    9. void loop()
    10. {
    12. if (Serial.available() > 0
    13. {
    15. inByte = Serial.read();
    16. switch (inByte)
    17. {
    18. case 1:
    19. digitalWrite(13,HIGH);
    20. break;
    21. case 2:
    22. digitalWrite(13,LOW);
    23. break;
    24. }
    26. }
    27. }


    VB-Code:

    VB.NET-Quellcode

    1. Dim ser As New System.IO.Ports.SerialPort
    2. ser.BaudRate = 9600
    3. ser.PortName = "COM3"
    4. ser.Open()
    5. ser.Write(Chr(1)) 'An
    6. Threading.Thread.Sleep(1000)
    7. ser.Write(Chr(2)) 'Aus


    Das sollte helfen ;)

    Gruß,
    Manawyrm

    edit: Verdammt, picoflop war schneller :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manawyrm“ ()

    Vielen Vielen Dank euch beiden :)

    Greetz
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Glossy Cherry“ ()

Facebook
Telefonspende