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 )

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

End If

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

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

End If

If (saat >= 18) And (saat < style="color: blue;">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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.