2009'un Başından Beri Devam Ettiğimiz TA Orginal Theme v1.5 'i Geliştirerek v2.0 İle Karşınızdayız. Görselliği ve Kolay Kullanım Olanaklarını Titizlikle Gerçekleştirdik.

Yorumları Buradan Takip Edebilirsiniz.

Facebook Sayfasına Buradan Ulaşabilirsiniz.

Hack l TurkishAjan Turkish Hacking&Security Forum

Unicef

Hack l TurkishAjan Turkish Hacking&Security Forum » TA Information Technology’s » Programlama » Visual Basic » Tarihi Yaz Burcunu Ögren

Yeni Konu açCevapla
 
LinkBack Seçenekler Değerlendirme Stil
Alt 27 Eylül 2009   #1 (permalink)
ZORRO - ait Kullanıcı Resmi (Avatar)
  • Yüzbaşı
  • Üyelik tarihi: 22 Eylül 2009
  • Mesajlar: 315
  • Konular: 313
  • Ettiği Teşekkür: 0
    17 Mesajında 23 Kez Teşekkür Aldı
Standart

Tarihi Yaz Burcunu Ögren

Tarihi Yaz Burcunu Ögren

Kod :

Tarihi Yaz Burcunu Ögren
--------------------------------------------------------------------------------
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

ALıntıdıRr ..
Bu konu yada mesaj "www.turkishajan.com" sitesine aittir.
ZORRO isimli Üye şimdilik offline konumundadır Alıntı ile Cevapla
Alt 24 Ekim 2009   #2 (permalink)
AschenqaZ - ait Kullanıcı Resmi (Avatar)
  • Üsteğmen
  • Üyelik tarihi: 24 Ekim 2009
  • Yaş: 29
  • Mesajlar: 201
  • Konular: 35
  • Ettiği Teşekkür: 0
    7 Mesajında 9 Kez Teşekkür Aldı
Standart

Cevap: Tarihi Yaz Burcunu Ögren

Cevap: Tarihi Yaz Burcunu Ögren

quzel paylasım sagol
Bu konu yada mesaj "www.turkishajan.com" sitesine aittir.
__________________
GÖZLERIMDE EREZYON VAR ARTIK GORMUYORUM,BENIM DUNYAM UYUSTU SENIN KI HALA DONUYOR MU?
Raporumu aldımda geldim .. Artık 7/24 onlineim.. Bilginize''!!...
AschenqaZ isimli Üye şimdilik offline konumundadır Alıntı ile Cevapla
Yeni Konu açCevapla

Etiketler
burcunu , tarihi , yaz , ögren

Seçenekler
Stil Konuyu değerlendir
Konuyu değerlendir:



Saat: 11:16.

Powered By vBulletin Version 3.x.x
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Tüm Telif Hakları TurkishAjan'a Aittir © 2008 - 2011
TurkishAjan.Com/Net/Org l Turk Hack ve Güvenlik Forumları



Sitemiz; hukuka, yasalara, telif haklarına ve kişilik haklarına saygılı olmayı amaç edinmiştir. 5651 sayılı yasaya göre, site yönetiminin hukuka aykırı içerikleri kontrol etme yükümlülüğü yoktur. Bu sebeple sitemiz, "uyar ve kaldır" prensibini benimsemiştir. Yasal haklarının çiğnendiğini düşünen hak sahipleri veya meslek birlikleri abuse[at]turkishajan[dot]com mail adresinden yada İletişim bölümünden bizlere ulaşabilirler.


5, 6, 9, 12, 8, 11, 13, 14, 15, 16, 17, 18, 216, 151, 19, 328, 20, 21, 22, 23, 24, 25, 26, 27, 141, 28, 29, 30, 176, 31, 32, 33, 34, 36, 37, 38, 39, 197, 193, 192, 189, 198, 48, 49, 191, 52, 53, 54, 55, 56, 57, 190, 59, 60, 61, 62, 63, 199, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 83, 211, 85, 86, 97, 98, 179, 101, 102, 103, 104, 105, 106, 107, 110, 194, 195, 196, 188, 120, 121, 122, 271, 136, 142, 140, 143, 144, 145, 146, 147, 148, 149, 150, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 177, 178, 180, 181, 182, 183, 184, 185, 186, 187, 200, 201, 214, 215, 219, 235, 236, 270, 218, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 234, 242, 240, 269, 272, 233, 268, 247, 237, 248, 238, 239, 241, 243, 244, 245, 246, 251, 249, 250, 252, 253, 254, 255, 256, 257, 258, 321, 259, 260, 261, 262, 263, 264, 265, 266, 267, 273, 275, 277, 278, 279, 280, 281, 282, 283, 292, 317, 319, 318, 316, 310, 311, 312, 313, 314, 320, 324, 323, 326, 327,