完善资料让更多小伙伴认识你,还能领取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 EL 1板卡-i2c与从设备通讯编程示例之i2c-tools工具使用
652 浏览 0 评论
stc15f2k60s2利用串口传输字模存储到eeprom并进行点阵显示
696 浏览 1 评论
1264 浏览 0 评论
588 浏览 0 评论
嵌入式学习-飞凌嵌入式ElfBoard ELF 1板卡-串口通讯编程示例之串口编写程序
1190 浏览 0 评论
【youyeetoo X1 windows 开发板体验】少儿AI智能STEAM积木平台
11598 浏览 31 评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-11-3 10:12 , Processed in 0.733235 second(s), Total 73, Slave 54 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号