Te xt 2. Te x t = " " ' . . . . . . . .清空文本框2 的内容
Te xt 3. Te x t = " " ' . . . . . . . .清空文本框3 的内容
End Sub
Pr ivate Sub Command3_Cl ick（ ） '. .关闭窗口按钮
Unl o a d Me ' . . . . . . . . 卸载窗体
End Sub
Pr ivate Sub MSComm1_OnComm（ ） '. . . . . .事件触发
Dim rec As St ring
Select Case MSComm1.CommEvent
Case comEvReceive
rec = MSComm1. Input
Text3.Te xt = r ec
MyResul t = （Text3.Text < "31"）
' . . . . . . . . 判断当前温度是否达到3 1 ℃
I f MyResul t = False Then ' . . . .达到31℃
Shape1.Fi l lColor = RGB（255,0 , 0 ） ' . . . . . . . . 信号灯为红色
Te x t 1 . Te x t = " 产生报警"' . . . . . . . . 同时信息提示显示" 产生报警"
El se ' . . . . . . . . 未达到31 ℃
Shape 1.Fi l lColor = RGB（0,1 2 8 , 0 ） ' . . . . . . . . 信号灯为绿色
Te x t 1 . Te x t = " 温度正常"' . . . . . . . . 同时信息提示显示" 温度正常"
End I f
Te xt3.Te xt = " "
