Ansteuerung für K8056

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von wallenstein.

    Ansteuerung für K8056

    Hi

    ich hab mal wieder ein Problem. Ich hab mir das K 8056 von Velleman geholt, welches man über RS 232 steueren kann.
    Ich möchte es jetzt gerne ganz einfach in ein Programm einbinden, wenn ein Button gedrückt wird soll ein Relai schalten.

    Jetzt mein Problem:
    Ich bekomm einfach nichts auf die Reihe.
    Einerseits weiß ich trotz längere Suche noch immer nicht, wie ich Daten über den Seriellen Port ausgebe und des weiter verstehe ich nicht was ich ausgeben soll.
    Ich hoffe ihr habt ein paar Ideen.
    Hier noch die Seite vom Hersteller:

    vellemanusa.com/us/enu/product/view/?id=500375

    Ich hab jetzt mal ein wenig rumprobiert.

    Ich wollte erreichen das über die rst 232 irgendwas gesendet wir und dann auch wieder empfangen und angezeit wird.
    Hab dazu folgenden Quellecode geschrieben.

    VB.NET-Quellcode

    1. Imports System.Text ' <=== !
    4. Public Class Form1
    6. Dim daten As Byte
    7. Dim t_zahl As Byte
    9. 'Codeabschnitt von Rod:
    11. Sub SendSerialData01xxxx(ByVal data As String)
    12. Dim enc As Encoding = Encoding.GetEncoding(1252)
    13. ' Send strings to a serial port.
    14. Using com1 As IO.Ports.SerialPort = _
    15. My.Computer.Ports.OpenSerialPort("COM1", 9600, IO.Ports.Parity.None, 8)
    16. com1.Encoding = enc
    17. com1.Write(data)
    18. End Using
    19. End Sub
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    23. Dim wert As String = "Next"
    24. SendSerialData01xxxx(wert)
    25. End Sub
    28. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    29. t_zahl = t_zahl + 1
    30. If t_zahl = 100 Then t_zahl = 0
    32. TextBox2.Text = t_zahl 'hier steht nichts in der box (fremder thread)
    33. byteeinlesen()
    34. End Sub
    36. Private Sub byteeinlesen()
    37. daten = SerialPort1.ReadByte()
    38. End Sub
    40. Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    41. Label1.Text = "Empfang " & daten
    42. Label2.Text = t_zahl 'test ob etwas empfangen wird
    45. End Sub
    48. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    49. Timer2.Start()
    51. End Sub
    52. End Class


    es funktoniert aber leider nicht und ich kann auch nicht überprüfen ob was gesendet wird.

    hier:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim wert As String = "Next"
    3. SendSerialData01xxxx(wert)
    4. End Sub
    7. Sub SendSerialData01xxxx(ByVal data As String)
    8. Dim enc As Encoding = Encoding.GetEncoding(1252)
    9. ' Send strings to a serial port.
    10. Using com1 As IO.Ports.SerialPort = _
    11. My.Computer.Ports.OpenSerialPort("COM1", 9600, IO.Ports.Parity.None, 8)
    12. com1.Encoding = enc
    13. com1.Write(data)
    14. End Using
    15. End Sub


    oder ist das komplett falsch

    habs geschaft das ich "Next" sende und auch wieder empfange.

    Um jetzt die K8056 anzusteuern muss ich next durch die Sendesequenz ersetzten, wenn ich das richtig verstanden habe.

    Aber wie sieht jetzt die Sendesequenz den genau aus.

    so ich habs jetzt geschaft das an meiner Karte Relais geschalten werden.
    Hab das hier mal als Beispiel zusammengefasst.

    Es wird immer die Karte 1 angesprochen.

    VB.NET-Quellcode

    1. Imports System.Text ' <=== !
    2. Imports System
    3. Imports System.IO.Ports
    4. Imports System.Threading
    7. Dim checksum As String
    8. Dim messagestring As String
    9. Dim Befehl As String
    10. Dim Relai As String
    12. Sub SendSerialData01xxxx(ByVal data As String)
    13. Dim enc As Encoding = Encoding.GetEncoding(1252)
    14. ' Send strings to a serial port.
    15. Using com As IO.Ports.SerialPort = _
    16. My.Computer.Ports.OpenSerialPort("Com1", 2400, IO.Ports.Parity.None, 8)
    17. com.Encoding = enc
    18. com.Write(data)
    19. End Using
    21. End Sub
    25. Sub rechnen()
    26. checksum = (255 - ((((13 + 1 + Asc(Befehl) + Asc(Relai)) / 256) - Int((13 + 1 + Asc(Befehl) + Asc(Relai)) / 256)) * 256)) + 1
    28. messagestring = Chr(13) & Chr(1) & Befehl & Relai & Chr(checksum)
    29. messagestring = messagestring & messagestring
    30. messagestring = messagestring & messagestring
    32. SendSerialData01xxxx(messagestring)
    34. End Sub
    36. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    37. Befehl = "S"
    38. Relai = "8"
    39. rechnen()
    40. End Sub
    42. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    43. Befehl = "C"
    44. Relai = "8"
    45. rechnen()
    46. End Sub

Facebook