buenas tardes muchachos como están?. me disculpan mi ignorancia con respecto a lo que voy a preguntar pero me surge la duda. Utilizo gambas3 con ubuntu 10.10. para el proyecto de pasantías ; el proyecto es para los laboratorios de la misma universidad de donde me estoy por graduar. Cree mi ejecutable y mi paquete de instalación y todo perfecto ya estaba contenta porque no tuve mucho problema con el paquete de instalación,   pero se me ocurrió  hacer la prueba de mover la carpeta del proyecto a otro directorio a ver que ocurría y me di cuenta que el ejecutable depende de la carpeta del proyecto. En este caso algunas maquinas clientes estarán ubicadas en los laboratorios por lo que no seria correcto dejar la carpeta del proyecto a la orden de cualquiera que ingrese a dichas maquinas. Estoy pensando si sera que hice algo mal al crear el paquete de instalación porque que yo sepa    no es necesario la carpeta de código fuente de los proyectos  después que creamos el instalador. cuando corro el software pide el formulario de inicio del proyecto. anexo la imagen del error
  
 cuando la carpeta del proyecto esta en el directorio todo perfecto. anexo imagen
 
Se agradece de antemano sus opiniones.

Hola Victoria

  Esto suele suceder a los usuarios cuando acceden a archivos del programa (por ejemplo, imágenes) con la ruta absoluta. Si es tu caso, te explico: Los archivos adjuntos como imágenes,... no se pueden cargar. Debes copiarlos primero en un directorio y luego abrirlos. Yo suelo crear una carpeta para el programa como esta:

 ~/.nombreProyecto

  Los archivos que se usan, los copio a esa carpeta

  COPY imagenes/imagen01.jpg TO ~/.nombreProyecto/imagen01.jpg

  Y cuando quieras usar la imagen usas la del directorio HOME. Pero si accedes directamente a la imagen/archivo... te dará error.

  Espero haber sido de ayuda. Un saludo!!

===================
Proyecto Open Media Manager -> http://www.OpenMediaManager.com

Gracias por tu sugerencia que igual tenia que aplicarla porque uso imágenes directamente del directorio del proyecto. pero aun creando la carpeta de imágenes sigue el mismo error,el ejecutable sigue dependiendo de la carpeta del proyecto.

Sería de gran ayuda que pasaras la parte del código donde ocurre el error para ver que es lo que pasa

===================
William Cabrera
Mi Blog
Mi Twitter
IRC de Gambas en Español

buenos días muchachos. si efectivamente sucedía que tenia un try catch sin cerrar en  la pantalla principal aunque el mensaje que arroja como pueden ver en la imagen hace solicitud del formulario de inicio. a lo que la carpeta del proyecto se encontraba en el directorio el ejecutable corría perfecto a lo que lo movía de directorio salia el error. Cosas extrañas de gambas. aquí les dejo de todas formas el código. en el try que esta comentado y pintado en azul en las primeras lineas estaba el error. comente el error y ahora si quito la carpeta y todo bien.ahora aun me deja con mas duda eso indica que cuando se presenta errores logicos no detectados por el compilador el ejecutable funciona pero con dependencia a la carpeta del proyecto

Public disponibles As Integer
Public Sub Form_Open()
Dim conectar As Boolean
Dim consulta As Result
' Dim imagen As String
' imagen = User.Home & "/Escritorio/instalador/iconos/fondosistema.jpg"
' DIM cedu AS String
' DIM codnivel AS Integer
' DIM pregunta AS String
' DIM respuesta AS String
' Me.PictureBox1.Picture = Picture[imagen]
Me.Menu1.Enabled = False
Me.Menu7.Enabled = False
Me.Menu11.Enabled = False
timer1.Start
Me.Timer2.Start

' Try
conectar = modulofunciones.conectar()

If conectar = False Then

' cedu = "V-131"
' pregunta = "MI MASCOTA"
' respuesta = "PERRITO"
' consulta = modulofunciones.conexion.Exec("insert into tblusuarios(ced_usuario,cod_nivel,contrasena,pregunta,respuesta) values('" & cedu & "'," & 1 & ",'" & Crypt.MD5("123456") & "','" & pregunta & "','" & Crypt.MD5(respuesta) & "')")

Me.Center
consulta = modulofunciones.conexion.Exec("select NOW()")
If consulta.Count > 0 Then
Me.Label1.Text = "San Cristóbal," & Format$(CDate(consulta[0]), "dd/mm/yyy") & ""
Me.Label2.Text = "Hora:" & Format$(CDate(consulta[0]), "h:n:ss AM/PM") & ""
Me.SetFocus



Endif
Else
Me.Delete
Endif

End



Public Sub Menu2_Click()
If CInt(modulofunciones.nivel) < 4 Then
computadoras.Center
computadoras.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End

Public Sub Timer1_Timer()

Dim consulta As Result

timer1.Delay = 1000
 consulta = modulofunciones.conexion.Exec("select NOW()")
 Me.Label2.Text = "Hora:" & Format$(CDate(consulta[0]), "h:n:ss AM/PM") & ""

End

Public Sub Menu3_Click()
If CInt(modulofunciones.nivel) < 3 Then
usuarios.Center
usuarios.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End

Public Sub Menu4_Click()
If CInt(modulofunciones.nivel) = 1 Then
personas.Center
personas.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End

Public Sub Timer2_Timer()

  timer1.Delay = 1
  logeo.ShowDialog
  Me.Timer2.Stop

End

Public Sub Menu5_Click()
If CInt(modulofunciones.nivel) < 3 Then
laboratorios.Center
laboratorios.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End

Public Sub Menu6_Click()

If CInt(modulofunciones.nivel) < 3 Then
horarios.Center
horarios.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End


Public Sub Menu8_Click()
If CInt(modulofunciones.nivel) < 4 Then
aperturacierre.Center
aperturacierre.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End



Public Sub Menu10_Click()
 If CInt(modulofunciones.nivel) < 3 Or CInt(modulofunciones.nivel) = 4 Then
  asistencia.Center
  asistencia.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif
End

Public Sub Menu9_Click()
If CInt(modulofunciones.nivel) < 4 Then
  prestamodispositivos.Center
  prestamodispositivos.ShowDialog
  Else
  modulofunciones.mensaje_acceso()
  Endif

End

Public Sub Menu12_Click()
If CInt(modulofunciones.nivel) < 4 Then
 impdispositivos.Center
 impdispositivos.ShowDialog
 Else
 modulofunciones.mensaje_acceso()
Endif
End

' Public Sub Menu13_Click()
' If CInt(modulofunciones.nivel) < 4 Then
' disponibles = 1
' impdispositivos.Center
'  impdispositivos.ShowDialog
'  Else
'  modulofunciones.mensaje_acceso()
'  Endif
' End

Public Sub Menu14_Click()

rpequipos.Center
rpequipos.ShowDialog
End

Public Sub Menu16_Click()

  acercade.Center
  acercade.ShowDialog

End



Public Sub Menu17_Click()

  Shell "gcalctool"

End

Public Sub Menu18_Click()
  If CInt(modulofunciones.nivel) < 3 Or CInt(modulofunciones.nivel) = 4 Then
  usolaboratorios.Center
  usolaboratorios.ShowDialog
  Endif
End

Public Sub Menu19_Click()
 If CInt(modulofunciones.nivel) < 3 Then
 
  impespaciosfisicos.Center
  impespaciosfisicos.ShowDialog
  Else
  modulofunciones.mensaje_acceso()
  
  Endif

End


Public Sub Menu20_Click()
If CInt(modulofunciones.nivel) < 2 Then
ofuscador.ShowDialog
Else
modulofunciones.mensaje_acceso()
Endif

End

Public Sub Traslados_Click()

  

End

Public Sub Menu21_Click()

  traslados.Center
  traslados.ShowDialog
  

End

Public Sub ToolButton1_Click()

   logeo.Center
  logeo.ShowDialog

End

Public Sub Menu22_Click()
Exec ["firefox", "/home/eduardo/Escritorio/laboratorios/manual/manual de usuario.html"]
  

End

Public Sub Menu13_Click()
  impaperturcierre.Center
  impaperturcierre.ShowDialog

End

Public Sub Menu23_Click()

  impprestamodisp.Center
  impprestamodisp.ShowDialog

End

Public Sub Menu24_Click()

  impasistencia.Center
  impasistencia.ShowDialog

End

Public Sub Menu25_Click()

  imptraslados.Center
  imptraslados.ShowDialog

End