シリアル通信：オフライン時にうまく終了してくれません

質問

シリアルプリンタの制御をVB6で行っております。
以下のようなコードですが、うまく終了してくれません。
'グローバル
'プリンタの状態
Dim BUF as String
'起動時
Private Sub Form_Load()
MSComm1.PortOpen = True
Text1.Text = ""
Timer1.Enabled = True
End Sub
'終了
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
MSComm1.PortOpen = False
End Sub
'タイマー
Private Sub Timer1_Timer()
Timer1.Enabled = False
Call CheckPrint
Timer1.Enabled = True
End Sub
Private Sub MSComm1_OnComm()
Dim TimeOut As Long
Dim sTime As Long
Dim eTime As Long

Select Case MSComm1.CommEvent
'受信
Case comEvReceive
TimeOut = 100
sTime = timeGetTime
Do
If (TimeOut - eTime) < 0 Then
Exit Do
End If
eTime = (timeGetTime - sTime)
Loop Until MSComm1.InBufferCount >= 82
BUF = MSComm1.Input
End Select
End Sub
プリンタの状態チェック
Private Sub CheckPrint()
Dim sTime As Long
Dim eTime As Long
Dim TimeOut As Long
Dim i As Integer
Dim n As Integer

BUF = ""
'プリンタの情報取得コマンド
MSComm1.Output = "~HS"
'タイマ開始
TimeOut = 400
sTime = timeGetTime
eTime = 0
Do
DoEvents
If BUF <> "" Then
Exit Do
End If
eTime = (timeGetTime - sTime)
Loop Until TimeOut - eTime < 0

If BUF <> "" Then
...
..
宜しくお願いします。

回答No.1

taisuke555 · ベストアンサー

ぱっと見の回答ですので間違っているかもしれませんが・・・

試しに、
Private Sub Timer1_Timer()
　　Debug.Print "Timer Start"
　　Timer1.Enabled = False
　　Call CheckPrint
　　Timer1.Enabled = True
　　Debug.Print "Timer End"
End Sub

として実行してみてください。
[Timer End]がでて、[Timer Start]がでるまでの間に、
終了ボタンを押せば、うまく終了するのではないかと思いますが、どうでしょうか？

[Timer Start]がでて、[Timer End]がでるまでの間は、
CheckPrintの中にDoEventsがあるので終了する事はできますが、
プログラムは、Do ... Loopを回っています。
TimeOutでDo ... Loopを抜けると、
Timer1.Enabled = Trueになるので
またTimerイベントが発生して終了できないのではないでしょうか？

それを回避する方法は、いくつかあると思うのですが、
（例えば、
Private Sub Form_Unload(Cancel As Integer)
　　Timer1.Interval = 0
　　MSComm1.PortOpen = False
End Sub
にするとか（これは即終了とはいきませんが））
そもそもTimerイベントを用いる必要があるのでしょうか？

Private Sub MSComm1_OnComm()の中の
・・・・
BUF = MSComm1.Input
この部分で、CheckPrintの中を（内容はよくわかりませんが）
実行したらいいのでは？と思いました。

細かい事がわからないので、全く違っていたらすみません。

お礼

回答に心から感謝します。
細かい所まで気づいてくださってありがとうございます。本当に感謝です。様々なサイト様を巡っていても全然わかりませんでした。ウチの部署はプログラマもどき(気取り)の自分1人しかVBをいじってないので質問させていただきました。
CheckPrint()に続きがありまして、この後、Formに表示する部分(プリンタの状態(リボンエラー、ヘッドオープン等)を表示する)があります。つまりForm上にあるオブジェクトなり、コントロールが参照されます。
貴殿のおっしゃる通りで、Timer StartとEndの間で終了させればOKです。また、FormがUnloadされていてもプログラムは走っているようです。多分Doeventsで制御が戻ってくるのでしょう。それで、このDoeventsはよくわかりませんが、Formの情報も持っているのか、Form上にあるオブジェクトなり、コントロールが参照されると、Form_Loadに飛んでってしまうのです。それで再ロードされて、でもLoad中はVisibleはいじってないのでFalseのまま、裏で残ってしまうようです。で、プロセスが残りっぱなしになってしまうのです、というのが推測ですが結論が出ました。貴殿のおっしゃることで間違いないと思います。(ここまで結論付けるには貴殿の回答あってこそですが)
また、Timerコントロールを使うのは単なる思い付きでして、昔GPIBなるものをいじってまして、その時にTimerコントロールで計測器を制御していたもんですから…
お客にリアルタイムでプリンタの状態を見ることはできないかということを受けてでした。」
Timerコントロールはあまり使うものではないということを調べて知りましたので気をつけたいと思います。
一応、リファレンス通り、静的なLoadフラグを設けてDoeventsのすぐ下にLoadフラグがFalseだったらExit Subなる逃げ業(?)を使い、Timer1_TimerでもLoadフラグがFalseだったらTimer1を無効にしました。一切Formの「フォ」の字も使っておりません。あまり美しくはありませんが、完成にもっていっています。
この度は本当に感謝ですし、明日から定時に帰れるという喜びが大きいですよ。