关于自定义Emu8086 8位二进制虚拟设备开发的技术咨询

听起来你已经搞定了UI部分，接下来把十进制输出逻辑改成8位二进制的工作其实没那么复杂——我之前也折腾过类似的Emu8086虚拟设备，给你拆解下最关键的几个修改步骤：

1. 替换核心转换逻辑：把数值转成8位格式化二进制 #

原来的LED_Display示例是把端口输入值转成十进制字符串，现在我们要改成输出带空格分隔的8位二进制（比如1111 1111）。添加一个专用的转换函数：

Function ValueTo8BitBinary(ByVal intValue As Integer) As String
    ' 先把值限制在8位无符号范围内（0-255），避免超出的数值干扰
    intValue = intValue And &HFF
    
    ' 转成二进制字符串，自动补前导零到8位
    Dim rawBinStr As String
    rawBinStr = Trim(Str$(intValue, 2))
    rawBinStr = String(8 - Len(rawBinStr), "0") & rawBinStr
    
    ' 插入空格分成两组4位，方便阅读
    ValueTo8BitBinary = Left(rawBinStr, 4) & " " & Right(rawBinStr, 4)
End Function

2. 适配Emu8086的端口交互逻辑 #

Emu8086的虚拟设备是通过端口读写和模拟器通信的，找到示例里的Emu_WritePort回调函数，把原来的十进制更新逻辑换成我们的二进制转换：

' 定义一个全局变量保存当前要显示的值（可选，用于读端口回调）
Dim CurrentDisplayValue As Integer

Private Sub Emu_WritePort(ByVal Port As Integer, ByVal Value As Integer)
    ' 替换成你设备监听的端口号，这里用示例常用的&H300
    If Port = &H300 Then
        CurrentDisplayValue = Value
        ' 调用转换函数并更新UI控件（比如你的二进制显示Label）
        lblBinaryOutput.Caption = ValueTo8BitBinary(Value)
        
        ' 如果你的UI是用LED控件模拟每一位，可以额外加这段
        UpdateIndividualLEDs Replace(lblBinaryOutput.Caption, " ", "")
    End If
End Sub

Private Sub Emu_ReadPort(ByVal Port As Integer, ByRef Value As Integer)
    ' 如果需要支持模拟器读取当前显示值，保留这段逻辑
    If Port = &H300 Then
        Value = CurrentDisplayValue
    End If
End Sub

3. 优化UI的直观性（可选） #

如果你想做更像硬件的LED显示效果，而不是纯文本，可以用VB6的Shape控件模拟8个LED灯，然后加一个更新LED状态的函数：

Sub UpdateIndividualLEDs(ByVal rawBinStr As String)
    ' rawBinStr是不带空格的8位二进制字符串，比如"11111111"
    Dim i As Integer
    For i = 1 To 8
        ' 假设你的Shape控件命名为shpLED1到shpLED8
        If Mid(rawBinStr, i, 1) = "1" Then
            Controls("shpLED" & i).FillColor = vbRed ' 亮灯状态
            Controls("shpLED" & i).BorderColor = vbDarkRed
        Else
            Controls("shpLED" & i).FillColor = vbGray ' 熄灯状态
            Controls("shpLED" & i).BorderColor = vbDarkGray
        End If
    Next i
End Sub

4. 测试验证 #

改完代码后，在Emu8086里写一段简单的汇编代码测试：

ORG 100h

MOV AL, 0FFH   ; 加载8位最大值
OUT 300H, AL   ; 输出到我们的设备端口
MOV AL, 05H    ; 加载小数值测试
OUT 300H, AL

RET

运行模拟器后，你的设备应该分别显示1111 1111和0000 0101，LED控件也会对应亮灭。

内容的提问来源于stack exchange，提问作者Heidrake