Fatek plc için opc server arıyorum

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

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.

selamlar ...

dde server ve communaication server dosyaları linktedir.

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

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

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

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.

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

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;

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;

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

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