欧姆龙plc学习教程

? 5 ? 1.CPU ? 2.? 3.? 4.? 5.? ? PLC ? 1.CPU-? PLC ? ? PLC ? CPU ? ?.? CPU ?. ?.CPU ? PLC ?. ?.PLC ?,CPU ?. ?.?,?,? PLC ?. ?. 2.? ? PLC ?PLC ? ROM ? RAM.PLC ? ROM ? RAM ? ? PLC ? RAM ? 1K ? 16K ? 3.? PLC ? OMRON ? ? 24VDC.? PLC ? ? 4.? PLC ? 8 ? 16 ?cqm1 ? OC221 ? 8 ?CQM1 ? OC222 ? 16 ? 5.? CPU ? 16 ? CQM1-CPU11-E ?3.2K ? DM ?1K ? RS232 ? I/O ?128 ? CQM1-CPU21-E ?3.2K ? DM ?1K ? RS232 ? I/O ?256 ? ? CQM1-PA203?5 VDC 3.6A (18W) CQM1-PA206?5 VDC 6.0A 24 VDC ? 0.5A (? 30W) ? CQM1-ID211?8 ? 12V ? 24VDC CQM1-ID212?16 ?16 ? 24VDC ? CQM1-OC221?8 ? 2A CQM1-OC222?16 ?16 ? 2A(8A/Unit) CQM1-OD211?8 ?8 ? 2A(5A/Unit) CQM1-OD212?16 ?16 ? 0.3A CQM1 ? ? 8 ? 16 ? ? ? ? ? ? ? ? ? ? ? ? ? ? NPN ? PNP ? ? ? ? ? 8 ? 16 ? ? ? ? ? ? ? ? SR ? SR24400-SR24415? ? 0 ? SV(SV ? SR24500-SR24515? ? 1 ? SV(SV ? SR24600-SR24615? ? 2 ? SV(SV ? SR24700-SR24715? ? 3 ? SV(SV ? SR24800-SR24815? ? 0 ? PV(PV ? SR24900-SR24915? ? 1 ? PV(PV ? SR25000-SR25015? ? 2 ? PV(PV ? SR25100-SR25115? ? 3 ? PV(PV ? SR25200? ? SR25208? ? SR25209? RS-232C ? SR25210? PC ? SR25211? ? SR25212? I/O ? SR25214? ? SR25215? ? SR25300?-SR25307 ? SR25308? ? SR25309? ? SR25313? ? SR25314? ? SR25315? ? SR25400? 1 ?30 ?30 ? SR25401? 0.02 ?0.01 ?0.01 ? SR25406? ? SR25407? SREP(08)? SR25408? HKY(-)? SR25409? TSEG(-)? SR25410? DSW(-)? SR25500? 0.1 ?0.05S ?0.05S ? SR25501? 0.2 ?0.1S ?0.1S ? SR25502? 1 ?0.5S ?0.5 ? SR25503? ?ER)? SR25504? ?CY)? SR25505? ?GR)? SR25506? ?EZ)? SR25507? ?LE)? AR ? AR0712? DIP ? 6 ? AR0800-AR0803? RS-232C ? AR0804? RS232C ? RS232C ? AR0805? RS-232C ? AR0806? RS-232C ? AR0807? RS-232C ? AR0808-AR0811? ? AR0812? ? AR0813? ? AR0814: ? AR0815: ? AR0900-AR0915: RS-232C ? AR1000-AR1015: ? AR1100: ? 1 ? AR1101: ? 2 ? AR1102: ? 3 ? AR1103: ? 4 ? AR1104: ? 5 ? AR1105: ? 6 ? AR1106: ? 7 ? AR1107: ? 8 ? AR1300: ? AR1301: ? AR1302: ? AR1304-AR1307: ? AR1400: CPU ? AR1401: ? CPU ? AR1402: ? AR1403: ? AR1412: ? AR1413: ? AR1414: ? AR1415: ? AR1500-AR1507: ? AR1508-AR1515: CPU ? AR1611: PC ? AR1612: ? AR1613: ? AR1614: ? AR1615: ? AR1700-AR1707: ?“?”?2 ? BCD ? AR1708-AR1715: ?“?”?2 ? BCD ? AR1800-AR1807: ?“?”?2 ? BCD ? AR1808-AR1815: ?“?”?2 ? BCD ? AR1900-AR1907: ?“?”?2 ? BCD ? AR1908-AR1915: ?“?”?2 ? BCD ? AR2000-AR2007: ?“?”?2 ? BCD ? AR2008-AR2015: ?“?”?2 ? BCD ? AR2100-AR2107: ?“?”?2 ? BCD ? AR2113: 30 ? AR2114: ? AR2115: ? AR2700-AR2715: ?4 ? BCD ? 8.OR LD ? ? OR LD ? LD 00000 AND NOT 00001 LD NOT 00002 AND 00003 OR LD OUT 10002 9.OUT ? ? LD 00000 AND NOT 00001 OUT 10002 LD NOT 00002 AND NOT 00003 OUT 10003 10. TR ? ? TR ? LD 00000 OUT TR0 AND NOT 00001 OUT 10002 LD TR0 AND 00003 OUT 10003 11.SET ? RESET ? ? 00000 ?,? 10002 ?. ? 00002 ?,? 10002 ?.? 00000 ? 00002 ?,RESET ?. LD 00000 SET 10002 LD 00002 RESET 10002 12.TIM - ?(?) ? 00000 ?,?,? 20 ?,? TIM000 ?,? 10002 ?.? 00000 ?,?,? 10002 ?. LD 00000 TIM 000 #200 LD TIM000 OUT 10002 13.CNT-?(?) ? 00000 ? CNT000 ?,? CNT000 ? 200 ?,? CNT000 ?,? 10002 ?.? 00001 ?,? 10002 ?. LD 00000 LD 00001 CNT 000 #200 LD CNT000 OUT 10002 14.CNTR-? ?/?,? II ? DI ?,? 0 ? SV ?. ? 00000 ?,? 1.? 00001 ?,? 1.?,?.? ? 0000 ?,? SV ?,? CNTR 000 ?,? 10002 ?. LD 00000 LD 00001 LD 00002 CNTR 000 SV= 200 LD CNTR 000 OUT 10002 ? 1. ? NOP ? (FUN 00) ? ? 2. ? END ? (FUN 01) ? ? ? 3. IL(02)? ILC(03)? ? ? IL ? ILC ? ? 1. ? IL ? 2. ? 3. ? 4. IL ? ILC ? 5. ? IL ? ILC ? 6. ? IL-IL-ILC ? LD 00000 AND 00001 IL(02) LD 00002 AND NOT 00003 OUT 10000 LD 00004 OUT 10001 ILC(03) 4. ? JMP(04)? JME(05)? ? ?00000 ? 00001 ? 1. ? 00000 ? 00001 ? 2. ? 00000 ? 00001 ?JMP ? JME ?/? ? 3.JMP-JME ? 8 ? 8 ? JMP ? 4.? JMP-JMP-JME ? LD 00000 AND 00001 JMP(04) LD 00002 AND NOT 00003 OUT 10000 LD NOT 00005 AND 00004 OUT 10001 LD 00006 OUT 10002 JME(O5) 4.?FUN10) ? 1. ? 2. ? SFT ?-? 3. ? HR000-HR915. 4. ? 32 ?+1. LD 00000 LD 25502 LD 00001 SFT(FUN10) 010 010 LD 01000 OUT 10000 LD 01001 OUT 10001 LD 01015 OUT 10015 5.?FUN11) 1.? 2.? a.? 1 ? 1? b.? 1 ? 0? c.? 3.? 4.? ? 00000 ? 1600 ? 10000 ? ?10001 ? 6.?FUN12) 1.? ? 00000 ?0?1?2.1500. ? 00002 ?1500?1499. ? 00001 ? ? 2.? ?1?2?3?4? ? 3.? DM ? 7. DIFU(FUN13)? DIFD(FUN14)? ?.DIFU ? ?DIFU ? ? ? 00000 ?10000 ? ?.DIFD ? ? ?DIFD ? ? ? 00000 ?10000 ? 8.MOV(FUN21)? MVN(FUN22)? ?.? MOV ? MVN ? ? MOV ? MVN ? ? IR,SR,AR,DM,HR,TC,LR,#? ? IR,SR,AR,DM,HR,LR. ?.? 1? ?1.? 16 ? 000 ? PLC ? 00000 - 00015?16 ? ? HR0 ? HR000 - HR015.? 100 ? PLC ? 10000 -10015? ? 00100 ? ? ? 2? ? 00000 ? 1600 ?#F8C2 ? ? HR2 ? ? PC ? PLC ?.? CQM1, ?.?PC?PLC,?PLC?PC?.? ?(fame).? 131 ?. 1.?: PC ? - ? ? - 00-31 ? DM6648DM6653 ? PC ? 32 ? PLC ? ? - PLC ? ? - PC ? FCS - ? ? - *? PC ? - ? ? - 00-31 ? PLC ? ? - PLC ? ? - ? ? - ? FCS - ? ? - *? PLC ? PC ? - PLC ? ? - ? PLC ? ? - PLC ? EX ? - PLC ? FCS - ? ? - *? 2.PC ? PLC ? 2.1 ? IR/SR ? - RR ? - PLC ? ? - ? PLC ? ? - PC ? PLC ? ? - ? IR/SR ? ? - ? FCS - ? ? - *? PLC ? - ? ? - ? PLC ? ? - ? ? - 16 ? ? - ? FCS - ? ? - *? 1.LD ? ? LD ? LD 00000 AND NOT 00001 OUT 10000 LD 00002 AND 00003 2.LD NOT ? ? LD NOT ? LD NOT 00000 AND NOT 10000 OUT 10002 LD NOT 00002 AND 00003 OUT 10003 3.AND ? ? AND ? LD 00000 AND 00001 OUT 10002 LD NOT 00002 AND 00003 OUT 10003 4.AND NOT ? ? AND NOT ? LD 00000 AND NOT 00001 OUT 10002 LD NOT 00002 AND NOT 00003 OUT 10003 5.OR ? ? OR ? LD 00000 OR 00002 AND NOT 00001 OUT 10002 6.OR NOT ? ? OR NOT ? LD 00000 OR NOT 00002 AND NOT 00001 OUT 10002 7.AND LD ? ? AND LD ? LD 00000 OR NOT 00002 LD NOT 00001 OR 00003 AND LD OUT 10002 ?,?,?PC?PLC? ?. ?: 1.?(?). 2.?. 3.?. 4.?(?) 5.? 6.?/?. 7.?. ?: ? 586. PLC ? CQM1 RS232 ? ? VB ? ? PLC ?,? ? PLC ?,?,? ? ?: ?.?: 1.CQM1 ?: ? 30 ?,? PLC ? 30 ?.?:IR00000 ? IR001* 2. ? 20 ?,? PLC ? 20 ?.?:IR10000 ? IR1010* ?.PLC ?:(?) ?: ? 00000 ? ? 2100 ? ? 1600 ? ? AR0805 ? ? 10001 ? ? 10100 ? TXD ? PLC ? PC ? ?!?. ?.? VB ?,? 1.? VB ? BAS ? Global a$ Global b$ Global c$ Global wb$ Global wc$ Global wa$ Global wd$ Global we$ Global wf$ Global f1q Global f2q Global ssc$ Global f3q Global f4q Global f5q Global wss$ Global f6q Global num Global nun Global fx$ Global wq$(10) Global qb$ Global x Global y Global c1q Global c2q Global c3q Global c4q Global fxsfsj Global c5q Global c6q Global qbsfsj Global qbcfsj Global fxcfsj Global p Global h Global l Global zds Global m Global SC$ BaudRate Type DCB Id As String * 1 BaudRate As Integer ByteSize As String * 1 Parity As String * 1 StopBits As String * 1 RlsTimeout As Integer CtsTimeout As Integer DsrTimeout As Integer Bits1 As String * 1 Bits2 As String * 1 XonChar As String * 1 XoffChar As String * 1 XonLim As Integer XoffLim As Integer PeChar As String * 1 EofChar As String * 1 EvtChar As String * 1 TxDelay As Integer End Type Type COMSTAT Bits As String * 1 cbInQue As Integer cbOutQue As Integer End Type Type recordtype rq As String * 10 sj As String * 8 bjd As String * 30 End Type Type bjtype da As String * 10 ti As String * 8 bjw As String * 40 cl As String * 4 zbh As String * 4 End Type Declare Function OpenComm Lib User (ByVal lpComName As String, ByVal wInQueue As Integer, ByVal wOutQueue As Integer) As Integer Declare Function SetCommState Lib User (lpDCB As DCB) As Integer Declare Function readcomm Lib User (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer Declare Function writecomm Lib User (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer Declare Function Closecomm Lib User (ByVal nCid As Integer) As Integer Declare Function BuildCommDCB Lib User (ByVal lpDef As String, lpDCB As DCB) As Integer Declare Function GetCommerror Lib User (ByVal nCid As Integer, lpStat As COMSTAT) As Integer Functions for Scrolling a Window Declare Sub ScrollWindow Lib User (ByVal hWnd As Integer, ByVal XAmount As Integer, ByVal YAmount As Integer, lpRect As Any, lpClipRect As Any) Declare Sub UpdateWindow Lib User (ByVal hWnd As Integer) Declare Sub setalarm Lib c:vbalarm1.dll (ByVal port As Integer, ByVal n As Integer) ?,?. 22. ?:(? form1,? MSCome.ocx ? form1,? ?) ? form_load Sub Form_Load () form1.Show Dim RET As Integer Dim T As Integer Dim lpstat As COMSTAT Dim READBUFFER As String * 19 Dim LpDCB As DCB Dim NCID As Integer Const Commstring = COM2:9600,e,7,2 ? T = Closecomm(1) CommPort$ = Left$(Commstring$, InStr(Commstring$, :) - 1) NCID = OpenComm(CommPort$, 1024, 1024) Command1.Enabled = False form2.show fram$ = 00SC02: GoSub 300 PLC ? fram$ = 00KRCIO 001600: GoSub 300 ? fram$ = 00KRCIO 001601: GoSub 300 fram$ = 00KRCIO 001602: GoSub 300 fram$ = 00KRCIO 001603: GoSub 300 fram$ = 00KRCIO 001604: GoSub 300 fram$ = 00KRCIO 001605: GoSub 300 fram$ = 00KRCIO 001700: GoSub 300 fram$ = 00KRCIO 001701: GoSub 300 fram$ = 00KRCIO 001702: GoSub 300 fram$ = 00KRCIO 001703: GoSub 300 fram$ = 00KRCIO 001704: GoSub 300 fram$ = 00KRCIO 001705: GoSub 300 fram$ = 00KRCIO 001706: GoSub 300 fram$ = 00KRCIO 001707: GoSub 300 fram$ = 00KRCIO 001708: GoSub 300 fram$ = 00KRCIO 001709: GoSub 300 fram$ = 00KRCIO 001710: GoSub 300 fram$ = 00KRCIO 001711: GoSub 300 fram$ = 00KRCIO 001712: GoSub 300 fram$ = 00KRCIO 001713: GoSub 300 fram$ = 00KRCIO 001714: GoSub 300 fram$ = 00KRCIO 001715: GoSub 300 fram$ = 00KRCIO 001800: GoSub 300 fram$ = 00KRCIO 001801: GoSub 300 fram$ = 00KRCIO 001802: GoSub 300 fram$ = 00KRCIO 001803: GoSub 300 fram$ = 00KRCIO 001804: GoSub 300 fram$ = 00KRCIO 001805: GoSub 300 fram$ = 00KRCIO 001806: GoSub 300 fram$ = 00KRCIO 001807: GoSub 300 fram$ = 00KRCIO 001808: GoSub 300 fram$ = 00KRCIO 001809: GoSub 300 fram$ = 00KRCIO 002100: GoSub 300 fram$ = 00KRCIO 002101: GoSub 300 fram$ = 00SC03: GoSub 300 PLC ? Call setalarm( num; Tab(50); *?:; qbsfsj; Tab(80); * printer.Print * ?: ; Date$; Tab(50); #?:; fxsfsj; Tab(80); * printer.Print * ?: ; Time$; Tab(80); * printer.Print * ?:; ?; Tab(80); * printer.Print * ?:; ?; Tab(50); ?:; ?; Tab(80); * printer.Print - printer.EndDoc num = num + 1 Else zd = ZDS / 19 sc$ = Mid$(BUFFER, 1, ZDS) form3.Text1.Text = sc$ For i = 1 To zd If zd = 1 Then a$ = Mid$(sc$, 8, 8) b$ = Left$(a$, 1) If b$ = 0 Then GoTo nett11 Else GoSub zht1 End If On bj GoSub dipt11, dipt21, dipt31, dipt41, dipt51, dipt61, dipt71, dipt81, dipt91, dipta1, diptb1, diptc1, diptd1, dipte1, diptf1 nett11: b$ = Mid$(a$, 2, 1) If b$ = 0 Then GoTo nett21 Else GoSub zht1 End If On bj GoSub dipt12, dipt22, dipt32, dipt42, dipt52, dipt62, dipt72, dipt82, dipt92, dipta2, diptb2, diptc2, diptd2, dipte2, diptf2 nett21: b$ = Mid$(a$, 3, 1) If b$ = 0 Then GoTo nett31 Else GoSub zht1 End If On bj GoSub dipt13, dipt23, dipt33, dipt43, dipt53, dipt63, dipt73, dipt83, dipt93, dipta3, diptb3, diptc3, diptd3, dipte3, diptf3 nett31: b$ = Mid$(a$, 4, 1) If b$ = 0 Then GoTo nett41 GoSub zht1 On bj GoSub dipt14, dipt24, dipt34, dipt44, dipt54, dipt64, dipt74, dipt84, dipt94, dipta4, diptb4, diptc4, diptd4, dipte4, diptf4 nett41: b$ = Mid$(a$, 5, 1) If b$ = 0 Then GoTo nett51 GoSub zht1 On bj GoSub dipt15, dipt25, dipt35, dipt45, dipt55, dipt65, dipt75, dipt85, dipt95, dipta5, diptb5, diptc5, diptd5, dipte5, diptf5 nett51: b$ = Mid$(a$, 6, 1) If b$ = 0 Then GoTo nett61 GoSub zht1 On bj GoSub dipt16, dipt26, dipt36, dipt46, dipt56, dipt66, dipt76, dipt86, dipt96, dipta6, diptb6, diptc6, diptd6, dipte6, diptf6 nett61: b$ = Mid$(a$, 7, 1) If b$ = 0 Then GoTo nett71 GoSub zht1 On bj GoSub dipt17, dipt27, dipt37, dipt47, dipt57, dipt67, dipt77, dipt87, dipt97, dipta7, diptb7, diptc7, diptd7, dipte7, diptf7 nett71: b$ = Mid(a$, 8, 1) If b$ = 0 Then GoTo nett81 GoSub zht1 On bj GoSub dipt18, dipt28, dipt38, dipt48, dipt58, dipt68, dipt78, dipt88, dipt98, dipta8, diptb8, diptc8, diptd8, dipte8, diptf8 nett81: Next i WSS$ = wa$ + wb$ + wc$ + wd$ + we$ + wf$ + ? tryout.rq = Date$ tryout.sj = Time$ tryout.bjd = WSS$ Put #2, num, tryout printer.Print - printer.Print * ?:; num; Tab(50); *?:; qbsfsj; Tab(80); * printer.Print * ?: ; Date$; Tab(50); #?:; fxsfsj; Tab(80); * printer.Print * ?: ; Time$; Tab(80); * printer.Print * ?:; WSS$; Tab(80); * printer.Print * ?:; ?; Tab(50); ?:; grdnum; Tab(80); * printer.Print - printer.EndDoc num = num + 1 BUFFER = GoTo 1200 zht1: If b$ = 1 Then bj