Red de conocimiento informático - Conocimiento de la instalación - ¡¡¡Buscando un módulo funcional para la conversión de decimal a binario escrito en código VHDL, por favor!!!

¡¡¡Buscando un módulo funcional para la conversión de decimal a binario escrito en código VHDL, por favor!!!

'Coloque 1 cuadro de texto en el formulario, TEXTO se establece en 0, 4 botones de opción, Título se establece en 10, 2, 16, 8 decimal

Dim Flag As Integer 'Registra el valor decimal del texto actual box, Puede ser: 0 - decimal; 2 - binario; 8 - octal; 16 - hexadecimal

Private Sub Form_Resize() 'Ventana de gradiente vertical

Dim i, j As Long

Const ColorStart = amp;H0

Const ColorEnd = amp;HFF

j = ColorStart

Form1.AutoRedraw = True

p>

Para i = 1 a Form1.ScaleHeight

Form1.Line (0, i) - (Form1.ScaleWidth, i), j

j = Int(ColorStart (ColorEnd - ColorStart) / Form1.ScaleHeight * (i - HFF), j

For i = 1 To Form1.ScaleHeightScaleHeight * (i - i Mod 300)) * amp; /p>

Siguiente i

End Sub

Private Sub Option1_Click() 'El primer OptionButton es responsable de convertir varios binarios a decimales

Dim i Mientras

Dim Des As Long

Dim Resu As String

Des = 0

Resu = Texto1.

Si Flag = 2 Entonces

For i = 1 To Len(Text1.

Des = Des /p>

Seleccione Case Right(Resu, 1 )

Caso "A"

Des = Des 10 * (16 ^ (i - 1))

Caso "B"

Des = Des 11 * (16 ^ (i - 1))

Caso "C"

Des = Des 12 * (16 ^ (i - 1))

Caso "D"

Des = Des 13 * (16 ^ (i - 1))

Selección final

Des = Int(Des / 16)

Wend

Text1.Text = Resu

Bandera = 16

Fin Sub

Privado Sub Option4_Click( ) 'Convertir a número octal

Dim i, Des As Long

Dim Resu As String

Si Flag lt 0 Then Option1_Click;

'Si no es decimal, primero convierta a un número decimal

Resu = ""

Des = CLng(Text1.Text) 'Convierta 10 a 8

Mientras que Des lt;gt; 0

Resu = Des Mod 8 amp Resu

Des = Int(Des / 8)

Wend

Text1.Text = Resu

Flag = 8

Suplemento de respuesta final '¡Agregue atributos predeterminados!

'La propiedad de texto del cuadro de texto está establecida en 8 (decimal)

'El valor de OptionButton1 está establecido en verdadero'