单片机与计算机通信

2007-07-16 01:37:02 725 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于STC12C5A60S2系列1T 8051单片机的实际单片机通过串口通信中断方式接收计算机用串口调试助手软件发送的一帧数据并返回给计算机串口调试助手软件显示出来的应用作用：用来设置STC12C5A60S2系列1T 8051单片机串口通信类型、波特率main.c#define uchar unsigned char//自定义无符号字符型为uchar#define uint unsigned int//自定义无符号整数型为uintvoid PortModeSet()//端口模式设置函数void main()//主函数//定义数据变量为88//定义数据变量为1250//定义数据变量为12.5//定义数据变量为55。阅读详情

哪位大侠能教我编一个用VB语言，PC与单片机进行串口通讯的程序，串口RS232，波特率4800

...全文

保姆级教程：用Jetson Orin Nano和ROS2 Humble搞定PIXhawk 4飞控通信（含配置文件详解）本文提供了一份详细的Jetson Orin Nano与PIXhawk 4飞控通信配置指南，涵盖硬件连接、ROS2 Humble环境搭建、MAVROS2配置及通信调试全流程。通过实战案例和配置文件详解，帮助开发者快速实现无人机上位机与飞控的稳定通信，适用于无人机开发与自动化控制场景。阅读详情

chenguang03

单片机/工控 27,522 成员 28,796 内容

+ 关注 + 加入社区

切换为时间正序

chenguang03 2007-07-18

打赏
举报

运行出错：use-defined type not defined
显示的是这行Public Sub SubReceive(Addr As Byte, dataType As Byte, RcvUART As Byte, CheckOut As Boolean, MSC As MSComm)

whua6238 2007-07-17

打赏
举报

不错

Xwitch 2007-07-16

打赏
举报

用VB的MScom控件
波特率可以用软件计算
具体原理一般的教材都有叙述

下面给出VB部分程序
根据通讯协议不同有所不同，只做参考
波特率9600

／／初始化
Private Sub Form_Load()
With MSC
.CommPort = 1
.Settings = "9600,N,8,1"
.InputLen = 6

.OutBufferSize = 6
.SThreshold = 0
.RThreshold = 0
.InputMode = comInputModeBinary
.PortOpen = True

End With
End Sub

／／接收子程序
Public Sub SubReceive(Addr As Byte, dataType As Byte, RcvUART As Byte, CheckOut As Boolean, MSC As MSComm)
Dim instring() As Byte, temp As Variant
Dim Checksum As Long, bytChecksum As Byte, i As Integer

MSC.InBufferCount = 0
Do Until MSC.InBufferCount >= 6
DoEvents
Loop
temp = MSC.Input
instring = temp
Addr = instring(1)
dataType = instring(2)
RcvUART = instring(3)

Checksum = 0 '校验码等于收到的校验码，CheckOut为ture,否则为flase
For i = 0 To 3
Checksum = (Checksum + instring(i))
Next i
bytChecksum = Checksum Mod 256#
If bytChecksum <> instring(4) Then
CheckOut = False
Else
CheckOut = True
End If

End Sub

／／发送子程序
Public Sub SubSend(Addr As String, dataType As String, UARTdata As String, MSC As MSComm)
Dim Sentdata(0 To 5) As Byte
Dim i As Integer
Dim Checksum As Long

Sentdata(0) = Val("&h42")
Sentdata(1) = Val("&h" & Addr)
Sentdata(2) = Val(dataType)
Sentdata(3) = Val("&h" & UARTdata)

Checksum = 0
For i = 0 To 4
Checksum = (Checksum + Sentdata(i))
Next i
Sentdata(4) = Checksum Mod 256#

Sentdata(5) = Val("&h24")

MSC.Output = Sentdata

End Sub

lbing7 2007-07-16

打赏
举报

VB语言

看它专有的那个控件!!

这就OK了

wxf0204 2007-07-16

打赏
举报

网上很多现成的代码，可以下载！

单片机与计算机通信

相关推荐