Public Class
frmInv
Inherits
System.Windows.Forms.Form
Dim objInv
As ClassInv
Private Sub
btnRecv_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnRecv.Click
Dim intOnHand As Integer
Dim intOnOrder As Integer
Dim intReceive As Integer
Dim intUpdtOnHand As Integer
Dim intUpdtOnOrder As Integer
intOnHand = CStr(txtOnHand.Text)
intOnOrder = CStr(txtOnOrder.Text)
intReceive = CStr(txtReceive.Text)
objInv = New ClassInv(intOnHand, intOnOrder)
intUpdtOnHand = objInv.CalcOnHand(intReceive)
intUpdtOnOrder = objInv.CalcOnOrder(intReceive)
txtUpdtOnHand.Text = CStr(intUpdtOnHand)
txtUpdtOnOrder.Text = CStr(intUpdtOnOrder)
End Sub
Public Class
ClassInv
Private m_onhand As Integer
Private m_onorder As Integer
Public Sub
New(ByVal
s_onhand As Integer,
ByVal s_onorder As
Integer)
OnHand = s_onhand 'invokes OnHand Set accessor
OnOrder = s_onorder 'invokes
OnOrder Set accessor
End Sub
Public Property
OnHand() As Integer
Get
Return m_onhand
End Get
Set(ByVal Value As Integer)
m_onhand = Value
End Set
End Property
Public Property
OnOrder() As Integer
Get
Return m_onorder
End Get
Set(ByVal Value As Integer)
m_onorder = Value
End Set
End Property
Function CalcOnHand(ByVal s_receive As Integer) As Integer
m_onhand = m_onhand + s_receive
Return m_onhand
End Function
Function CalcOnOrder(ByVal s_receive As Integer) As Integer
m_onorder = m_onorder - s_receive
Return m_onorder
End Function
End Class
Public Class
frmInv
Inherits
System.Windows.Forms.Form
Dim objInv As ClassInv
Private Sub
btnRecv_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnRecv.Click
Dim intOnHand As Integer
Dim intOnOrder As Integer
Dim intReceive As Integer
Dim intUpdtOnHand As Integer
Dim intUpdtOnOrder As Integer
intOnHand = CStr(txtOnHand.Text)
intOnOrder = CStr(txtOnOrder.Text)
intReceive = CStr(txtReceive.Text)
objInv = New ClassInv(intOnHand,
intOnOrder)
objInv.ReceiveInv(intReceive)
intUpdtOnHand = objInv.OnHand 'using Get of OnHand
intUpdtOnOrder = objInv.OnOrder 'using Get of OnOrder
txtUpdtOnHand.Text = CStr(intUpdtOnHand)
txtUpdtOnOrder.Text = CStr(intUpdtOnOrder)
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnExit.Click
End
End Sub
End
Class
Public Class
ClassInv
Private m_onhand As Integer
Private m_onorder As Integer
Public Sub
New(ByVal
s_onhand As Integer,
ByVal s_onorder As
Integer)
OnHand = s_onhand 'invokes OnHand Set accessor
OnOrder = s_onorder 'invokes
OnOrder Set accessor
End Sub
Public Property
OnHand() As Integer
Get
Return m_onhand
End Get
Set(ByVal Value As Integer)
m_onhand = Value
End Set
End Property
Public Property
OnOrder() As Integer
Get
Return m_onorder
End Get
Set(ByVal Value As Integer)
m_onorder = Value
End Set
End Property
Sub ReceiveInv(ByVal s_receive As Integer)
m_onhand = m_onhand + s_receive
m_onorder = m_onorder - s_receive
End Sub
End Class
Public Class
frmStuGrade
Inherits
System.Windows.Forms.Form
Dim
objStuGrade As ClassStuGrade
Private Sub
btnCalcFinalGrade_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCalcFinalGrade.Click
Dim intGrade1 As Integer
Dim intGrade2 As Integer
Dim intGrade3 As Integer
Dim intAverage As Integer
Dim strName As String
strName = InputBox("Student Name",
"Enter")
intGrade1 = CInt(txtGrade1.Text)
intGrade2 = CInt(txtGrade2.Text)
intGrade3 = CInt(txtGrade3.Text)
objStuGrade = New
ClassStuGrade(strName)
objStuGrade.CalcFinalGrade(intGrade1, intGrade2, intGrade3)
intAverage = objStuGrade.Average
txtAverage.Text = CStr(intAverage)
txtFinalGrade.Text = objStuGrade.FinalGrade
txtName.Text = objStuGrade.StuName
End Sub
End
Class
Public Class
ClassStuGrade
Private m_stuname As String
Private m_average As Integer
Private m_finalgrade As String
Public
Sub New(ByVal s_stuname As String)
StuName = s_stuname
'invokes StuName Set accessor
End Sub
Public Property
StuName() As String
Get
Return m_stuname
End Get
Set(ByVal Value As String)
m_stuname =
Value
End Set
End Property
Public Property
Average() As Integer
Get
Return m_average
End Get
Set(ByVal Value As Integer)
m_average = Value
End Set
End Property
Public Property
FinalGrade() As String
Get
Return m_finalgrade
End Get
Set(ByVal Value As String)
m_finalgrade = Value
End Set
End Property
Sub CalcFinalGrade(ByVal s_grade1 As Integer, ByVal s_grade2
As Integer, ByVal s_grade3 As Integer)
m_average = CInt((s_grade1
+ s_grade2 + s_grade3) / 3)
If m_average >= 90 Then
m_finalgrade = "A"
Else
If m_average >= 80 Then
m_finalgrade = "B"
Else
If m_average >=
70 Then
m_finalgrade = "C"
Else
If m_average
>= 60 Then
m_finalgrade = "D"
Else
m_finalgrade = "F"
End If
End If
End If
End If
End Sub
End Class
Public Class
frmTimer
Inherits
System.Windows.Forms.Form
Dim mobjTimer As Timer
Private Sub
cmdNum1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum1.Click
lblShow.Text &= "1"
End Sub
Private Sub cmdNum2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum2.Click
lblShow.Text &=
"2"
End Sub
Private Sub cmdNum3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum3.Click
lblShow.Text &= "3"
End Sub
Private Sub cmdNum4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum4.Click
lblShow.Text &= "4"
End Sub
Private Sub cmdNum5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum5.Click
lblShow.Text &= "5"
End Sub
Private Sub cmdNum6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum6.Click
lblShow.Text &= "6"
End Sub
Private Sub cmdNum7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum7.Click
lblShow.Text &=
"7"
End Sub
Private Sub cmdNum8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum8.Click
lblShow.Text &= "8"
End Sub
Private Sub cmdNum9_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum9.Click
lblShow.Text &= "9"
End Sub
Private Sub cmdNum0_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdNum0.Click
lblShow.Text &= "0"
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdClear.Click
lblShow.Text = ""
txtShowCount.Text = ""
lblMsg.Text = ""
End Sub
Private Sub cmdProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmdProc.Click
Dim intMinute As Integer
Dim i As Integer
intMinute = Convert.ToInt32(lblShow.Text)
'mobjTimer = New Timer(intMinute)
mobjTimer = New Timer
mobjTimer.Minutes = intMinute
For i = 1 To mobjTimer.Minutes
txtShowCount.Text &= i & " "
Next
lblMsg.Text = "Finished"
End Sub
End
Class
Public Class
Timer
Dim mintMinutes As Integer
'Public Sub New(ByVal minutesVal As
Integer)
Public Sub
New()
'mintMinutes = minutesVal
'Minutes = minutesVal
'Minutes = mintMinutes
End Sub
Public Property
Minutes() As Integer
Get
Return mintMinutes
End Get
Set(ByVal minsValue As Integer)
If minsValue > 60 Then
mintMinutes = 60
Else
mintMinutes = minsValue
End If
End Set
End Property
End Class