VB6にてRS232cを使用してMECSECにコマンド送信


MSCommコントロールを使用します。

DTR　と　RTS　を　Trueにします。


チェックサムなしです。

制御手順形式４の送信文字列
MSComm1.Output = Chr$(&H5) & "00FFWR0D001004" & Chr$(&HD) & Chr$(&HA)

サンプルコード

Private Sub Form_Load()
    MSComm1.DTREnable = True
    MSComm1.RTSEnable = True
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,E,8,1"
    MSComm1.PortOpen = True
    MSComm1.Output = Chr$(&H5) & "00FFWR0D001004" & Chr$(&HD) & Chr$(&HA)
End Sub

Private Sub Command1_Click()
    Text1.Text = MSComm1.Input
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MSComm1.PortOpen = False
End Sub