plc و vb.net

[mostafahk]

پاسخ : plc و vb.net

باید بگی دقیقا چیکار کردی و چطور وصل کردی تونستی عکس بزار و چه مدل PLC و برنامت رو بزار
نمه دیرم بالام (ترکی بود )

[taninpersian]

پاسخ : plc و vb.net

سلام دوست گلم ، من از 20sx2 دلتا استفاده کردم ،

Public Class Form1
Dim c As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SerialPort1.Open()
SerialPort1.Write(":010306140008DACRLF&quot
SerialPort1.Close()
End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

c = SerialPort1.ReadLine
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = c
End Sub
End Class

[mostafahk]

پاسخ : plc و vb.net

هاهاهاهاهاها ناراحت نباش اشتباه لپی داری
من که گفتم CR و LF همون 10 و 13 هستن. این دو تا رو باید اینطوری بفرستی

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    SerialPort1.Open()
    SerialPort1.Write(":010306140008DA" + ControlChars.Cr + ControlChars.Lf)
    SerialPort1.Close()
  End Sub

enjoy

[taninpersian]

پاسخ : plc و vb.net

ممنون اخوی ، انشاالله شب رفتیم خونه میتستیم ،یه چیزم بگم من wirteline هم تست کردم ،فقط این که adr چطور محاسبه میشه ؟ adr مربوط به فرستنده هستش یا گیرنده که من الان دارم میفرستمش :redface:

[mostafahk]

پاسخ : plc و vb.net

ممنون اخوی ، انشاالله شب رفتیم خونه میتستیم ،یه چیزم بگم من wirteline هم تست کردم ،فقط این که adr چطور محاسبه میشه ؟ adr مربوط به فرستنده هستش یا گیرنده که من الان دارم میفرستمش :redface:

addr آدرسی هست که PLC شما توش کانفیگ شده. کلا addr تو دستور گیرنده و تو جواب فرستنده رو مشخص میکنه. پیش فرض هم همون 1 هستش

[taninpersian]

پاسخ : plc و vb.net

بازم تشکر دوست عزیز ، انشاالله شب میرم خونه تست میکنم بازم مزاحمتون میشم

[taninpersian]

پاسخ : plc و vb.net

:wow: آقا شد اما addr پی ال سی 00 بود :wow: فعلا :00830776 جوابش بود حالا ادامه بدم ببینم چی هست دوست گلم بابت راهنمایی هات ممنون :applause: :wow:

[mostafahk]

پاسخ : plc و vb.net

ایول

[mostafahk]

پاسخ : plc و vb.net

چی فرستادی این اومد؟

[taninpersian]

پاسخ : plc و vb.net

آقا من فکر کنم یه جای کار میلنگه هر کدی که میدم یه نوع کد خطا میده ، به نظرتون چی میتونه باشه؟ 0001050000040A: این کدو فرستادم 00810778: بهم برگردوند

[mostafahk]

پاسخ : plc و vb.net

آقا من فکر کنم یه جای کار میلنگه هر کدی که میدم یه نوع کد خطا میده ، به نظرتون چی میتونه باشه؟ 0001050000040A: این کدو فرستادم 00810778: بهم برگردوند

check sum error داری صفحه 6 اون pdf که برات فرستادم نوشته.
اگه مطمئنی checksum درسته پس دستورت غلطه که اینطور نیست و یا طول دستور کم و زیاده.

LRC CHK(check sum)
LRC (Longitudinal Redundancy Check) is calculated by summing up, module 256, the values
of the bytes from ADR1 to last data character then calculating the hexadecimal representation
of the 2‟s-complement negation of the sum.

میگه که برای checksum باید غیر از اون : اولش بقیه عددها رو بایت به بایت با هم جمع کنی.
مثلا تو همین دستور خودت

0001050000040A : میشه 00 + 01+05+00+00+04=A که باید مکملش بگیری میشه F6 و درست میشه. شما مکل نگرفتی

اینم کد من که رشته آماده ارسال رو در آخرین مرحله قبل از ارسال LRC یا همون Checksum ش رو حساب میکنه.

char modbus_get_lcr(char *str)
{
unsigned char i , lcr = 0 , t;
//caclulate LCR
for(i = 0; str[i]; i++)
{
if( str[i] >= '0' && str[i] <= '9' )
t = str[i] - '0';
else
t = (str[i]-'A&#039+10;
t = t << 4;

i++;
if( str[i] >= '0' && str[i] <= '9' )
t += str[i] - '0';
else
t += (str[i]-'A&#039+10;

lcr += t;
}
lcr = 0x100 - lcr;

return lcr;
}

[taninpersian]

پاسخ : plc و vb.net

متوجه شدم اما تو فایل هایی که خوندم addr با بقیه نباید جمع بشه فکر کنم

[mostafahk]

پاسخ : plc و vb.net

فعلا که برای شما addr صفره ولی فکر کنم باید جمع بشه.

[taninpersian]

پاسخ : plc و vb.net

:applause: :wow: آقا مصطفی دمت گرم بالاخره تونستم خروجی هامو خاموش روشن کنم تا ببینیم میشه یه برنامه کامل درست کنیم ازش پول در بیاریم یا نه ، اوضاع اقتصادیمون بیخ پیدا کرده :mrgreen:

[mostafahk]

پاسخ : plc و vb.net

:applause: :wow: آقا مصطفی دمت گرم بالاخره تونستم خروجی هامو خاموش روشن کنم تا ببینیم میشه یه برنامه کامل درست کنیم ازش پول در بیاریم یا نه ، اوضاع اقتصادیمون بیخ پیدا کرده :mrgreen:

good job