PIC Vietnam - View Single Post - Tìm người làm bài tập thực hành: Bộ ĐK PID động cơ DC

**gaumisa** · 16-05-2007, 11:48 AM

va day la code vb cua minh :

Code:

Private Sub cmdClosecom_Click()
    MSComm.PortOpen = False
    Cmdopencom.Enabled = True
    Cmdstart.Enabled = False
    cmdClosecom.Enabled = False
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub

Private Sub Cmdopencom_Click()
    If MSComm.PortOpen = True Then
    MSComm.PortOpen = False
    End If
    MSComm.CommPort = 1
    MSComm.Settings = "9600,N,8,1"
    MSComm.InBufferCount = 0
    MSComm.InputLen = 0
    MSComm.PortOpen = True
    cmdStop.Enabled = False
    Cmdstart.Enabled = True
    Cmdopencom.Enabled = False
    cmdClosecom.Enabled = True
End Sub

Private Sub Cmdstart_Click()
   
   MSComm.Output = "a"
    cmdStop.Enabled = True
    Cmdstart.Enabled = False
    End Sub

Private Sub cmdStop_Click()
    MSComm.Output = "b"
    cmdStop.Enabled = False
    Cmdstart.Enabled = True
End Sub



Private Sub Form_Load()
    Cmdstart.Enabled = False
    cmdStop.Enabled = False
    cmdClosecom.Enabled = False
End Sub