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
En son Nordkapp tarafından düzenlenmiştir: 08.02.2010 12:37
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...