¿Cómo convierte VB el texto ingresado en el cuadro de texto a binario y hexadecimal?
Entrada: Dec (número decimal)
Tipo de datos de entrada: Entero largo
Salida: Número decimal (número binario)
Salida tipo de datos: Cadena
El número máximo ingresado es 2147483647. El número máximo de salidas es 11111111165438. 0111111111(31 1)public_to.
DEC_to_BIN = " "
Hacer mientras Dec gt0
2 de diciembre. Diciembre a noviembre
Dic = Dec \ 2
Anillo
Uso final: convertir binario a decimal
Entrada: Bin (número binario )
Tipo de datos de entrada: Cadena
Salida: BIN_to_DEC (número decimal)
Tipo de datos de salida: Largo
El número máximo de las entradas es 111111111165438. 8 0111111111 (31 1), el número máximo de salidas.
Atenuarme siempre
Para i = 1 a Len(Bin)
BIN _ a _ DEC = BIN _ a _ DEC * 2 Val(Mid (BIN, I, 1))
Siguiente yo
Uso final: Convertir hexadecimal a binario
Entrada: Hex (número de sistema hexadecimal)
Tipo de datos de entrada: cadena
Salida: número hexadecimal a binario
Tipo de datos de salida: cadena
El número máximo de caracteres ingresados es 2147483647, público hex _ a _ bin (byval hex como cadena) es una cadena.
La oscuridad es tan larga como la mía
Marca B como una cadena
Hex = UCase (hexadecimal)
Para i = 1 a Len (Hex)
Seleccione el valor a mitad de caso (Hex, I, 1)
Caso "0": B = B&"0000 "
Caso "1": B = B & "0001"
Caso "2": B = B & "0010"
Caso "3": B = B &" 0011"
Caso "4": B = B &"0100"
Caso "5": B = B&"0101 "
Caso "6 ": B = B & "0110"
Caso "7": B = B & "0111"
Caso " 8": B = B &"1000"
Caso "9": B = B &"1001"
Caso "A": B = B&"1010 "
Caso "B": B = B&"1011"
Caso "C": B = B&"1100"
Caso" D": B = B &"1101"
Caso "E": B = B &"1110"
Caso "F": B = B &"1111 "
Finalizar selección
Siguiente yo
Y Izquierda(B, 1) = "0 "
B = Derecha(B , Len(B) - 1)
Fila
HEX_to_BIN = B
Uso final: Convertir binario a hexadecimal
Entrada: Bin (número binario)
Tipo de datos de entrada: cadena
Salida: BIN_to_HEX (número hexadecimal)
Tipo de datos de salida: cadena de caracteres
El número máximo ingresado es 2147483647 caracteres bin público _ a _ hexadecimal (bin byval como cadena) como una cuerda.
La oscuridad es tan larga como la mía
Marca H como una cadena
si Len(Bin)Mod 4 lt entonces 0
<; p> Bin = String(4 - Len(Bin) Mod 4, "0") & binTerminará si...
Para i = 1 a Len(Bin) paso 4
Seleccione el caso Mid(Bin, I, 4)
Caso "0000": H = H &"0"
Caso "0001": H = H amp; "1"
Caso "0010": H = H amp "2"
Caso "0011": H = H amp; p >
Caso "0100": H = H amp; "4"
Caso "0101": H = H amp; "5"
Caso "0110": H = H amp; "6"
caso " 0111 ": H = H amp; "7"
Caso " 1000 ": H = H amp; p >
Caso "1001": H = H amp; "9"
Caso "1010": H = H amp; "A"
caso "1011": H = H amp;" B "
Caso " 1100 ": H = H amp; " C "
caso " 1101 ": H = H amp; " p >
Caso " 1110 ": H = H & " E "
caso " 1111 ": H = H & " F "
Finalizar selección
Siguiente yo
E Izquierda(H, 1) = "0 "
H = Derecha(H, Len(H) - 1)
Línea
BIN_to_HEX = H
Uso final: Convertir hexadecimal a decimal
Entrada: Hex (número hexadecimal)
Tipo de datos de entrada : Cadena
Salida: número hexadecimal a decimal
Tipo de datos de salida: Largo
El número máximo de entrada es 7FFFFFFF, el número máximo de salida es 2147483647, que es siempre que public hex _ to _ dec (byval hex es una cadena).
Atenuar B mientras
Atenuar B mientras
Hex = UCase (hexadecimal)
Para i = 1 a Len(Hex )
Seleccione Case Mid(Hex, Len(Hex) - i 1, 1)
Caso "0": b = b 16 ^(I- 1)* 0
Caso "1": b = b 16 ^(I-1)* 1
Caso "2": b = b 16 ^(I-1) * 2
Caso "3": b = b 16 ^(I-1)* 3
Caso "4": b = b 16 ^(I-1)* 4
Caso "5": b = b 16 ^(I-1)* 5
Caso "6": b = b 16 ^(I-1)* 6
p >
Caso "7": b = b 16 ^(I-1)* 7
Caso "8": b = b 16 ^(I-1)* 8
Caso "9": b = b 16 ^(I-1)* 9
Caso "a": b = b 16 ^(I-1)* 10
Caso "b": b = b 16 ^(I-1)* 11
Caso "c": b = b 16 ^(I-1)* 12
Caso " d": b = b 16 ^(I-1)* 13
Caso "e": b = b 16 ^(I-1)* 14
Caso "f " : b = b 16 ^(I-1)* 15
Finalizar selección
Siguiente yo
Conversión hexadecimal = B
Final uso: Convertir decimal a hexadecimal
Entrada: Dec (número decimal)
Tipo de datos de entrada: Largo
Salida: número decimal (número hexadecimal)
Tipo de datos de salida: cadena
El número máximo de entrada es 2147483647, el número máximo de salida es 7fffffff public dec _ to _ hex (dec mientras) como cadena.
A oscura como una cadena
DEC_to_HEX = " "
Hacer mientras Dec gt0
a = CStr(200612 65438)
Seleccione caso a
Caso " 10": a = "A "
Caso " 11": a = "B "
Caso "12": a = "C "
Caso "13": a = "D "
Caso" 14": a = "E "
Caso "15": a = "F "
Finalizar selección
Decimal = a amp Decimal a hexadecimal
Dec = Dec\16
Anillo
Uso final: convertir decimal a octal.
Entrada: Dec (número decimal)
Tipo de datos de entrada: entero largo
Salida: DEC_to_OCT (número octal)
Datos de salida tipo: cadena
El número máximo de entradas es 2147483647 y el número máximo de salidas es 1777 77777 public dec _ a _ oct (dec es largo) es una cadena.
Diciembre a Octubre = " "
Hacer Mientras Dec gt0
Diciembre a Octubre = 8 de Diciembre. Diciembre a Octubre
Dic = Dec \ 8
Anillo
Uso final: Convertir octal a decimal
Entrada: Oct (número octal )
Tipo de datos de entrada: Cadena
Salida: OCT_to_DEC (decimal)
Tipo de datos de salida: Largo
El número máximo de entradas es 1777 7777 y el número máximo de salidas es 2147483647. La longitud de public oct _ a _ dec (byval oct como cadena) es la misma.
Atenuar B mientras
Atenuar B mientras
Para i = 1 a Len(Oct)
Seleccione mayúsculas y minúsculas (Oct , Len(Oct) - i 1, 1)
Caso "0": b = b 8 ^(I-1)* 0
Caso "1": b = b 8 ^(I-1)* 1
Caso "2": b = b 8 ^(I-1)* 2
Caso "3": b = b 8 ^ (I-1)* 3
Caso "4": b = b 8 ^(I-1)* 4
Caso "5": b = b 8 ^(I -1)* 5
Caso "6": b = b 8 ^(I-1)* 6
Caso "7": b = b 8 ^(I-1 )* 7
Finalizar selección
Siguiente yo
Octubre a diciembre = B
Uso final: convertir binario a octal
Entrada: Bin (número binario)
Tipo de datos de entrada: Cadena
Salida: BIN_to_OCT (número octal)
Tipo de datos de salida: cadena
El número máximo de caracteres de entrada es 2147483647 public bin _ a _ oct (byval bin como cadena) como cadena.
La oscuridad es tan larga como la mía
Marca H como una cadena
si Len(Bin)Mod 3 lt entonces 0
<; p> Bin = String(3 - Len(Bin) Mod 3, "0") & binTerminará si...
Para i = 1 a Len(Bin) paso 3
Seleccione Caso Medio(Bin, I, 3)
Caso "000": H = H &"0"
Caso "001": H = H amp;"1"
Caso" 010 ": H = H amp;"2"
Caso" 011 ": H = H amp;"3"
Caso "100": H = H amp; "4"
Caso "101": H = H amp; "5"
Caso "110": H = H amp; "6"
caso " 111 ": H = H amp; "7"
Finalizar selección
Siguiente yo
Y Izquierda(H, 1) = "0 "
H = Derecha(H, Len(H) - 1)
Fila
BIN_to_OCT = H
Uso final: Convertir octal a binario
Entrada: Oct (número octal)
Tipo de datos de entrada: Cadena
Salida : OCT_to_BIN (número binario)
Tipo de datos de salida: cadena
El número máximo de entradas es 2147483647 caracteres, public oct _ to _ bin (byval oct como cadena) es cadena.
Atenuar mientras yo esté
Etiquetar B como una cadena
Para i = 1 a Len(Oct)
Seleccionar caso Mediados (Oct, I, 1)
Caso "0": B = B amp "000"
Caso "1": B = B amp "001"
Caso "2": B = B amp; "010"
Caso "3": B = B amp; "011"
Caso "4": B = B amp; "100"
Caso "5": B = B amp "101"
Caso "6": B = B amp; p >
Caso "7": B = B&"111"
Finalizar selección
Siguiente yo
Y izquierda(B,1) = " 0 "
B = Derecha(B, Len(B) - 1)
Fila
OCT_to_BIN = B
Uso final: Convertir octal a hexadecimal
Entrada: Oct (número octal)
Tipo de datos de entrada: Cadena
Salida: OCT_to_HEX (número base hexadecimal)
Tipo de datos de salida: cadena
El número máximo de entradas es 2147483647 caracteres, public oct _ to _ hex (byval oct como cadena) es cadena.
Mostrar Bin como una cadena
Bin = OCT_to_BIN(Oct)
OCT_to_HEX = BIN_to_HEX(Bin)
Uso final: Convertir hexadecimal a octal
Entrada: Hex (número hexadecimal)
Tipo de datos de entrada: cadena
Salida: HEX_to_OCT (número octal)
Salida tipo de datos: cadena
El número máximo de entradas es 2147483647 caracteres, hexadecimal público _ a _oct (byval hexadecimal como cadena) es una cadena.
Mostrar Bin como una cadena
Hex = UCase (hexadecimal)
Bin = HEX_to_BIN (hexadecimal)
HEX_to_OCT = BIN_to_OCT(Bin )
Fin
Función propia de VB:
Decimal a octal: decimal (número)
Hexadecimal a octal: oct("; H" número de amplificador)
Decimal a hexadecimal: Hexadecimal (número)
Octal a hexadecimal: Hexadecimal (";O" ampNum) conversión de hexadecimal a decimal.
Atenuar cadena como cadena
str = Texto2. Texto
Texto10. texto = CLng( amp; H " ampstr)