Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ayuda Con Return Value Datatype Not Specified :S (SOLUCIONADO)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Ayuda Con Return Value Datatype Not Specified :S (SOLUCIONADO) 
 
Hola a todos, hace 3 dias que empece a programar con Gambas2 y tengo un problema..
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


Gracias por su ayuda de antemano.
Un saludo!
 



 
última edición por ferquies el Domingo, 06 Marzo 2011, 10:53; editado 1 vez 
ferquies - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con Return Value Datatype Not Specified :S 
 
Hola

Has cometido un error. La función la defines así

PUBLIC FUNCTION authen(user AS String, pass AS String, acceso AS Boolean)

pero ahí no se indica que tipo de dato debe devolver la función. Solo la de sus parámetros.
Lo correcto es así

PUBLIC FUNCTION authen(user AS String, pass AS String, acceso AS Boolean) as string

Así que esa función devolverá un valor string y como tu haces ein=authen( ... y ein es de tipo string funcionará como debe.

Otra cosa es que yo creo que tienes otra cosa mal. A mi entender esa función debería devolver booleano y ein debería ser boleano
dim ein as boolean
...
ein=auth( ...)

private function auth( ...) as boolean
Dim Valido as boolean
...
if user=a and password=b then
   Valido=true
else
  valido=false
endif
return valido
end

 
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con Return Value Datatype Not Specified :S 
 
Hola,

Además de lo dicho, valora la posibilidad de que la función "authen" sea "private" para controlar la accesibilidad a la misma.


Saludos
 



 
ljma - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con Return Value Datatype Not Specified :S 
 
Solucionado! Muchisimas gracias por su ayuda ^^ Tienes razon Ijma, muchas gracias!
 



 
ferquies - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Ayuda Cambiar Formato De Fechas [SOLUCIONADO] skaterleopoldo12 Controles/Librerías/Componentes 5 Sabado, 06 Agosto 2011, 00:13 Ver último mensaje
Shell
No hay nuevos mensajes Quien Manda Break O Return? v3ctor General 1 Domingo, 25 Diciembre 2016, 20:18 Ver último mensaje
jsbsan
No hay nuevos mensajes Función Return En Shell Bash Shell Shell Scripting 4 Martes, 06 Noviembre 2018, 12:07 Ver último mensaje
Shell
No hay nuevos mensajes Problema Con Control De Errores Y Return E... Harpo Controles/Librerías/Componentes 13 Lunes, 27 Abril 2020, 18:22 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron