datasheet
超过460,000+ 应用技术资源下载
null

VB与单片机串口编码备用

  • 1星
  • 日期: 2015-06-05
  • 大小: 1.26KB
  • 所需积分:1分
  • 下载次数:0
  • favicon收藏
  • rep举报
  • 分享
  • free评论
标签: 单片机

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
更多简介内容

评论

下载专区


TI最新应用解决方案

工业电子 汽车电子

$(function(){ var appid = $(".select li a").data("channel"); $(".select li a").click(function(){ var appid = $(this).data("channel"); $('.select dt').html($(this).html()); $('#channel').val(appid); }) })