玖玖玖视频-亚洲精品1卡2卡3卡-操欧美美女-真实国产乱子伦对白视频不卡-国产乱在线-大胸美女被吃奶爽死视频-久久亚洲美女精品国产精品-天堂在线www天堂在线-久久在精品线影院精品国产-国产又粗又长又大-欧美三级一区二区-超碰在线亚洲-天天cao在线-国产偷倩视频-亚洲啪

A-Series PLC資料讀取

各位大大:
小弟正在一所洗衣廠內(nèi)實(shí)習(xí), 與實(shí)習(xí)相關(guān)的洗衣設(shè)備以三菱A-series PLC控制, 且正在嘗試以Visual Basic 擷取PLC內(nèi)的資料,如衣物重量,洗衣程序等.

實(shí)習(xí)使用的PLC模塊: Computer Link Module (RS-232-C Unit)
模塊型號(hào): A1SJ71UC24-R2
Computer Link Module 用以連結(jié) PLC CPU和電腦, 讓資料傳輸?shù)靡赃M(jìn)行.

實(shí)習(xí)期間使用的軟件:
GX developer version 8,
Visual Basic 6.0

請(qǐng)問各位: 以Visual Basic讀取A-series PLC 資料的程式該怎麼寫?
而且, PLC 編程軟件方面也要作相關(guān)的梯形圖嗎?

以下為改進(jìn)中的程式碼:

Private Sub Form_Load()

MSComm1.PortOpen = True
MSComm1.Settings = "9600,o,8,1"
'MSComm1.CommPort = 4
MSComm1.RTSEnable = True
MSComm1.RThreshold = 1
End Sub

Private Sub cmdEnd_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub cmdSend_Click()
MSComm1.Output = Chr(5) + "01" + "FF" + "QR" + "F" + "D000000" + "01" + Chr(3) + "84"
End Sub

Private Sub txtReceive_Change()
txtReceive.Text = MSComm1.Input
End Sub

請(qǐng)多多指教!

另外附件為 VB interface.

引用

引用第1樓daizhi于2010-04-27 09:28發(fā)表的 :
日文資料到是有收集過，但從未認(rèn)真看過
若需要可發(fā)給您！
[attachment=38578]

先謝謝樓主daizhi!, 可以把你提過的資料放上來嗎?