Sıcaklık Durumu VB.Net

Program kullanıcının hava derecesini girip ne yapması hakkında öneri alır.

Programın arayüzünü aşağıda ki gibi düzenleyiniz.

Sonra Tıkla (button1) ‘ nun içine şu kodları yazıp programımızı çalıştıralım.

[code language=”vb”]Try
a = TextBox1.Text
If a > -10 And a <= 0 Then MsgBox("Evde Oturmanızı Tavsiye Ederiz.")
If a >= 1 And a <= 10 Then MsgBox("Boğazda Güzel Bir Çay İyi Gider.")
If a >= 11 And a <= 20 Then MsgBox("Bu Hava da Gülhane Güzel Olur.")      If a >= 21 And a <= 30 Then MsgBox("Piknikte Mangal Ne Güzel Olur Bu Havada.")
If a >= 31 And a <= 40 Then MsgBox("Denize Gitmenizi Tavsiye Ederiz.")
Catch
MsgBox("Hatalı Giriş!..", MsgBoxStyle.OkOnly, "Hüseyin ÇELİK")
End Try
End Sub

Daha Sonra Çıkış (Button2)’ye şu kodları yazalım.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = MsgBox("Programdan Çıkmak İstediğinizden Emin misiniz?", MsgBoxStyle.YesNo, "Hüseyin ÇELİK")
If a = MsgBoxResult.Yes Then
Close()
End If
[/code]

Projeyi İndir: Sıcaklık Durumu VB.Net