Modbus Protokolü Yardım

[bulutsuzluk_35]

arkadaşlar modbus protokolüyle bir plc ile haberleşmem lazım.Bana software yada hardware bir çözüm yapabilecek bir arkadaş varmı
mbaxp activex ini kullanamadım.Yani nasıl kullanılacağını çözemedim import ediyorum projeme ama class ı kullanamıyorum.Bu işle uraşan arkadaşların acil olarak yardımlarını bekliyorum


SAYGILAR...

[bulutsuzluk_35]

Arkadaşlar bu forumun kaç tane üyesi var bilmiyorum ama anlamadığım bir konu şu.
Şu ana kadar sorduğum sorularA ya hiç cevap verilmedi yada 1 veya 2 arkadaş yardımcı olmaya çalıştı.
Ya ben bu forumdan çok şey bekliyorum yada arkadaşlar artık eskisi kadar ilgili değil.
Neyse

Şimdi ben gene kendi sorunumu kendim hallettim ve nasıl hallettiğimi anlatırsam faydasının olacağı düşünerek bu yazıyı yazıyorum

1.modbus slave isimli opc server programı(1 adet)Google anahtar kelime=modbus slave yada mbslave;
2.modbus keygen...XXXXXXXXXX 'den aratırsanız bulabilirsiniz
"Crack-Keygen adreslerini vermiyoruz. - fduman"

Yapılışı
İki makinayı comdan bağlayın (Com bağlantı noktalarını bilmiyorum.elektronikçi arkadaşlar yaptı)
bir makinada modbus tester adlı ücretsiz yazılımı çalıştırın.Oradaki ayarları yapın hangi registerları gönderecekseniz onları seçin device
holding registers için
adres kısmını 1 yapın ki kendi yapacağımız programda da 1 yapacaz
start adres =1
lenght=18
Ayarları yaptıktan sonra connect diyin
sonra kendi makinanıza gidin ve bir form açın bir buton koyun
buton bağlan butonu olacak
ben holding registerları okumak istediğim için

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
a:=CreateOleObject('mbslave.Document');
status := a.CreateSlave(1, 3, 0, 18);
olusum:=True;
end;

yazıyoruz
Bu kod bizi slave cihaz yapıyor CreateSlave(1, 3, 0, 18);1=adres,3=holdingregisters,0=başangıç değeri,18=register sayısı
artık programı derlediğimizde diğer makinada modbus tester programında read ok yazısını görmemiz lazım

Kod: Tümünü seç

procedure TForm2.Timer1Timer(Sender: TObject);
var
i:integer;
begin
if olusum then
begin
  for i:=0 to 17 do
  StringGrid1.Cells[i,0]:=a.Register(i);
end;
end;

end.

bu kod ilede anlaşıldığı gibi register değerlerini stringgrid içerisine yazıyoruz
Bağlanma ve okuma bitti.
Yazma çok basit bundan sonra bunuda modbus slave programının helpinde excel örneği mevcut ordan entegre edebilirsiniz
Keygeninde ne işe yaradığını sölememe gerek varmı ??

[aslangeri]

s.a.
belkide sorduğun konular ile ilgilenen fazla arkadaş olmadığı için cevaplarda sıkıntı yaşıyorsunuz.

[aytaral]

Selam arkadaşlar, başka başlık açmadım bunun altında sorayım dedim.
daha önce böyle bir iletişim kurmadığım için konu ile ilgili hiçbir fikrim yok.
Kullanılan plc CPU telemecanique, ethernet çıkışı üzerinden MODBUS TCP/IP Protokolü ile çalışıyormuş
Bana verilen adreslerden bu plc den bazı veriler okumam, ve birinide yazmam gerekiyor.

1.Sorum bilgisayar ile arasıdaki bağlantıyı bu plc nin ethernet girişinden mi yapıcam ?
böyle yapıcaksam plc işlemcinin ip adresi vs nasıl konfigre edilecek ?
yada bu ethernet çıkışını seri ye dönüştürüp pc ye seriden mi giriş yapıcaz ?

2.sorum bu işlem için kullanabileceğim bir component yada başka bir yöntem varmı ?

Yardımlarınız için şimdiden teşekkürler, iyi çalışmalar...

[bulutsuzluk_35]

Eğer kullandığın plc nin sadece ethernet çıkışı varsa ethernetten çıkarssın arayada bir adet moxa 6110 takarsın com ucunuda kendine bağlarsın.Bundan sonraki olayları üstte bahsettiğim gibi yapabilirsin ama şu var:Modbus tester sadece comdan simülasyon yapabilirsin eğer ethernet üzerinden bir simülasyon yaapcaksan başka bir program bulman lazım yada plc hazır ise direk plc ile haberleşirsin.