作者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