Get help for (Mobile application to calculate distance)

Help for data validation

Page 1 of 1

0 Replies - 2144 Views - Last Post: 08 October 2007 - 07:31 AM Rate Topic: -----

#1 pourya5261  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 27-September 07

Get help for (Mobile application to calculate distance)

Post icon  Posted 08 October 2007 - 07:31 AM

[attachment=5191:attachment]Hi every body:
It is my first time, using this forum:
I have a project: it has too be smart device application , using loop to get entry and if the entry is not numeric give an error,and if the number of entry is also more than 20 , it has to give another error,....
my loop works well, calculation is ok.
but my data validation has problem, i was working near 7 hours but i could not figure out.
i was wondering if you can help me....
(the application has to get speed and hours of travel, and has to show the distance in each hour)
here are my codes

'Author : Pouria Norasteh
'Date: 10-06-2007
'Program to calculate the distance in each hour

Public Class Form1

	Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
	End Sub

	Private Sub btncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalculate.Click
		Dim decspeed As Integer
		Dim inthours As Integer
		Dim dblanswer As Double
		Dim intindex As Integer
		Dim intstart As Integer = 1

		decspeed = Me.txtvehiclespeed.Text()
		decspeed = Convert.ToString(decspeed)
		inthours = Me.txtboxnumberofhours.Text()
		inthours = Convert.ToString(inthours)
		If Not IsNumeric(decspeed) Or Not IsNumeric(inthours) Then

			MessageBox.Show("Wrong Entry", "Enter a Positive Number")
			Me.txtvehiclespeed.Text = ""
			Me.txtboxnumberofhours.Text = ""

		End If

		If inthours > 20 Or inthours = 0 Then
			MessageBox.Show("Enter a Positive Number less than 20", "Wrong Entry")

			Me.txtboxnumberofhours.Text = ""
			Me.txtvehiclespeed.Text = ""
			Me.lsttxtLstbox.Visible = False

		End If

		For intindex = intstart To inthours
			dblanswer = (intindex) * (decspeed)

			Me.lsttxtLstbox.Items.Add("Hour" & intindex & " = " & dblanswer)
		Me.btncalculate.Enabled = False
		Me.lblnumberofhours.Enabled = False
		Me.lblspeed.Enabled = False
		Me.lsttxtLstbox.Enabled = True

	End Sub

	Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
		Me.txtboxnumberofhours.Text = ""
		Me.txtvehiclespeed.Text = ""
		Me.btncalculate.Enabled = True
		Me.lblspeed.Enabled = True
		Me.lblnumberofhours.Enabled = True
		Me.lblnumberofhours.Visible = True

	End Sub
End Class

Is This A Good Question/Topic? 0
  • +

Page 1 of 1