Tweet
[QUOTE=phamhoangdun;107199]Chao ban !
Đây là đoạn code mình đã thử trên vb :
Private form_load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End sub
Private Sub SEND_Click() ' truyền ký tự A xuống PLC
MSComm1.Output = Chr(65)
End Sub
Private Sub THOAT_Click()
MSComm1.portOpen = Flase
end
End Sub
Chương trìn nhận trên PLC :
PROGRAM COMMENTS
Chuong trinh Ket noi PLC va PC
PC se gui mot ky tu la " V " xuong PLC. Khi PLC nhan duoc ky tu "V" thi ngo ra Q0.0 ON.
PC se gui mot ky tu la " A" xuong PLC. Khi PLC nhan duoc ky tu "A thi ngo ra Q0.0 OFF
MAIN COMMENTS
Network1
LD SM0.1
CALL SBR_0
SUBROUTINE COMMENTS
network1
LD SM0.0
MOVB 16#09, SMB30
ATCH INT_0, 8
ENI
INTERRUPT ROUTINE COMMENTS
Network1
LDB= SMB2, 16#56
S Q0.0, 1
Network2
LDB= SMB2, 16#41
R Q0.0, 1
Chuc ban thanh cong.[/QUOTE
khi mình nhấn nút send thì PC chỉ truyền kí tự "A" xuống ,đâu có kí tự "V",nếu vậy bạn phải thêm ô textbox nhập kí tự .mà so sánh nếu đó là kí tự "A" thì Q0.0 ON chứ .cậu xem đúng ko ?
Đây là đoạn code mình đã thử trên vb :
Private form_load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End sub
Private Sub SEND_Click() ' truyền ký tự A xuống PLC
MSComm1.Output = Chr(65)
End Sub
Private Sub THOAT_Click()
MSComm1.portOpen = Flase
end
End Sub
Chương trìn nhận trên PLC :
PROGRAM COMMENTS
Chuong trinh Ket noi PLC va PC
PC se gui mot ky tu la " V " xuong PLC. Khi PLC nhan duoc ky tu "V" thi ngo ra Q0.0 ON.
PC se gui mot ky tu la " A" xuong PLC. Khi PLC nhan duoc ky tu "A thi ngo ra Q0.0 OFF
MAIN COMMENTS
Network1
LD SM0.1
CALL SBR_0
SUBROUTINE COMMENTS
network1
LD SM0.0
MOVB 16#09, SMB30
ATCH INT_0, 8
ENI
INTERRUPT ROUTINE COMMENTS
Network1
LDB= SMB2, 16#56
S Q0.0, 1
Network2
LDB= SMB2, 16#41
R Q0.0, 1
Chuc ban thanh cong.[/QUOTE
khi mình nhấn nút send thì PC chỉ truyền kí tự "A" xuống ,đâu có kí tự "V",nếu vậy bạn phải thêm ô textbox nhập kí tự .mà so sánh nếu đó là kí tự "A" thì Q0.0 ON chứ .cậu xem đúng ko ?
Comment