RS232C 設定反映 (ID:123489)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

RS232Cの通信プログラムについて勉強中です。
今回の質問は正直、関数の使用方法レベルの話で恐縮なのですが、どうしても解決ができずご教授お願いします。
以下のプログラムで実行したとき、ctlCommのコンパイルエラーが出てしまいます。
また、エラーのでる箇所をいくつか変更し試してみましたが、オブジェクト変数が認識されていないというエラーがでます。
初歩的な質問で恐縮なのですが、どのようにしたらエラーが出ず正常に設定を反映させることができるのか教えてください。

通信データ構造体は略

↓設定ボタンを押したときのプログラム
Private Sub cmdSetup_Click()

COMM_DATA.comm_port = CInt(Mid(cmbCommPort.Text, 4))
    COMM_DATA.port_speed = cmbPortSpeed.Text
    COMM_DATA.data_bit = cmbDataBit.Text
    COMM_DATA.stop_bit = cmbStopBit.Text
    
    If cmbParity.Text = "なし" Then
        COMM_DATA.parity = "N"
    ElseIf cmbParity.Text = "奇数" Then
        COMM_DATA.parity = "O"
    ElseIf cmbParity.Text = "偶数" Then
        COMM_DATA.parity = "E"
    End If
    If cmbFllow.Text = "なし" Then
        COMM_DATA.fllow = "0"
    ElseIf cmbFllow.Text = "ソフトウェア" Then
        COMM_DATA.fllow = "1"
    ElseIf cmbFllow.Text = "ハードウェア" Then
        COMM_DATA.fllow = "2"
    End If
    
    If commOpen(ctlComm) = 0 Then
        MsgBox "設定完了", vbCritical, "確認画面"
    End If
    
End Sub

↓ MainModule内プログラム
Public Function commOpen(ctlComm As Object) As Integer

On Error GoTo ErrorHandle
    '通信設定値を反映
    With COMM_DATA
        ctlComm.CommPort = .comm_port
        ctlComm.Settings = .port_speed + "," + .parity + "," + .data_bit + "," + .stop_bit
        
        Select Case .fllow
        Case 0
            ctlComm.Handshaking = comNone
        Case 1
            ctlComm.Handshaking = comXOnXoff
        Case 2
            ctlComm.Handshaking = comRTS
        End Select
    End With
    ctlComm.RTSEnable = True
    ctlComm.PortOpen = True
    commOpen = 0
    
    Exit Function

ErrorHandle:
    MsgBox "通信ポートの設定が正常に行えませんでした", vbCritical, "通信ポート設定エラー"
    commOpen = -1
End Function

←解決時は質問者本人がここをチェックしてください。

戻る