VB Code Error - Overclock.net

**TheLegend** · 02-20-07

Just trying to finish an application for my Visual Systems Development class. I'm having a little trouble with the coding.

Our assignment is to design an application in which a user inputs a number of seconds and based upon the program it can decipher the number of seconds and turn them into minutes, hours and days.

I have attached the program. It's an exe, but its a demo project so don't worry about it being some virus.

Here is the actual code. When I try and debug the application, the following in bold come up as build errors.Thanks for the help guys.

Quote:

Option Explicit On
Option Strict On
Public Class MyForm

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xinputTextBox.TextChanged

End Sub

Private Sub xSecondsInputBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xSecondsTextBox.TextChanged

End Sub

Private Sub MyForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub xMinutesInputBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xMinutesTextBox.TextChanged

End Sub

Private Sub xCalcMinButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcMinButton.Click

Dim xMinutesTextBox As Integer
Dim xSecondsTextBox As Integer

'Get the user input in seconds
Integer.TryParse(xinputTextBox.Text, xSecondsTextBox)

'Convert the seconds into mintues and remaining seconds
xMinutesTextBox = CInt(xSecondsTextBox / 60)
xSecondsTextBox = xSecondsTextBox Mod 60

'Disable(xCalcMinButton)
xCalcMinButton.Enabled = False
'Enable(xCalcHourButton)
xCalcHourButton.Enabled = True

'Focus on next input box
Me.xCalcHourButton.Focus()

End Sub

Private Sub xCalcHoursButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcHourButton.Click

Dim xMinutesTextBox As Integer
Dim xHourTextBox As Integer
Dim xinputTextBox As Integer
Dim xSecondsTextBox As Integer

'Get the user input in hours
Integer.TryParse(xinputTextBox.Text, xHourTextBox)

'Convert remaining minutes into hours
xHoursTextBox = xMinutesTextBox / 60
xMinutesTextBox = CInt(xSecondsTextBox / 60)
xSecondsTextBox = xinputTextBox Mod 60

'Disable(xCalcMinButton)
xCalcMinButton.Enabled = False
'Disable(xCalcHourButton)
xCalcHourButton.Enabled = False
'Enable(xCalcDaysButton)
xCalcDaysButton.Enabled = True

'Focus on the next calc box
Me.xCalcDaysButton.Focus()
End Sub

Private Sub xCalcDaysButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcDaysButton.Click

Dim xMinutesTextBox As Integer
Dim xSecondsTextBox As Integer
Dim xHourTextBox As Integer
Dim xinputTextBox As Integer

'Get the user input in hours
Integer.TryParse(xinputTextBox.Text, xDaysTextBox)

xDaysTextBox = xHourTextBox / 24
xHoursTextBox = xMinutesTextBox / 60
xMinutesTextBox = CInt(xSecondsTextBox / 60)
xSecondsTextBox = xinputTextBox Mod 60

'Display the updated minutes and seconds
'Disable(xCalcMinButton)
xCalcMinButton.Enabled = False
'Disable(xCalcHourButton)
xCalcHourButton.Enabled = False
'Disable(xCalcDaysButton)
xCalcDaysButton.Enabled = False

'Focus on next calc box
Me.xClearButton.Focus()
End Sub

Private Sub xClearButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xClearButton.Click

'Clear screen for the Next Order
Me.xSecondsTextBox.Text = String.Empty
Me.xHoursTextBox.Text = String.Empty
Me.xDaysTextBox.Text = String.Empty
Me.xinputTextBox.Text = String.Empty

'Send Cursor to the Customer Name Box
Me.xinputTextBox.Focus()

End Sub

Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
'Exit the application
Me.Close()
End Sub
End Class