Final ve Vize Notlarının Hesaplanması

Bu dersimizde final ve vize notlarımızı hesaplayan bir program yazacağız.

Bu dersimizde final ve vize notlarımızı hesaplayan bir program yazacağız.

Aşagıdaki kodları oluşturduğunuz butonun içine de yazabilrsiniz.

Ben butonun içine yazdıgım için command_click kodu yerleşmiştir. Siz isterseniz direkt olarak formun içine de yazabilirsiniz.


Private Sub Command2_Click()

Dim V, y, f

V = InputBox("Lütfen Vize Notunuzu Giriniz", "vize notunuz", "0")

f = InputBox("Lütfen Final Notunuzu Giriniz", "final notunuz", "0")

y = (V * 0.3) + (f * 0.7)

MsgBox y

Select Case y

Case 0: MsgBox (" Hiç birşey bilmiyorsun")

Case 1 To 24: MsgBox (" Kötü")

Case 25 To 44: MsgBox ("Çok iyi Değil")

Case 45 To 54: MsgBox (" Geçer")

Case 55 To 69: MsgBox ("Fena Değil")

Case 70 To 84: MsgBox (" İyi")

Case 85 To 100: MsgBox ("Çok iyisin")

Case Else: MsgBox ("Yanlış veya geçersiz not girdiniz")

End Select

End Sub

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

ya bunu notbed emi yazcaz bilmiyom af görün
yok hayır bu çalışma visual basic de hazırlanmıştır.visiual basicde yapılır
ya biz okulda excell üzerinden visual basic görüyoruz.daha farklı gibi geldi bana.mesela dim v,y,f as integer tarzında tanımlamalar yapıyoruz.neden böyle farklı
yorumumun geldiğinden şüpheliyim ama...
arkadaşlar benim küçük bir sorum olacakta ben bu exelde hücreler arası toplama yapacağım ama exelde bir button olacak butona tıkladığım zaman bana toplamını söyliyecek bu konuda bana yardımcı olursanız sevinirim
güzel ama excel ile iki satırlık kod gerek yok program yazmaya bunun için :)
V = InputBox("Lütfen Vize Notunuzu Giriniz", "vize notunuz", "0") şu kodu öğrendiğim iyi oldu. en sona "0" yazınca rakam girmeden ilk başta 0 gözüküyomuş.Çok teşekkürler :D
mrblar gerçekten ellerinize sağlık çok güzel olmuş.yanlız bnm sizden bi ricam olacaktı. şimdi ben yıl sonu projesi yapmaktayım vbde. ve textbox'ta metin girilmesi gereken yere kullanıcı sayı girerse uyarı versin.bide sayı girilmesi gerekn yere sayı girildiğinde uyarı verilmesi isteniyor. bana bu konuda yardımcı olursanız gerçekten çok sevinirim. şimdiden tşkler.iyi akşmlar:)
kimse yardım etmeyecekmi.. :(
} protected void Button1_Click(object sender, EventArgs e) { int vize = Convert.ToInt16(TextBox1.Text); int final = Convert.ToInt16(TextBox2.Text); Label1.Text = ( vize *0.4 + final *0.6).ToString(); } [b] BİDE BUNU DENEYİN :)[/b][b][/b]

Yukarı Git