VBでのtimerの使い方について

前提・実現したいこと

VB.NETでとある装置を制御しようとしています。
下記コードでシリアルポートから送信すると装置が何も反応しません。
マニュアルで括弧の中の命令を送信すると装置が動きます。
なので、下記2行の間に適当な待ち時間を設定すれば、良さそうなのでTimerを使おうと思っているのですが、その使い方がよく分からないです。

該当のソースコード

VB.NET
1SerialPort1.Write("M:1⁺P500" & vbCrLf)
2'ここの間に待ち時間（例えば500msec）を設定したい　　　
3SerialPort1.Write("G:" & vbCrLf)

試したこと

FormにTimer1を配置。
プロパティのIntervalを500に設定して、以下のようにコードを追記してみたが、これでも装置は期待通りの動きをしない。

SerialPort1.Write("M:1⁺P500" & vbCrLf)
Timer1.Enabled = True
SerialPort1.Write("G:" & vbCrLf)
Timer1.Enabled = False

VB.NETは使い始めの初心者です。
正しいコードの書き方を教えてください。

よろしくお願いします。

行動規範の内容に同意します

回答2件

ベストアンサー

SerialPort1.Write("M:1⁺P500" & vbCrLf)
'ここの間に待ち時間（例えば500msec）を設定したい　　　
SerialPort1.Write("G:" & vbCrLf)

本当に 500ms そこで待てば解決するのかどうかは分かりませんが、試しに以下のコードを使ったらどうなりますか？

System.Threading.Thread.Sleep(500)

500ms を調整するなら Sleep メソッドの引数を変えてください。1 秒なら 1000

投稿2021/03/25 22:58

退会済みユーザー

総合スコア0

退会済みユーザー

2021/03/26 01:24

装置、動きました。待ち時間を調整していって、650msec待ちで動作するようになりました。ありがとうございます。 Sleepというものがあるということ、覚えておきます。

行動規範の内容に同意します

まずはそのメッセージが実際にポートから出力されてるかどうかってのを確認してはどうでしょう

投稿2021/03/25 12:27

y_waiwai

総合スコア87749

退会済みユーザー

2021/03/26 01:26

オシロでPin2,5を見てみたのですが、信号は観測できませんでした。（端子間違えたかな）ですが、他の方の回答で解決しました。コメントありがとうございました。

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！