Visual Basic

Member 4420534 wrote:

Im just wondering now what would happen if this month has 31 days and 3 months back has only 30

Public Sub SendMessage(ByVal sTOList As String, ByVal sSubject As String, _
                            ByVal sBody As String, ByVal sCallingRoutine As String)
     Dim oMsg As New MailMessage
     With oMsg
         .From = New MailAddress("xxxxxx@xxxxx.com")
         For Each sAddr As String In Split(sTOList, ";")
             .To.Add(sAddr)
         Next
         .Priority = MailPriority.Normal
         .Subject = sSubject
         .Body = sBody
     End With
     Try
         Dim oSMTP As New SmtpClient
         oSMTP.Host = "xxxxxxxx"
         oSMTP.Send(oMsg)
     Catch ex As Exception
         MessageBox.Show("Could not send the status email message." & ControlChars.CrLf & _ ex.ToString, sCallingRoutine, MessageBoxButtons.OK, MessageBoxIcon.Stop)
     End Try
 End Sub

CompleteMessage = "The person's name" & ControlChars.CrLf & _
                       "The address" & ControlChars.crlf & ControlChars.crlf & _
                       "The remaining part of the message....................." 

Public Class Form1
Private intA As Integer
Private intB as Integer
Private intC as Integer
Private intD as Integer
Private intF as Integer

intA = 0
intB = 0

'Adam Wike
'Computer Programming 1
'Grade Counter
'Created on March 28, 2010
'Last Modified on March 30, 2010

Public Class Form1

    'Declared all variables
    Private intA As Integer
    Private intB As Integer
    Private intC As Integer
    Private intD As Integer
    Private intF As Integer
    Private intE As Integer

    'Sets the variables to 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        intA = 0
        intB = 0
        intC = 0
        intD = 0
        intF = 0
    End Sub

    'Sets up the counter and calculates the percentage for each button
    Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnA.Click
        intA = intA + 1
        lblGradea.Text = intA
        intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
        lblPassing.Text = Math.Round(intE, 2) & "%"
    End Sub

    Private Sub btnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnB.Click
        intB = intB + 1
        lblGradeb.Text = intB
        intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
        lblPassing.Text = Math.Round(intE, 2) & "%"
    End Sub

    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        intC = intC + 1
        lblGradec.Text = intC
        intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
        lblPassing.Text = Math.Round(intE, 2) & "%"
    End Sub

    Private Sub btnD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnD.Click
        intD = intD + 1
        lblGraded.Text = intD
        intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
        lblPassing.Text = Math.Round(intE, 2) & "%"
    End Sub

    Private Sub btnF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF.Click
        intF = intF + 1
        lblGradef.Text = intF
        intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
        lblPassing.Text = Math.Round(intE, 2) & "%"
    End Sub

End Class

adamwike wrote:

intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
lblPassing.Text = Math.Round(intE, 2) & "%"

Private Sub CalcIntE()
     intE = ((intA + intB + intC + intD) / (intA + intB + intC + intD + intF)) * 100
     lblPassing.Text = Math.Round(intE, 2) & "%"
End Sub

Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnA.Click        
   intA = intA + 1
   lblGradea.Text = intA        
   CalcIntE    
End Sub

adamwike wrote:

that is a lot less confusing and makes the program look less cluttered