tercoide 08-08-2022, 15:40
buen día, amigos:
Resulta que el CAD que estamos haciendo esta llegando a un punto de maduración importante y pronto (en tiempos geológicos) llegara el momento en que queramos difundirlo en las redes.
Sin llegar ser una copia y lejos de ser tener la capacidad de otros CAD de gigantes como AutoDesk, comparten nomenclatura, cosas de su formulario principal y formatos de archivo que están en ese soft, principalmente el AutoCAD. La pregunta que me hago es: hasta que punto se puede un programa parecerse a otro sin violar derechos de autor? se puede "Guardar" un archivo en un formato supuestamente privativo (DWG , aunque hubo un controversia al respecto y juicios entre companias)

Si "castellanizamos" los nombres , no estaríamos esquivando violaciones de Copyright, generalmente en ingles?

Huh
guizans 08-08-2022, 00:03
Hola a todos.

Me estoy volviendo loco con un error que no soy capaz de encontrar. Tengo esta función, que basicamente rellena un array de dos dimensiones preguntando al usuario por los números.
Código:
Private Function preguntarDatos(d As String) As Float[]

  Dim a, c As Integer
  Dim entrada As String
  Dim en As Float[]
  Dim b As Float
 
  en = New Float[filas, columnas]
  Print "Introduce los datos de la matriz '" & d & "':"
  For c = 0 To filas - 1
    For a = 0 To columnas - 1
      While True
        Print "Dato [" & Str(c + 1) & ", " & Str(a + 1) & "] = ?"
        Input entrada
        Try b = CFloat(entrada)
        If Error Then
          Print "Dato no válido..."
        Else
          Break
        Endif
      Wend
      en[c, a] = b
    Next
  Next
  Return en
End
Como apunte, las variables "filas" y "columnas" son variables de clase y he comprobado que no tengan un valor de cero. El caso que es en la primera vuelta del bucle for me da un error de "Bad number of dimensions" en la línea 22. Y no puede ser, ya que las variables "c" y "a" tienen el valor de 0, como digo es en la primera interacción.
 El caso que poninedo este código en la web de Gambas no me da error.
Código:
Dim a, c As Integer
Dim entrada,d As String
Dim en As Float[]
Dim b As Float
dim filas, columnas as integer

filas = 3
columnas = 3
d="jk"

  en = New Float[filas, columnas]
  Print "Introduce los datos de la matriz '" & d & "':"
  For c = 0 To filas - 1
    For a = 0 To columnas - 1
      While True
        Print "Dato [" & Str(c + 1) & ", " & Str(a + 1) & "] = ?"
      entrada = "3"
        Try b = CFloat(entrada)
        If Error Then
          Print "Dato no válido..."
        Else
          Break
        Endif
      Wend
      en[c, a] = b
    Next
  Next

Como se puede observar es practicamente el mismo, el primero me da error y el segundo no. ¿Alguién ve lo que estoy haciendo mal?

Muchas gracias.

Un saludo.
sushisan 07-08-2022, 16:29
Buenos días a todos.

Necesito implementar algo que se comporte como el Form en el IDE: que se pueda arrastrar "algo" (una imagen por ejemplo) y se coloque según una grilla, pero que , una vez colocado, pueda volverse a arrastrar de nuevo para reubicarlo. Intente un drag/drop sobre un Drawapanel y dibujar la imagen, lo cual funciona correctamente, pero eso no puede volver a reubicarse de la misma manera, queda fijo. Lo cual es correcto porque el nuevo dibujo no es un objeto si no un dibujo sobre el DrawPanel.

Hay algo parecido o un ejemplo de algo similar?
Páginas (564):    1 282 283 284 285 286 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: Nicls_key
Temas del foro: 1,742
Mensajes del foro: 9,029
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: Shordi, Hace 6 horas
Respuestas: 3 - Vistas: 70
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,527
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,322
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 102
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.