完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
` 本帖最后由 (帅)哈哈 于 2013-2-10 01:45 编辑 主要问题是数据转换不知道怎么做,导致单片机接受的数据不能用。 哪位朋友能帮帮我,谢谢! ================================================================== VB端主要程序: 8个checkbox框对应8个LED加上一个发送按钮Command1 Private Sub Command1_Click() Dim A A = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64 + Check8.Value * 128 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '打开串口 End If MSComm1.OutBufferCount = 0 MSComm1.Output = Chr(CInt(A)) '向单片机发送数据 End Sub ================================================================== 单片机端主要程序: 接受一个数据传送P1口,控制8个LED亮灭。 void ser() interrupt 4 { RI=0; P1=SBUF; } ` |
|
相关推荐
1个回答
|
|
不错的文件,值得收藏
|
|
|
|
你正在撰写答案
如果你是对答案或其他答案精选点评或询问,请使用“评论”功能。
嵌入式学习-飞凌嵌入式ElfBoard ELF 1板卡-使用AHT20进行环境监测之AHT20传感器介绍
510 浏览 0 评论
792 浏览 0 评论
833 浏览 1 评论
基于瑞萨FPB-RA4E2智能床头灯项目——1编译环境搭建与点亮驱动ws2812全彩LED
797 浏览 0 评论
嵌入式学习-飞凌嵌入式ElfBoard ELF 1板卡-LCD显示图片编程示例之介绍mmap
1244 浏览 0 评论
【youyeetoo X1 windows 开发板体验】少儿AI智能STEAM积木平台
11814 浏览 31 评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-11-28 13:52 , Processed in 0.758000 second(s), Total 71, Slave 52 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号