有哪些信誉好的足球投注网站- 1、本文档共3页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
用vb编写的交通灯课程设计
实验名称：模拟交通灯
实验目的：学会串口通信
试验步骤：
服务器：
Private Sub Command1_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim buf$
Select Case MSComm1.CommEvent
Case comEvReceive
buf = MSComm1.Input
If InStr(1, buf, %%) 1 Then
MSComm1.Output = 密码格式不对
Text1.Text = 密码格式不对
Exit Sub
Else
receistr = Right(buf, Len(buf) - InStr(buf, 1, %%) - 1)
Select Case receistr
Case UCase(data)
MSComm1.Output = 40|5|30
Text1.Text = 数据传输完毕
Case UCase(exit)
MSComm1.Output = 2
Text1.Text = 数据传输完毕
Case Else
Text1.Text = 密码错误
MSComm1.Output = 密码错误
End Select
End If
End Select
End Sub
客户端：
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim buf$
Select Case MSComm1.CommEvent
Case comEvReceive
buf = MSComm1.Input
If InStr(1, buf, |) = 1 Then
strdata = Split(buf, |)
aa = Val(strdata(0))
aa1 = aa
bb = Val(strdata(1))
bb1 = bb
cc = Val(strdata(2))
cc1 = cc
Timer1.Enabled = True
ElseIf buf = 2 Then
Timer1.Enabled = False
Else
Text1.Text = buf
End If
End Select
End Sub
Private Sub Timer1_Timer()
If aa = 0 Then
Label2.Caption = Format(aa, hh:mm:ss)
Shape1(0).FillColor = RGB(255, 0, 0)
aa = aa - 1
ElseIf bb = 0 Then
Label2.Caption = Format(bb, hh:mm:ss)
Shape1(1).FillColor = RGB(255, 255, 0)
bb = bb - 1
ElseIf cc = 0 Then
Label2.Caption = Format(cc, hh:mm:ss)
Shape1(2).FillColor = RGB(0, 255, 0)
cc = cc - 1
Else
aa = aa1
bb = bb1
cc = cc1
End If
End Sub
1
文档评论（0）