alphaa
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看alphaa的 主題 / 回貼
樓主  發(fā)表于: 2010-04-26 16:12
圖片:
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)問(wèn)各位: 以Visual Basic讀取A-series PLC 資料的程式該怎麼寫(xiě)?
而且, 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.

alphaa
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看alphaa的 主題 / 回貼
1樓  發(fā)表于: 2010-04-27 09:46
引用
引用第1樓daizhi于2010-04-27 09:28發(fā)表的 :
日文資料到是有收集過(guò),但從未認(rèn)真看過(guò)
若需要可發(fā)給您!
[attachment=38578]



先謝謝樓主daizhi!, 可以把你提過(guò)的資料放上來(lái)嗎?