导航: 老古网老古论坛XMOS公共讨论区XMOS开源项目区单片机程序设计嵌入式系统广告区域
→发表看法:[ceooo]CPLD与计算机双工通信,求此方案源代码



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 ......

>>返回讨论的主题



  发表回复
用户名   *您没有注册?
密码   *
验证码   * .
标题   *
心情
随便说说    我回答你    最新发现    得意的笑   
气死我了    真是没劲    坚决同意    表示反对   
大家过来    好奇怪哟    懒得理它    大家小心   
文件上传
内容


字体:      字体大小:    颜色:
粗体 斜体 下划线 居中 超级连接 Email连接 图片 Flash图片 Shockwave文件 realplay视频文件 Media Player视频文件 QuickTime视频文件 引用 飞行字 移动字 发光字 阴影字 查看更多的心情图标 背景音乐
点击加入表情
                         
选项
有回复时用短消息通知您?

   




老古网执行:31毫秒 最大:5234毫秒 查询6次