[顯示] [隱藏]

我想把下面的的程式碼從十六轉成ASCII輸出
但是好像是語法錯誤 應該要輸出9999的
但是卻變成5555
請問我哪邊錯了

Private Sub Data_Read()
  Text2.Text = Chr(buffer(0))
  For I = 3 To 6
    Text4.Text = Text4.Text + Hex(buffer(I)) + "  "
  Next
  For I = 0 To 7
    y(I) = buffer(0) Mod 2
    buffer(0) = Int(buffer(0) / 2)
    If y(I) = 0 Then
        Shape1(I).FillColor = RGB(255, 0, 0)
    Else
        Shape1(I).FillColor = RGB(0, 0, 0)
    End If
  Next
  bin_str = ""
  For I = 7 To 0 Step -1
    bin_str = bin_str + Str(y(I))
  Next
  Text3.Text = bin_str
For I = 3 To 6                                                         ┐
  Text5.Text = Text5.Text + Chr(Asc(buffer(I))) + "  "   |----------  這邊
  Next                                                                      ┘  

End Sub

都已經asc了

為什麼還要再chr?

轉換錯誤了
都已經asc了
為什麼還要再chr?
多試試吧

如果用這樣
For I = 3 To 6
  Text5.Text = Text5.Text + Asc(buffer(I)) + "  "
Next
會出現型態不符
請問該怎辦?

可以用原來 Text5.Text = Text5.Text + Chr(Asc(buffer(i))) + "  "
不過要看你 buffer() 型態是啥
我把 buffer 設成 Byte 陣列
然後塞入 7777
是可以解的出來的

    Dim buffer(10) As Byte
    Dim i As Integer

    For i = 3 To 6
        buffer(i) = "7"
    Next
  
    For i = 3 To 6
        Text5.Text = Text5.Text + Chr(Asc(buffer(i))) + "  "
    Next

以上程式是正常的，檢查一下你的 buffer() 內部值正不正確