Quiero hacer una funcion que autentique un usuario, como practica personal. Hago la funcion, compruebo que la sintaxis esta bien, pero me da error: "Return value datatype not specified in function declaration". Paso el codigo a ver si alguien puede ayudarme..
PUBLIC SUB btnLogin_Click()
DIM usuario1 AS String
DIM password1 AS String
DIM ein AS String
usuario1 = Usuario.Text
password1 = Password.Text
ein = authen(usuario1, password1)
IF ein THEN
Message.Info("Correcto")
ELSE
Message.Info("Incorrecto")
ENDIF
END
PUBLIC FUNCTION authen(user AS String, pass AS String, acceso AS Boolean)
DIM usuer AS File
DIM passwd AS File
DIM a AS String
DIM b AS String
usuer = OPEN "/home/*/Usuario" FOR INPUT
passwd = OPEN "/home/*/passwd" FOR INPUT
LINE INPUT #usuer, a
LINE INPUT #passwd, b
IF user = a AND pass = b THEN
acceso = 1
ELSE
acceso = NULL
ENDIF
RETURN acceso 'Esta es la linea en la que me da el error
END
DIM usuario1 AS String
DIM password1 AS String
DIM ein AS String
usuario1 = Usuario.Text
password1 = Password.Text
ein = authen(usuario1, password1)
IF ein THEN
Message.Info("Correcto")
ELSE
Message.Info("Incorrecto")
ENDIF
END
PUBLIC FUNCTION authen(user AS String, pass AS String, acceso AS Boolean)
DIM usuer AS File
DIM passwd AS File
DIM a AS String
DIM b AS String
usuer = OPEN "/home/*/Usuario" FOR INPUT
passwd = OPEN "/home/*/passwd" FOR INPUT
LINE INPUT #usuer, a
LINE INPUT #passwd, b
IF user = a AND pass = b THEN
acceso = 1
ELSE
acceso = NULL
ENDIF
RETURN acceso 'Esta es la linea en la que me da el error
END
Gracias por su ayuda de antemano.
Un saludo!