プロパティの値が不正ですってでます！

質問

下記プログラムがあります。
Private Sub Timer1_Timer()
data(current) = PICOCX1.ADinp(PortA, 4)
Label4.Caption = Date & "," & Time
ondo = "現在の温度：" & Format(data(current) / 10.23 * 5, "#0.0℃")
kiroku = Date & "," & Time & "," & Format(data(current) / 10.23 * 5, "#0.0")
Label1.Caption = ondo
Dim MyFil As String
Dim intFileNo As Integer
MyFil = Text3.Text
intFileNo = FreeFile
If Dir$(MyFil) = "" Then
Open MyFil For Output As #intFileNo
Print #intFileNo, kiroku
Close #intFileNo
Else
Open MyFil For Append As #intFileNo
Print #intFileNo, kiroku
Close #intFileNo
End If
End Sub
このプログラムを1時間に一回実行したいのですがインターバルを3600000にするとプロパティの値が不正ですとでてしまい実行することができません。
どうやったらちゃんと動くようになりますか？？お願いします。

回答No.2

popesyu · ベストアンサー

TimerのIntervalはinteger型じゃなかったでしたっけ？
つまり32.767秒が最大（65,535ミリ秒かも？）。

対策は１番さんの仰る通り分割して計算すればよいでしょう。

回答No.1

ackapapa

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1818135
この回答をしていただいた方々のアドバイスを実行した上での質問でしょうか・・・？

TimerのIntervalを1000（１秒）とか60000（１分）にして
カウントし、一定量を超えれば実行するようにすればいいと思いますよ。
（言ってる事は他の方とほとんど一緒ですけど・・・）