none
我如何讓字串變回來 RRS feed

  • 問題

  • [img]http://www.fotopu.com/img/304693.jpg[/img]1
    [img]http://www.fotopu.com/img/304694.jpg[/img]2

    原本接收應該為1的圖~!!不過傳輸有改過

    不使用ASK碼1個1個傳以後變成了2那張(例如原先的057變成了9)
    請問一下我VB程式該怎麼改才能讓2的圖變成1那樣子
    我傳輸成是一次送一百筆資料(例如:000 000 [6個數字+1個空格為一筆])

    [code]Private Sub sockMain_ConnectionRequest(ByVal requestID As Long)
        If sockMain.State <> sckClosed Then
            sockMain.Close
        End If

        sockMain.Accept requestID

        txtStatus.Text = txtStatus.Text & _
            "Accepted connection from: " & _
            sockMain.RemoteHostIP & vbCrLf
    End Sub

    Private Sub sockMain_DataArrival(ByVal bytesTotal As Long)

        Dim strData As String
    '  Dim strdata As Byte

        sockMain.GetData strData, vbString
        txtStatus.Text = txtStatus.Text & _
            strData & vbCrLf


    End Sub[/code]

                                    
    2013年1月16日 上午 09:00

解答

  •     Dim i As Integer        
    Dim bytData() As Byte        
    Me.Winsock1.GetData bytData, vbArray + vbByte, bytesTotal        
    For i = 0 To bytesTotal - 1        
        Me.Text1.Text = Me.Text1.Text & Format(bytData(i), "000") & " "    
    Next

    • 已標示為解答 popotyer 2013年1月17日 上午 04:52
    2013年1月16日 下午 03:10

所有回覆

  •     Dim i As Integer        
    Dim bytData() As Byte        
    Me.Winsock1.GetData bytData, vbArray + vbByte, bytesTotal        
    For i = 0 To bytesTotal - 1        
        Me.Text1.Text = Me.Text1.Text & Format(bytData(i), "000") & " "    
    Next

    • 已標示為解答 popotyer 2013年1月17日 上午 04:52
    2013年1月16日 下午 03:10
  • 感謝你~!!

    2013年1月17日 上午 04:53
  • 那麼我想在請問一下該如何把它平均值為一組

    就是把100組平均為1組

    2013年1月28日 上午 06:33
  • 為什麼把文章拆兩篇?

    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2013年1月28日 下午 02:47