Visual Basic ile Elektronik Sayaç Okuma

Projeyi bitirmek üzereyim. Tüm Elektrik sayaçlarını okuyabilen bir program geliştirdim. Mantığı da şöyle:

Sayacın markası Makel...

Mscom ayarları program ilk açılışında "300,e,7,1" olacak.

1. Önce sayaca "/?! vbcrlf" gönderilecek.

2. Ardından sayaç "/MSY5<1>M310.2218" cevabını gönderecek. Bu bilgi içinde "MSY" sayacın flag kodu, "5" sayacın maksimum bağlantı hızı, diğerleri fasa fiso :)

1 gelirse sayaç 300 bps ile, 2 gelirse 600 bps, 3 gelirse 2400 bps, 4 gelirse 4800 bps, 5 gelirse 9600 bps, 6 gelirse 19200 bps olarak haberleşme devam ettirilecek.

3. Ardından Chr$(6) & "050" & vbCrLf gönderelecek ve bu gönderiden sonra mscom ayarları 2. aşamadaki hıza çıkartılacak. Makel de 5 geldiği için "9600,e,7,1" olacak.

4. Sayaçtan bilgiler dökülmeye başlayacak ve gelen bilgiler textboxa yazdırılacak.

Şu an buraya kadar herşey başarılı. Ancak takıldığım bölüm sayaçtan aldğım bilgiler;

0.0.0(14655158)
0.8.0(15*min)
0.9.1(10:41:24)
0.9.2(15-05-11)
0.9.5(1)
1.8.0(00000.000*kWh)
1.8.1(00000.000*kWh)
1.8.2(00000.000*kWh)
1.8.3(00000.000*kWh)
1.8.4(00000.000*kWh)

şeklinde devam ediyor. Benim istediğim bu bilgileri her satır için ayrı ayrı oluşturduğum textboxlara yazdırması. Mesela ilk satırı parantez dışındakiler ile parantez içindekileri ayrı olarak textboxlara yazdırmak. 0.0.0 ayrı bir textboxa, 14655158 ayrı bir textboxa... Bu konda yardımcı olabilecek varsa çok memnun olurum.

Yaptığım çalışmanın kaynak kodlarını forum içinden isteyenler ile paylaşabilirim.
kaynak kodlarını paylaşabilirmisin ?
 

Forum istatistikleri

Konular
129,852
Mesajlar
930,756
Kullanıcılar
452,706
Son üye
nurbay aktaş

Yeni konular

Geri
Üst