[.NET] Timer
請輸入專案類型(網站專案或者應用程式專案)：應用程式
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
推
09/06 11:29, , 1F
09/06 11:29, 1F
→
09/06 11:30, , 2F
09/06 11:30, 2F
→
09/06 11:31, , 3F
09/06 11:31, 3F
→
09/06 11:32, , 4F
09/06 11:32, 4F
→
09/06 11:33, , 5F
09/06 11:33, 5F
→
09/06 13:25, , 6F
09/06 13:25, 6F