Hoş Geldin, Mühendis!

Tüm mühendislerin ve mühendis adaylarının yer aldığı forum sayfamıza kayıt olmalısınız. Kayıt olduktan sonra tüm ders notlarına, teknik dokümanlara erişim sağlayabilecek, sorularınızı sorup cevaplar verebileceksiniz. Sitemiz tamamiyle ücretsiz olmakla birlikte Mühendis Puanı sistemi uygulamaktadır.

Bilgi paylaştıkça çoğalır.

Premium Abonelik 📢

Premium abonelik ile sitemizi reklamsız gezebilir, dosyaları sınırsızca indirebilirsiniz.

Daha Fazlası

[Muhendisiz.NET] Tekrar Sizlerleyiz! 🎭

Mühendisiz.NET sitesi forum ve blog sayfası olarak tekrar yayın hayatına başladı. 🤩 Sizlerde forum sayfamıza üye olabilir ve mühendis topluluğumuza katılabilirsiniz.

Daha Fazlası

Mühendis Puanı Sistemi🏆

Bilgi paylaştıkça çoğalır felsefesini benimsemiş olmamız nedeniyle Mühendis Puanı sistemini uygulamaya aldık. Dökümanları indirebilmek için bazı paylaşımlarda bulunmalısınız. 📨

Daha Fazlası
  • Dosya indirebilmek için 2 Mühendis Puanına ihtiyacınız var. Konuya yorum atarak 1 MP Not paylaşarak 6 MP kazanırsınız.
    Bilgi Paylaştıkça Çoğalır. (Mühendislik Puanı (MP) Nedir?)
  • Mühendis Puanı kazanmaya vakti olmayanlar için ücretli premium üyelik sistemi aktif edilmiştir.
    (Premium Üyelik SATIN AL)

Visual Basic DateTimePicker İle Burçları Bulan Program

turkmedia

Moderatör
Katılım
8 Ara 2022
Mesajlar
760
Mühendis Puanı
1,612
Kod:
Public Class Form1
    Dim gun, ay As Integer
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

        gun = DateTimePicker1.Value.Day 'Sadece gün bilgisi alınıyor.
        ay = DateTimePicker1.Value.Month 'Sadece ay bilgisi alınıyor.

      

        If (ay = 12 And gun >= 23) Or (ay = 1 And gun <= 20) Then
            TxtBurc.Text = "OĞLAK"
            PictureBox1.ImageLocation = "oglak.jpg"
        End If

        If (ay = 9 And gun >= 22) Or (ay = 10 And gun <= 23) Then
            TxtBurc.Text = "TERAZİ"
            PictureBox1.ImageLocation = "terazi.jpg"
        End If

        If (ay = 1 And gun >= 21) Or (ay = 2 And gun <= 19) Then
            TxtBurc.Text = "KOVA"
            PictureBox1.ImageLocation = "kova.jpg"
        End If

        If (ay = 2 And gun >= 20) Or (ay = 3 And gun <= 20) Then
            TxtBurc.Text = "BALIK"
            PictureBox1.ImageLocation = "balik.jpg"
        End If

        'www.tasarimkodlama.com

        If (ay = 3 And gun >= 21) Or (ay = 4 And gun <= 20) Then
            TxtBurc.Text = "KOÇ"
            PictureBox1.ImageLocation = "koc.jpg"
        End If

        If (ay = 4 And gun >= 21) Or (ay = 5 And gun <= 21) Then
            TxtBurc.Text = "BOĞA"
            PictureBox1.ImageLocation = "boga.jpg"
        End If

        If (ay = 5 And gun >= 22) Or (ay = 6 And gun <= 21) Then
            TxtBurc.Text = "İKİZLER"
            PictureBox1.ImageLocation = "ikizler.jpg"
        End If

        If (ay = 6 And gun >= 22) Or (ay = 7 And gun <= 23) Then
            TxtBurc.Text = "YENGEÇ"
            PictureBox1.ImageLocation = "yengec.jpg"
        End If

        

        If (ay = 7 And gun >= 24) Or (ay = 8 And gun <= 23) Then
            TxtBurc.Text = "ASLAN"
            PictureBox1.ImageLocation = "aslan.jpg"
        End If

        If (ay = 8 And gun >= 24) Or (ay = 9 And gun <= 23) Then
            TxtBurc.Text = "BAŞAK"
            PictureBox1.ImageLocation = "basak.jpg"
        End If

        If (ay = 10 And gun >= 23) Or (ay = 11 And gun <= 22) Then
            TxtBurc.Text = "AKREP"
            PictureBox1.ImageLocation = "akrep.jpg"
        End If

        

        If (ay = 11 And gun >= 23) Or (ay = 12 And gun <= 22) Then
            TxtBurc.Text = "YAY"
            PictureBox1.ImageLocation = "yay.jpg"
        End If

    End Sub
End Class
 

Son kaynaklar