Başlangıç > Kodlar > Visual Basic 6 ile Tarihi yazıp burcu öğrenmek

Visual Basic 6 ile Tarihi yazıp burcu öğrenmek


Güzel bir program.



‘Örnek kullanım: BurcBul(12,02) -> “kova” döner

Attribute VB_Name = “Burc”
Option Explicit

Public Function BurcBul(Gün As Byte, Ay As Byte) As String
‘ Yanlış girilmişse boş bilgi gönder ve fonksiyondan çık
If Gün > 31 Or Ay > 12 Then BurcBul = Null: Exit Function

Dim Burc As String
Burc = “{Hatalı değerler}”
If Gün > 20 And Ay = 1 Or Gün < 20 And Ay = 2 Then Burc = “Kova”
If Gün > 19 And Ay = 2 Or Gün < 21 And Ay = 3 Then Burc = “Balık”
If Gün > 20 And Ay = 3 Or Gün < 21 And Ay = 4 Then Burc = “Koç”
If Gün > 20 And Ay = 4 Or Gün < 21 And Ay = 5 Then Burc = “Boğa”
If Gün > 20 And Ay = 5 Or Gün < 22 And Ay = 6 Then Burc = “İkizler”
If Gün > 21 And Ay = 6 Or Gün < 25 And Ay = 7 Then Burc = “Yengeç”
If Gün > 22 And Ay = 7 Or Gün < 24 And Ay = 8 Then Burc = “Aslan”
If Gün > 23 And Ay = 8 Or Gün < 24 And Ay = 9 Then Burc = “Başak”
If Gün > 23 And Ay = 9 Or Gün < 24 And Ay = 10 Then Burc = “Terazi”
If Gün > 23 And Ay = 10 Or Gün < 23 And Ay = 11 Then Burc = “Akrep”
If Gün > 22 And Ay = 11 Or Gün < 22 And Ay = 12 Then Burc = “Yay”
If Gün > 21 And Ay = 12 Or Gün < 21 And Ay = 1 Then Burc = “Oğlak”

‘ Aktar
BurcBul = Burc
End Function

 


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: