Real Basic Function problems

[colsie]

Hello all, it has been a while since I have posted here. Recently I purchased real basic and began programming in it today, the move from VB to RB should be easy I have been told and so far it has been easy then I encountered writing a function. The program I was asked to develop was fairly simple take in data, validate the data and then have it worked out using length*breadth*height/pupils.

My problem is basically End Function doe snot end the function instead I am told "Not found exception". I am sorry if this post seems a bit over the place.

Here is my coding:

Dim height As Single
Dim length As Single
Dim breadth As Single
Dim volume As Single
Dim airspace As Single
Dim studnets_allowed As Integer

height = getValidNumber (2, 5)
length = get ValidNumber (4, 10)
breadth = getValidNumber (4, 10)
airspace = GetValidResponse

volume = height * length * breadth
students_allowed = Int (volume / airspace)

MsgBox ("Students allowed " & students_allowed)

End Sub

Function getValidNumber (Min, Max As Single) As Single
Dim Num As Single
Dim NumberOK As Boolean
NumberOK = false
Do
Num = InputBox("Enter a number between " & Min & " and " & Max
If Num >= Min and Num <= Mac Then NumberOK = True
If Not NumberOK Then MsgBox ("That was not in the valid range")
Loop until NumberOK
getValidNumber = Num
End Function

Function GetValidResponse()As String
Dim response As Single
Dim responseOK As Single
responseOK = False
Do
response = InputBox 9"Airspace per student . Either 2.1 or 3.2")
If (response) = "2.1" Or (response) = "3.2" Then responseOK = True
If Not responseOK Then MsgBox 9"That was not a valid amount of airspace ")
Loop Until responseOK = True
GetValidResponse = response
End Function


I ahve place the coding which has been creating the difficulty in question in bold.

All assistance offered would be great.

Thanks,
Colin

[jp140768]

Hi, you've probably solved this by now but just in case.........

First of all I'm about to start using Real Basic, so am no expert but in your second function, your InputBox line had a 9 instead of an open bracket - is this a typo, or could this be your problem? Same with the MSGBOX line.

The other thing I notice is that you have defined GetValidResponse as a string, but you set it equal to a single (reponse is defined as a single).

HTH

JP