VB.net und RS232.

[crazy horse (Gast)]

hm, Suche hat nicht wirklich was ergeben...
Bin an einer Kommunikationssoftware für den C167 dran.
Dazu muss erst mal ein Bootloader gesendet werden, funktioniert vom 
Terminal aus prima, nicht jedoch aus meiner Software.
Problem: ich muss zumindest für die ersten 32 Byte binär senden.
Serielle Schnittstelle ist ok und funktioniert auch, steht auch auf 8bit 
:-)
Allerdings finde ich keinen Weg, Werte >127 zu senden.
SerialPort1.write (chr(&H40)) 'funktioniert
SerialPort1.write (chr(&HAA)) funktioniert nicht, liefert 0x3f am 
Empfänger, wie alle anderen Werte über 127 auch :-(
Keine Chance irgendwie mit ASCII-Werten zu arbeiten, es muss binär sein.
Irgendwelche Ideen?

[juppi (Gast)]

Hallo

Beitrag "VB2005-DLL einbinden"


das könnte es sein

Stefan "stefb" B. (stefan)

Jetzt treibt ihr mich schon so weit, dass ich virtuell Visual Basic .NET
programmiere. Jungs, macht nur so weiter ;-)

Imports System
Imports System.Text    ' <=== !     ' das ist wichtig

Public Class Form1
    'Codeabschnitt von Rod:

    Sub SendSerialData(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.WriteLine(data)
        End Using
    End Sub
End Class


gruß

[crazy horse (Gast)]

Hammer!
Da such und probier ich einen halben Tag!
Danke dir und Stefan.