Omron CQM1H(DM Area) - PC Connection Example

[toTAZ 0]

Hi, this my example program for comm. pc and plc. system speaking over the DM area sorry my english still terrible because of this i cant write more english comment its only for education,, this picture show dm write package this is my example system i used Cport v3.0, LMDTools v6.11, Delphi 7 unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, CPort, StdCtrls, ExtCtrls, CPortCtl, LMDCustomComponent,  LMDWndProcComponent, LMDCustomFormFill, LMDFormFill, Buttons, LMDControl,  LMDBaseControl, LMDBaseGraphicControl, LMDBaseLabel,  LMDCustomSimpleLabel, LMDSimpleLabel, LMDGraphicControl,  LMDBaseMeter, LMDCustomProgressFill, LMDProgressFill, LMDBaseShape,  LMDShapeControl, LMDShadowFill, LMDLEDCustomLabel, LMDLEDLabel,  LMDScrollText; type  TForm1 = class(TForm)    ComPort1: TComPort;    TimerPLCRead: TTimer;    Panel1: TPanel;    ComLed1: TComLed;    ComLed2: TComLed;    ComLed3: TComLed;    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;    LMDFormFill1: TLMDFormFill;    BitBtn1: TBitBtn;    Memo2: TMemo;    Image1: TImage;    Image2: TImage;    Image3: TImage;    LMDSimpleLabel1: TLMDSimpleLabel;    LMDSimpleLabel2: TLMDSimpleLabel;    LMDProgressFill1: TLMDProgressFill;    SpeedButton1: TSpeedButton;    SpeedButton2: TSpeedButton;    LMDShapeControl1: TLMDShapeControl;    Image4: TImage;    Image5: TImage;    LMDSimpleLabel3: TLMDSimpleLabel;    LMDSimpleLabel4: TLMDSimpleLabel;    SpeedButton3: TSpeedButton;    SpeedButton4: TSpeedButton;    LMDShapeControl2: TLMDShapeControl;    LMDSimpleLabel5: TLMDSimpleLabel;    LMDLEDLabel1: TLMDLEDLabel;    LMDSimpleLabel6: TLMDSimpleLabel;    LMDLEDLabel2: TLMDLEDLabel;    LMDSimpleLabel7: TLMDSimpleLabel;    LMDShadowFill1: TLMDShadowFill;    LMDSimpleLabel8: TLMDSimpleLabel;    Image6: TImage;    Image7: TImage;    Image8: TImage;    LMDSimpleLabel9: TLMDSimpleLabel;    LMDSimpleLabel10: TLMDSimpleLabel;    LMDProgressFill2: TLMDProgressFill;    SpeedButton5: TSpeedButton;    SpeedButton6: TSpeedButton;    LMDShapeControl3: TLMDShapeControl;    LMDLEDLabel3: TLMDLEDLabel;    LMDSimpleLabel14: TLMDSimpleLabel;    LMDLEDLabel4: TLMDLEDLabel;    LMDSimpleLabel15: TLMDSimpleLabel;    LMDShadowFill2: TLMDShadowFill;    LMDSimpleLabel16: TLMDSimpleLabel;    Image11: TImage;    LMDSimpleLabel11: TLMDSimpleLabel;    Image9: TImage;    Image10: TImage;    LMDSimpleLabel17: TLMDSimpleLabel;    LMDSimpleLabel18: TLMDSimpleLabel;    SpeedButton7: TSpeedButton;    SpeedButton8: TSpeedButton;    LMDShapeControl4: TLMDShapeControl;    Image12: TImage;    Image13: TImage;    Image14: TImage;    Label4: TLabel;    Label5: TLabel;    LMDSimpleLabel12: TLMDSimpleLabel;    LMDSimpleLabel13: TLMDSimpleLabel;    procedure FormCreate(Sender: TObject);    procedure TimerPLCReadTimer(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);    Function hexToInt(hexStr: string): longint;    procedure VarstoEdits;    procedure SpeedButton4Click(Sender: TObject);    procedure Panel1Click(Sender: TObject);  private    cSendBuffer        : PChar;   // outgoing buffer    cRcvBuffer         : PChar;   // incomming buffer    CharCntReceived    : Integer; // incomming charecter count    iErrorCount        : integer; // Error Count    myReadOnlyDMArea   : array [0..14] of Word; // PLC DM area    procedure CalcCRC(sStr:PChar;iLength :Integer; var Fcs1,Fcs2:Char);    Function  CheckCRC(sStr:PChar;iLength :Integer): Boolean;    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} {--------------------------------------------------------------------------} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin cRcvBuffer := StrAlloc(512); cSendBuffer := StrAlloc(512); for i:=0 to 511 do cSendBuffer[i] := #0; for i:=0 to 14 do myReadOnlyDMArea[i]:=0; CharCntReceived := 0; iErrorCount := 3; comport1.Connected:=TRUE; comport1.ClearBuffer(TRUE,TRUE); TimerPLCRead.Enabled := TRUE; end; {--------------------------------------------------------------------------} {Tform1.FormClose} procedure TForm1.BitBtn1Click(Sender: TObject); begin // Program kapat?lmadan önce timer ve seri port kapat?lmal?. // Seri portta ç?kan bir hatadan dolay? kapatmadan önce Clearbuffer ile  temizlenmesi laz?m TimerPLCRead.Enabled:=FALSE; comport1.ClearBuffer(TRUE,TRUE); //comport1.Connected:=FALSE; Close; end; {--------------------------------------------------------------------------} // Tüm SpeedButtonlar Bu Fonksiyna Ba?l? (* DM 4: Valve and pomp output (100.00 .. )    0001 : Output 100.0  Depot 2 - out valve and pomp    0010 : Output 100.1  Depot 2 - witer valve    0100 : Output 100.2  Depot 1 - Ç?k?? Valfi-Pompa    1000 : Output 100.3  Depot 1 - Giri? Valfi *) procedure TForm1.SpeedButton4Click(Sender: TObject); var cFcs1 , cFcs2:Char; begin try  cSendBuffer[0] := '@';  cSendBuffer[1] := '0';  cSendBuffer[2] := '0';  cSendBuffer[3] := 'W';  cSendBuffer[4] := 'D';  cSendBuffer[5] := '0';  cSendBuffer[6] := '0';  cSendBuffer[7] := '0';  cSendBuffer[8] := '4';  if SpeedButton1.Down then cSendBuffer[9] := '1' else cSendBuffer[9] := '0';  if SpeedButton3.Down then cSendBuffer[10] := '1' else cSendBuffer[10] := '0';  if SpeedButton5.Down then cSendBuffer[11] := '1' else cSendBuffer[11] := '0';  if SpeedButton7.Down then cSendBuffer[12] := '1' else cSendBuffer[12] := '0';  CalcCRC(@cSendBuffer[0], 13, cFcs1, cFcs2);  cSendBuffer[13] := cFcs1;  cSendBuffer[14] := cFcs2;  cSendBuffer[15] := '*';                        cSendBuffer[16] := #13;  cSendBuffer[17] := #0;  label4.Caption:= cSendBuffer;  comport1.WriteStr(cSendBuffer);  iErrorCount:= 4; finally //TimerPLCRead.Enabled:=TRUE; end; end; {--------------------------------------------------------------------------} procedure TForm1.TimerPLCReadTimer(Sender: TObject); var PacketOK  : boolean;    LastCount : integer;    y         : integer; begin inc(iErrorCount); // Porttan tampona gelen veriyi al?r ve tampon de?i?kene aktar?r. // E?er AsyncPro bile?enleri kullan?lacak ise bu iki sat?r siline a?a??daki ek yap?la LastCount := comport1.read(cRcvBuffer[CharCntReceived],512); CharCntReceived := CharCntReceived + LastCount; PacketOK := ((CharCntReceived = 71 ) and (cRcvBuffer[0] = '@') and (cRcvBuffer[69] = '*')); if PacketOK then PacketOK := CheckCRC(@cRcvBuffer[0],67); if PacketOK or (iErrorCount > 5 ) then  begin    //E?er packet sa?lam ise stringi parse et..      if PacketOK then      begin        for y:=0 to 14 do myReadOnlyDMArea[y] := hexToInt(Uppercase(copy(cRcvBuffer,8+(y*4),4)));        VarsToEdits;      end;    // Bufferi temizle ve PLC'den yeni paket veri iste    iErrorCount:=0;    CharCntReceived := 0;    comport1.WriteStr('@00RD0000001552*'+#13+#0);  end; end; {--------------------------------------------------------------------------} (*<<<>>><<<>>>DM Area Map<<<>>><<<>>> DM 0  : Depo 1 Analog S?cakl?k Bilgisi DM 1  : Depo 1 Analog Bas?nç Bilgisi DM 2  : Depo 2 Analog S?cakl?k Bilgisi DM 3  : Depo 2 Analog Bas?nç Bilgisi <<<>>><<<>>>DM Area Map<<<>>><<<>>>*) procedure Tform1.VarstoEdits; var tempStr : string;    y : integer; begin //<<<>>><<<>>>DEPO 1 için<<<>>><<<>>> //S?cakl?k tempStr:= Floattostrf(((myReadOnlyDMArea[0]*200/65535)-100),fffixed,8,1); while length(tempStr)<6 do  tempStr:= ' '+tempStr; LMDLEDLabel1.Caption := tempStr+' C'; //Bas?nçtan miktar LMDProgressFill1.UserValue := myReadOnlyDMArea[1]; tempStr:= Floattostrf(((myReadOnlyDMArea[1]*4000/65535)),fffixed,8,1); while length(tempStr)<6 do  tempStr:= ' '+tempStr; LMDLEDLabel2.Caption := tempStr+' L'; //<<<>>><<<>>>DEPO 2 için<<<>>><<<>>> //S?cakl?k tempStr:= Floattostrf(((myReadOnlyDMArea[2]*200/65535)-100),fffixed,8,1); while length(tempStr)<6 do  tempStr:= ' '+tempStr; LMDLEDLabel3.Caption := tempStr+' C'; //Bas?nçtan miktar LMDProgressFill2.UserValue := myReadOnlyDMArea[3]; tempStr:= Floattostrf(((myReadOnlyDMArea[3]*4000/65535)),fffixed,8,1); while length(tempStr)<6 do  tempStr:= ' '+tempStr; LMDLEDLabel4.Caption := tempStr+' L'; //Memo2 gelen DM bilgilerini ekranda göstermek için kullan?l?r. //Memo2 LED panele t?klay?nca aç?l?r. if memo2.Visible then begin  memo2.Lines.Clear;  for y:=0 to 14 do  memo2.Lines.Add('DM'+inttostr(y)+' = ' + inttostr(myReadOnlyDMArea[y])); end; end; (* -------------------------------------------------------------------------- -------------------------- YARDIMCI FONKSIYONLAR ------------------------- -------------------------------------------------------------------------- HexToInt : girilen Hexadesimal say?y? integera çevirir CalcCRC  : girilem Length uzunlu?unda pchar stringin 16bit CRC kodunu hesaplar ChechkCRC: girilen Length uzunlu?unda pchar stringin 16bit CRC kodunu hesaplar           ve verilen CRC kodu ile kar??la?t?r?r, do?ru ise TRUE döner. *) Function Tform1.hexToInt(hexStr: string): longint; var iErr:integer; begin  Result := 0;  Val('$' + hexStr,Result , iErr); end; {--------------------------------------------------------------------------} procedure TForm1.CalcCRC(sStr:PChar;iLength :Integer;var Fcs1,Fcs2:Char); var cFcs, cTmpFcs:Byte;    i:Integer; begin cFcs := 0; for i := 0 to iLength-1 do    cFcs := cFcs XOR ORD(sStr[i]); cTmpFcs := cFcs AND $0f; if cTmpFcs > $09 then   Fcs2:=CHAR(cTmpFcs+$37) else   Fcs2:=CHAR(cTmpFcs+$30); cTmpFcs := cFcs SHR 4; if cTmpFcs > $09 then   Fcs1:=CHAR(cTmpFcs+$37) else   Fcs1:=CHAR(cTmpFcs+$30); end; {--------------------------------------------------------------------------} Function TForm1.CheckCRC(sStr:PChar;iLength :Integer): Boolean; var cFcs1, cFcs2: Char; begin result:= FALSE; CalcCRC(@sStr[0], iLength, cFcs1, cFcs2); if (cFcs1 = sStr[67]) and (cFcs2 = sStr[68]) then Result := TRUE; end; {--------------------------------------------------------------------------} procedure TForm1.Panel1Click(Sender: TObject); begin //Memo2 gelen DM bilgilerini ekranda göstermek için kullan?l?r. //LED panele t?klay?nca aç?l?r. memo2.Visible := NOT memo2.Visible; label4.Visible := NOT label4.Visible; end; end.  object ComPort1: TComPort    BaudRate = br9600    Port = 'COM1'    Parity.Bits = prEven    StopBits = sbTwoStopBits    DataBits = dbSeven    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]    FlowControl.OutCTSFlow = False    FlowControl.OutDSRFlow = False    FlowControl.ControlDTR = dtrDisable    FlowControl.ControlRTS = rtsDisable    FlowControl.XonXoffOut = False    FlowControl.XonXoffIn = False    Left = 112    Top = 16  end if you want to use Turbo power AsyncPro component, add on this form procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word); var LastCount,I : integer; begin LastCount:= Count; for I := 1 to LastCount do begin  cRcvBuffer[CharCntReceived]:= ApdComPort1.GetChar;  inc(CharCntReceived); end; end; and    ApdComPort1.OutPut := '@00RD0000001552*'+#13+#0;    //comport1.WriteStr('@00RD0000001552*'+#13+#0); and  object ApdComPort1: TApdComPort    ComNumber = 1    Baud = 9600    Parity = pEven    DataBits = 7    StopBits = 2    TraceName = 'APRO.TRC'    LogName = 'APRO.LOG'    OnTriggerAvail = ApdComPort1TriggerAvail    Left = 32    Top = 32  end i shared this example on turkish forum, and iwantto share it in here too,

[moosty 0]

Nice work pal, Did you also tried to use CX-Server Lite?

[toTAZ 0]

once upon,, but it was very slow than this example :) idont know why but its catch only 40-50 dm area in one second, but this can 300-500 dm area in one second (not in this example :) ) but now i want to use more than one plc.. (at least 3-5 plc) how can i use rs422.. i found this hardware connection for cpm but i cant found package information.. thanks

[Jay Anthony 118]

CPM1-CIF11

[toTAZ 0]

thanks Jay i know i'll possessor Cif-11 but there isnt any package information.. for exam. this is for cqm1h after @ first and second characters are NODENO but how can i change it on plc.. or this is true way of reach DM area.. i thought i send first plc @01RD000000010XXcr and it will send response @01RD... and next @02RD000000010XXcr and it will send response @02RD... isnt it true

[Jay Anthony 118]

This is correct for multiple PLCs.

[Jay Anthony 118]

What turkish forum?

[toTAZ 0]

Our Delphi Programming Forum its only about delphi and SQL programming (we invitation all friends who know turkish )

[jinhin 0]

Hi, I'm new to programming with PLC. Understand from the postings here, you're trying to comms with an Omron PLC via RS232. Does anyone here knows how to do so using VB6.0?

[KinK 0]

yup i have done it I belive if you look in the download area there is an example program of just that.

[jinhin 0]

Any Idea where exactly do I find it? Any file name?

[Jay Anthony 118]

Sysway(Hostlink) VB demo Program @ MrPLC.com

[toTAZ 0]

you can use same function on VB,(delphi is RAD too :) ) you can use mscomm component for comminication on VB but i think its very unstable.. yo should use delphi or C

[KinK 0]

You dont need to use the mscomm ocx you can us just vb too it works very well I have an example somewhere I will see If I can find it .

[moosty 0]

Hi! MSComm32.ocx works excellent with VB. With DELPHI, you may have some problems on registiration of MSComm32.ocx, so it is better not to use MSComm32.ocx in DELPHI. Borland does not have any component such as MSComm, however you can find some components for DELPHI such as: http://www.programmersheaven.com/zone2/cat55/18804.htm But I don't test this component in "real world". So, If you are working with VB, your best choice will be MSComm32. If you are working with DELPHI, try to find a component on Internet, and test before using.

[toTAZ 0]

my programs are used in inds. field since 96, and there isnot any problem... i think delphi +turbo power async pro comport or delphi + serial comport best choice for comminication. the Most populer (and perfect)2 open source free component i think mscomm has lots of problems. it crash and its some times freeze..