[Gambas-user] More JIT errors

Martin Cristia tercoide at hotmail.com
Fri Jan 4 15:25:35 CET 2019


Public Struct punto3d
     x As Float
     Y As Float
     z As Float
End Struct

  Dim centro As New Punto3d
  Dim p1 As New Punto3d

radio = modAlgebra.Distancia(p1, centro) / 8  <---------Error Type 
mismatch, wanted Number, got Punto3D instead


(in modAlgebra)

Fast Public Function Distancia(p1 As Punto3d, p2 As Punto3d) As Float
     'devuelve la distancia entre los dos puntos

     Return Sqr((p1.x - p2.x) ^ 2 + (p1.y - p2.y) ^ 2 + (p1.z - p2.z) ^ 2)


End

-- 

Saludos

Ing. Martin P Cristia



More information about the User mailing list