国产免费AV|泡泡玛特欧洲总部将设在伦敦|中文天堂网www新版资源在线|一本久道综合在线中文|国精产品一二三产区的使用方法|香蕉鱼在线观看|www.27eee

ELEOK

標題: Visual Basic 6實現通過西門子PPI協議與S7-200通信源碼 [打印本頁]
作者: 山海致遠    時間: 2018-4-26 00:39
標題: Visual Basic 6實現通過西門子PPI協議與S7-200通信源碼
最近要做一個項目，使用S7-200，但是數據交換量不是很大，用WINCC感覺比較浪費，所以就想自己做個監控軟件，就想到了用VB編寫程序，來調用w95_s7.dll動態鏈接數據庫。通過3天的努力，終于小有成果，一下是我試驗基本方法。供大家參考！
1．Prodave 是用于pc 與s7 系列plc 之間的數據鏈接通信的工具箱。其實質就是用戶通過調用“w95_s7.dll”等庫函數來解決 PLC 與PC之間的數據交換和數據處理問題。 所需硬件為：CPU22x,PC/PPI編程電纜，帶COM口的PC。這可能是最簡單的配置，很容易實現試驗的目的。這里不需要安裝Prodave軟件，只要把“w95_s7.dll”文件拷貝到您程序相應的目錄中去即可。
2．通訊設置：打開“控制面板”中“設置PG/PC接口”選項，在“應用程序訪問點”列表框內選擇“S7ONLINE(STEP7)  PC/PPI Cable”,在其屬性內的“超時”可以設置大點，這里設置為100ms，“波特率”設置為9.6kbps(因為我的pc/ppi電纜為國產的，不支持多主站)，“地址”為0。3。源代碼：①PLC程序：LD  I0.0   MOVW  4766, VW0 ②VB程序：
  1. ****在模塊中聲明****：
  2. Public plcadr As plcadrtype
  3. Public gb_PlcConnected As Boolean
  4. Type plcadrtype
  5.      adr As Byte                ‘站地址，默認值為2
  6.      SEGMENTID As Byte       ‘段標識符，固定值為0
  7.      SLOTNO As Byte           ‘槽的編號，默認值為2
  8.      RACKNO As Byte           ‘機架號，固定為0
  9. End Type
  10. Public Res As Long
  11. Declare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, adr As plcadrtype) As Long
  12. 。。。。。。。                  ‘省略其它定義函數。
  13. Declare Function as200_vs_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long        ‘讀200PLC V存儲區的數據函數
  14. ****在窗體中聲明****
  15. Private Sub Form_Load()
  16. Dim buffer(1) As Byte
  17. plcadr.adr = 2
  18.     plcadr.SEGMENTID = 0
  19.     plcadr.SLOTNO = 2
  20.       plcadr.RACKNO = 0
  21.    Res = load_tool(1, "S7ONLINE", plcadr)
  22.    Res = as200_vs_field_read(0, 2, buffer(0))
  23.     If Res <> 0 Then
  24.          MsgBox ("PLC連接錯誤")
  25.         gb_PlcConnected = False
  26.     Else
  27.         gb_PlcConnected = True
  28.         MsgBox ("plc連接正確")
  29.         Label1.Caption = buffer(0) * 256 + buffer(1)
  30.     End If
  31. End Sub

復制代碼
通過以上程序可以正確讀出PLC中的數據。之后可以擴展內容，編寫一個監控軟件。
西門子PPI協議,VB源碼.rar (67.21 KB, 售價: 5 E幣)
用VB編寫PC與S7-200通訊軟件，帶原代碼.rar (82.13 KB, 售價: 5 E幣)





歡迎光臨 ELEOK (http://m.afoofa.cn/) Powered by Discuz! X5.0