ملخص للفصل الثالث

[اسم العضو عيناوي]

Public Class Form1

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d As Double
a = Me.TextBox1.Text
b = Me.TextBox2.Text
c = Me.TextBox3.Text
d = a + b + c
Me.TextBox4.Text = d / 3
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text > 100 Then
MsgBox("الدرجة المدخلة اكبر من الدرجة القصوى ")
End If
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text > 100 Then
MsgBox("الدرجة المدخلة اكبر من الدرجة القصوى ")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub
End Class