投稿日	： 2005/07/20(Wed) 20:13
投稿者	： チロル
Ｅメール	：
ＵＲＬ	：
タイトル	： 型を一致させたい

先日も質問させて頂いた者ですが、よろしくお願いします。
通信プログラム・VB6.0を同時進行で勉強中の身です。
課題内容は、フォーム上のテキストボックスへ手入力します。手入力する値は　”12 2A 6F A8”と16
進数が前提です。
このテキストデータを拾いDEL・SEL・DEL・UA・DEL・HA・DLE・STX・DLE・LNGH・DLE・LNGL+テキスト
データ とヘッダを複合しバイナリーデータとして送信することです。
それを現在私は以下のようなプログラムで表現しました。
下から三行目の Buffer(i) = MidB(Text1.Text, i - 11, 1) の箇所で
”実行エラー13番 型が一致しません。”
とエラーが出てしまいます。
型が一致しないとのことで色々調べたのですが、どうしても解決できず質問しようと思いました。
初歩的な内容であると思うのですが、どなたか原因を教えてください。

Private Sub Command1_Click()
    Dim txtLen As Integer
    Dim conTxtLen As String
    Dim Buffer(0 To 2100) As Byte

    ' テキストのバイト数取得
    txtLen = LenB(Text1.Text)
    
    ' DLNGH・DLNGL設定
    conTxtLen = Hex(txtLen)
    COMM_CODE.DLNGH = "&H" & Left(conTxtLen, 2)   'LenのHigh
    COMM_CODE.DLNGL = "&H" & Right(conTxtLen, 2)  'LenのLow
    
    For i = 0 To 10 Step 2
        Buffer(i) = COMM_CODE.DLE
    Next i
    Buffer(1) = COMM_CODE.POL
    Buffer(3) = COMM_CODE.UA
    Buffer(5) = COMM_CODE.HA
    Buffer(7) = COMM_CODE.STX
    Buffer(9) = COMM_CODE.DLNGH
    Buffer(11) = COMM_CODE.DLNGL
    
    For i = 12 To (txtLen + 12)
        Buffer(i) = MidB(Text1.Text, i - 11, 1)
    Next i
End Sub

★ - 型を一致させたい - チロル 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