¿Una "conversión de número a sistema" de programación informática?

Uso: Convertir decimal a binario.

Entrada: Dec (número decimal)

Tipo de datos de entrada: entero largo

Salida: DEC_to_BIN (número binario)

Datos de salida tipo: Cadena

El número máximo ingresado es 2147483647. El número máximo de salidas es 11111111165438. +011111111111 (31).

Función pública DEC_to_BIN en forma de cadena (Dec es larga)

DEC_to_BIN = " "

Hacer mientras Dec & gt0

2 de diciembre. Diciembre a noviembre

Dic = Dec \ 2

Anillo

Función final

Uso: 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 entradas es 1111111111165438. 438+0111111111 (31 1), salida.

Función pública BIN_to_DEC (ByVal Bin es String) para Long

Atenuar siempre que i

Para i = 1 a Len(Bin)

BIN_to_DEC = BIN_to_DEC * 2+Val(Mid(BIN,I,1))

Siguiente yo

Finalizar función

Uso: Convertir hexadecimal a binario.

Entrada: Hex (número hexadecimal)

Tipo de datos de entrada: cadena

Salida: número hexadecimal a binario

Tipo de datos de salida: string

El número máximo de caracteres ingresados ​​es 2147483647.

Función pública HEX_to_BIN (ByVal Hex As String) como una cadena

Atenuar mientras yo

Marcar B como una cadena

Hex = UCase (Hex)

Para i = 1 a Len (Hex)

Seleccione un valor intermedio entre mayúsculas y minúsculas (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

E izquierda(B, 1) = "0"

B = derecha(B, Len (B) - 1)

Fila

HEX_to_BIN = B

Función final

Uso: 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 : string

El número máximo de caracteres ingresados ​​es 2147483647.

Función pública BIN _ a _ HEX(ByVal BIN como cadena)Como cadena

Atenuar mientras yo

Marcar H como una cadena

if Len(Bin) Mod 4<>Then 0

Bin = String(4 - Len(Bin) Mod 4, "0")& box

Terminará 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 & "1"

Caso "0010": H = H & "2"

Caso" 0011 ":H = H & amp;"3"

Caso" 0100 ":H = H & amp;"4"

Caso" 0101 ": H = H & "5"

Caso " 0110 ":H = H &"6"

caso " 0111 " :H = H & "7"

p>

Caso" 1000 ":H = H &"8"

Caso" 1001 ":H = H &" 9"

Caso" 1010 ": H = H &" A "

caso " 1011 ":H = H &" B "

Caso " 1100 ":H = H &" C "

caso " 1101 ":H = H &" D "

caso " 1110 ":H = H & " E "

caso " 1111 " :H = H & & >

Y Izquierda(H, 1) = "0 "

H = Derecha(H, Len(H) - 1)

Fila

BIN_to_HEX = H

Fin de función

Uso: Convertir hexadecimal a decimal.

Entrada: Hex (número hexadecimal)

Tipo de datos de entrada: cadena

Salida: número hexadecimal (número decimal)

Tipo de datos de salida: largo

El número máximo de entrada es 7FFFFFFF y el número máximo de salida es 2147483647.

Función pública HEX _ a _ DEC (ByVal HEX como cadena) Entero largo

Dim B As Long

Atenuar B As Long

Hex = UCase(Hex)

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

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

Finalizar función

Uso: Convertir decimal a hexadecimal.

Entrada: Dec (número decimal)

Tipo de datos de entrada: Entero largo

Salida: Número decimal (número hexadecimal)

Salida tipo de datos: cadena

El número máximo de entrada es 2147483647 y el número máximo de salida es 7FFFFFFF.

Función pública DEC_to_HEX en forma de cadena (Dec es larga)

A oscura como una cadena

DEC_to_HEX = " "

Hacer mientras Dec & gt0

a = CStr(Diciembre 2006 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

Función final

Uso: 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 17777777.

Función pública DEC_to_OCT en forma de cadena (la misma longitud que Dec)

Diciembre a Octubre = " "

Hacer mientras Dec & gt0

Diciembre a Octubre = 8 de Diciembre.

Diciembre a Octubre

Dic = Dec \ 8

Anillo

Función final

Uso: 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 entrada es 1777 7777 y el número máximo de salida es 2147483647.

La función pública OCT_to_DEC (ByVal Oct en forma de cadena) es larga

Dim B As Long

Dim B As Long

Para i = 1 a Len(Oct)

Seleccione caso Mid(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 I

Octubre a Diciembre = B

Función final

Uso: 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 ingresados ​​es 2147483647.

Función pública BIN _ a _ OCT(ByVal BIN como cadena)Como cadena

Atenuar mientras yo

Marcar H como una cadena

si Len(Bin) Mod 3 <> entonces 0

Bin = String(3 - Len(Bin) Mod 3, "0") & box

Terminará si...

Para i = 1 a Len(Bin) paso 3

Seleccione caso Mid(Bin, I, 3)

Caso " 000 " :H = H & "0"

Caso "001": H = H & "1"

Caso "010":H = H & "2"

Caso" 011 ":H = H & amp;"3"

Caso" 100 ":H = H & amp;"4"

Caso" 101 ":H = H & "5"

Caso " 110 ":H = H &"6"

caso " 111 " :H = H & "7"

Finalizar selección

Siguiente yo

E Izquierda(H, 1) = "0 "

H = Derecha(H, Len( H) - 1)

Fila

BIN_to_OCT = H

Fin de función

Uso: 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 caracteres ingresados ​​es 2147483647.

Función pública OCT_to_BIN(ByVal Oct As String) como una cadena

Atenuar tanto como yo

Marcar B como una cadena

Para i = 1 a Len(Oct)

Seleccione Caso Mid(Oct,I,1)

Caso "0": B = B&"000"

Caso "1": B = B&"001"

Caso "2": B = B&"010"

Caso "3": B= B&" 011"

Caso "4": B = B&"100"

Caso "5": B= B&"101"

Caso "6 ":B = B&"110"

Caso "7": B=B&"111"

Finalizar selección

Siguiente yo

Y Izquierda(B, 1) = "0 "

B = Derecha(B, Len(B) - 1)

Línea

OCT_to_BIN = B

Fin de función

Uso: Convertir octal a hexadecimal

Entrada: Oct(número octal)

Tipo de datos de entrada: cadena

Salida: OCT_to_HEX (número hexadecimal)

Tipo de datos de salida: cadena

El número máximo de caracteres ingresados ​​es 2147483647.

Función pública OCT_to_HEX(ByVal Oct As String) como cadena

Mostrar Bin como cadena

Bin = OCT_to_BIN(Oct)

OCT_to_HEX = BIN_to_HEX(Bin)

Fin de función

Uso: Convertir hexadecimal a octal.

Entrada: Hex (número hexadecimal)

Tipo de datos de entrada: cadena

Salida: HEX_to_OCT (número octal)

Tipo de datos de salida : string

El número máximo de caracteres ingresados ​​es 2147483647.

Función pública HEX_to_OCT(ByVal Hex As String) como cadena

Mostrar Bin como cadena

Hex = UCase (hexadecimal)

p >

Bin = HEX_to_BIN(Hex)

HEX_to_OCT = BIN_to_OCT(Bin)

Función final

Función incorporada de VB:

Decimal a octal: decimal (número)

Hexadecimal a octal: oct(" & H " & amp número)

Sistema de decimal a hexadecimal: Hexadecimal (dígitos)

Octal a hexadecimal: Hexadecimal ("&;O" y dígitos