[Chia sẽ] Điều khiển từ xa bằng máy tính thông qua nRF24L01-EA Module

[tosang]

Vừa chia sẽ vừa trao đổi lun nhé. Chủ yếu anh em chưa làm, sắp làm, mới làm, làm chưa chay (ACE nào làm rùi thì thấy chỗ nào sai xót bổ dùm dùm nhe! Đừng ném đá tôi nghiêp thằng nhỏ. Thank you!)
Thứ tư các muc chia sẽ & trao đổi:
1. Lâp trình VB6 điều khiển COM PORT (gửi ký tư hay chuỗi, và nhân lai để so sánh kết quả)
2. Thiết kế phần cứng giao tiếp với PC thông qua RS232 (8051 nhé)
3. Giao tiếp có dây giữa máy tính với mach vừa thiết kế qua COM port(gửi nhân ký tư, chuỗi, lấy giờ từ PC hiển thi lên LCD trên mach giao tiếp)
4. Điêu khiển hiển thi led 7 đoan trên mach giao tiếp
5. Giao tiếp với 2 VĐK thông qua module nRF24L01-EA
6. Điêu khiển từ PC tới các thiết bi ở tâm xa thông qua RF.
7. Kết quả từ quá trình trao đổi trên.

Now, let's GO!

[tosang]

Trước tiên các ban nên đoc qua tài liêu nói vê cổng com trên máy tính nhé. Gửi các ban tai lieu sưu tầm đươc.
Fshare - Dich vu chia se, luu tru du lieu mien phi tot nhat

VB6 các ban tư lên găp tiến sĩ GG mà down và cài đăt nha.

[tosang]

Xem ra 0 ai quan tâm nhỉ

GO GO

Các ban làm cái giao diên VB như sau:

Form1:
Name: frmMain
Caption: Giao tiep 8051 – PC
Textbox1:
Name: txtSend
Textbox2:
Name: txtReceive
Command1:
Name: cmdConnect
Caption: Connect
Command2:
Name: cmdSend
Caption: Send
Command3:
Name: cmdExit
Caption: Exit

[tosang]

Click đúp lên trên frmMain. Xuất hiên sư kiên

Private Sub Form_Load()

End Sub
Đây là sư kiên khi các ban nhấn Run (F5). Các khởi tao ban đầu sẽ thưc hiên trên đây.

Ví du:
Private Sub Form_Load()
txtSend.Text = ""
txtReceive.Text = ""
End Sub

Đoan code xóa dòng Text1 và Text2 trên 2 textbox khi chay ứng dung

Click đúp lên cmdExit, nhâp sau:

Private Sub cmdExit_Click()
Unload Me
End Sub

Khi chay ứng dung. Nếu người dùng click vào nút Exit thì nó sẽ thoát ứng dung

[tosang]

Để frmMain không hiển thi các nút minimum, maximum các ban click vào frmMain. Tìm đến các muc MinButton, MaxButton rồi chon False là xong.

Nếu muốn hỏi người dùng có muốn thoát hay 0 khi click vào nút X (Close trên frmMain), hoăc nói câu See you again chẵng han.
Các ban làm như sau:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "Se you again!", vbOKOnly, "Bye!"
Unload Me
End Sub

[tosang]

Khuya rùi, chúc các bác ngon giấc. Mai làm tiếp sư kiên trên nút Connect và nút Send nhá.

[tosang]

Không ai ủng hô cũng tiếp zay.
Để giao tiếp với ngoai vi thông qua RS232, đầu tiên trên VB6 các ban vào Project\Component, chon Microsoft Comm Control 6.0.
Biểu tuơng như hình cái điên thoai bàn hiên ra bên thanh công cu bên trái, đưa biểu tương lên frmMain.
Khi Form_load các ban khởi tao cacs giá tri ban đầu cho MSComm như sau:

Private Sub Form_Load()
With MSComm1
.Settings = "9600,N,8,1"
.InBufferSize = 1024
.InputLen = 8
.RThreshold = 1
.SThreshold = 0
.OutBufferSize = 1024
.InputMode = comInputModeText
End With
End Sub

Các đăc tính và thông số tư tìm hiểu nhé.
- khi ứng dung chay, click vào nút Connect thì Com port đươc mở ra. PC và mach thiết kế bắt tay nhau. Ở đây măc đinh chon COM 1. Phần mở rông chon cổng COM trình bày sau.

Private Sub cmdConnect_Click()
On Error GoTo DialogError
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
cmdConnect.Caption = "Disconnect"
Else
MSComm1.PortOpen = False
cmdConnect.Caption = "Connect"
End If
Exit Sub
DialogError:
MsgBox "Invalid Com Port!", vbOKOnly + vbCritical, "Error!"
End Sub

Đây là sư kiên xảy ra khi click nút Connect.

- Sư kiên xảy ra khi nhấn nút Send. Lấy dữ liêu từ ô txtSend gửi lên MSComm. MSComm sẽ đưa dữ liêu ra bô đêm OUT và đưa ra cổng RS232 của máy tính.
Mach điều khiển của ta sẽ nhân dữ liêu đó và phân tích. tùy vào thỏa thuân ban đầu là số nào làm công viêc gì mà thiết kế phần cứng cho thích hơp.

Code trong sư kiên cmdSend()

Private Sub cmdSend_Click()
If MSComm1.PortOpen = True Then
MSComm1.Output = txtSend.text
Else
MsgBox "Com Port Not Open. Click Connect To Open The Com Port!", vbOKOnly + vbCritical, "Error!"
End If
End Sub

[tosang]

Để nhân dữ liêu từ mach điều khiển gửi lên PC. các ban click đúp vào MSComm. Trong sư kiên MSComm1_OnCom(), dưa vào thuôc tính comEvReceive để nhân biết có nhân đưoc dữ liều hay 0. Ta có đoan code:

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
txtReceive.Text = MSComm1.Input
End If
End Sub

Để test xem ctrinh mình thiết kế có chay 0. Các ban nối chân 2 và chân 3 của cổng COM lai với nhau. Chay chuơng trình, Connect, đánh 1 đoan text vào ô Send, nhấn nút Send xem có nhân đươc text tai ô Recive 0 nhé. Nếu 0 thì cứ comment lên. Mai mần tiếp. ngủ ngon!!

[tosang]

Chắc các ban làm rùi hết rùi. 0 ai quan tâm, OFF chủ đề, sorry!!

[Hưngnguyên]

tiếp đi bạn ơi. mình đang rất quan tâm vấn đề này..

[tosang]

tiếp đi bạn ơi. mình đang rất quan tâm vấn đề này..

Off lâu rùi bạn ơi. Lúc đang làm 0 ai hưởng ứng nên tự làm tự hưởng lun rùi. Điều khiển bảng quang báo, bảng giá vàng từ xa cũng rất mượt.

[Hưngnguyên]

bác giao tiếp với VDK nào thế ạ. bác she cho e xin code về tham khảo đc không ạ. Thất lễ khi hỏi xin code bác mong bác giúp đỡ