Fatek plc için opc server arıyorum

[emekelektrik42]

Fatek mc plc için opc server bulmam lazım yardımcı olurmusunuz

 

[ilkata]

valla ne tesadüf bende arıyorum. bizim bölümdeki plcler fatec . ama wincc kullanıyorum. bulursan banada göndersene
ben de bulursam sana gönderirim.

 

[battaldirican]

selamlar ...

dde server ve communaication server dosyaları linktedir.

FATEK.rar
https://app.box.com/s/ie68p90inv13e5qwhe4ghhjan5dg4s1y

 

[FATEK_EXPERT]

DDE server da kullanabilirsiniz eğerki scadanız destekliyor ise.

 

[ilkata]

merhaba arkadaşlar, dde server winccde varmıdır acaba? wincc ile fatec plc kontrolü yapmayı düşünüyorum. yardım ederseniz sevinirim

 

[FATEK_EXPERT]

bazı scadalrda program ismi verip " git şurdan oku" diyerek data alış verişini sağlayabiliyorsunuz.Bizim kullandığımız kepserver, infilink scada da böyle bir özellik var ama wincc de varmıdır bilmiyorum.

 

[speedy24]

plc-scada haberleşmesi konusunda bilgiis olan arkadaşalar örneklerle biraz anlata bilirmi..teşekkürler..

 

[tr_escape]

Faket PLC ile DDE veya OLE tekniği ile Delphi , VB gibi yazılımlarla haberleştirebilirsiniz.

Örnek :
Var
FaconSvr : Variant;
Begin
FaconSvr := CreateOleObject('FaconSvr.FaconServer');

Label1.Caption:= FaconSvr.GetItem('Channel0.Station0.Group0','R1000') ;
End;

 

[asm_Coder]

procedure TForm1.FormShow(Sender: TObject);
var
FaconSvr : Variant;
begin
FaconSvr := CreateOleObject('FaconSvr.FaconServer');
FaconSvr.OpenProject('D:\facontry.fcs');
Edit1.Text := FaconSvr.GetItem('Channel0.Station0.Group0','R1000') ;
end;

 

[GencSaVaSc]

Selam

Fatek PLC ye VBasic 6.0 ile bağlanmaya çalışıyorum ancak verileri okuyamıyorum.

FaconSrv a bağlanıyor.
Server PLC içerisine bağlanıyor ve İstediğim zaman bağlantı kesiliyor.
?? Ancak R1 i oku dediğimde yada R1 e yaz dediğimde işlem yapmıyor.


Kodları gönderiyorum yardımlarınızı bekliyorum.


''''''''''''''''''''''''''''''''''''''''''KODLAR ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Server As Object
Private Sub Form_Load()
Set Server = CreateObject("FaconSvr.FaconServer") 'Server ı açıyor
Server.OpenProject ("D:\DEMO.fcs") 'ilgili adresteki dosyayı Serverda açıyor(D:\Demo.fcs)
End Sub

Private Sub Command2_Click()
Server.Connect 'FaconServer Da PLC ye bağlanıyor
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Server.Disconnect 'FaconServer PLC bağlantısı kesildi
End Sub

Private Sub Timer1_Timer()
Text2.Text = Server.GetItem("Chennel0.Station0.Group0", "R0") ' Read back R0 value
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''