[VB.Net + Arduino] Led Dimmer mit for Schleife

  • VB.NET

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

    [VB.Net + Arduino] Led Dimmer mit for Schleife

    Hey,
    Wie die Überschrift schon sagt finde ich keinen Fehler in der folgenden for Schleife, bzw. im Arduino Code..

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim ser As New System.IO.Ports.SerialPort
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. For i = 0 To 255
    5. ser.Write(Chr(i))
    6. Next
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. ser.BaudRate = 9600
    11. ser.PortName = "COM4"
    12. ser.Open()
    13. End Sub
    15. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    16. For i = 255 To 0
    17. ser.Write(Chr(i))
    18. Next
    19. End Sub
    20. End Class

    (wenn ich "ser.Write(Chr(i))" zu "ser.Write(i)" verändere passiert auch nichts..)

    Quellcode

    1. const int ledPin = 12;
    3. void setup()
    4. {
    5. Serial.begin(9600);
    6. pinMode(ledPin, OUTPUT);
    7. }
    9. void loop() {
    10. byte brightness;
    12. if (Serial.available()) {
    13. brightness = Serial.read();
    14. analogWrite(ledPin, brightness);
    15. }
    16. }


    Hab ich irgendeinen Anfänger Fehler gemacht?, oder es ganz falsch gemacht?, ich weiß es nicht :S

    Ich hoffe es finden sich Arduino-Code bewusste personen wie heute schonmal :)
    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“ ()

    Danke jetzt funktionierts hoch, jedoch runter dimmen möchte es nicht, wo liegt der Fehler?

    Hab es hinbekommen:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim ser As New System.IO.Ports.SerialPort
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim inta As Integer = 0
    5. Do Until inta = 255
    6. inta += 1
    7. ser.Write(Chr(inta))
    8. Me.Text = "int: " & inta
    9. System.Threading.Thread.Sleep(5)
    10. Loop
    11. End Sub
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. ser.BaudRate = 9600
    15. ser.PortName = "COM4"
    16. ser.Open()
    17. End Sub
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    20. Dim inta As Integer = 255
    21. Do Until inta = 0
    22. inta -= 1
    23. ser.Write(Chr(inta))
    24. Me.Text = "int: " & inta
    25. System.Threading.Thread.Sleep(5)
    26. Loop
    27. End Sub
    29. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    30. ser.Write(Chr(0))
    31. End Sub
    32. End Class

    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?

Facebook
Telefonspende