[Eng-Rayan]

بسم الله الرحمن الرحميم

لدي مشكلة في التعامل مع السريال بورت

مشروعي هو 8 ريلاي موصولين مع 16f84a و برنامج بالvisual basic


المشكلة انني مبتدا visual basic و لم اعرف كيف التعامل معاه و السريال بورت
يمكنكم العمل باي برنامج visualC# visual basic java gui الخ الخ

و الكود ارجو ان يكون بال mikroC فانا لم اعرف كيف اتعمل مع الsoftware uart
هذه هي الدائرة



و هذا هو البرنامج



ارجو من الاخوة الأخصاء ان يعدلو لي البرنامج و يكون يعمل مع الsimulation proteus و ساكون ممتن للاخوة

هذا هو ملف المشروع و هو يحتاج الى تعديل و بالنسبة للبرنامج لا مشكلة لدي ان استخدمتم visual c# او visual basic او java gui المهم ان يكون البرنامج يعمل

من هنا

ارجو ان لا اكون كثرت عليكم
فهذا الموضوع سيفيد الكثير من الاخوة في القرية

[frank_hugo_1100]

موضوع جميل وان شاء الله سابدا بتنفيذه ولكن اعتقد هنا انه يجب توصيل max232
وبالنسبه للسوفت uart ستجد شرحه وبمثال فى مكتبه المايكرو سى فقط افتح help وستجد شرحا وافيا
حاليا قمت بعمل الجزء الاول من المشروع وعملت برنامج الفيجوال سى شارب
وهو يعمل جيدا
واليك الكود

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO.Ports;

namespace SERIAL8RELAYS
{
public partial class Form1 : Form
{
int data = 0x00;
int data1 = 0x00, data2 = 0x00, data3 = 0x00, data4 = 0x00, data5 = 0x00, data6 = 0x00,
data7 = 0x00, data8 = 0x00;
public Form1()
{
InitializeComponent();
}

private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
if (serialPort1.IsOpen) serialPort1.Close();
}

private void Set_Click(object sender, EventArgs e)
{
//**** configuring the serial port ****
serialPort1.PortName = "COM1";
serialPort1.BaudRate = 9600;
serialPort1.DataBits = 8;
serialPort1.Parity = Parity.None;
serialPort1.StopBits = StopBits.One;
//****opening the port****
serialPort1.Open();
if (!serialPort1.IsOpen)
MessageBox.Show(" Unable to open the required port ");
if (Relay1.Checked)
data1 = 0x01;
if (Relay2.Checked)
data2 = 0x02;
if (Relay3.Checked)
data3 = 0x04;
if (Relay4.Checked)
data4 = 0x08;
if (Relay5.Checked)
data5 = 0x10;
if (Relay6.Checked)
data6 = 0x20;
if (Relay7.Checked)
data7 = 0x40;
if (Relay8.Checked)
data8 = 0x80;
data = (data1 | data2 | data3 | data4 | data5 | data6 | data7 | data8);
MessageBox.Show("the data sent is " + data.ToString() + " ");
serialPort1.Write("data");
serialPort1.Close();
data1 = 0;
data2 = 0;
data3 = 0;
data4 = 0;
data5 = 0;
data6 = 0;
data7 = 0;
data8 = 0;

}

private void Reset_Click(object sender, EventArgs e)
{
data = 0;
Relay1.Checked = false;
Relay2.Checked = false;
Relay3.Checked = false;
Relay4.Checked = false;
Relay5.Checked = false;
Relay6.Checked = false;
Relay7.Checked = false;
Relay8.Checked = false;
//**** configuring the serial port ****
serialPort1.PortName = "COM1";
serialPort1.BaudRate = 9600;
serialPort1.DataBits = 8;
serialPort1.Parity = Parity.None;
serialPort1.StopBits = StopBits.One;
//****opening the port****
serialPort1.Open();
if (!serialPort1.IsOpen)
MessageBox.Show(" Unable to open the required port ");
serialPort1.Write("data");
MessageBox.Show("the data sent is " + data.ToString() + " ");
serialPort1.Close();

}

private void Exit_Click(object sender, EventArgs e)
{
if (serialPort1.IsOpen)
serialPort1.Close();
this.Close();
}


}
}
وبعد انتهاء المشروع ساضعه كاملا بالبرنامج هنا

[Eng-Rayan]

يا سلام عليك انهيلي هذا المشروع و سيكون لك مفاجئة انت تريدها

ساقول لك المفاجئة لشدة فضولي
انا الان اجهز موضوع للتحكم ب8 relay عن طريق sony remote controle و هو بال 16f84a
و اللغة هي الassembly

و باذن الله يكون جاهز عما قريب

[frank_hugo_1100]

ان شاء الله اخلصلك المشروع ده هوا حالا

[Eng-Rayan]

طيب ممكن كبداية ترسلي البرنامج ؟؟؟

[frank_hugo_1100]

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

[Eng-Rayan]

انشاء الله يعمل البرنامج و بالتوفيق

[frank_hugo_1100]

هات ايميلك وانا ابعتلك البرنامجين حالا
الميكرو سى
والفيجوال سى شارب
انا ايميلى نفس الاسم عالياهو