Thank you Klaus,
I think i have made the main changes as suggested however still getting the same error at; gal = litres / factor.
I have not used the 'numberformat' yet as i don't quite understand the format.
Richard
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim title As Label
Dim litres As EditText
Dim miles As EditText
Dim calc As Button
Dim answer As Label
Dim factor As Double 'Variables for calculation'
Dim ltr As Double
Dim gal As Double
Dim mls As Double
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.Initialize("mpgcalc")
title.Initialize("") 'Title set up'
title.Color=Colors.Yellow
title.TextSize=25
title.TextColor=Colors.Black
title.Gravity=Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
title.Text="MPG CALCULATOR"
litres.Initialize("litres") 'litres user entry EDITTEXT'
litres.Color=Colors.White
litres.TextSize=25
litres.TextColor=Colors.Black
litres.Gravity=Gravity.LEFT
litres.InputType = litres.INPUT_TYPE_NUMBERS
miles.Initialize("miles") 'miles user entry EDITTEXT'
miles.Color=Colors.White
miles.TextSize=25
miles.TextColor=Colors.Black
miles.Gravity=Gravity.LEFT
miles.InputType = miles.INPUT_TYPE_NUMBERS
calc.initialize("calc") 'Set up button to start calculation'
calc.Color=Colors.Yellow
calc.TextSize=35
calc.TextColor=Colors.Black
calc.Gravity=Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
calc.Text = "Click to calculate MPG"
answer.initialize("answer") 'Set up label answer for result'
answer.color=Colors.White
answer.TextSize=25
answer.TextColor=Colors.Black
answer.Gravity=Gravity.LEFT
'initialize.layout(mpgcalc.bal) 'Create the view'
Activity.AddView(title,20%x, 10dip, 60%x, 45dip)
Activity.AddView(litres, 250dip, 100dip, 100dip, 40dip)
Activity.AddView(miles, 250dip, 200dip, 100dip, 40dip)
Activity.AddView(calc, 250dip, 350dip, 400dip, 90dip)
Activity.AddView(answer,250dip, 500dip, 200dip, 40dip)
End Sub
Sub litres_EnterPressed 'Sets up conversion factor and converts to gallons
factor = 4.45
'ltr = litres
gal = litres / factor
End Sub
Sub miles_EnterPressed ' Sets miles as integer'
mls = miles
End Sub
Sub calc_click 'Calculates the mpg and displays in label answer'
Dim result As Double
result = mls / gal
answer.Text = "Your miles per gallon was " & result
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub