elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  C to vb.net problem
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: C to vb.net problem  (Leído 3,730 veces)
CH4ØZ

Desconectado Desconectado

Mensajes: 108



Ver Perfil
C to vb.net problem
« en: 17 Octubre 2011, 00:17 am »

Bueno, tengo este C (en realidad es el peón, pero es un metamod de C) y el código i no se traducen en vb.net, alguien me puede ayudar con esto:

Código
  1. GetPointZPos(Float: point_X, Float: point_Y, &Float: point_Z)
  2. {
  3. if(!(-3000.0 < point_X < 3000.0 || -3000.0 < point_Y < 3000.0))
  4. return 0;
  5.  
  6. static
  7. File: z_Map_File
  8. ;
  9. if(!z_Map_File)
  10. {
  11. z_Map_File = fopen("SAfull.hmap", io_read);
  12.  
  13. if(!z_Map_File)
  14. return 0;
  15. }
  16. new
  17. z_Data[2 char]
  18. ;
  19. fseek(z_Map_File, (-6000 * (floatround(point_Y, point_Y <= 0.0 ? floatround_ceil : floatround_floor) - 3000) + floatround(point_X, point_X <= 0.0 ? floatround_ceil : floatround_floor) + 3000) * 2);
  20. fblockread(z_Map_File, z_Data, 2 char);
  21.  
  22. point_Z = (z_Data[1 / 2] & 0x0000FFFF) * 0.01;
  23. return 1;
  24. }

Código
  1. Public Function GetZFromXY(ByVal X As Single, ByVal Y As Single) As Single
  2.    If Not (-3000.0 < X < 3000.0 Or -3000.0 < Y < 3000.0) Then Return 0.0
  3.    Static Reader As New IO.BinaryReader(New IO.FileStream(My.Application.Info.DirectoryPath & "\SAfull.hmap", IO.FileMode.Open))
  4.    Dim Z(2) As Byte
  5.    Reader.BaseStream.Seek(((-6000 * (Math.Round(Y, If(Y <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) - 3000) + Math.Round(X, If(X <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) + 3000)) * 2, IO.SeekOrigin.Begin)
  6.    Reader.Read(Z, 0, 2)
  7.    Reader.Close()
  8.    return ((Z(1 / 2) And &HFFFF) * 0.01)
  9. End Function

codigo actualizado


« Última modificación: 18 Octubre 2011, 16:50 pm por CH4ØZ » En línea

no me juzguen si no me conocen
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: C to vb.net problem
« Respuesta #1 en: 17 Octubre 2011, 01:44 am »

do you not speak spanish?


En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
CH4ØZ

Desconectado Desconectado

Mensajes: 108



Ver Perfil
Re: C to vb.net problem
« Respuesta #2 en: 17 Octubre 2011, 02:46 am »

google traductor. Estoy viviendo en anrgentina ahora, pero yo soy de canada
En línea

no me juzguen si no me conocen
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: C to vb.net problem
« Respuesta #3 en: 17 Octubre 2011, 16:05 pm »

Well then for than you feel good here, I going to speaking in english :xD

No ya en serio, se ve bien traducido, claro son 2 lenguajes muy diferentes, quizas el problema está en la interpretación que el compilador le da al código, problemas de conversión u operación deberias debuggear ambos y ver como van cambiando los valores en las variables así encontrarás las diferencias. Y que tan diferentes son los resultados finales de ambos códigos?
En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: C to vb.net problem
« Respuesta #4 en: 17 Octubre 2011, 16:56 pm »

My name is Eduardo, I live in Uruguay. I like french fries.
En línea

MauroMasciar


Desconectado Desconectado

Mensajes: 567



Ver Perfil
Re: C to vb.net problem
« Respuesta #5 en: 17 Octubre 2011, 17:55 pm »

Hay tantos foros en ingles... :silbar:
En línea

Tutto ha oceani da attraversare mentre hanno il coraggio di farlo Avventato? Ma sanno sogni di limiti

Twitter: @MauroMasciar
CH4ØZ

Desconectado Desconectado

Mensajes: 108



Ver Perfil
Re: C to vb.net problem
« Respuesta #6 en: 17 Octubre 2011, 20:10 pm »

Well then for than you feel good here, I going to speaking in english :xD

No ya en serio, se ve bien traducido, claro son 2 lenguajes muy diferentes, quizas el problema está en la interpretación que el compilador le da al código, problemas de conversión u operación deberias debuggear ambos y ver como van cambiando los valores en las variables así encontrarás las diferencias. Y que tan diferentes son los resultados finales de ambos códigos?

C function => Float point number

My function => 0

parece que no leyó el archivo
En línea

no me juzguen si no me conocen
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: C to vb.net problem
« Respuesta #7 en: 18 Octubre 2011, 04:54 am »

You must discarding possible errors, see what is the seek value in each code. I think in english is more easy to you.
« Última modificación: 18 Octubre 2011, 05:04 am por Keyen Night » En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
CH4ØZ

Desconectado Desconectado

Mensajes: 108



Ver Perfil
Re: C to vb.net problem
« Respuesta #8 en: 18 Octubre 2011, 16:48 pm »

el problema está en la lectura. seek la posición son los mismos
En línea

no me juzguen si no me conocen
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: C to vb.net problem
« Respuesta #9 en: 18 Octubre 2011, 17:04 pm »

Post the file, I want to test.
En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problem con V Dub
Multimedia
Nillo 8 1,870 Último mensaje 6 Marzo 2005, 04:39 am
por vanO
problem
Diseño Gráfico
jumago 1 1,006 Último mensaje 27 Agosto 2005, 01:58 am
por + enrique ZP
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines