掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BASICで書かれたプログラムをVB6で書き換えてくれませんか？お願いします。 (ID:125573)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
MSDNのサンプル殆どそのままコピペ。(^^; 動作は保証外。 Dim buffer As String MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0 MSComm1.PortOpen = True MSComm1.Output = Chr$(5) + "01" + Chr$(2) + "RPV01:01" + Chr$(3) + "7F" Do DoEvents buffer = buffer & MSComm1.Input Loop Until InStr(buffer, Chr$(3) & "7F") Text1.Text = buffer MSComm1.PortOpen = False 後は自分で調べる。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.