Sonuçlar 1 to 1 of 1

Konu: Takdir Teşekkür ve Not Ortalaması Hesaplayan Program-Endüstriyel Otomasyon-Mekatronik

  1. #1

    Icon1 Takdir Teşekkür ve Not Ortalaması Hesaplayan Program-Endüstriyel Otomasyon-Mekatronik



    Program, şu sınırlar dahilinde çalışacaktır.
    TextBox lara girilen veriler rakam harici veriler olursa, program; Try Catch End Try bloğu ile hata mesajı verip, tüm veri giriş alanlarını temizleyecektir.
    Meslek derslerinin ortalaması ve Kültür derslerinin ortalaması farklı Label nesneleri ile gösterilecektir.
    Tüm derslerin ortalaması 50 altında ise genel not ortalaması Label arka plan rengi kırmızı olacak, Form başlığına kaldınız yazılacaktır.
    50 ile 70 arasındaki notlarda not ortalaması Label arkaplanı yeşil olacak, Form başlığına geçtiniz yazılacaktır.
    70 ile 85 arasındaki notlarda not ortalaması Label arkaplanı açık yeşil olacak, Form başlığına teşekkürle geçtiniz yazılacaktır.
    85 üstündeki notlarda ise yine farklı bir renk tercihi ve Form başlığında Takdirle geçtiniz mesajı verilecektir.
    Teşekkür alınca Teşekkür resmi, Takdir alınca Takdir resmi gösterilecek.

    Programda Label, TextBox, MsgBox(), Button, PictureBox, GroupBox nesneleri kullanılmıştır.
    MsgBox(), Beep(), Focus(), Clear(), If Else If komutları kullanılmıştır.

    Programın ekran görüntüsü aşağıdaki gibidir:




    Programın çalışması ile ilgili örnek aşağıdaki hareketli gif dosyasında görülmektedir:





    Programı çalıştıracak kodlar eklediğiniz nesnelerin değişken adlarına göre değişecektir.
    Kodlamaya yaparken veriyi doğru TextBox nesnesinden çekmeye ve Doğru Label nesnelerine yazmaya dikkat ediniz.

    Kod:
    Public Class Form1 'Form1 sınıfı oluşturuldu.
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Button1 fare tıklaması olayı ile ilgili yordam oluşturuldu.
            Try 'Hata ayıklama bloğu başlangıcı
                Dim ardisik, devtas, destciz, kontrol, hidro, sinyal, mikro, beden, din, felsefe, ingilizce, tarih, edebiyat As Double 'Double türünde ondalıklı sayıları da kapsayan değişkenler tanımlandı. Ders notları bu değişkenlerde tutulacak.
                ardisik = CDbl(TextBox1.Text) 'ardışık kontrol dersi notu çekildi.
                devtas = CDbl(TextBox2.Text) 'devre tasarımı dersi notu çekildi.
                destciz = CDbl(TextBox3.Text) 'destekli çizim dersi notu çekildi.
                kontrol = CDbl(TextBox4.Text) 'bilgisayarlı kontrol dersi notu çekildi.
                hidro = CDbl(TextBox5.Text) 'hidrolik dersi notu çekildi.
                sinyal = CDbl(TextBox6.Text) 'algılayıcılar ve sinyaller dersi notu çekildi.
                mikro = CDbl(TextBox7.Text) 'mikrodenetleyiciler notu çekildi.
                beden = CDbl(TextBox14.Text) 'beden eğitimi notu çekildi.
                din = CDbl(TextBox13.Text) 'din kültürü notu çekildi.
                felsefe = CDbl(TextBox12.Text) 'felsefe dersi notu çekildi.
                ingilizce = CDbl(TextBox11.Text) 'ingilizce dersi notu çekildi.
                tarih = CDbl(TextBox10.Text) 'tarih dersi notu çekildi.
                edebiyat = CDbl(TextBox9.Text) 'edebiyat dersi notu çekildi.
                Label19.Text = (ardisik * 6 + devtas * 3 + destciz * 4 + kontrol * 5 + hidro * 4 + sinyal * 2 + mikro * 5 + beden * 2 + din * 2 + ingilizce * 2 + tarih * 2 + felsefe * 2 + edebiyat * 5) / 44 'tüm derslerin ortalaması ilgili Label nesnesine yazıldı.
                Label16.Text = (ardisik * 6 + devtas * 3 + destciz * 4 + kontrol * 5 + hidro * 4 + sinyal * 2 + mikro * 5) / 29 'meslek dersleri ortalaması hesaplanıp yazıldı.
                Label17.Text = (beden * 2 + din * 2 + ingilizce * 2 + tarih * 2 + felsefe * 2 + edebiyat * 5) / 15 'kültür dersleri ortalaması hesaplanıp yazıldı.
                If (CDbl(Label19.Text) < 0 Or CDbl(Label19.Text) > 100) Then 'ortalama değeri 0 dan küçük veya 100 den büyük ise yapılacaklar.
                    Beep() 'uyarı sesi çıkar.
                    MsgBox("Notlarınızı yanlış girdiniz, Kontrol ediniz") 'Uyarı için mesaj göster.
                ElseIf (CDbl(Label19.Text) < 50) Then 'ortalama değeri 50 ye kadar ise.
                    Me.Text = "KALDINIZ" 'Form başlığına kaldınız yazılsın.
                    Label19.BackColor = Color.Red 'Ortalama arkaplanı kırmızı olsun.
                    PictureBox1.Visible = False 'Takdir ve Teşekkür resimlerini içeren PictureBox lar gözükmesin.
                    PictureBox2.Visible = False
                ElseIf (CDbl(Label19.Text) < 70) Then 'üstteki şart doğru değilse burası kontrol edilir. 70 e kadar notlar için.
                    Me.Text = "GEÇTİNİZ" 'Form1 başlığına geçtiniz yazılsın.
                    Label19.BackColor = Color.Green 'yukarıda açıkladık, tekrarlamıyorum. www.ilerikontrol.com
                    PictureBox1.Visible = False
                    PictureBox2.Visible = False
                ElseIf (CDbl(Label19.Text) < 85) Then 'Ortalama 70 den küçük değilse 70 e eşit ya da büyüktür. Program buraya gelince 70 dahil 85 hariç aralığı sorgulanmış olur.
                    Me.Text = "TEŞEKKÜRLE GEÇTİNİZ"
                    Label19.BackColor = Color.Orange
                    PictureBox1.Visible = False
                    PictureBox2.Visible = True 'Teşekkür mesajını içeren picture gösterildi.
                Else 'Yukarıdaki tanımlara uymuyorsa sayımız 85 ile 100 arasındadır.
                    Me.Text = "TAKDİRLE GEÇTİNİZ"
                    Label19.BackColor = Color.LightGreen
                    PictureBox1.Visible = True 'Takdir mesajı gösterilir.
                    PictureBox2.Visible = False
                End If 'If bloğu kapandı.
            Catch 'Try Catch arasında kodlarla ilgili bir sorun varsa buradan End Try' a kadar olan kısım çalışır.
                Beep() 'Uyarı sesi üretildi.
                MsgBox("Lütfen girişleri sayı türünden yapınız") 'Uyarı mesajı verildi.
                TextBox1.Clear() 'Kolaylık olsun diye TextBox lar temizlendi.
                TextBox2.Clear()
                TextBox3.Clear()
                TextBox4.Clear()
                TextBox5.Clear()
                TextBox6.Clear()
                TextBox7.Clear()
                TextBox9.Clear()
                TextBox10.Clear()
                TextBox11.Clear()
                TextBox12.Clear()
                TextBox13.Clear()
                TextBox14.Clear()
                TextBox1.Focus() 'TextBox1 e imleci taşıdık.
            End Try 'Try bloğu sonu.
        End Sub 'Button1 fare tıklaması yordamı sonu.
    End Class



    Ali Osman Sönmez Mesleki ve Teknik Anadolu Lisesi Endüstriyel Otomasyon Teknolojileri alan ve dalları için hazırlanan programı buradan indirebilirsiniz.

    Geliştirmeye açık ve en temel sürümlerden biridir. Geliştirilecek yüzlerce yönü vardır. Önerilerinizi bu konu altına yazabilirsiniz.

    Last edited by Elektronik; 05-12-18 at 21:11.

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •