作者raypeter96 (小宝)
看板Visual_Basic
标题[.NET] Timer
时间Thu Sep 6 10:25:27 2012
请输入专案类型(网站专案或者应用程式专案):应用程式
Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnStart.Click
If Not Comport.IsOpen Then
Comport.PortName = "com5"
Comport.BaudRate = 28800
Comport.Parity = Parity.None
Comport.DataBits = 8
Comport.StopBits = StopBits.One
Comport.Open()
End If
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If Not Comport.IsOpen Then
Comport.PortName = "com5"
Comport.BaudRate = 28800
Comport.Parity = Parity.None
Comport.DataBits = 8
Comport.StopBits = StopBits.One
Comport.Open()
End If
Dim sensor As String '读取感测器字串
Dim byt(0 To 14) As Byte '字串转BYTE
Dim ss(0 To 14) As String
Dim i As Integer
For i = 0 To 14
sensor = Comport.ReadByte
ss(i) = sensor
byt(i) = ss(i)
Next
TextBox4.Text = ss(0) + vbCrLf + ss(1) + vbCrLf + ss(2) + vbCrLf +
ss(3) + vbCrLf + ss(4) + vbCrLf + _
ss(5) + vbCrLf + ss(6) + vbCrLf + ss(7) + vbCrLf +
ss(8) + vbCrLf + ss(9) + vbCrLf + _
ss(10) + vbCrLf + ss(11) + vbCrLf + ss(12) + vbCrLf +
ss(13) + vbCrLf + ss(14)
TextBox1.Text = CInt(ss(2)) * 256 + CInt(ss(3)) '二氧化碳
浓度
TextBox2.Text = (CInt(ss(6)) * 256 + CInt(ss(7))) / 10 '温度
TextBox3.Text = (CInt(ss(4)) * 256 + CInt(ss(5))) / 10 '湿度
End Sub
可是我的介面 里面有一个按钮写结束 却不能按
可不可以告诉我哪里写错了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.101.184
1F:推 bluesincere:结束那按钮comport.close()前加上 09/06 11:29
2F:→ bluesincere:Timer1.Enabled = False 09/06 11:30
3F:→ bluesincere: 因为Private Sub Timer1_Tick 里的程式 09/06 11:31
4F:→ bluesincere:判断若未开启PORT,就会帮你开启 09/06 11:32
5F:→ bluesincere:If Not Comport.IsOpen Then<----这判断 09/06 11:33
6F:→ raypeter96:还是不行耶 09/06 13:25