掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
測定器とパソコンでデーターの送受信をしたいのですが、作成したプログラムの確認をしてもらえませんか？ (ID:92062)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
測定器とパソコンをRS-232Cでつなぎデーターの送受信をしたいのですが、まだ測定器が無く間違いのチェックできないので、作成したコードのチェックをお願いします。 Private Sub Command1_Click() If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If Text2.Text = "" MSComm1.Output = Text1.Text&Chr(&05H) Command1.Enabled = False dmy = DoEvents() End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() MSComm1.PortOpen = Not MSComm1.PortOpen If MSComm1.PortOpen = True Then Command3.Caption = "通信停止" Else Command3.Caption = "通信開始" End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim res As VbMsgBoxResult res = MsgBox("終了しますか? ", vbYesNo, "確認") If res = vbNo Then Cancel = True Exit Sub End If End Sub Private Sub MSComm1_OnComm() Dim Buffer As Variant Select Case MSComm1.CommEvent Case comEvReceive Buffer = MSComm1.Input Text2.Text=Text2.Text&Buffer End Select End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.