編碼轉換問題

以下是我用vb 2008 express寫RS232 接收程式,現在是可以讀到別的地方傳過

來的資料,但是讀取的是Unicode,我要將他轉成二進制,以數字顯示,卻一直都失敗,

我試過一些方法,一樣會在txtReceive顯示"~",想請問大家是否有其他方法嗎?  謝

謝   (紅色部分是編碼跟顯示部分)

1. Imports System.IO.Ports
   
2. Imports System.Text
   
3. Public Class Form1
   
4.     Dim RS232 As SerialPort
   
5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
6.         For Each sp As String In SerialPort.GetPortNames()
   
7.             cmbCOM.Items.Add(sp)
   
8.         Next
   
9.         cmbCOM.Sorted = True
   
10.         cmbCOM.SelectedIndex = 0
    
11.         btnSend.Enabled = False
    
12.     End Sub
    
13. 
    
14.     Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    
15.         Dim mBaudRate As Integer
    
16.         Dim mParity As IO.Ports.Parity
    
17.         Dim mDataBit As Integer
    
18.         Dim mStopbit As IO.Ports.StopBits
    
19.         Dim mPortName As String
    
20.         mPortName = cmbCOM.SelectedItem.ToString
    
21.         mBaudRate = 9600
    
22.         mParity = Parity.None
    
23.         mDataBit = 8
    
24.         mStopbit = StopBits.One
    
25.         RS232 = New IO.Ports.SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopbit)
    
26.         RS232.Encoding = Encoding.Unicode
    
27.         If Not RS232.IsOpen Then
    
28.             RS232.Open()
    
29.             btnSend.Enabled = True
    
30.             Timer1.Interval = 100
    
31.             Timer1.Enabled = True
    
32.         Else
    
33.             MsgBox("通訊埠已被開啟", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)
    
34.             End
    
35.         End If
    
36.     End Sub
    
37.     Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
    
38.         If RS232 Is Nothing OrElse Not RS232.IsOpen Then
    
39.             MsgBox("通訊埠尚未開啟", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)
    
40.         Else
    
41.             btnSend.Enabled = False
    
42.             Timer1.Enabled = False
    
43.             RS232.Close()
    
44.         End If
    
45.     End Sub
    
46.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
47.         Dim InString As String
    
48.         Dim HE As String
    
49.         InString = ""
    
50.         Try
    
51.             RS232.ReadTimeout = 1000
    
52.             InString = RS232.ReadExisting()
    
53.             HE = Val("&H RS232.ReadExisting()")
    
54.             If InString.Length = 0 Then
    
55.                 Exit Sub
    
56.             Else
    
57.                 txtReceive.Text += Hex(HE)
    
58.             End If
    
59.         Catch ex As Exception
    
60.             MessageBox.Show("讀取錯誤：" + ex.ToString, "錯誤通知", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
61.         End Try
    
62.     End Sub
    
63.     Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
    
64.         RS232.Write(txtSend.Text)
    
65.     End Sub
    
66.     Private Sub btnEnd_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
    
67.         If Not RS232 Is Nothing Then
    
68.             If RS232.IsOpen Then RS232.Close()
    
69.         End If
    
70.         End
    
71.     End Sub
    
72. End Class

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員