首页资源分类嵌入式处理器51内核 > VB与单片机串口编码备用

VB与单片机串口编码备用

已有 445025个资源

下载专区

文档信息举报收藏

标    签:单片机

分    享:

文档简介

VB与单片机串口单元通讯的源代码,自己加了注释和理解,有助于初学者对VB和单片机通讯的学习。

文档预览

单片机C语言 void UART_init() { SCON=0x58;//选择串口工作方式,打开允许接收 TMOD=0x21;//定时器1工作在方式2,定时器0工作在方式1 TH1=0xfd;//实现波特率9600b/s(系统时针11.0592MHZ) TR1=1; //启动定时器T1 ET1=0; ES=1; //允许串行口中断 PS=1; //设计串口中断优先级 EA=1; //单片机中断允许 } com_interrupt(void) interrupt 4 using 3 { if(RI) //处理接收中断 { RI=0; //清除中断标志位 P0=SBUF;//接收串口数据,送入P0口 } } Private Sub form_load() DataOutValue=0 '将发送变量值预设为0 MSComm1.Settings= "9600,n,8,1" '设置数据传输率和发送字符格式 MSComm1.CommPort=3 '设置通信串口,使用虚拟串口 MSComm1.OutBufferSize=512 '设置发送缓冲区512B MSComm1.OutBufferCount=0 MSComm1.PortOpen=True '打开虚拟串口 end Sub Private Sub Check1_Click(Index As Integer) If Check1(Index).Value=1 Then '该复选框是否被选中 DataOutValue=DataOutValue Or 2^Index '若选中将该位置的输出变量设置为1 Else DataOutValue=DataOutValue And(255-2^Index) '否则设置为0 End If End Sub Private sub Command1_Click() temp(1)=CByte(Str(DataOutValue)) MSComm1.Output=temp End sub Private Sub Command2_Click() MSComm1.PortOpen=False Unload Me End sub

Top_arrow
回到顶部
EEWORLD下载中心所有资源均来自网友分享,如有侵权,请发送举报邮件到客服邮箱bbs_service@eeworld.com.cn 或通过站内短信息或QQ:273568022联系管理员 高员外,我们会尽快处理。