En vb, hay un error en la operación hexadecimal, resuélvalo.

Se ha probado con cientos de bits y no hay problema. También es limitado, pero en teoría se puede ampliar infinitamente y no es necesario hacerlo por el momento.

Paquete

/files/2007/5/8/1059086/k4me_vb6-str-x-str.rar

Supongo que puedes entenderlo y probablemente sepas cómo hacerlo. Solo trabaja.

Lo siguiente es todo el código.

=========================================

Private Sub Command1_Click()

'k4me 2009

'2009-02-24 04; 39

' El VB6 más impactante de 2009 El El código sigue exactamente la calculadora de paja hecha a mano para realizar operaciones de multiplicación. Demostración de interfaz en vivo mejorada.

'Las posibles limitaciones teóricamente ilimitadas, no extendidas, son la longitud de la cadena/longitud/ancho de la matriz (se puede resolver de forma binaria a disco)....

'Error no eliminado

'---------------

'Cambiar aquí para ajustar el límite.

hh = 1100 'fila por fila' se puede configurar sin configurar

ll = 1100 'columna por columna', la suma de las filas y columnas de entrada no puede ser mayor que la matriz .

Dim t(2103, 2103) Mientras 'tenue sea 3 filas más que hh/ll cada una, seguro temporal '100*100 bits "algoritmo" de multiplicación pura de paja:P

'---------------

a = Recortar$(Texto1.Texto)

b = Recortar$(Texto2.Texto)

la = Len(a): lc = la

lb = Len(b): Si lc lt lb Entonces lc = lb

'--- ------------

For x = ll To ll - la 1 Paso -1 'Hacia el puerto'

t(x， 1) = Val(Izquierda$(Derecha$(a, ll - x 1), 1)) '：MsgBox Str$(t(1, x))

Siguiente

Para x = ll To ll - lb 1 Paso -1 'Ingresar puerto

t(x，2) = Val(Left$(Right$(b，ll - x 1)，1)) '： MsgBox Str$ (t(2, x))

Siguiente

'Abrir "k4me1.txt" para la salida como #1

'Para y = 1 a ll

' Para x = 1 a ll

'Para x = 1 a ll

' Si t(x, y) = 0 Entonces chrs = "-"

' chrs = Trim$(Str$(t(x, y)))

' o = o amp; chrs

' Siguiente

' Imprimir #1, o

' o = ""

'Siguiente