¡¡¡Buscando un módulo funcional para la conversión de decimal a binario escrito en código VHDL, por favor!!!
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 ) p>
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'