كيف يمكن أنشاء فئة داخل فيجول بيسك دوت نت ؟

ublic Class student
Private m_name As String
Private m_sid As Double
Private m_midterm As Double
Private m_final As Double

Public Property name() As String
Get
Return m_name
End Get
Set(ByVal value As String)
m_name = value

End Set
End Property
Public Property sid() As Double
Get
Return m_sid
End Get
Set(ByVal value As Double)
m_sid = value

End Set
End Property
Public Property midterm() As Double
Get
Return m_midterm
End Get
Set(ByVal value As Double)
m_midterm = value

End Set
End Property
Public Property final() As Double
Get
Return m_final
End Get
Set(ByVal value As Double)
m_final = value

End Set
End Property
Function cal() As String
Dim grade As Double

grade = (m_midterm + m_final) / 2
Select Case grade
Case Is >= 90
Return "A"
Case Is >= 80
Return "B"
Case Is >= 70
Return "C"
Case Is >= 60
Return "A"
Case Is >= 90
Return "D"
Case Else
Return "F"

End Select
End Function
End Class

Public Class Form1


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pupil As New student
pupil.midterm = TextBox3.Text
pupil.final = TextBox4.Text
TextBox5.Text = (pupil.cal)
End Sub

End Class

إعداد م / هناء مطر
معهد كوادر التنمية فرع الخرج