Codebox plus

Welcome
Please register to have access to more features! It is highly recommended that you have Javascript enabled; many features will not work unless you do. The recommended browsers are Firefox and Chrome; the board is also NOT mobile-friendly. Please invite your friends! If you were referred by someone (ex. me, Jessica) please put their username in the referral box on the registration page. Ask them if you don't know their username. If you are visiting for TESTING PURPOSES ONLY, this is the test account information: Username: Test Password: test123

Welcome

Please register to have access to more features!

It is highly recommended that you have Javascript enabled; many features will not work unless you do. The recommended browsers are Firefox and Chrome; the board is also NOT mobile-friendly.

Please invite your friends!

If you were referred by someone (ex. me, Jessica) please put their username in the referral box on the registration page. Ask them if you don't know their username.

If you are visiting for TESTING PURPOSES ONLY, this is the test account information:

Username: Test
Password: test123

Codebox plus

Moderator: Jessica

Followers: 0
Favorites: 0
Views: 3882

Codebox plus

Post Number: #1 by Jessica » April 27th, 2013, 3:47 pm

[code=vb file=Untitled.txt]'Class describing the application
Public Class exploreForm

Private Sub calculateAverage(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles goBtn.Click
Dim total As Integer
Dim count As Integer
Dim calculatedAverage As Double

If IsNumeric(firstInputTB.Text) And IsNumeric(secondInputTB.Text) Then
total = CInt(firstInputTB.Text)
count = CInt(secondInputTB.Text)
If (count > 0) Then
calculatedAverage = total / count
output.AppendText(CStr(calculatedAverage) & vbCrLf)
Else
MessageBox.Show("Second value must be greater than 0")
End If
Else
output.AppendText("Enter numeric values only")

End If
End Sub
End Class[/code]