I need to write code in Visual Basics 2012 for a grading system. I can do most of it but I don't know how to make it see missing grades. Also when they fail a grade the background turns red but when I clear the boxes it stays red this is my clear:

Question

I need to write code in Visual Basics 2012 for a grading system. I can do most of it but I don't know how to make it see missing grades. Also when they fail a grade the background turns red but when I clear the boxes it stays red this is my clear:

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
Test1.Clear()
Test2.Clear()
Quiz1.Clear()
Quiz2.Clear()
Quiz3.Clear()
Assignment1.Clear()
Assignment2.Clear()
Assignment3.Clear()
Assignment4.Clear()
Assignment5.Clear()

Thanks

Answer 1

To check for missing grades in your grading system, you can use conditional statements to determine if any of the grade text boxes are empty. Here's an example of how you can implement this in your code:

1. Create a function called "CheckForMissiades()" that returns a Boolean value indicating whether there are any missing grades.

Private Function CheckForMissiades() As Boolean
If String.IsNullOrEmpty(Test1.Text) OrElse String.IsNullOrEmpty(Test2.Text) OrElse String.IsNullOrEmpty(Quiz1.Text) OrElse
String.IsNullOrEmpty(Quiz2.Text) OrElse String.IsNullOrEmpty(Quiz3.Text) OrElse
String.IsNullOrEmpty(Assignment1.Text) OrElse String.IsNullOrEmpty(Assignment2.Text) OrElse
String.IsNullOrEmpty(Assignment3.Text) OrElse String.IsNullOrEmpty(Assignment4.Text) OrElse
String.IsNullOrEmpty(Assignment5.Text) Then
Return True
End If
Return False
End Function

2. In the button click event handler where you perform the grading calculations, before calculating the final grade, call the "CheckForMissiades()" function. If it returns True, display a message to the user indicating that there are missing grades.

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
If CheckForMissiades() Then
MessageBox.Show("Please enter all grades before calculating the final grade.", "Missing Grades", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return
End If

' Perform your grading calculations here...
' ...
End Sub

To change the background color to red when a student fails a grade, you can set the BackColor property of the grade text boxes accordingly. Here's an example of how you can update your clear button click event handler to reset the background color:

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
' Clear the text boxes
Test1.Clear()
Test2.Clear()
Quiz1.Clear()
Quiz2.Clear()
Quiz3.Clear()
Assignment1.Clear()
Assignment2.Clear()
Assignment3.Clear()
Assignment4.Clear()
Assignment5.Clear()

' Reset the background color of the text boxes
Test1.BackColor = SystemColors.Window
Test2.BackColor = SystemColors.Window
Quiz1.BackColor = SystemColors.Window
Quiz2.BackColor = SystemColors.Window
Quiz3.BackColor = SystemColors.Window
Assignment1.BackColor = SystemColors.Window
Assignment2.BackColor = SystemColors.Window
Assignment3.BackColor = SystemColors.Window
Assignment4.BackColor = SystemColors.Window
Assignment5.BackColor = SystemColors.Window
End Sub

By setting the BackColor property of the text boxes to SystemColors.Window, you can restore the default background color for those text boxes.

Answer 2

To check for missing grades in your grading system, you can use an if statement to check if any of the grade text boxes are empty. Here's how you can modify your code to achieve this:

```vb
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
Test1.Clear()
Test2.Clear()
Quiz1.Clear()
Quiz2.Clear()
Quiz3.Clear()
Assignment1.Clear()
Assignment2.Clear()
Assignment3.Clear()
Assignment4.Clear()
Assignment5.Clear()

' Check if any of the grade text boxes are empty
If String.IsNullOrEmpty(Test1.Text) Or String.IsNullOrEmpty(Test2.Text) Or
String.IsNullOrEmpty(Quiz1.Text) Or String.IsNullOrEmpty(Quiz2.Text) Or
String.IsNullOrEmpty(Quiz3.Text) Or String.IsNullOrEmpty(Assignment1.Text) Or
String.IsNullOrEmpty(Assignment2.Text) Or String.IsNullOrEmpty(Assignment3.Text) Or
String.IsNullOrEmpty(Assignment4.Text) Or String.IsNullOrEmpty(Assignment5.Text) Then

' Display a message to the user indicating missing grades
MessageBox.Show("Please enter all grades.", "Missing Grades", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If
End Sub
```

This code checks if any of the grade text boxes (`Test1`, `Test2`, `Quiz1`, `Quiz2`, `Quiz3`, `Assignment1`, `Assignment2`, `Assignment3`, `Assignment4`, `Assignment5`) are empty using the `String.IsNullOrEmpty` function. If any of the text boxes is empty, it displays a message box notifying the user to enter all grades.

To change the background color to red when a grade fails, you can set the `BackColor` property of the text boxes to the desired color. Here's an example:

```vb
' Assuming a passing grade is 60
Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
Dim minimunPassiade As Integer = 60

' Check each grade and set the background color accordingly
If Integer.TryParse(Test1.Text, test1Grade) AndAlso test1Grade < minimunPassiade Then
Test1.BackColor = Color.Red
Else
Test1.BackColor = SystemColors.Window
End If

' Repeat the above steps for other grade text boxes
End Sub
```

In this code, you first define a minimum passing grade (`minimumPassiade`) as 60. You then use `Integer.TryParse` to convert the text in each grade text box to an integer (`test1Grade` in this example) and check if it is less than the minimum passing grade. If it is, you set the `BackColor` property of the text box to red. Otherwise, you set it back to the default (`SystemColors.Window`). Repeat these steps for all the other grade text boxes.