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
