跪求高手指点:单片机(freescale的32位微控制器MPC564)与PC机串行通讯软件设计,PC机上用VB编,单片机段用VC++编的,急,非常急,毕业设计要用的,我不是学计算机的!!!!!!!
以下是我的编的PC端程序(VB),望高手指点,还求单片机段的程序,要C语言的,万分感谢!Dim bStartComm As Boolean
Dim strInputAll As String
Private Sub cmdClose_Click()
MSComm1.PortOpen = False
cmdclose.Enabled = False
cmdopen.Enabled = True
cmdsend.Enabled = False
End SubPrivate Sub cmdOpen_Click()
MSComm1.PortOpen = True
cmdopen.Enabled = False
cmdclose.Enabled = True
cmdsend.Enabled = True
End SubPrivate Sub cmdSend_Click()
MSComm1.Output = txtsend.Text
End SubPrivate Sub MSComm1_OnComm()
Dim strInBuffer As String
Select Case MSComm1.CommEvent
'Events
Case comEvReceive
strInBuffer = MSComm1.Input
If bStartComm = False Then
bStartComm = True
strInputAll = ""
End If
strInputAll = strInputAll + strInBuffer
If bStartComm = True Then
timer_COMM.Enabled = False
timer_COMM.Enabled = True
End If
Case comEvSend
Case comEvCTS
Case comEvDSR
Case comEvCD
Case comEvRing
' Errors
Case comEventBreak
Case comEventCDTO
Case comEventCTSTO
Case comEventDSRTO
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB
End Select
End SubPrivate Sub timer_COMM_Timer()
timer_COMM.Enabled = False
bStartComm = False
txtreceive.Text = strInputAll
End Sub
以下是我的编的PC端程序(VB),望高手指点,还求单片机段的程序,要C语言的,万分感谢!Dim bStartComm As Boolean
Dim strInputAll As String
Private Sub cmdClose_Click()
MSComm1.PortOpen = False
cmdclose.Enabled = False
cmdopen.Enabled = True
cmdsend.Enabled = False
End SubPrivate Sub cmdOpen_Click()
MSComm1.PortOpen = True
cmdopen.Enabled = False
cmdclose.Enabled = True
cmdsend.Enabled = True
End SubPrivate Sub cmdSend_Click()
MSComm1.Output = txtsend.Text
End SubPrivate Sub MSComm1_OnComm()
Dim strInBuffer As String
Select Case MSComm1.CommEvent
'Events
Case comEvReceive
strInBuffer = MSComm1.Input
If bStartComm = False Then
bStartComm = True
strInputAll = ""
End If
strInputAll = strInputAll + strInBuffer
If bStartComm = True Then
timer_COMM.Enabled = False
timer_COMM.Enabled = True
End If
Case comEvSend
Case comEvCTS
Case comEvDSR
Case comEvCD
Case comEvRing
' Errors
Case comEventBreak
Case comEventCDTO
Case comEventCTSTO
Case comEventDSRTO
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB
End Select
End SubPrivate Sub timer_COMM_Timer()
timer_COMM.Enabled = False
bStartComm = False
txtreceive.Text = strInputAll
End Sub
解决方案 »
- 自做开发环境
- 关于[修改msflexgrid单元格]的问题(有难度)
- Access数据写入excel问题
- 有什么最快的方法取得网页的title
- 有没有一个这样的类似left()的API函数,能取得中英文字混杂的字符串的前10个字符,即汉字算2个字符。
- string里面带"的,怎么写啊?
- 我想向局域网内N台计算机同时发送一个文件,如何处理呢?急!!!在线等.
- 如何在富文本框中设定选择的字符串具有“超级链接”?
- 在SQL语句中使用带'|'的字符串的问题?????!!!!!盼复◎◎谢谢!!
- VB WINSOCK 客户端如何获取SQL返回记录的条数?
- VB连接sql怎样才能变换IP
- 怎样实现彩色文字和背景
你认为有多少VB程序员会单片机开发?
有的,只是习惯用c开发而已楼主你给的是vb我看不懂你把你的题目说下,或许还能给你看看