Mensajes

Usa las funciones ASC() o ASCW()...

En dado caso que quieras TODA la String a un array de bytes puedes hacer esto...

OJO Cada caracter en una string de VB6 (Widechar / Unicode) esta compuesto por 2 bytes...

En un modulo cualquiera...

Código (Vb) [Seleccionar] Expandir



Option Explicit

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

public function str2ArryByte(ByRef str as string) as byte()
dim lData() As byte
dim lSize as long

LSize = LENB(sString)

if (lSize = 0) Then exit function 'No tiene caso que siga si es una cadena sin caracteres.
redim lData(0 to (lSize-1))

RtlMoveMemory byval VarPtr(lData(0)) + &H3, byval StrPtr(sString), lSize

str2ArryaByte = lData

end function



P.D.: Llevo mucho tiempo sin tocar VB6 espero te sea de ayuda (No probé el código)...

Dulces Lunas!¡.

Como demonio borro mi msg ...

Dulces Lunas!¡.

¿Veis los demás como solo era ponerse?

Si gustas retos aquí tienes:

http://foro.elhacker.net/programacion_visual_basic/recopilacion_de_retos_vbclassic_por_79137913-t360748.0.html;msg1743290#msg1743290

Si puedes superar esta te ganas mi respeto .

IsNumeric_????

Version VB6
http://foro.elhacker.net/programacion_visual_basic/reto_reemplazo_de_funcion_isnumeric-t336067.0.html;msg1652210#msg1652210
Version en C:
http://foro.elhacker.net/programacion_cc/cisnumeric_vb6_a_c-t336564.0.html;msg1652677#msg1652677

Dulces Lunas!¡.

No creo ya que realizo la prueba basica y no me funciona, por ejemplo:

Código (vb,3) [Seleccionar] Expandir

        Do While Not Rs.EOF And Not Rs.BOF
            'Lsb.AddItem Rs.Fields(0).Value
            Lsb.AddItem "1"
            Rs.MoveNext
        Loop

A lo que me refiero es que funciona todo correctamente, menos cuando paso or ByRef el objecto ListBox.

Castealo... por Evil cast no recuerdo que

Código (vb) [Seleccionar] Expandir


Lsb.AddItem "" & Rs.Fields(0).Value


Dulces Lunas!¡.

Lo que hace es contar los bits encendidos de la diferencia de los bits de dos valores.

Código (vb) [Seleccionar] Expandir


Function DimeQueHagoB(ByVal Valor1 As Long, ByVal Valor2 As Long, Bits As Byte) As Integer
Dim lV3 As Long
Dim iCount As Byte

lV3 = (Valor1 Xor Valor2)

if lV3 = 0 Then exit function
        REM {
No recuerdo si es 32 o 64 dejo 32...
}
If (Bits > 32) Then Bits = 32

For iCount = 1 to Bits
REM {
No recuerdo si para dividir y tener un valor entero es \ o / :(
}
lV3 = lV3 \ 2
If (lV3 And &H1) Then
DimeQueHagoB = DimeQueHagoB + 1
Else If (lV3 = 0) Then
Exit Function
End If
Next iCount
End Function


P.D.: No tengo compilador .

Dulces Lunas!¡.

Si en lugar de 1 pones fracciones de numeros?... como 0.1, claro si admite números reales.

Dulces Lunas!¡.

Tengo este simple código sólo que ahora me la paso más en C# y no recuerdo bien como es en VB.

Tengo una función donde realizo una petición a la base de datos en SQL Server, esta ahi excelente. Pero necesito que desde esa misma función lo cargue a un ListBox, tengo lo siguiente:

Código (vb, 4) [Seleccionar] Expandir

Public Sub LoadHours(txtFecha As String, txtTarjeta As String, ByRef Lsb As ListBox)
' [SNIP]
        Do While Not Rs.EOF And Not Rs.BOF
            Lsb.AddItem Rs.Fields(0).Value
            ' Sí lo muestro en un MsgBox se ve correctamente los datos de la DB
            Rs.MoveNext
        Loop
' [SNIP]
End Sub

Se supone que al pasarlo como ByRef me tomaría el objecto del formulario e ingresaría los valores de la función dentro del ListBox.

Código (vb) [Seleccionar] Expandir

Call LoadHours(Me.txtFecha.Text, Me.txtTarjeta.Text, Me.lsbHoras)

El caso es que me dice: No coinciden los tipos.

Debes usar las interfaces en lugar de las clases asi puedes usar ByVal sin problemas... por ejemplo en JAVA (Que es el que me da de comer actualmente) yo uso List para cualquier clase que herede de esta y no tengo problemas...

Si no mal recuerdo en .Net es List...

Ducles Lunas!¡.

Disculpa, pero el código que pones es .Net:

http://foro.elhacker.net/net-b62.0/

Dulces Lunas!¡.

Si es leer linea por linea, e interpretar esa función que plasmaste, entonces estas hablando de incorporar un motor para interpretar script's que puedes ejecutar con un ocx o dll (No recuerdo bien, llegando a mi casa lo corroboro) similar a VBScript

Dulces Lunas!¡.

yo lo llegue a hacer con esto en alguna ocasión en la cual estaba de por medio el tiempo un examen profesional por tiempo

http://www.tutorialspoint.com/cprogramming/c_bit_fields.htm
http://en.cppreference.com/w/cpp/language/bit_field

Dulces Lunas!¡.l