[alimf]

نفذت هذا المشروع واشتغل تمام بس لم اوصل 220v على الريلية يشتغل مرة او مرتين بعدين يعلق الاردينو بعدها لازم اطفي الاردينو وارجعة اشغلة ونفس الحكاية مرة مرتين ويرجع يعلق
هذا كود الاردينو :

int ledPin12 = 12;


void setup() {
Serial.begin(9600); // set serial speed

pinMode(ledPin12, OUTPUT); // set LED as output


digitalWrite(ledPin12, LOW); //turn off LED

}
void loop(){
while (Serial.available() == 0); // do nothing if nothing sent
int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number


if (val == 3) { // test for command 1 then turn on LED
Serial.println("LED on");
digitalWrite(ledPin12, HIGH); // turn on LED
}
if (val == 4) {
Serial.println("LED OFF");
digitalWrite(ledPin12, LOW); // turn off LED
}

//val = val;

Serial.println(val);
Serial.flush(); // clear serial port
}

وهذا كود vb.net 2013

Imports System.IO
Imports System.IO.Ports
Imports System.Threading

Public Class Form1
    Shared _continue As Boolean
    Shared _serialPort As SerialPort

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.Close()
        SerialPort1.PortName = "com3" 'change com port to match your Arduino port
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 8
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.Handshake = Handshake.None
        SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' On Error Resume Next
        SerialPort1.Open()
        SerialPort1.Write("3")
        SerialPort1.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '  On Error Resume Next
        SerialPort1.Open()
        SerialPort1.Write("4")
        SerialPort1.Close()
    End Sub

[Tico]

مادام المشروع يشتغل بدون توصيل مع 220 و لا يعمل جيدا بعد توصيله ب 220 فربما لديك مشكل تشويش ..
ممكن تجرب العزل كهربائيا للوحة الاردوينو عن الريليه بواسطة optocoupler

[alimf]

جزاك الله الف خير .. هذا ما اريدة ساجرب الفكرة واديك خبر

[Tico]

اقتباس المشاركة الأصلية كتبت بواسطة alimf جزاك الله الف خير .. هذا ما اريدة ساجرب الفكرة واديك خبر

وجزاك بمثله وفقك الله..
ملحوظة : لحماية الاردوينو والفوتوكبلر ، يجب وضع مقاومة 330 أوم في خرج الاردوينو يعني بالتسلسل مع ليد (Led ) الفوتوكوبلر .
.

[SmartElectronic]

اقتباس المشاركة الأصلية كتبت بواسطة alimf نفذت هذا المشروع واشتغل تمام بس لم اوصل 220v على الريلية يشتغل مرة او مرتين بعدين يعلق الاردينو بعدها لازم اطفي الاردينو وارجعة اشغلة ونفس الحكاية مرة مرتين ويرجع يعلق هذا كود الاردينو : int ledPin12 = 12; void setup() { Serial.begin(9600); // set serial speed pinMode(ledPin12, OUTPUT); // set LED as output digitalWrite(ledPin12, LOW); //turn off LED } void loop(){ while (Serial.available() == 0); // do nothing if nothing sent int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number if (val == 3) { // test for command 1 then turn on LED Serial.println("LED on"); digitalWrite(ledPin12, HIGH); // turn on LED } if (val == 4) { Serial.println("LED OFF"); digitalWrite(ledPin12, LOW); // turn off LED } //val = val; Serial.println(val); Serial.flush(); // clear serial port } وهذا كود vb.net 2013 Imports System.IO Imports System.IO.Ports Imports System.Threading Public Class Form1 Shared _continue As Boolean Shared _serialPort As SerialPort Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.Close() SerialPort1.PortName = "com3" 'change com port to match your Arduino port SerialPort1.BaudRate = 9600 SerialPort1.DataBits = 8 SerialPort1.Parity = Parity.None SerialPort1.StopBits = StopBits.One SerialPort1.Handshake = Handshake.None SerialPort1.Encoding = System.Text.Encoding.Default 'very important! End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' On Error Resume Next SerialPort1.Open() SerialPort1.Write("3") SerialPort1.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' On Error Resume Next SerialPort1.Open() SerialPort1.Write("4") SerialPort1.Close() End Sub

المشكلة عندك في power down شوف انت مغذي الاردينو من سورس يتاثر ب220فولت المستخدمة علي اطراف الريلية بمعني الحمل المتصل علي اطراف الريلية ياثر في مصدر تغذية الاردينو والحل السريع استخدم تغذية الاردينو من باور سوتش

[محمد يسرى محمد]

المشكلة دى انا وجدتها فى احد الدوائر التى قمت بتنفيذها باستخدام الاردوينو
ولم اجد لها حل
اخى alimf
ياريت لما تجرب طريقة الاخى TICO تبقى تبلغنا بالنتيجة عشان نستفاد
وشكرا

[oussamaakira]

يجب أن تضع ديود على التفرع مع الوشيعة لكي تحمي الأردوينو من التوتر المتولد من الوشيعة عندما تقوم بتحريضها ثم تقطع عنها التيار و يمى الديود في هذه الحالة drl ديود العجلة الحرة

Exemple d'utilisation : Diode de roue libre.
Quand le transistor est saturé, un courant I circule dans la bobine du
relais, Uak = - 9V, la diode est bloquée.
Au blocage du transistor, un courant continue à circuler dans la bobine,
celle-ci se décharge alors dans la diode suivant le circuit en rouge, la
diode est passante.
La diode protège le transistor contre les surtensions qu'aurait provoqué
une rupture brutale du courant dans la bobine.

مثال على الاستخدام: الحرة الخلطات الصمام الثنائي.
عندما يتشبع الترانزستور، تيار أنا التي تتدفق من خلال لفائف
ترحيل UAK = - 9V، يتم حظر الصمام الثنائي.
في الترانزستور حظر، يستمر لتدفق الحالية في لفائف،
بعد ذلك التصريف عبر الدائرة الصمام الثنائي وفقا للأحمر، و
الصمام الثنائي تجري.
يحمي الصمام الثنائي فإن الترانزستور ضد ارتفاع تسببت
لكسر مفاجئ للتيار في الملف.

Example of use: Free-wheeling diode.
When the transistor is saturated, a current I flowing through the coil
relay Uak = - 9V, the diode is blocked.
In the blocking transistor, a current continues to flow in the coil,
it then discharges through the diode circuit according to the red, the
diode is conducting.
The diode protects the transistor against the surge would have caused
a sudden breaking of the current in the coil.

[Tico]

اقتباس المشاركة الأصلية كتبت بواسطة oussamaakira يجب أن تضع ديود على التفرع مع الوشيعة لكي تحمي الأردوينو من التوتر المتولد من الوشيعة

اطمئن أخي .. أغلب الأعضاء واعون بأهمية الديود الذي تتكلم عنه بمن فيهم الأخ صاحب السؤال .
انظر هذه مشاركته:

اقتباس المشاركة الأصلية كتبت بواسطة alimf نفذت هذا المشروع واشتغل تمام بس لم اوصل 220v على الريلية يشتغل مرة او مرتين بعدين يعلق الاردينو بعدها لازم اطفي الاردينو وارجعة اشغلة ونفس الحكاية مرة مرتين ويرجع يعلق هذا كود الاردينو : int ledPin12 = 12; void setup() { Serial.begin(9600); // set serial speed pinMode(ledPin12, OUTPUT); // set LED as output digitalWrite(ledPin12, LOW); //turn off LED } void loop(){ while (Serial.available() == 0); // do nothing if nothing sent int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number if (val == 3) { // test for command 1 then turn on LED Serial.println("LED on"); digitalWrite(ledPin12, HIGH); // turn on LED } if (val == 4) { Serial.println("LED OFF"); digitalWrite(ledPin12, LOW); // turn off LED } //val = val; Serial.println(val); Serial.flush(); // clear serial port } وهذا كود vb.net 2013 Imports System.IO Imports System.IO.Ports Imports System.Threading Public Class Form1 Shared _continue As Boolean Shared _serialPort As SerialPort Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.Close() SerialPort1.PortName = "com3" 'change com port to match your Arduino port SerialPort1.BaudRate = 9600 SerialPort1.DataBits = 8 SerialPort1.Parity = Parity.None SerialPort1.StopBits = StopBits.One SerialPort1.Handshake = Handshake.None SerialPort1.Encoding = System.Text.Encoding.Default 'very important! End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' On Error Resume Next SerialPort1.Open() SerialPort1.Write("3") SerialPort1.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' On Error Resume Next SerialPort1.Open() SerialPort1.Write("4") SerialPort1.Close() End Sub