karne ort.sı blmak için acil vb. kodları lazım yardım pleaseé!!!

[ramaqan]

1. ve 2. sınav notlarını girip ortalamayı bir labelde gösteren programın kodları lütfen çok acil yardım!!!

[Nordkapp]

Hayirdir kardes sinavda falan misin?

Suna bi bak bakalim, isine yarayacak mi? Degistirecegin yerler olabilir. Din kulturu falan yaziyor. Oralari kendine gore degistirsin...

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Din Kültürü" Then
TextBox3.Visible = False
End If
If ComboBox1.Text = "Görsel Prg" Then
TextBox3.Visible = True
End If
If ComboBox1.Text = "Veri Tabanı" Then
TextBox3.Visible = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "Din Kültürü" Then
hesapla = (Val(TextBox1.Text + Val(TextBox2.Text)) / 2)
TextBox4.Text = hesapla

ElseIf ComboBox1.Text = "Görsel Prg" Then
hesapla = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
TextBox4.Text = hesapla
ElseIf ComboBox1.Text = "Veri Tabanı" Then
hesapla = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
TextBox4.Text = hesapla
End If
If hesapla < 45 Then
Label1.Text = "kaldı"

End If
End Sub
End Class

[ramaqan]

ya kardeşim çok saolasın inan işime çok yaradı bi proje ödevi hazırlamam gerekiyodu ama zman bulamadım yardımın için çok teşekür ederim emeğine sağlık...

[BySauron]

Benim de işime yaradı teşekkürler

[Nordkapp]

Rica ederim, sizde sagolun...