掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BASICで書かれたプログラムをVB6で書き換えてくれませんか？お願いします。 (ID:125581)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
＞＞我龍院忠太さん ありがとうございます。 最終的にこのようなプログラムをつくったので今から試してきます。 Private Sub Command1_Click() If MSComm1.PortOpen = False Then MSComm1.CommPort = 1 MSComm1.Settings = "4800,N,8,1" MSComm1.InputLen = 0 MSComm1.PortOpen = True End If Text2.Text = "" MSComm1.Output = Chr$(5) + "01" + Chr$(2) + "RPV01:01" + Chr$(3) + "7F" End Sub Private Sub Command2_Click() Unload Me 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.