RS232Cの制御について

解決

hiro 2006-08-16 18: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-16 19:21:44 No: 132788

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

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

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

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

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