Ifgrade project (Powerpoint ifgrades)
Public Class
frmGrade
Inherits
System.Windows.Forms.Form
Private Sub btnGrade_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnGrade.Click
Dim wkGrade As Decimal
Dim wkLetterGrade As String
wkGrade = (Val(txtGrade1.Text) + Val(txtGrade2.Text) + _
Val(txtGrade3.Text) + Val(txtGrade4.Text)) / 4
MsgBox("The grade is " & CStr(wkGrade))
If wkGrade >= 90 Then
wkLetterGrade = "A"
Else
If wkGrade >= 80 Then
wkLetterGrade = "B"
Else
If wkGrade >= 70
Then
wkLetterGrade = "C"
Else
If wkGrade
>= 60 Then
wkLetterGrade = "D"
Else
wkLetterGrade = "F"
End If
End If
End If
End If
If radCIS17.Checked = True Then
txtGradeRpt.Text = "The grade for Programming:
Logic, Design and Implementation is " _
& wkLetterGrade
Else
If radCIS44.Checked = True Then
txtGradeRpt.Text = "The grade for Internet
Developer is " _
&
wkLetterGrade
Else
If radCIS50.Checked
= True Then
txtGradeRpt.Text = "The grade for Oracle
and SQL is " _
& wkLetterGrade
Else
If radCIS56.Checked
= True Then
txtGradeRpt.Text = "The grade for
Visual Basic is " _
& wkLetterGrade
Else
txtGradeRpt.Text = "No course
checked"
End If
End If
End If
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnClear.Click
radCIS17.Checked = False
radCIS44.Checked = False
radCIS50.Checked = False
radCIS56.Checked = False
txtGradeRpt.Clear()
txtGrade1.Clear()
txtGrade2.Clear()
txtGrade3.Clear()
txtGrade4.Clear()
txtName.Clear()
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
End
End Sub
End
Class
Ifelsegrade
(Powerpoint ifgrades)
Public Class
frmIfelseGrade
Inherits
System.Windows.Forms.Form
Private Sub btnGrade_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnGrade.Click
Dim wkGrade As Decimal
Dim wkLetterGrade As String
wkGrade = (Val(txtGrade1.Text) + Val(txtGrade2.Text) + _
Val(txtGrade3.Text) + Val(txtGrade4.Text)) / 4
MsgBox("The grade is " & ControlChars.CrLf
& CStr(wkGrade))
If wkGrade >= 90 Then
wkLetterGrade = "A"
ElseIf wkGrade >= 80 Then
wkLetterGrade = "B"
ElseIf wkGrade >= 70 Then
wkLetterGrade =
"C"
ElseIf wkGrade >= 60 Then
wkLetterGrade = "D"
Else
wkLetterGrade = "F"
End If
If radCIS17.Checked = True Then
txtGradeRpt.Text = "The grade for Programming: Logic,
Design and Implementation is " _
& wkLetterGrade
ElseIf radCIS44.Checked = True Then
txtGradeRpt.Text = "The grade for Internet
Developer is " _
& wkLetterGrade
ElseIf radCIS50.Checked = True Then
txtGradeRpt.Text = "The grade for Oracle and SQL
is " _
& wkLetterGrade
ElseIf radCIS56.Checked = True Then
txtGradeRpt.Text = "The grade for Visual Basic is
" _
& wkLetterGrade
Else
txtGradeRpt.Text = "No course checked"
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnClear.Click
radCIS17.Checked = False
radCIS44.Checked = False
radCIS50.Checked = False
radCIS56.Checked = False
txtGradeRpt.Clear()
txtGrade1.Clear()
txtGrade2.Clear()
txtGrade3.Clear()
txtGrade4.Clear()
txtName.Clear()
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
End
End Sub
End Class
Case1 project (Powerpoint ifgrades)
Public Class
frmCase
Inherits
System.Windows.Forms.Form
Private Sub btnGrade_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnGrade.Click
Dim wkGrade As Decimal
Dim wkLetterGrade As String
wkGrade = (Val(txtGrade1.Text) + Val(txtGrade2.Text) + _
Val(txtGrade3.Text) + Val(txtGrade4.Text)) / 4
MsgBox("The grade is " & ControlChars.CrLf
& CStr(wkGrade))
Select Case wkGrade
Case Is >= 90
wkLetterGrade = "A"
Case Is >= 80
wkLetterGrade = "B"
Case Is >= 70
wkLetterGrade = "C"
Case Is >= 60
wkLetterGrade = "D"
Case Else
wkLetterGrade = "F"
End Select
If radCIS17.Checked = True Then
txtGradeRpt.Text = "The grade for Programming:
Logic, Design and Implementation is " _
& wkLetterGrade
ElseIf radCIS44.Checked = True Then
txtGradeRpt.Text = "The grade for Internet
Developer is " _
& wkLetterGrade
ElseIf radCIS50.Checked = True Then
txtGradeRpt.Text = "The grade for Oracle and SQL
is " _
& wkLetterGrade
ElseIf radCIS56.Checked = True Then
txtGradeRpt.Text = "The grade for Visual Basic is
" _
& wkLetterGrade
Else
txtGradeRpt.Text = "No course checked"
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnClear.Click
radCIS17.Checked = False
radCIS44.Checked = False
radCIS50.Checked = False
radCIS56.Checked = False
txtGradeRpt.Clear()
txtGrade1.Clear()
txtGrade2.Clear()
txtGrade3.Clear()
txtGrade4.Clear()
txtName.Clear()
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
End
End Sub
End Class
Ifgradesvalidation (Powerpoint ifgrades)
Public Class
frmGradeVal
Inherits
System.Windows.Forms.Form
Private Sub btnGrade_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnGrade.Click
Dim wkGrade As Decimal
Dim wkLetterGrade As String
wkGrade = (Val(txtGrade1.Text) + Val(txtGrade2.Text) + _
Val(txtGrade3.Text) + Val(txtGrade4.Text)) / 4
MsgBox("The grade is " & CStr(wkGrade))
If wkGrade >= 90 Then
wkLetterGrade = "A"
Else
If wkGrade >= 80 Then
wkLetterGrade = "B"
Else
If wkGrade >= 70
Then
wkLetterGrade = "C"
Else
If wkGrade
>= 60 Then
wkLetterGrade = "D"
Else
wkLetterGrade = "F"
End If
End If
End If
End If
If radCIS17.Checked = True Then
txtGradeRpt.Text = "The grade for Programming:
Logic, Design and Implementation is " _
& wkLetterGrade
Else
If radCIS44.Checked = True Then
txtGradeRpt.Text = "The grade for Internet
Developer is " _
& wkLetterGrade
Else
If radCIS50.Checked
= True Then
txtGradeRpt.Text = "The grade for Oracle
and SQL is " _
& wkLetterGrade
Else
If
radCIS56.Checked = True Then
txtGradeRpt.Text = "The grade for
Visual Basic is " _
& wkLetterGrade
Else
txtGradeRpt.Text = "No course
checked"
End If
End If
End If
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnClear.Click
radCIS17.Checked = False
radCIS44.Checked = False
radCIS50.Checked = False
radCIS56.Checked = False
txtGradeRpt.Clear()
txtGrade1.Clear()
txtGrade2.Clear()
txtGrade3.Clear()
txtGrade4.Clear()
txtName.Clear()
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnEnd.Click
End
End Sub
Private Sub btnValidate_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnValidate.Click
Dim wkAns As Integer
If txtName.TextLength = 0 Then
MessageBox.Show("Please enter name",
"Name Missing", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
If Val(txtGrade1.Text) <
1 Or Val(txtGrade1.Text) > 100 Then
MessageBox.Show("First grade not numeric or
outside range", "Grade", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
End If
If Val(txtGrade2.Text) <
1 Or Val(txtGrade2.Text) > 100 Then
wkAns = MessageBox.Show("Second grade not numeric
or outside range", "Grade", MessageBoxButtons.OKCancel)
If wkAns = DialogResult.OK Then
MessageBox.Show("You entered OK")
Else
MessageBox.Show("You cancelled")
End If
End If
If Val(txtGrade3.Text) >
0 And Val(txtGrade3.Text) < 101 Then
MessageBox.Show("Third OK")
Else
MessageBox.Show("Third grade not numeric or
outside range")
End If
If
IsNumeric(txtGrade4.Text) Then
If Val(txtGrade4.Text)
> 0 And Val(txtGrade4.Text) < 101 Then
MessageBox.Show("Fourth OK")
Else
MessageBox.Show("Fourth grade outside range")
End If
Else
MessageBox.Show("Fouth grade not numeric")
End If
End Sub
End Class
Otherif project (Powerpoint ifgrades)
Public Class
frmOtherIf
Inherits
System.Windows.Forms.Form
Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProcess.Click
Dim wkCt As Integer
Dim wkTest As Boolean
If chkNE.Checked = True Then
wkCt = wkCt + 1
End If
If chkSouth.Checked = True Then
wkCt = wkCt + 1
End If
If chkMW.Checked = True Then
wkCt = wkCt + 1
End If
If chkWest.Checked = True Then
wkCt = wkCt + 1
End If
If wkCt > 2 Then
wkTest = True
Else
wkTest = False
End If
If wkTest Then
lblMsg.Text = "Not regional in outlook"
Else
lblMsg.Text = ""
End If
End Sub
Private Sub btnMathTest_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnMathTest.Click
Dim v As Integer = 10
Dim w As Integer = 2
Dim x As Integer = 6
Dim y As Integer = 3
Dim z As Integer = 5
Dim wkTest As Boolean
If (v + z) / y > x ^ w -
y * v Then
wkTest = True
Else
wkTest = False
End If
MsgBox((v + z) / y)
MsgBox(x ^ w - y * v)
If Not
wkTest Then
lblMathTest.Text = "(v + z) / y > x ^ w + y * v
reads as 5 > 6 which is false "
Else
lblMathTest.Text = "Was true"
End If
End Sub
End Class