こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

下記プログラムがあります。
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にするとプロパティの値が不正ですとでてしまい実行することができません。
どうやったらちゃんと動くようになりますか??お願いします。

投稿日時 - 2005-12-05 01:34:19

QNo.1820173

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

投稿日時 - 2005-12-05 16:50:31

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

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

投稿日時 - 2005-12-05 01:47:16

あなたにオススメの質問