Lập trình phần mềm điều khiển bằng VB6

VB6 đã outdated từ lâu và thay bằng .NET. Tuy nhiên, với các ứng dụng điều khiển, VB6 vẫn còn đất sống bởi vì nó không đòi hỏi cấu hình máy tính cao, dễ lập trình, và bảo trì.
RS232 hay còn gọi là cổng COM hay cổng tuần tự là loại cổng thường được dùng trong các thiết bị cần giao tiếp với máy tính. Ưu điểm của nó là đơn giản, rẻ tiền. Nhược điểm của nó là tốc độ truyền và khoảng cách.

Sau đây là đoạn code mẫu lấy dữ liệu từ 1 máy đo và lưu trữ dữ liệu thu được vào máy tính.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command4_Click()
Dim downloadedData, data As String
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

Dim i As Integer
i = 5
Do While data <> "" Or i > 1
MSComm1.Output = "D"

Sleep 3000

data = MSComm1.Input

downloadedData = downloadedData & data
i = i - 1

Loop

Open "C:\data_from_awa.txt" For Output As #1

Write #1, downloadedData

Close #1

End

End Sub