下記プログラムがあります。
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ベストアンサー
- 回答日時:
TimerのIntervalはinteger型じゃなかったでしたっけ?
つまり32.767秒が最大(65,535ミリ秒かも?)。
対策は1番さんの仰る通り分割して計算すればよいでしょう。
No.1
- 回答日時:
この回答をしていただいた方々のアドバイスを実行した上での質問でしょうか・・・?
TimerのIntervalを1000(1秒)とか60000(1分)にして
カウントし、一定量を超えれば実行するようにすればいいと思いますよ。
(言ってる事は他の方とほとんど一緒ですけど・・・)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
管理者として実行を毎回すると...
-
パソコンのスクリーンセーバー...
-
パソコンに何かが勝手にダウン...
-
chatGPTで次々と質問をしていく...
-
latexでのエラー
-
Flashゲームをホームページで楽...
-
PC版のMinecraftが応答なしにな...
-
COBOLで集団項目から符号...
-
プログラム実行中に強制停止さ...
-
たまにマクロを実行できないと...
-
【急いでます!】pythonでキー...
-
プログラム実行時の、一時停止...
-
シングルステップの使用方法に...
-
自己prについてです。 課題解決...
-
Windows10 で青鬼を遊びたいの...
-
pythonで他のアプリを操作する...
-
EXCEL-VBAでコマンド...
-
ATOMは何の略ですか
-
WindowsVistaでの三国志9起動...
-
eclipseで、「ポート番号が使用...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンに何かが勝手にダウン...
-
chatGPTで次々と質問をしていく...
-
Excel実行時エラー-2146959355?
-
PC版のMinecraftが応答なしにな...
-
至急!RedmiPadを文鎮化させて...
-
VSコード
-
管理者として実行を毎回すると...
-
エクセルVBA、ステップモードと...
-
VB.NETでボタンのクリックイベ...
-
eclipseで、「ポート番号が使用...
-
EXCEL-VBAでコマンド...
-
プログラミングについてです。...
-
パソコンのスクリーンセーバー...
-
pythonで他のアプリを操作する...
-
プログラム実行中に強制停止さ...
-
latexでのエラー
-
プロパティの値が不正ですって...
-
Flashゲームをホームページで楽...
-
起動したアプリケーションを最...
-
「管理者として実行」された場...
おすすめ情報