Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ not ] /
Makaleler-Article(s)
not ile ilgili toplam 3 makale bulundu ! (A total of 3 article(s) about not was(were) found in all of articles!)
| Article |
|---|
Geçme Notu Hesaplama
1 Vize ve Final Notuna göre harfli sisteme göre hangi notu aldığınızı, 60 geçiş notuna göre geçilip geçilmediğini gösteren program. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN | Geçme Notu Hesaplama
1 Vize ve Final Notuna göre harfli sisteme göre hangi notu aldığınızı, 60 geçiş notuna göre geçilip geçilmediğini gösteren program. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
| Öğrenci Ders Notu Hesaplama
Bu örnek te basit bir şekilde öğrencinin dersten aldığı notu hesaplayacağız.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sayi(3) As Integer
sayi(0) = InputBox("1. not girişi", "Not Girişi")
sayi(1) = InputBox("2. not girişi", "Not Girişi")
sayi(2) = (sayi(0) + sayi(1)) / 2
Select Case sayi(2)
Case Is < 50
MessageBox.Show("Üzgünüz Kaldınız. Sınav Ortalamanız: " & sayi(2))
Case Is > 50
MessageBox.Show("Tebrikler dersi geçtiniz. Sınav Ortalamanız: " & sayi(2))
End Select
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.