UP und DW Button Wert

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von ing.mh.

    UP und DW Button Wert

    Mayday Mayday, Hallo ihr Lieben,

    ich bin neu in VB Welt und ich benötige Hilfe.

    ich arbeite an eine User Interface zum Steuern eines BLDC Motors. Mit zwei UP/Down Buttons möchte ich die Spannung und die Frequenz an steuern. U von 0 bis 30V und die f von 0 bis 60 Hz. Für die Steuerung in Arduin Beispiel von FOC Modul ist das so, für die Frequenz ist das Befehl Buchstabe T gefolgt mit der gewünschten Frequenz und das selbe mit der Spannung L gefolgt mit der gewünschten Spannung.

    Jetzt die Frage, wie realisiere ich das, sodass wenn ich den Wert anhand up & down ändere auch seriell an Arduino ankommt und genauso von Arduino verstanden wird. Als Anhang ein Bild.

    Vielen Dank und falls ich hier falsh bin bitte an die Admin zum Verschieben.
    Bilder

    • Bild_2022-04-17_212241748.png

      13,85 kB, 690×454, 95 mal angesehen

    @ing.mh Willkommen im Forum. :thumbup:
    Nicht mit Button sondern mit NumericUpDown-Controls.
    Dort gibst Du einen Wert vor, der dann meinetwegen in einer Button_Click an wen auch immer übertragen wird.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo ing.mh,

    such mal nach Serialport und Arduino, da gibt es schon einige Beispiele hier im Forum.

    Im Prinzip geht es ähnich wie auf dem Arduino, du öffnest die Verbindung (SerialPort) stellst die Baudrate etc. ein und kannst was senden.
    Für das Empfangen richtet man eine Evnethandler ein (DataReceivedHandler), also eine "Fuktion" die aufgerufen wird wenn Daten ankommen.

    Dabei muss man noch beachten, dass der EventHandler in einem anderen Thread läuft und die Daten nicht so einfach, direkt auf einer Form ausgegeben werden kann.
    Da benötigt es noch ein "Trick", Thema Invoke.

    Aber wie gesagt schau dir erst mal die Beispiele an.

    @ing.mh
    Erklär mal genauer wo du hängst, Was genau ist dein Problem?
    Ein präzise Problem Beschreibung ist die halbe Lösung. ;)
    Und poste mal einen Link zu dem Protokoll und den Einstellungen das VCP von dem "FOC Moduls".

    Vielen Dank für die Antwort,
    @Hifu, mein Problem ist ich möchte per nummericUpDw werte an Arduino senden, zB. ich wähle die Frequenz 40 Hz die muss Arduino empfangen und umsetzen. jetzt wenn ich Char sende eine "A" dann funktioniert das. aber wenn ich eine Zahl sende funktioniert das nicht.

    ich habe versuch das per einer LED zu testen, die LED bleibt einfach aus >> Arduino empfängt einfach nicht den Wert oder ich mache hier etwas falsch.

    FOC Bibliothek funktioniert an sich gut wenn ich die Befehle in dem Arduino seriellen Monitor, die Befehle werden dort wie folgendes eingegeben: T50 bedeutet die Frequenz 50 Hz und L12 bedeutet die Spannung 12 V.

    Die befehle möchte ich aber direkt von meiner Interface steuern, darum geht es.
    Die Sprache die ich benutze ist .VB
    FG
    Ing.mh

    Dann sende mal Zahl.ToString.
    Also:

    VB.NET-Quellcode

    1. Dim i as Integer = 40
    2. Sende(i.ToString)

    Deiner Antwort entnehme ich das dein SerialPort, VB seitig, funktioniert.
    Poste mal den Code den du zum senden verwendest.

    ing.mh schrieb:

    aber wenn ich eine Zahl sende funktioniert das nicht.
    Was erwartet die Gegenstelle?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke danke,

    VB.NET-Quellcode

    1. Private Sub V_SET_ValueChanged(sender As Object, e As EventArgs) Handles V_SET.ValueChanged
    2. Dim i As Integer = 40
    3. Write("L", i.ToString)
    4. End Sub
    6. Private Sub F_SET_ValueChanged(sender As Object, e As EventArgs) Handles F_SET.ValueChanged
    7. Dim i As Integer = 40
    8. Write("T", i.ToString)
    9. End Sub


    Aber wie kann Arduino unterscheiden, welcher Wert ist für die Spannung bestimmt und welcher ist für die Frequenz, ich muss zugeben, für mich als Anfänger ist es schwierig diese dinge zu verstehen. :(

    Code-Tags eingefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Thunderbolt“ ()

    ing.mh schrieb:

    Aber wie kann Arduino unterscheiden
    Indem Du statt der 40 den Wert (.Value) des NumericUpDown-Controls verwendest.
    Was genau macht Write(...)?
    ====
    Über welche Programmiererfahrung verfügst Du?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ing.mh schrieb:

    Aber wie kann Arduino unterscheiden, welcher Wert ist für die Spannung bestimmt und welcher ist für die Frequenz, ich muss zugeben, für mich als Anfänger ist es schwierig diese dinge zu verstehen.

    Tja, poste eben mal das Protokoll.
    Vermute das "L bzw das "T" werden das machen, ist aber ohne die Protokollbeschreibung nur Kaffeesatz Leserei.
    BTW
    Wenn ich dich bitte den Code zu senden, dann sende den doch bitte auch.
    Mir ist nicht klar was "Write" macht.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Me.CenterToParent()
    5. BtnCon.Enabled = False
    6. BtnCon.BringToFront()
    7. BtnDiscon.Enabled = False
    8. BtnDiscon.SendToBack()
    10. CmbBaud.BringToFront()
    11. CmbBaud.SelectedItem = "9600"
    13. U.Enabled = True
    14. U.BringToFront()
    15. nU.Enabled = False
    16. nU.SendToBack()
    18. Dim aw As String
    19. aw = 300
    20. Chart1.Series("Potentiometer").Points.AddY(aw)
    21. Chart1.Series("Potentiometer").IsValueShownAsLabel = False
    22. Chart1.ChartAreas("ChartArea1").AxisX.Enabled = DataVisualization.Charting.AxisEnabled.False
    24. End Sub
    26. Private Sub BtnScanPort_Click(sender As Object, e As EventArgs) Handles BtnScanPort.Click
    27. CmbPort.Items.Clear()
    28. Dim myPort As Array
    29. Dim i As Integer
    30. myPort = IO.Ports.SerialPort.GetPortNames()
    31. CmbPort.Items.AddRange(myPort)
    32. i = CmbPort.Items.Count
    33. i = i - i
    34. Try
    35. CmbPort.SelectedIndex = i
    36. Catch ex As Exception
    37. Dim result As DialogResult
    38. result = MessageBox.Show("com port not detected", "Warning !!!", MessageBoxButtons.OK)
    39. CmbPort.Text = ""
    40. CmbPort.Items.Clear()
    41. Call Form1_Load(Me, e)
    42. End Try
    43. BtnCon.Enabled = True
    44. BtnCon.BringToFront()
    45. CmbPort.DroppedDown = True
    47. End Sub
    49. Private Sub BtnCon_Click(sender As Object, e As EventArgs) Handles BtnCon.Click
    50. BtnCon.Enabled = False
    51. BtnCon.SendToBack()
    53. SerialPort1.BaudRate = CmbBaud.SelectedItem
    54. SerialPort1.PortName = CmbPort.SelectedItem
    55. SerialPort1.Open()
    56. Timer1.Start()
    58. BtnDiscon.Enabled = True
    59. BtnDiscon.BringToFront()
    61. End Sub
    63. Private Sub BtnDiscon_Click(sender As Object, e As EventArgs) Handles BtnDiscon.Click
    64. BtnDiscon.Enabled = False
    65. BtnDiscon.SendToBack()
    67. Timer1.Stop()
    68. SerialPort1.Close()
    70. BtnCon.Enabled = True
    71. BtnCon.BringToFront()
    73. End Sub
    75. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    76. Try
    77. Dim i As Single = SerialPort1.ReadExisting
    78. LblPotentiometer.Text = "rpm :" & i.ToString
    79. U1.Text = "U1 :" & i.ToString
    80. U2.Text = "U2 :" & i.ToString
    82. Chart1.Series("Potentiometer").Points.AddY(i.ToString)
    83. If Chart1.Series(0).Points.Count = 20 Then
    84. Chart1.Series(0).Points.RemoveAt(0)
    85. End If
    86. Chart1.ChartAreas(0).AxisY.Maximum = 400
    87. Catch ex As Exception
    88. End Try
    90. End Sub
    92. Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
    94. BtnStart.Enabled = False
    95. BtnStart.SendToBack()
    97. SerialPort1.Write("A")
    99. BtnStop.Enabled = True
    100. BtnStop.BringToFront()
    102. End Sub
    104. Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles BtnStop.Click
    106. BtnStop.Enabled = False
    107. BtnStop.SendToBack()
    109. SerialPort1.Write("a")
    111. BtnStart.Enabled = True
    112. BtnStart.BringToFront()
    114. End Sub
    116. Private Sub V_SET_ValueChanged(sender As Object, e As EventArgs) Handles V_SET.ValueChanged
    118. End Sub
    120. Private Sub F_SET_ValueChanged(sender As Object, e As EventArgs) Handles F_SET.ValueChanged
    122. End Sub
    124. Private Sub U_Click(sender As Object, e As EventArgs) Handles U.Click
    125. U.Enabled = False
    126. U.SendToBack()
    128. SerialPort1.Write("U")
    130. nU.Enabled = True
    131. nU.BringToFront()
    132. End Sub
    133. Private Sub nU_Click(sender As Object, e As EventArgs) Handles nU.Click
    134. nU.Enabled = False
    135. nU.SendToBack()
    137. SerialPort1.Write("u")
    139. U.Enabled = True
    140. U.BringToFront()
    141. End Sub
    143. Private Sub V_Click(sender As Object, e As EventArgs) Handles V.Click
    144. V.Enabled = False
    145. V.SendToBack()
    147. SerialPort1.Write("U")
    149. nV.Enabled = True
    150. nV.BringToFront()
    151. End Sub
    153. Private Sub nV_Click(sender As Object, e As EventArgs) Handles nV.Click
    154. nV.Enabled = False
    155. nV.SendToBack()
    157. SerialPort1.Write("u")
    159. V.Enabled = True
    160. V.BringToFront()
    161. End Sub
    163. Private Sub W_Click(sender As Object, e As EventArgs) Handles W.Click
    164. W.Enabled = False
    165. W.SendToBack()
    167. SerialPort1.Write("U")
    169. nW.Enabled = True
    170. nW.BringToFront()
    171. End Sub
    173. Private Sub nW_Click(sender As Object, e As EventArgs) Handles nW.Click
    174. nW.Enabled = False
    175. nW.SendToBack()
    177. SerialPort1.Write("u")
    179. W.Enabled = True
    180. W.BringToFront()
    181. End Sub
    183. Private Sub UVW_Click(sender As Object, e As EventArgs) Handles UVW.Click
    185. End Sub
    187. Private Sub nUVW_Click(sender As Object, e As EventArgs) Handles nUVW.Click
    189. End Sub
    190. End Class



    Das Problem betrift nur die beiden Sub

    VB.NET-Quellcode

    1. Private Sub V_SET_ValueChanged(sender As Object, e As EventArgs) Handles V_SET.ValueChanged
    3. End Sub
    5. Private Sub F_SET_ValueChanged(sender As Object, e As EventArgs) Handles F_SET.ValueChanged
    7. End Sub


    Arduino Code :
    Spoiler anzeigen

    C#-Quellcode

    1. // Open loop motor control example
    2. #include <SimpleFOC.h>
    4. // BLDC motor & driver instance
    5. // BLDCMotor motor = BLDCMotor(pole pair number);
    6. BLDCMotor motor = BLDCMotor(11);
    7. //BLDCDriver3PWM driver = BLDCDriver3PWM(pwmA, pwmB, pwmC, Enable(optional));
    8. BLDCDriver3PWM driver = BLDCDriver3PWM(9, 5, 6, 8);
    10. // Stepper motor & driver instance
    11. //StepperMotor motor = StepperMotor(50);
    12. //StepperDriver4PWM driver = StepperDriver4PWM(9, 5, 10, 6, 8);
    14. //target variable
    15. float target_velocity = 0;
    17. // instantiate the commander
    18. Commander command = Commander(Serial);
    19. void doTarget(char* cmd) { command.scalar(&target_velocity, cmd); }
    20. void doLimit(char* cmd) { command.scalar(&motor.voltage_limit, cmd); }
    22. void setup() {
    24. // driver config
    25. // power supply voltage [V]
    26. driver.voltage_power_supply = 24;
    27. // limit the maximal dc voltage the driver can set
    28. // as a protection measure for the low-resistance motors
    29. // this value is fixed on startup
    30. driver.voltage_limit = 6;
    31. driver.init();
    32. // link the motor and the driver
    33. motor.linkDriver(&driver);
    35. // limiting motor movements
    36. // limit the voltage to be set to the motor
    37. // start very low for high resistance motors
    38. // currnet = resistance*voltage, so try to be well under 1Amp
    39. motor.voltage_limit = 3; // [V]
    41. // open loop control config
    42. motor.controller = MotionControlType::velocity_openloop;
    44. // init motor hardware
    45. motor.init();
    46. // add target command T
    47. command.add('T', doTarget, "target velocity");
    48. command.add('L', doLimit, "voltage limit");
    50. Serial.begin(9600);
    51. Serial.println("Motor ready!");
    52. Serial.println("Set target velocity [rad/s]");
    53. _delay(1000);
    54. }
    56. void loop() {
    58. // open loop velocity movement
    59. // using motor.voltage_limit and motor.velocity_limit
    60. motor.move(target_velocity);
    62. // user communication
    63. command.run();
    65. delay(100);
    66. }



    CodeTags korrigiert
    aufgrund des Codeumfangs Spoiler hinzugefügt     ~VaporiZed

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

    Hmm, schalte mal Option Strict On und finde, verstehe und bereinige die Fehler.
    @RodFromGermany
    Könntest du bitte mal den Link zu den VS Grundeinstellungen posten, habe den nicht parat.

    Meinst Du den hier? empfohlene VS-Einstellungen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @ing.mh

    in deinem Arduino-Code benutzt du das "Commander Object", das kenn ich zwar noch nicht, hab mir bei GitHub aber gerade ein paar Beispiele angeschaut.
    (Ich hoffe das ich das richtige erwischt habe, weiß nicht ob es noch mehr gibt.)

    Geht das, was du vor hast überhaupt mit dem Commander?
    Wenn ich es richtig verstehe, erkennt der Commander Code-Wörter und ruft dann eine definierte Funktion aus.
    Bei dir wären es die Code-Wörter "T" und "L", du möchtest aber auch noch ein Parameter also Frequenz und Spannung mit geben.
    Kann man das dann noch auslesen wenn die Code-Wörter erkannt wurden?

    In deinem C-Code für Arduino definierst du in den Funktionen, die vom Commander aufgerufen werden, übergebenen Paramete mit char* und Rückgabe Void.
    void doTarget(char* cmd)
    Auf GitHub in dem Beispiel erwartet die Funktion aber ein Commander-Objekt und Bool als Rückgabe
    bool goodbyeHandler(Commander &Cmdr)

    Edit:
    Handelt es sich um die Arduino SimpleFOClibrary mit der Doku bei "docs.simplefoc.com"?
    Dann sieht es so aus als ob der Commander etwas anders funktioniert.

    Läuft dein Arduino Code wenn du in mit dem Serial-Monitor testes, oder hängt es dort auch schon?

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

    Vielen Dank für tolle und rasche Hilfe,

    das Problem habe ich inzwischen so gelöst.

    VB.NET-Quellcode

    1. Private Sub NumUD_Freq_ValueChanged(sender As Object, e As EventArgs) Handles NumUD_Freq.ValueChanged
    2. Dim str2Send As String
    3. str2Send = "F" & NumUD_Freq.Value.ToString
    4. SendToDevice(str2Send)
    5. End Sub

    Das erste Problem ist gelöst, vielen Dank.

    das nächste Problem ist: wie kann einen Wert vom Arduino seriell zu meiner Interface gezielt senden, sodass diese Wunschwerte genau in der richtigen Stelle dargestellt werden sowie einige davon auch als Chart.

    Arduino code dazu:

    C-Quellcode

    1. ​void loop()
    2. {
    3. motor.move(target_velocity);
    4. command.run();
    5. delay(100);
    6. Phase_U=analogRead(Messwert_U);
    7. //Serial.print("");
    8. Serial.print(Phase_U);
    9. }


    Arduino-Code läuft einwandfrei, der Wert wird dementsprechend seriell gesendet, nur auf meine Interface wird es nicht richtig dargestellt, mehrere duplikate nacheinander und da ich auch andere Werte senden und darstellen möchte, weiß ich gerade nicht mehr wie es weiter geht.

    en schönen Sonntag

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ing.mh“ ()

    Hallo,

    ich weiß nicht was du genau senden möchtest, aber hier mal ein kleines Beispiel wie ich so was schon umgesetzt haben.

    Auf dem Aruduino läuft eine Rennbahn-Steuerung, die Informationen an den PC sendet, wie z.B. die Tankfüllung oder Rundenzeit.
    auf dem Arduion bau ich dann einen String zusammen, der mir die Kennung für die gesendete Information, das Auto und den Wert gibt.
    Am Beispiel Tankfüllung.

    C-Quellcode

    1. Serial.println(String("Tank_" + i+1 + ";" + Tank[i]));


    Tank_
    		Kennung für Tanken
    i
    		 Kennung (index) vom Auto
    ;
    		Trennzeichen
    Tank
    		Tankfüllung vom entsprechendem Auto


    Auf dem PC empfange ich dann die Daten und "entschlussel" sie.

    VB.NET-Quellcode

    1. indata = sp.ReadLine() ' sp -> Serial Port
    2. x = indata.Split(";")
    3. ...
    4. Dim i As Integer = CInt(x(0).Substring(x(0).Length - 1, 1))


    In X(0) steht dann z.B. Tank_1 und in x(1) dann die Tankfüllung.
    Aus X(0) zieh ich von der letzten Stelle dann noch die Fahrzeugnummer.

    Das ist jetzt nur ein Auszug aus dem Code, anhand der Kennung mach ich dann mit Select Case eine Auswertung ob es um die Tankfüllung oder Rundenzeit etc. geht.
    In dem Case-Zweig kann ich dann den Rest auswerten.

    Eine Lösung ist nun offensichtlich, gibt aber mehere Wege zum Ziel, die einfachste ist wie bereits gezeigt, einen string bilden, die werte getrennt mit z.B. ; und mit zeilenende schreiben, auf VB seite, Zeilenweise einlesen, jede Zeile splitten, werte verarbeiten.