投稿日	： 2005/07/21(Thu) 16:49
投稿者	： チロル
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: 型を一致させたい

ガッさん本当に有り難いのですが、同時に本当に本当に申し訳ありません。
散々検討した結果、今の私にはどうしてもハードルが高く扱うことができませんでした。
ですが、無駄にはしたくないので、理解できそうな知識を得た段階で再度挑戦したいと思います。

仕事の都合もあり、今回はいなさんに頂いた方法を元に、少し強引なやり方で解決させていただきまし
た。
ガッさん いなさん有難うございました。

    ' 文字列から空白削除
    strData = Replace(txtOutPutSel.Text, " ", "")
    ' バイト数取得
    txtLen = Len(strData) / 2
    ' DLNGH・DLNGL設定
    COMM_CODE.DLNGH = Hex(Left(Format(txtLen / 2, "0000"), 2))
    COMM_CODE.DLNGL = Hex(Right(Format(txtLen / 2, "0000"), 2))
      
    ' 送信バッファへ代入
    Buffer(0) = COMM_CODE.DLE
    Buffer(1) = COMM_CODE.POL
    Buffer(2) = COMM_CODE.DLE
    Buffer(3) = COMM_CODE.UA
    Buffer(4) = COMM_CODE.DLE
    Buffer(5) = COMM_CODE.HA
    Buffer(6) = COMM_CODE.DLE
    Buffer(7) = COMM_CODE.STX
    Buffer(8) = COMM_CODE.DLE
    Buffer(9) = COMM_CODE.DLNGH
    Buffer(10) = COMM_CODE.DLE
    Buffer(11) = COMM_CODE.DLNGL
    
    j = 0
    For i = 0 To txtLen - 1 Step 1
        strTxtData = Mid(strData, (i * 2) + 1, 2)
        bytBuf = CByte("&H" & strTxtData)
        Buffer(i + j + 12) = bytBuf
        
        If bytBuf = &H10 Then
            j = j + 1
            Buffer(i + j + 12) = bytBuf
        End If
    Next i

★ - 型を一致させたい - チロル 07/20-20:13No.3822
• Re: 型を一致させたい - ガッ 07/20-20:40 No.3823
  • Re^2: 型を一致させたい - チロル 07/20-21:01 No.3825
• Re: 型を一致させたい - いな 07/20-20:42 No.3824
  • Re^2: 型を一致させたい - ガッ 07/20-21:21 No.3826
    • Re^3: 型を一致させたい - チロル 07/20-21:45 No.3828
    • Re^3: 型を一致させたい - いな 07/20-22:25 No.3829
  • Re^2: 型を一致させたい - チロル 07/20-21:27 No.3827
    • Re^3: 型を一致させたい - チロル 07/21-16:49 No.3835