Günün Saatine Göre Mesaj Vermek

Oluşturduğumuz Console da günün değişik saatlerine göre mesaj verdireceğiz. Imports System i konsol a eklemeyi unutmayın.

Şekil 1

Form1.vb

Imports System

Module Module1

    Sub Main()

        Dim dt As System.DateTime

        Dim saat As Integer

        dt = Date.Now()

        saat = dt.Hour

        If (saat < 12) Then

            Console.WriteLine("İyi Sabahlar!" & vbCrLf & dt.ToString("HH:mm:ss tt"))

        End If

        If (saat >= 12) And (saat < 18) Then

            Console.WriteLine("İyi Öğlen Sonları!" & vbCrLf & dt.ToString("HH:mm:ss tt"))

        End If

        If (saat >= 18) And (saat < 21) Then

            Console.WriteLine("İyi Akşamlar!" & vbCrLf & dt.ToString("HH:mm:ss tt"))

        End If

        If (saat >= 21) Then

            Console.WriteLine("İyi Geceler!" & vbCrLf & dt.ToString("HH:mm:ss tt"))

        End If

        Console.ReadLine()

    End Sub

End Module

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN