Mensajes

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

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

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

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:

Código (c) [Seleccionar] Expandir

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;
}

Código (vbnet) [Seleccionar] Expandir

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.

Código (vbnet) [Seleccionar] Expandir

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:

Código (vbnet) [Seleccionar] Expandir

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:

Código (vbnet) [Seleccionar] Expandir

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.

Código (vbnet) [Seleccionar] Expandir

'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.