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)問各位: 以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.

daizhi
一師一地一時(shí)一法
級(jí)別: VIP會(huì)員

精華主題: 0
發(fā)帖數(shù)量: 1470 個(gè)
工控威望: 1376 點(diǎn)
下載積分: 3900 分
在線時(shí)間: 2976(小時(shí))
注冊(cè)時(shí)間: 2007-05-31
最后登錄: 2023-11-27
查看daizhi的 主題 / 回貼
1樓  發(fā)表于: 2010-04-27 09:28
日文資料到是有收集過,但從未認(rèn)真看過
若需要可發(fā)給您!

daizhi
一師一地一時(shí)一法
級(jí)別: VIP會(huì)員

精華主題: 0
發(fā)帖數(shù)量: 1470 個(gè)
工控威望: 1376 點(diǎn)
下載積分: 3900 分
在線時(shí)間: 2976(小時(shí))
注冊(cè)時(shí)間: 2007-05-31
最后登錄: 2023-11-27
查看daizhi的 主題 / 回貼
2樓  發(fā)表于: 2010-04-27 10:30
看下您的郵箱