Turriano   11-04-2025, 00:20
#1
Concrétamente, en este de consola:

Public Sub Main()
  Dim final As Single
  final = calcula_Media(4, 8) 
  Print final
End

Public Function calcula_Suma33(valor1 As Integer, valor2 As Integer) As Single
  Return (valor1 + valor2) / 2
End

Es de un tutorial que estoy siguiendo y me da error en los dos paréntesis..
Shordi   11-04-2025, 09:39
#2
Yo añadiría otos paréntesis ((valor1+valor2)/2) eso "unifica" la operación sin más cálculos añadidos...

Saludos

No podemos regresar
Shell   11-04-2025, 11:26
#3
Hice esto, después de copiar y pegar el ejemplo.

Código:
Public Sub Main()

  Dim final As Single

  final = calcula_Suma33(4, 8)
  Print final

End

Public Function calcula_Suma33(valor1 As Integer, valor2 As Integer) As Single

  Return (valor1 + valor2) / 2

End

Y no me  ha creado error. 

¿ Qué versión de Gambas usas ?. Aquí estoy usando la Gambas 3.20.2
Pero es muy raro, no debería dar error.

La operación es clara, suma y después divide.

Saludos

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
Turriano   11-04-2025, 13:25
#4
Gracias amigos, ya lo solucioné!.
Encontré un ejercicio parecido en Internet.
¡Sólo que estaba al revés!
La subrutina de abajo estaba arriba y viceversa y ahora funciona.
Parece ser que las funcionas, hay que declararlas lo primerito.
Última modificación: 11-04-2025, 13:29 por Turriano.
  
Usuarios navegando en este tema: 1 invitado(s)
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.