el problema está en la lectura. seek la posición son los mismos

C function => Float point number

My function => 0

parece que no leyó el archivo

google traductor. Estoy viviendo en anrgentina ahora, pero yo soy de canada

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:

GetPointZPos(Float: point_X, Float: point_Y, &Float: point_Z)
{
	if(!(-3000.0 < point_X < 3000.0 || -3000.0 < point_Y < 3000.0))
		return 0;
 
	static
		File: z_Map_File
	;
	if(!z_Map_File)
	{
		z_Map_File = fopen("SAfull.hmap", io_read);
 
		if(!z_Map_File)
			return 0;
	}
	new
		z_Data[2 char]
	;
	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);
	fblockread(z_Map_File, z_Data, 2 char);
 
	point_Z = (z_Data[1 / 2] & 0x0000FFFF) * 0.01;
	return 1;	
}

Public Function GetZFromXY(ByVal X As Single, ByVal Y As Single) As Single
    If Not (-3000.0 < X < 3000.0 Or -3000.0 < Y < 3000.0) Then Return 0.0
    Static Reader As New IO.BinaryReader(New IO.FileStream(My.Application.Info.DirectoryPath & "\SAfull.hmap", IO.FileMode.Open))
    Dim Z(2) As Byte
    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)
    Reader.Read(Z, 0, 2)
    Reader.Close()
    return ((Z(1 / 2) And &HFFFF) * 0.01)
End Function

codigo actualizado

despues de estar un rato examinando, descubri que el codigo presentado anteriormente no es el causante del problema, si no lo que coloco en el body.

Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString

si eso causa una exepcion, quiere decir que no hay ni sender ni e en el codigo (ya que testie con ambos valores)

Alguna idea del problema???
Este es el codigo:

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   AddHandler Application.ThreadException, AddressOf ExceptionHandler
End Sub
 
    Private Sub ExceptionHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
        Dim client As New SmtpClient("XXX"), Message As New MailMessage("XXX", "XXX")
        Message.IsBodyHtml = True
        Message.Subject = "XXX"
        Message.Body = "Sender: " & sender.ToString & vbNewLine & vbNewLine & "Exception: " & e.Exception.InnerException.ToString
        client.EnableSsl = True
        client.UseDefaultCredentials = False
        client.Credentials = New Net.NetworkCredential("XXX", "XXX")
        Try
            client.Send(Message)
        Catch ex As Exception
            MsgBox(ex.InnerException.ToString)
        End Try
        Application.Exit()
    End Sub

cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Try
    Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
    client.Credentials = New Net.NetworkCredential("XXX", "XXX")
    client.EnableSsl = True
    Message.Subject = "XXX"
    Message.Body = "XXX"
    client.Send(Message)
Catch ex As Exception
    MsgBox(ex.InnerException.ToString)
End Try

SOLUCIONADO

mientras vos respondias como no estaba mirando me puse a leer aver como lo podia solucionar, y hize un codigo con delegados pero por algun motivo no funciona correctamente.

'Dentro del Splash Screen
    Public Sub SplashUpdate(ByVal text As String, ByVal percent As Integer)
        Label1.Text = text
        ProgressBar1.Value = percent
    End Sub
 
'Dentro de mi modulo
    Delegate Sub SplashUpdateing(ByVal text As String, ByVal percent As Integer)
 
    Private sstatus As String
    Private svalue As Integer
    Private S As New Splash
    Private Method As SplashUpdateing = AddressOf S.SplashUpdate
 
'Dentro de una de las funciones del modulo
    sstatus = "Loading vehicles..."
    Method.Invoke(sstatus, svalue)

Ahora bien revise el codigo, y el evento SplashUpdate es llamado, los parametros se pasan bien, pero el label no cambia su contenido. ¿Por Que?

(solo para saber en que falle y aprender)

EDIT: Ya me di cuenta xq no funcionaba, olvidalo y muchas gracias por el ejemplo.

mmm no termino de entender muy bien, perdona.

El tema es el siguiente. Dentro del splash screen hay un label en el cual iria acualizando el estado (ej: "cargando configuracion...", "cargando X...", etc) y una barra de proreso; mi problema inicial surge con los threads dado que el splash screen no trabaja con el mismo thread que la aplicacion (o eso entendi), por lo que termine leyendo esto. Intentando llevar esos ejemplos a mi aplicacion, me di cuenta que mi problema numero dos era como usar Me.Invoke desde el modulo donde estan las funciones (desde el que queria actualizar el splash screen)

Bueno el titulo dice la mitad. Estoy creando un splash screen y al tratar de hacerlo dinamico me encontre con que se crea por un hilo diferente, por lo que debia realizar los cambios mediante Invoke. Mi problema es que estos cambios se realizan desde funciones declaradas en un Modulo, por lo que no existe Me. Algun reemplazo de Me.invoke desde un modulo? o alguna otra forma de crear un splash screen dinamico?

gracias aun asi acabo de encontrar una libreria bastante mas facil de usar llamada TsPlayOgg.