RS232C 設定反映 (ID:123504)

名前

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

本文

ねろさん有難うございます。

アドバイスもらったように、まず新しいプロジェクトを用意し最小限の機能だけでやってみました。
結果正常に作動させることができました。言われたように、少しづつ肉付けしていくことが大切だと思いました。
結局、直接的な原因は不明なままですが、何か自分の手には負えない箇所でツジツマが合ってなかったのかもしれません。
自分の技量わきまえず、下手に流用できる部分を流用してしまったことに原因があるのかと思いました。

アドバイスを頂いた方、有難うございました。

一応、少しだけ色をつけて動作したソースを報告します。

Form1:
Private Sub cmdSetup_Click()
    With COMM_DATA
        .comm_port = CInt(Mid(cmbCommPort.Text, 4))
        .port_speed = cmbPortSpeed.Text
        .data_bit = cmbDataBit.Text
        .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
    End With
    
    If commOpen(ctlCommA) = 0 Then
        MsgBox "OK"
    End If
End Sub

Module:
Type TYP_COMM_DATA ' 通信データ構造体
    comm_port As Integer
    port_speed As String
    data_bit As String
    stop_bit As String
    parity As String            ' N:なし E:偶数 O:奇数
End Type

Public COMM_DATA As TYP_COMM_DATA

Public Function commOpen(ctlCommA As MSComm) As Integer
    On Error GoTo ErrorHandle
    With COMM_DATA
        ctlCommA.CommPort = .comm_port
        ctlCommA.Settings = .port_speed + "," + .parity + "," + .data_bit + "," + .stop_bit
    End With
    ctlCommA.PortOpen = True
    commOpen = 0
    Exit Function

ErrorHandle:
    MsgBox (Err.Description)
    commOpen = 1
End Function

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

戻る