[.NET] Timer

[raypeter96 (小寶)]

請輸入專案類型(網站專案或者應用程式專案)：應用程式
    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
推 bluesincere:結束那按鈕comport.close()前加上
→ bluesincere:Timer1.Enabled = False
→ bluesincere: 因為Private Sub Timer1_Tick 裡的程式
→ bluesincere:判斷若未開啟PORT，就會幫你開啟
→ bluesincere:If Not Comport.IsOpen Then<----這判斷
→ raypeter96:還是不行耶