mikrocontroller.net

Forum: PC-Programmierung Daten von Dez in Hex in VB umwandlen


Autor: Faller (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Ich möchte in VB die Daten (dezimal) die in eine Textbox geschrieben 
werden in ein Hex Zeichen umwandeln. Das ich widerum über die Serielle 
Schnittstelle senden möchte.

Soll heißen: Ich gebe in der Textbox 120 ein. In der Variable soll dann 
h78 stehen!!

Der Wert h78 soll dann gesendet werden.

Wie kann ich dies sehr einfach realisieren?

Autor: Philipp Kälin (philippk) Benutzerseite
Datum:

Bewertung
0 lesenswert
nicht lesenswert
In HEX umwandeln geht so: Text = "h" & Hex(123)
siehe: http://msdn.microsoft.com/en-us/library/963zt96e%2...

Nun musst du aber noch sagen, wie du die Zahl über RS232 sendest. Binär 
oder als String?

Autor: Faller (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Vielen Dank. Ich möchte das ganze per String senden!! Wie kann ich dies 
dann am einbfachsten umwandeln?

Autor: Philipp Kälin (philippk) Benutzerseite
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Ich habe immer mit dieser Vorlage gearbeitet:
http://www.vbarchiv.net/tipps/details.php?id=393
umwandeln musst du das ganze in dem Fall nicht weiter, du kannst den 
String direkt an MSComm1.Output übergeben.

Autor: Faller (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Ok. Soweit so gut.

Aber wie wandle ich meine Hex-Daten in einen String?

Autor: juppi (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Imports System.Text    ' <=== !

Public Class Form1
    Dim s As String = "Test"
    'Codeabschnitt von Rod:

    Sub SendSerialData01xxxx(ByVal data As String)
        Dim enc As Encoding = Encoding.GetEncoding(1252)
        ' Send strings to a serial port.
        Using com1 As IO.Ports.SerialPort = _
        My.Computer.Ports.OpenSerialPort("COM1", 2400, 
IO.Ports.Parity.None, 8)
            com1.Encoding = enc
            com1.Write(data)
        End Using
    End Sub
    Sub SendSerialData02(ByVal data As String)
        Dim enc As Encoding = Encoding.GetEncoding(1252)
        ' Send strings to a serial port.
        'Using com1 As IO.Ports.SerialPort = _
        ' My.Computer.Ports.OpenSerialPort("COM1", 2400, 
IO.Ports.Parity.None, 8)
        SerialPort1.Encoding = enc
        SerialPort1.Write(data)
        'End Using
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        Dim a As Char = Chr(&H2F)
        s = a   '& test" & a
        SendSerialData02(s)
    End Sub
End Class


Reicht fast für alles

Autor: juppi (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Wenn du VB<=6 sucht geht es eben nicht

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.