毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

LED显示屏的计算机远程控制系统 第10页

更新时间:2009-5-25:  来源:毕业论文
LED显示屏的计算机远程控制系统 第10页
AsSingle)
Text4.Text二“点此通过RS232直接连接计算机收发数据“
EndSUb
Pr1vateSubcomZ_Click()‘初始化串行口,并选择串行口COMZ
MSComml.PortOPen==False
MSComml.Comn1Port二2
IfMSCofnml.PortOPenThen
MsgBox”comZ正在使用,选用其他端口”
Ex1tSub
Else
MSComml.Portopen=True
eom2.Value=True
EndIf
EndSUb
Pr1vateSubeomZJouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
YAsSingle)
Text4.Text二”点此通过modem拨电话连接计算机收发数据”“
EndSub
Privatesubcom3_Cliek()‘初始化串行口,并选择串行口COM3
MSComml.PortOPen=False
MSComml.ColnlllPort=3
丁fMSComml.PortopenThen
MsgBoX”com3正在使用,选用其他端口“
ExitSub
E土se
MSComml.PortOPen=True
eom3.Value=TrLIe
EndIf
EndSub
Pr1vateSubeom3_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
YAsSingle)
T。、t4.T。、t\”点此通过modem拨电话连接计算机收发数据”
EndSub
Pr1vateSubeom4_Cliek()‘初始化串行口,并选择串行口COM4
MSComml.PortOPen二False
MSComml.Comn1Port=4
IfMSComml.PortOPenThen
M、gR(、X”c(。刁正在使用,选用其他端口”
ExitSub
Else
MSComml.PortOPen=True
eom4.Value=TrUe
3l
重庆大学硕士学位论文
EndIf
EndSub
PrivateSubeom4_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
YAsSingl。)
TeXt4.Text=“点此通过modem拨电话连接计算机收发数据”
EndSub
Pr1vateSubComs_Click()‘初始化串行口,并选择串行口COMS
MSComml.PortOPen=False
MSComml.CommPort二5
IfMSComml.PortOPenThen
M、gBoX”Coms正在使用,选用其他端口”
ExitSub
E15e
M只Comml.Portopen二True
eoms.Value=True
EndIf
EndSub
Pr1vdtes。beoms_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,
YAsSingle)
Text4.Text二“点此通过modem拨电话连接计算机收发数据”
EndSub
Pr1vatesubeommandz_eliek()‘点击”转发RS232数据”按钮转发数据
buffer=““
MSComml.Output=send&Chr(13)
EndSub
P:ivatesubeommandZ_C一ick()‘点击清除按纽,使Modem文本接收区清空。
buffer=“”
Text3.Text=,,刀
EndSub
Pr1vatesubeommands一lick()‘发送RS232文本区的文字
buffer=”“
MSComml.Output二Trim(Text6.Text)
EfldSub
Pr1vatesubeommand6_CliCk()‘点击“清除”按纽,使RS232文本接收区清空。
send=,,,,
buffer=““
Texts.Text=,,,,
EndSub
Pr1vatesubhangup夕lick()‘点击“挂断”按钮,终止远程连接
Dim1AsInteger
M只C()mm1.OLztput=“+++”
Fori=1To10000
32
重庆大学硕士学位论文
NeXti
MSComml.Output二”ATHO,,&vbCrLf
EndSub
P丫iVate只ubeommand3一lick()‘发送Modem文本区的文字
buffer=,,,,
MSComml.Output==Trim(Text2.Text)
EndSub
Pr1Vatesubeommand4_elick()‘关闭端口,退出系统。
MSComml.Output==”ATHO”&vbCrLf
MSComml.PortOPen=flase
Efld
EndSub
Pr1vatesubFor.m_Load()‘初始化
MSCo几Inll.Comm尸ort=1
buffer二,,,,
send=,,,,
On匕rrorResumeNext
IfMSComml.PortOPenThen
MSgBoX“coml正在使用,选用其他端口“
ExitSub
巨1Se
MSComml.PortOPen=True
EndIf
EndSub
PrivateSubMSComml_onComm()
Dim1As工nteger
DimstrAsString
SeleetCaseMSComml.CommEvent
CaseeomEvCD
CaseeomEvCTS
CaseeomEvDSR
CaseeomEvRing
MsgBox”按应答连接电脑“
CdseeomEvReceive
buffer=buffer&MSComml.InPut
Ifeoml.ValUeThen
send==buffer
1’exts.Text=send
Else
Text3.Text=buffer
EndIf
CaseeomEvsend
33
重庆大学硕十学位论文
EndSeleet
EndSub
Pr1vateSubresponse多lick()‘点击“应答”按钮,响应远程呼叫。
MSComml.Output=“ATA”&Chr(13)
EndSub
软件经编译和安装运行,所要求的功能完全实现。
重庆大学硕士学位论文
4接口板硬件电路设计
4.1接口板硬件框图
远程数据
调调调调调调调调调调调调调调调调
制制制制制制制制制接接接双双双发发发发发发发发屏屏
解解解解MAX2322222收收收口口口送送送MAX2322222幕幕
调调调调调调调调调单单单RRRRR单单单单单单单单显显
器器器器片片片AAAAA片片片,示示
机机机机机机机MMMMM机机机机
图4.1硬件框图
Fig4.1Bloekdiagramofthehardware
内部结构如图叹.1所示,数据传输过程如下:〔20]
(1)响铃信号经调制解调器发给接收单片机。
(2)单片机经MAX232发控制字给调制解调器,通知调制解调器进行交握。
(3)调制解调器经MAX232发数据给接收单片机。
(4)单片机接收数据并把数据存于双口RAM内。
(5)接收单片机接收完数据后发控制信号给发送单片机。
(6)发送单片机发控制信号给显示屏与其内的微处理器进行交握。
(7)发送单片机把双口RAM内的数据传给显示屏。
4.2接口板电路图
如图4.2所示,硬件电路配合软件(Franklin)共同仿真,运行正常。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

LED显示屏的计算机远程控制系统 第10页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。