Mensajes

[Unsigned long]

.
Solo menciono este codidigo fuente por si alguien quiere algo mas...

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=68710&lngWId=1

ahora que veo un poco mejor es utilzar la parte negativa para ampliar la capacidad de un long

Simulando el Unsigned long de C++, si esa es buena...

Ducles Lunas!¡.

[Mod]

.
si puedes hacer la obtencion del residuo de una divicion  ( Mod ) con un valor de mas del valor maximo de un tipo long como el que acabas de poner puedes modificar esta funcion

http://infrangelux.sytes.net/Blog/index.php?option=com_content&view=article&id=20:bdec2basen&catid=2:catprocmanager&Itemid=8

Dulces Lunas!¡.

.
Las funciones estan mal, esageradamente mal ya que el --1 en representacion negativa es FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF... etc., es decir el complemento del numero N con respecto al valor maximo...

Prueba de lo dicho:

Código (Vb) [Seleccionar] Expandir



Debug.Print BigHex(4295017296#)  ' // Return    C350  siendo que debe de ser en Hexadecimal --> 10000C350



P.D.: no funciona Mod con los currency ¬¬"

Dulces Lunas!¡.

Instala una version de vb6 COMPLETA, no una portable...regularmente esas no te compilan nada.

Dulces Lunas!¡.

No me sirvio con hotmail con una vez despues le hice Spam y nada ( le hice un bucle de 100 mails [Spam] a mi cuenta ).

No dudo que sirva pero bueno xP

Dulces Lunas!¡.

.

http://goo.gl/wQgl1

Dulce Infierno Lunar!¡.

.
Interceptando las salidas del debug...

Dulces Lunas!¡.

.
-.O... 

Lol...

Dulces Lunas!¡.

Version un poquito mejorada de la de ignorantev1.1

Código (vb) [Seleccionar] Expandir

Function quitaLaScript(ByVal sCode as string) As String
  Dim iInicio as integer
  quitaLaScript=sCode
  iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
  if iInicio > 0  then quitaLaScript=mid$(sCode,1,iInicio-1)
End Function

Código (vb) [Seleccionar] Expandir



Function quitaLaScript(ByVal sCode as string) As String
Dim lng_Pos as long
  lng_Pos = instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
  if iInicio > 0  then
    quitaLaScript = Right$(sCode,lng_Pos-1)
  else
    quitaLaScript = sCode
  end if
End Function



[SwapPtr()]

.
Susodicho problema es el problema actual expuesto... soy de México y en españa me aprece que usan lo mismo...

mira que no miento:

http://www.wordreference.com/definicion/susodicho
http://www.google.com.mx/search?q=Susodicho+&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-MX:official&client=firefox-a.

Ahora ya vi mejor el codigo solo te dire que las variables de tipo string u otras tienden a tener constructores o similares esto por el SafeArray de VB6, aun no lo confirmo pero lo que si te puedo decir es que como estas COPIANDO solo los punteros al termino del proceso la variable N es destruida y como la variable Z tiene el mismo puntero intentara destruir algo que ya esta destruido, esto es con esactitud uno de los problemas que yo tube hace tiempo... lo resolvi cambiando punteros entre variables (  SwapPtr()  ); aun que viendolo mejor no es el mismo problema ya que la funcion StructureToVariant solo retorna un tipo de variable Array de byte, aun que se intento hacer algo similar...

Ahora TODO el codigo esta mal... la forma mas facil de pasar una variable "Struture" a un tipo "Variant" es esta

Código (Vb) [Seleccionar] Expandir



VariableVariant = VarianbleStructure



y viseversa (Solo del mismo tipo OJO con eso)

y para cambiar un puntero de variable por otra  puedes usar esta funcion que me hice para evitar un tipo crash con destruccion de variables al finalizar el proceso...

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)

Public Sub SwapPtr(ByVal lngPtrOne As Long, ByVal lngPtrTwo As Long, Optional LenOFStructure As Long = 4)
If LenOFStructure < 1 Then Exit Sub
Dim Byt_Bytes()                     As Long
    ReDim Byt_Bytes(1 To LenOFStructure)
    Call CopyMemory(ByVal VarPtr(Byt_Bytes(1)), ByVal lngPtrOne, LenOFStructure)
    Call CopyMemory(ByVal lngPtrOne, ByVal lngPtrTwo, LenOFStructure)
    Call CopyMemory(ByVal lngPtrTwo, ByVal VarPtr(Byt_Bytes(1)), LenOFStructure)
End Sub



Dulces Lunas!¡.