RS232Cの制御について

解決


hiro  2006-08-17 03:27:47  No: 132787

API関数を用いてパソコンのRS-232-CのRTS信号をON,OFFと繰り返して、
波形をオシロスコープで確認しようとしているのですが、
標準モジュールにシリアルポートの関数の定義などを記述して、

フォールモジュールに
Private Sub Command1_Click()
For i = 0 To 50000
dummy = EscapeCommFunction(hComm, CLRRTS)
dummy = EscapeCommFunction(hComm, SETRTS)
Next i
Print "RTS終了"
End Sub
と記述すると波形は確認できるのですが、

フォームモジュールに
Private Sub Command2_Click()
dummy = RTS
Print "RTS終了"
End Sub
標準モジュール(又はフォールモジュール)に
Function RTS() As Boolean
For i = 0 To 50000
dummy = EscapeCommFunction(hCome, CLRRTS)
dummy = EscapeCommFunction(hCome, SETRTS)
Next i
End Function
と記述すると波形が確認できませんでした。

どうすればいいの分かりません。
よろしくお願いします。


我龍院忠太  2006-08-17 04:21:44  No: 132788

Option Explicitは入れてありますか?


hiro  2006-08-17 22:03:54  No: 132789

お返事ありがとうございます。
Option Explicitは入れてありません。


hiro  2006-08-17 22:44:58  No: 132790

プログラムを見てみたらhCommを誤ってhComeにしていました。
hCommに訂正したら波形が確認できました。
ありがとうございました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加