cml101428
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 61 個(gè)
工控威望: 184 點(diǎn)
下載積分: 565 分
在線時(shí)間: 42(小時(shí))
注冊時(shí)間: 2009-02-20
最后登錄: 2019-05-28
查看cml101428的 主題 / 回貼
12樓  發(fā)表于: 2009-11-17 22:12
下來看看,謝謝
litung
臺灣-李同在
級別: VIP會員
精華主題: 2 篇
發(fā)帖數(shù)量: 577 個(gè)
工控威望: 3224 點(diǎn)
下載積分: 14494 分
在線時(shí)間: 405(小時(shí))
注冊時(shí)間: 2009-06-06
最后登錄: 2024-12-23
查看litung的 主題 / 回貼
13樓  發(fā)表于: 2009-11-17 23:23
引用
引用第6樓夏日雪夢于2009-11-16 15:30發(fā)表的 Re:Re:新手PLC仿真學(xué)習(xí)系統(tǒng) (感謝 litung xiaoqizi 幫助、指導(dǎo)) :
只要M301~M349其中有一點(diǎn)動作,M300就ON,這個(gè)感覺容易做到;
直接M300從去找異常點(diǎn)的程式在那,這個(gè)有些不太明白,M300如何與故障點(diǎn)的程序連接,能否再詳細(xì)點(diǎn)說明了。


把異常集中在一點(diǎn),是方便你對PLC程式除錯(cuò)。
vb程式可以對你設(shè)定的異常點(diǎn)區(qū)域作搜尋比對,只要其中一個(gè)點(diǎn)=on,就是有異常。
底下部份程式給你參考看看。設(shè)一個(gè)time去掃程式。

Private Sub tmrAlarm_Timer()
  Dim I As Integer
  Dim J As Integer
  Dim sDATA(100) As String
  Dim mData(100) As Integer

  '讀取M值狀態(tài)
  sDATA(0) = ReadM(300)
  gf = PLC.ReadDeviceRandom2(sDATA(0), CLng(10), mData(0))
  sDATA(1) = ReadM(310)
  gf = PLC.ReadDeviceRandom2(sDATA(1), CLng(10), mData(10))
  sDATA(2) = ReadM(320)
  gf = PLC.ReadDeviceRandom2(sDATA(2), CLng(10), mData(20))
  sDATA(3) = ReadM(330)
  gf = PLC.ReadDeviceRandom2(sDATA(3), CLng(10), mData(30))
  sDATA(4) = ReadM(340)
  gf = PLC.ReadDeviceRandom2(sDATA(4), CLng(10), mData(40))
  sDATA(5) = ReadM(350)
  gf = PLC.ReadDeviceRandom2(sDATA(5), CLng(10), mData(50))
  sDATA(6) = ReadM(360)
  gf = PLC.ReadDeviceRandom2(sDATA(6), CLng(10), mData(60))
  sDATA(6) = ReadM(370)
  gf = PLC.ReadDeviceRandom2(sDATA(7), CLng(10), mData(70))
  sDATA(8) = ReadM(380)
  gf = PLC.ReadDeviceRandom2(sDATA(8), CLng(10), mData(80))

  For N = 0 To 9
      M(300 + N) = mData(N)
      M(310 + N) = mData(N + 10)
      M(320 + N) = mData(N + 20)
      M(330 + N) = mData(N + 30)
      M(340 + N) = mData(N + 40)
      M(350 + N) = mData(N + 50)
      M(360 + N) = mData(N + 60)
      M(370 + N) = mData(N + 70)
      M(380 + N) = mData(N + 80)
  Next N
  
  lblAlarm = ""
  If M(301) Then lblAlarm = lblAlarm & "M301:送料口異常"
  If M(302) Then lblAlarm = lblAlarm & "M302:無料警告"
  If M(303) Then lblAlarm = lblAlarm & "M303:載臺異常"
  If M(304) Then lblAlarm = lblAlarm & "M304:推料異常"
  If M(305) Then lblAlarm = lblAlarm & "M305:夾料異常"
  If M(306) Then lblAlarm = lblAlarm & "M306:出料口異常"
  If M(307) Then lblAlarm = lblAlarm & "M307:定位異常"
  If M(308) Then lblAlarm = lblAlarm & "M308:底座異常"
  If M(309) Then lblAlarm = lblAlarm & "M309:車刀座異常"
  If M(320) Then lblAlarm = lblAlarm & "M320:無料警告"
  If M(321) Then lblAlarm = lblAlarm & "M321:載臺前進(jìn)異常"
  If M(322) Then lblAlarm = lblAlarm & "M322:載臺後進(jìn)異常"
  If M(323) Then lblAlarm = lblAlarm & "M323:推料定位異常"
  If M(324) Then lblAlarm = lblAlarm & "M324:推料前進(jìn)異常"
  If M(325) Then lblAlarm = lblAlarm & "M325:推料後退異常"
  If M(326) Then lblAlarm = lblAlarm & "M326:夾料前進(jìn)異常"
  If M(327) Then lblAlarm = lblAlarm & "M327:夾料後退異常"
  If M(328) Then lblAlarm = lblAlarm & "M328:定位前進(jìn)異常"
  If M(329) Then lblAlarm = lblAlarm & "M329:定位後退異常"
  If M(330) Then lblAlarm = lblAlarm & "M330:底座前進(jìn)異常"
  If M(331) Then lblAlarm = lblAlarm & "M331:底座後退異常"
  If M(332) Then lblAlarm = lblAlarm & "M332:車刀座前進(jìn)異常"
  If M(333) Then lblAlarm = lblAlarm & "M333:車刀座後退異常"
End Sub
簡單的心,是真正有福
單純的心,是真正的快樂    
T480 i5-8250U,32GB,SSD:2TB+256G
litung
臺灣-李同在
級別: VIP會員
精華主題: 2 篇
發(fā)帖數(shù)量: 577 個(gè)
工控威望: 3224 點(diǎn)
下載積分: 14494 分
在線時(shí)間: 405(小時(shí))
注冊時(shí)間: 2009-06-06
最后登錄: 2024-12-23
查看litung的 主題 / 回貼
14樓  發(fā)表于: 2009-11-17 23:41
異常測試畫面參考

簡單的心,是真正有福
單純的心,是真正的快樂    
T480 i5-8250U,32GB,SSD:2TB+256G
lzl46138
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 35 個(gè)
工控威望: 157 點(diǎn)
下載積分: 638 分
在線時(shí)間: 85(小時(shí))
注冊時(shí)間: 2009-06-14
最后登錄: 2013-08-16
查看lzl46138的 主題 / 回貼
15樓  發(fā)表于: 2009-11-18 08:15
謝謝夏日雪夢為我們廣大的新手提供如此好學(xué)習(xí)平臺。
lpcun
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 56 個(gè)
工控威望: 125 點(diǎn)
下載積分: 462 分
在線時(shí)間: 19(小時(shí))
注冊時(shí)間: 2009-10-01
最后登錄: 2020-10-27
查看lpcun的 主題 / 回貼
16樓  發(fā)表于: 2009-11-18 12:08
為可下載不了。。
可發(fā)到我QQ郵箱嗎。浚。
1211407355@qq.com
謝你
夏日雪夢
為了夢,夢一生
級別: VIP會員
精華主題: 0
發(fā)帖數(shù)量: 528 個(gè)
工控威望: 4295 點(diǎn)
下載積分: 4306 分
在線時(shí)間: 464(小時(shí))
注冊時(shí)間: 2009-04-03
最后登錄: 2024-12-25
查看夏日雪夢的 主題 / 回貼
17樓  發(fā)表于: 2009-11-18 19:06
謝謝 litung  ,我要續(xù)好好學(xué)習(xí)。
litung 你好,我在使用中出現(xiàn)如圖所示問題。

[ 此帖被夏日雪夢在2009-11-18 21:08重新編輯 ]
xinhaichehan
級別: 家園?
精華主題: 0
發(fā)帖數(shù)量: 274 個(gè)
工控威望: 731 點(diǎn)
下載積分: 3612 分
在線時(shí)間: 355(小時(shí))
注冊時(shí)間: 2008-11-26
最后登錄: 2024-09-19
查看xinhaichehan的 主題 / 回貼
18樓  發(fā)表于: 2009-11-18 21:50
感謝分享,正好下來學(xué)習(xí)學(xué)習(xí)。
litung
臺灣-李同在
級別: VIP會員
精華主題: 2 篇
發(fā)帖數(shù)量: 577 個(gè)
工控威望: 3224 點(diǎn)
下載積分: 14494 分
在線時(shí)間: 405(小時(shí))
注冊時(shí)間: 2009-06-06
最后登錄: 2024-12-23
查看litung的 主題 / 回貼
19樓  發(fā)表于: 2009-11-18 22:40
READ()程式我沒放上來。
只是給部份程式讓你參考而己。

程式如下:
Public Function ReadM(NO As String)
  Dim sDATA As String
  Select Case NO
    Case 300:
      sDATA = "M300" & Chr(10) & "M301" & Chr(10) & "M302" & Chr(10) & "M303" & Chr(10) & "M304" & Chr(10) & "M305" & Chr(10) & "M306" & Chr(10) & "M307" & Chr(10) & "M308" & Chr(10) & "M309" & Chr(10)
    Case 310:
      sDATA = "M310" & Chr(10) & "M311" & Chr(10) & "M312" & Chr(10) & "M313" & Chr(10) & "M314" & Chr(10) & "M315" & Chr(10) & "M316" & Chr(10) & "M317" & Chr(10) & "M318" & Chr(10) & "M319" & Chr(10)
    Case 320:
      sDATA = "M320" & Chr(10) & "M321" & Chr(10) & "M322" & Chr(10) & "M323" & Chr(10) & "M324" & Chr(10) & "M325" & Chr(10) & "M326" & Chr(10) & "M327" & Chr(10) & "M328" & Chr(10) & "M329" & Chr(10)
    Case 330:
      sDATA = "M330" & Chr(10) & "M331" & Chr(10) & "M332" & Chr(10) & "M333" & Chr(10) & "M334" & Chr(10) & "M335" & Chr(10) & "M336" & Chr(10) & "M337" & Chr(10) & "M338" & Chr(10) & "M339" & Chr(10)
    Case 340:
      sDATA = "M340" & Chr(10) & "M341" & Chr(10) & "M342" & Chr(10) & "M343" & Chr(10) & "M344" & Chr(10) & "M345" & Chr(10) & "M346" & Chr(10) & "M347" & Chr(10) & "M348" & Chr(10) & "M349" & Chr(10)
    Case 350:
      sDATA = "M350" & Chr(10) & "M351" & Chr(10) & "M352" & Chr(10) & "M353" & Chr(10) & "M354" & Chr(10) & "M355" & Chr(10) & "M356" & Chr(10) & "M357" & Chr(10) & "M358" & Chr(10) & "M359" & Chr(10)
    Case 360:
      sDATA = "M360" & Chr(10) & "M361" & Chr(10) & "M362" & Chr(10) & "M363" & Chr(10) & "M364" & Chr(10) & "M365" & Chr(10) & "M366" & Chr(10) & "M367" & Chr(10) & "M368" & Chr(10) & "M369" & Chr(10)
    Case 370:
      sDATA = "M370" & Chr(10) & "M371" & Chr(10) & "M372" & Chr(10) & "M373" & Chr(10) & "M374" & Chr(10) & "M375" & Chr(10) & "M376" & Chr(10) & "M377" & Chr(10) & "M378" & Chr(10) & "M379" & Chr(10)
    Case 380:
      sDATA = "M380" & Chr(10) & "M381" & Chr(10) & "M382" & Chr(10) & "M383" & Chr(10) & "M384" & Chr(10) & "M385" & Chr(10) & "M386" & Chr(10) & "M387" & Chr(10) & "M388" & Chr(10) & "M389" & Chr(10)
  End Select
  ReadM = sDATA
End Function
簡單的心,是真正有福
單純的心,是真正的快樂    
T480 i5-8250U,32GB,SSD:2TB+256G
litung
臺灣-李同在
級別: VIP會員
精華主題: 2 篇
發(fā)帖數(shù)量: 577 個(gè)
工控威望: 3224 點(diǎn)
下載積分: 14494 分
在線時(shí)間: 405(小時(shí))
注冊時(shí)間: 2009-06-06
最后登錄: 2024-12-23
查看litung的 主題 / 回貼
20樓  發(fā)表于: 2009-11-18 22:41
有空你再自己簡化那二段程式。
簡單的心,是真正有福
單純的心,是真正的快樂    
T480 i5-8250U,32GB,SSD:2TB+256G
夏日雪夢
為了夢,夢一生
級別: VIP會員
精華主題: 0
發(fā)帖數(shù)量: 528 個(gè)
工控威望: 4295 點(diǎn)
下載積分: 4306 分
在線時(shí)間: 464(小時(shí))
注冊時(shí)間: 2009-04-03
最后登錄: 2024-12-25
查看夏日雪夢的 主題 / 回貼
21樓  發(fā)表于: 2009-11-19 09:38
好的,謝謝你。
女工控人
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊時(shí)間: *
最后登錄: *
查看女工控人的 主題 / 回貼
22樓  發(fā)表于: 2009-11-21 11:43
litung你好,你能把這個(gè)發(fā)上來嗎?謝謝了。
daxiong700
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊時(shí)間: *
最后登錄: *
查看daxiong700的 主題 / 回貼
23樓  發(fā)表于: 2009-11-21 13:36
圖片:
我下載運(yùn)行時(shí)出錯(cuò),請高手指教。請看附件截圖。