SerialPort und hieroglyphen

15/01/2008 - 13:12 von Andreas Klein | Report spam
Hallo,

habe folgenden Code:

Private Sub RL_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RL.CheckedChanged

If RL.CheckState Then

SendenNach_RL(1, 1)

Else

SendenNach_RL(1, 0)



End If

End Sub



Private Sub SendenNach_RL(ByVal RL_Nr As Single, ByVal OnOff As Single)

Dim Erste As Char

Dim Zweite As Char

Dim Dritte As Char



Erste = Chr(CInt(254))

Zweite = Chr(CInt(RL_Nr))

Dritte = Chr(CInt(OnOff))

Try


SerialPort1.Write(Erste)

MsgBox(Erste)

SerialPort1.Write(Zweite)

MsgBox(Zweite)

If OnOff = 0 Then SerialPort1.Write(Chr(0)) : MsgBox(Chr(0))

SerialPort1.Write(Dritte)

MsgBox(Dritte)

Catch ex As System.Exception

MessageBox.Show(ex.Message)

End Try

End Sub



Mit MSComm hauts wunder bar hin nur will ich das ohne MSComm.

Ist es überhaupt mit VB.Net möglich

hieroglyphen zu senden?



Gruß



Andreas Klein
 

Lesen sie die antworten

#1 Karsten Sosna
17/01/2008 - 12:32 | Warnen spam
Hallo Andreas,
warum nimmst Du nicht ein Byte-Array?
\\\
Dim arr() As Byte ={254, CByte(RL_Nr), CByte(OnOff)}
SerialPort1.Write(arr, 0, arr.Lenght)
///
Wobei sich immer noch die Frage stellt warum RL_Nr und OnOff vom Typ Single
sind.
Gruß Scotty

Ähnliche fragen