<meter id="pryje"><nav id="pryje"><delect id="pryje"></delect></nav></meter>

<label id="pryje"></label>

新聞中心

EEPW首頁 > 嵌入式系統(tǒng) > 設(shè)計(jì)應(yīng)用 > 51和VB數(shù)字量簡(jiǎn)易測(cè)試

51和VB數(shù)字量簡(jiǎn)易測(cè)試

作者：時(shí)間：2016-11-30 來源：網(wǎng)絡(luò)

加入技術(shù)交流群
- 掃碼加入
  和技術(shù)大咖面對(duì)面交流
  海量資料庫查詢

收藏

Text3.Text = "串口已關(guān)"
errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command11_Click()
On Error GoTo errline

If Text1.Text < 0 Then
Text1.Text = 0
End If
Timer1.Enabled = True
errline:
If Err.Number = 13 Then
MsgBox ("輸入出錯(cuò)")
Text1.Text = 0

End If

End Sub

Private Sub Command12_Click()
Text1.Text = 0
Timer1.Enabled = False

End Sub

Private Sub Command2_Click()
On Error GoTo errline:

MSComm1.Output = "5"
Shape1.FillColor = vbRed
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command3_Click()
On Error GoTo errline:

MSComm1.Output = "2"
Shape2.FillColor = vbGreen
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command4_Click()
On Error GoTo errline:

MSComm1.Output = "6"
Shape2.FillColor = vbRed
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command5_Click()
On Error GoTo errline:

MSComm1.Output = "3"
Shape3.FillColor = vbGreen
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command6_Click()
On Error GoTo errline:

MSComm1.Output = "7"
Shape3.FillColor = vbRed
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command7_Click()
On Error GoTo errline:

MSComm1.Output = "4"
Shape4.FillColor = vbGreen
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command8_Click()
On Error GoTo errline:

MSComm1.Output = "8"
Shape4.FillColor = vbRed
Exit Sub

errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear
End Sub

Private Sub Command9_Click()
On Error GoTo errline:

MSComm1.CommPort = 6
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
MSComm1.PortOpen = True
Timer2.Enabled = True
Timer3.Enabled = True

Text3.Text = "串口已開"
Exit Sub
errline:
If Err.Number = 8013 Then
Text3.Text = "串口已開"
End If
Err.Clear
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
On Error GoTo errline:
errline:
If Err.Number = 13 Then
Text1.Text = "輸入錯(cuò)誤"
End If
Err.Clear

End Sub

Private Sub Timer1_Timer()
On Error GoTo errline
If Text1.Text < 0 Then
Text1.Text = 0
End If

If Text1.Text = 0 Then
MSComm1.Output = "5"
MSComm1.Output = "6"
MSComm1.Output = "7"
MSComm1.Output = "8"
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Shape4.FillColor = vbRed
Timer1.Enabled = False
Exit Sub

End If
Text1.Text = Text1.Text - 1
errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear

End Sub

Private Sub Timer2_Timer()
On Error GoTo errline

If MSComm1.Input = "9" Then
Text2.Text = "有反饋"
End If
If MSComm1.Input = "a" Then
Text2.Text = "無反饋"
End If
errline:
If Err.Number = 8018 Then
Text3.Text = "串口已關(guān)"
End If
Err.Clear

End Sub

Private Sub Timer3_Timer()
If Shape4.FillColor = vbGreen And Text2.Text = "有反饋" Then
Text4.Text = "運(yùn)行"
End If
If Shape4.FillColor = vbGreen And Text2.Text = "無反饋" Then
Text4.Text = "故障"
End If
If Shape4.FillColor = vbRed And Text2.Text = "無反饋" Then
Text4.Text = "停止"
End If

End Sub

Private Sub Timer4_Timer()
Timer4.Enabled = False

End Sub

上一頁 1 2 下一頁

<a target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=114&cb=INSERT_RANDOM_NUMBER_HERE&n=a7a83b30' border='0' alt='' /></a>
<a target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=115&cb=INSERT_RANDOM_NUMBER_HERE&n=a3d98779' border='0' alt='' /></a>
<a target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=116&cb=INSERT_RANDOM_NUMBER_HERE&n=abca108c' border='0' alt='' /></a>
<a target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=117&cb=INSERT_RANDOM_NUMBER_HERE&n=a1775170' border='0' alt='' /></a>
<a target='_blank'><img src='https://ad.eepw.com.cn/www/delivery/avw.php?zoneid=118&cb=INSERT_RANDOM_NUMBER_HERE&n=a449048b' border='0' alt='' /></a>

關(guān)鍵詞： 51VB數(shù)字

評(píng)論

相關(guān)推薦

51和VB數(shù)字量簡(jiǎn)易測(cè)試

嵌入式系統(tǒng) 51VB數(shù)字 | 2016-11-30

焦點(diǎn)

推薦視頻

技術(shù)專區(qū)

看屁屁www成人影院,亚洲人妻成人图片,亚洲精品成人午夜在线,日韩在线欧美成人 (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })();