如何用Clash-lang实现DE0-nano与PC通过TTL-232R-3V3电缆单比特通信

阿华AIGC实验室

2026-5-13

实现Altera DE0-nano与PC的单比特逐次串口通信

我来帮你搞定这个单比特逐次传输的问题！其实TTL-232R-3V3支持的单比特传输就是咱们常说的UART异步串行通信——它会把8比特并行数据拆成单个比特，按顺序加上起始位、停止位这些时序标识来传输，电缆已经帮咱们搞定了电平转换，咱们只需要在FPGA端用Clash实现对应的时序逻辑就行。下面一步步给你讲清楚怎么改代码和实现：

1. 先搞懂UART的基本工作流程

UART单比特传输的每个字节都会包含这些部分：

起始位：1个低电平比特，用来告诉接收端“要开始传数据了”
数据位：8个比特（就是你要传的内容，可按需调整）
停止位：1-2个高电平比特，告诉接收端“这个字节传完了”
空闲状态下串口线保持高电平，这是UART的标准约定。

2. 修改Clash代码实现单比特发送

你之前的代码是直接输出8比特并行数据，现在要改成串行逐比特发送，核心是用状态机来管理整个发送流程：从空闲等待，到发送起始位、逐个数据位，最后发送停止位。

2.1 定义UART发送的状态类型

先定义几个状态来描述发送过程：

data UARTTxState = Idle | StartBit | DataBit Int | StopBit deriving (Eq, Show)

Idle：空闲状态，等着要发送的数据
StartBit：正在发送起始位（低电平）
DataBit n：正在发送第n个数据位（从0到7，对应8比特数据的每一位）
StopBit：正在发送停止位（高电平）

2.2 完整的单比特发送Clash代码

这里以9600波特率为例（你可以根据需求改成其他波特率，比如115200），结合DE0-nano的50MHz时钟来实现：

import Clash.Prelude

-- 状态类型：计数器、UART发送状态、待发送数据、当前发送的比特索引
type ST = (BitVector 28, UARTTxState, BitVector 8, Int)

uartTx :: ST -> BitVector 8 -> (ST, Bit)
uartTx (cntr, state, txData, bitIdx) input = ((cntr', state', txData', bitIdx'), txOut)
  where
    -- 配置参数：波特率和时钟频率
    baudRate = 9600
    clockFreq = 50000000
    -- 计算每个比特需要的时钟周期数：50MHz时钟下，9600波特率对应约5208个周期
    bitPeriod = clockFreq `div` baudRate
    -- 要发送的ASCII字符
    ascii_Y = 0x59
    ascii_N = 0x4E

    -- 确定当前要发送的数据：空闲状态下更新，发送过程中保持不变
    txData' = case state of
                Idle -> if input == maxBound then ascii_Y else ascii_N
                _    -> txData

    -- 状态转换和计数器逻辑
    (cntr', state', bitIdx', txOut) = case state of
      -- 空闲状态：输出高电平，计数器归0后触发发送起始位
      Idle -> if cntr == 0 
              then (bitPeriod - 1, StartBit, 0, low)
              else (cntr - 1, Idle, 0, high)
      
      -- 发送起始位：计数器到0后，切换到发送第0位数据
      StartBit -> if cntr == 0
                  then (bitPeriod - 1, DataBit 0, 0, txData' ! 0)
                  else (cntr - 1, StartBit, 0, low)
      
      -- 发送数据位：从第0位到第7位逐个发送，发完后切换到停止位
      DataBit n -> if cntr == 0
                   then if n == 7
                        then (bitPeriod - 1, StopBit, 0, high)
                        else (bitPeriod - 1, DataBit (n+1), 0, txData' ! (n+1))
                   else (cntr - 1, DataBit n, 0, txData' ! n)
      
      -- 发送停止位：计数器到0后回到空闲状态，等待下一次发送
      StopBit -> if cntr == 0
                 then (0, Idle, 0, high)
                 else (cntr - 1, StopBit, 0, high)