Merhabalar Hepinize Programlaya Dün Başladım ve Yaptığım İlk Projemi İlk Sizinle Paylaşıyorum. Geçme Notu 60 Olan Karabük Üniversitesi'nin %40 Vize , %60 Final Notu Oranlarına Göre Ortalama Hesaplayan Bir Proje. Sizlerinde Oranlarınız Aynı ise İşinize Yarayabilir.
Download Linki : Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam
Tarama Sonucu : https://virusscan.jotti.org/en-US/filescanjob/dc1ubsnf7k
Kaynak Kodlarım :
Tarama Sonucu : https://virusscan.jotti.org/en-US/filescanjob/dc1ubsnf7k
Kaynak Kodlarım :
Kod:
Private Sub Command1_Click()
Dim v, f, ort, grkn, x As Integer
v = Val(Text1.Text)
f = Val(Text2.Text)
x = (60 - v * 0.4)
ort = (v * 0.4 + f * 0.6)
grkn = (x * 10) / 6
Text3.Text = ort
Text4.Text = grkn
If v > 100 Then
MsgBox " 100 Üzerinden " & v & " Alarak Bir İlki Başardınız ! ", vbOKOnly, " TEBRİKLER ! "
End If
If f > 100 Then
MsgBox " 100 Üzerinden " & f & " Alarak Bir İlki Başardınız ! ", vbOKOnly, " TEBRİKLER ! "
End If
If ort >= 60 Then
Text4.Text = f
End If
If grkn < 50 Then
Text4.Text = 50
End If
End Sub
