No.92536 作者:ceooo 邮件:ceooo@126.com ID:52576 登陆:1次 文章数:1篇 最后登陆IP:60.177.62.216 最后登陆:2006/5/5 22:06:39 注册:2006/5/5 17:05:47 财富:110 发帖时间:2006/5/5 22:00:40 发贴者IP:60.177.62.216 标题:ceooo:CPLD与计算机双工通信,求此方案源代码 摘要:No.92536CPLD与计算机双工通信,求此方案源代码 CPLD与计算机双工通信 一、 目的 1. 掌握cpld全双工异步通信接口设计 2. 掌握计算机异步通信接口设计 二、 仪器 1. Pc机一台 2. Max+plusii cpld开发系统一套 3. Cplddn—3 型下载软件一套 4. Cpldee—3 型实验开发系统一套 三、 要求 1. 用硬件描述语言设计全双工的异步串行口。 2. 用计算机进行异步通信的程序设计。 四、 内容及步骤 1. 硬件电路设计 2. 利用ahdl (或者vhdl)语言进行全双工异步通信口设计,具体内容如下: (1) cpld利用接收接口电路接收计算机发来的地址(或数据),进行译码并显示, (2) cpld将接收到的地址与本机地址相比较如果相符,则将输入端口的8位数据通过发送端口送给计算机。 (3) cpld全双工通信的ahdl 程序已经写好了。 (4) 管脚分配、编译、下载。(注:本实验适用2、4型实验箱) 3. 计算机软件设计 (1) 该通信软件采用Visual Basic6.0 设计,其中“发送指令”—TEXT1,“瞬时数据”—TEXT2,“接收次数”—TEXT3,“接收时间”—TEXT4,“波特率”—TEXT5 。 (2) 界面设计样图如下: 在附件中,请查看. (4)软件参考程序如下: Private Sub com1_Click() mscomm1.CommPort = 1 form1.com1.Checked = True form1.com2.Checked = False End Sub Private Sub com2_Click() mscomm1.CommPort = 2 form1.com2.Checked = True form1.com1.Checked = False End Sub Private Sub command1_click() Text3.Text = 0 Text4.Text = 0 Dim mms(0) As Byte mms(0) = Val(Text1.Text) Dim buffer As Variant Dim arr() As Byte '设定并打开端口 If mscomm1.portopen = True Then mscomm1.portopen = True End If mscomm1.output = mms Do DoEvent ......
>>返回讨论的主题
|