以下の応用として、時刻に合わせて表示を変更する最も簡単な記述を整理してみました。
Visual Studio Basic_02 簡単なプログラムとデバッグの流れ 2020/08/10
画面設計はこんな感じでシンプルです。
ソースの「-----------------」は区切り線なので記述の必要はありません。
青字は自動入力部分で修正の必要はありません。
黒字が入力部分です。
赤字はコメント文なので記述の必要はありません。
比率ボタンごとに計算しているのでソースは簡単ですが、勘違いミスでしばらくプチパニックでした。
------------------
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Format(Now, "HH")は現在の時刻を24時間で返します。
’"hh"とすると12時間表示なので要注意。
'21時から午前6時までは"Go to sleep" 21時以降朝6時まで
'18時以降は"Good evening" 18時以降21時前
'12時以降は"Good afternoon" 12時以降18時前
'6時以降は"Good morning" 6時以降12時前
If Format(Now, "HH") < 6 Or Format(Now, "HH") >= 21 Then
TextBox1.Text = "Go to sleep"
ElseIf Format(Now, "HH") >= 18 Then
TextBox1.Text = "Good evening"
ElseIf Format(Now, "HH") >= 12 Then
TextBox1.Text = "Good afternoon"
ElseIf Format(Now, "HH") >= 6 Then
TextBox1.Text = "Good morning"
End If
End Sub
End Class
------------------
上は時刻や日付、曜日などの書式指定子を整理したものです。
