Ver Mensaje Individual
  #20 (permalink)  
Antiguo 16/03/2006, 01:25
Avatar de [EX3]
[EX3]
 
Fecha de Ingreso: marzo-2006
Ubicación: Fuenlabrada, Madrid
Mensajes: 203
Antigüedad: 18 años, 2 meses
Puntos: 1
Cita:
Iniciado por MaxExtreme
Sí, alternativas siempre hay (podemos programar en asm todo ;)
El ASM (en forma de una especie de variante muy practica) volvio a estar de moda en la actualidad, fijate la programacion avanzada de los efectos de las tarjetas graficas, los famosos shaders

Cita:
Iniciado por MaxExtreme
Ahora bien, VB6 sin POO y punteros queda como un lenguaje muy capado, ya no comparado con C++, sino con cualquier otro.
Totalmente deacuerdo. Total, como dije hace poco, VB seguramente se diseño simplemente para desarrollo rapido de aplicaciones de gestion mediante componentes. En teoria no era necesario el uso de punteros ni de muchos otros elementos tipicos de un autentico lenguaje de programacion.

Cita:
Iniciado por MaxExtreme
PD: Sé que existen 2 funciones para obtener y manejar direcciones de memoria en VB, pero... no se puede decir que se puedan usar punteros.
Esas funciones estan simplemente para poder usar algunas funciones de API's externas que requieren pasar como parametro punteros, realmente no sirven para mucho mas, aunque recuerdo que tengo por aqui guardado un supuesto ejemplo de uso de punteros en VB:
Código:
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub Form_Load()
Const Cadena = "Hola Programadores" ' Definimos la cadena inicial.

Dim CadenaDestino As String 'Guardamos el contenido de la dirección de memoria.
Dim Length As Long ' Guardamos la longitud de la inicial.
Dim DirCadena As Long

Length = Len(Cadena)

CadenaDestino = Space(Length) 'Reservamos los espacios que necesitamos.

DirCadena = StrPtr(Cadena) 'Guardamos la dirección de memoria de Cadena

Call CopyMemory(ByVal StrPtr(CadenaDestino), ByVal DirCadena, LenB(Cadena))

MsgBox (" La Dirección de Memória de Cadena es: " & " " & DirCadena)

MsgBox ("El Contenido de " & DirCadena & " es: " & CadenaDestino)

End
End Sub
A lo menos esta curioso, aunque poco practico comparado a como seria en C++ jeje

Salu2...
__________________
Proyecto dx_lib32 (http://dxlib32.se32.com) Libreria DLL ActiveX para el desarollo de juegos y programas multimedia en Visual Basic 6.0 con la potencia de DirectX

Dice un dicho que "el que calla otorga". En internet tenemos otro que dice "nunca alimentes a un troll" que viene a decir "dejale hablar solo que se ya se cansara de incordiar". Solo los necios creen tener la razon con la ultima palabra.