[mtm4song]

السلام عليكم
انا واقف معايا مشكلة من فترة بحاول فيها _ المشكلة باختصار
ربط 2 ميكرو كنترول من نوع ATMEGA8 بحيث يتم ارسال واستقبال الداتا بينهم

الدايرة توضح تشغيل واطفاء LEDS عن طريق BUTTON
الBUTTON الموجود فى الميكرو الاعلى يشغل _ ويطفي الLED الموجود فى الميكرو الاسفل والعكس صحيح

دي فكرة الدايرة ببساطه
المشكلة
هوة انو لازم ارسل بيانات في شكل حرف واحد مثلا A او B او C او رقم 1 او 2 .....

المطلوب هوة ارسال جملة او مجموعة حروف زي LED ONE ON او LED ONE OFF

اريد من لدية خبرة في لغة البيزك ان يعدل علي الكود التالي لارسال واستقبال
جمله مكونة من اكتر من حرف
رسمة الدايرة بروتوس

كود الميكرو في الاعلى

$regfile = "m8def.dat"
$crystal = 4000000
'------------------------
Dim Value As Byte
Config Portb.0 = Input
Config Portb.1 = Output
Portb.1 = 0
Portb.0 = 1
'------------------------
Open "comd.6:9600,8,n,1" For Output As #6
Open "comd.7:9600,8,n,1" For Input As #5
'------------------------
Do
Value = Inkey(#5)
If Value > 0 Then
If Value = "A" Then Toggle Portb.1
End If

'----------------
'recived value
If Pinb.0 = 0 Then
Print #6 , "A"
Waitms 100
End If
Loop

كود الميكرو الاسفل

$regfile = "m8def.dat"
$crystal = 4000000
'------------------------
'Ucsrb = 0
Dim Value As Byte
Config Portb.0 = Input
Config Portb.1 = Output
Portb.1 = 0
Portb.0 = 1
'------------------------
Open "comd.6:9600,8,n,1" For Output As #5
Open "comd.7:9600,8,n,1" For Input As #6
'------------------------
Do
Value = Inkey(#6)
If Value > 0 Then
If Value = "A" Then Toggle Portb.1
End If
'----------------
'recived value
If Pinb.0 = 0 Then
Print #5 , "A"
Waitms 100
End If
Loop

[ماجد عباس محمد]

أخى
التوصيل خطأ حيث أوصلت طرفى 12و13 بين الميكرو بينما يجب أن توصل الأطراف المخصصة للوظيفة منفذ تسلسلى وهى Tx,Rx طرفى 2،3
أيضا يجب استخدام الوظيفة
IsCharWaiting() function
لتعلم هل هناك بايت فى Buffer أم لا

[Semmoor]

اقتباس المشاركة الأصلية كتبت بواسطة mtm4song السلام عليكم انا واقف معايا مشكلة من فترة بحاول فيها _ المشكلة باختصار ربط 2 ميكرو كنترول من نوع ATMEGA8 بحيث يتم ارسال واستقبال الداتا بينهم الدايرة توضح تشغيل واطفاء LEDS عن طريق BUTTON الBUTTON الموجود فى الميكرو الاعلى يشغل _ ويطفي الLED الموجود فى الميكرو الاسفل والعكس صحيح دي فكرة الدايرة ببساطه المشكلة هوة انو لازم ارسل بيانات في شكل حرف واحد مثلا A او B او C او رقم 1 او 2 ..... المطلوب هوة ارسال جملة او مجموعة حروف زي LED ONE ON او LED ONE OFF اريد من لدية خبرة في لغة البيزك ان يعدل علي الكود التالي لارسال واستقبال جمله مكونة من اكتر من حرف رسمة الدايرة بروتوس كود الميكرو في الاعلى $regfile = "m8def.dat" $crystal = 4000000 '------------------------ Dim Value As Byte Config Portb.0 = Input Config Portb.1 = Output Portb.1 = 0 Portb.0 = 1 '------------------------ Open "comd.6:9600,8,n,1" For Output As #6 Open "comd.7:9600,8,n,1" For Input As #5 '------------------------ Do Value = Inkey(#5) If Value > 0 Then If Value = "A" Then Toggle Portb.1 End If '---------------- 'recived value If Pinb.0 = 0 Then Print #6 , "A" Waitms 100 End If Loop كود الميكرو الاسفل $regfile = "m8def.dat" $crystal = 4000000 '------------------------ 'Ucsrb = 0 Dim Value As Byte Config Portb.0 = Input Config Portb.1 = Output Portb.1 = 0 Portb.0 = 1 '------------------------ Open "comd.6:9600,8,n,1" For Output As #5 Open "comd.7:9600,8,n,1" For Input As #6 '------------------------ Do Value = Inkey(#6) If Value > 0 Then If Value = "A" Then Toggle Portb.1 End If '---------------- 'recived value If Pinb.0 = 0 Then Print #5 , "A" Waitms 100 End If Loop

نصيحتي تابع هذا الفيديو :
https://www.youtube.com/watch?v=FUq7...68CB85&index=8

كل الكورس يتكلم عن الباكسوم والمتحكم AVR

[mtm4song]

اقتباس المشاركة الأصلية كتبت بواسطة ماجد عباس محمد أخى التوصيل خطأ حيث أوصلت طرفى 12و13 بين الميكرو بينما يجب أن توصل الأطراف المخصصة للوظيفة منفذ تسلسلى وهى Tx,Rx طرفى 2،3 أيضا يجب استخدام الوظيفة IsCharWaiting() function لتعلم هل هناك بايت فى Buffer أم لا

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

[mtm4song]

اقتباس المشاركة الأصلية كتبت بواسطة Semmoor نصيحتي تابع هذا الفيديو : https://www.youtube.com/watch?v=FUq7...68CB85&index=8 كل الكورس يتكلم عن الباكسوم والمتحكم AVR

شكرا لرد حضرتك

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

والتجربة دي فيها فكرة مش موجودة في الشرح وهيا الى بحاول اوصل ليها
وهيا استقبال وارسال جمله كاملة مش حرف

[مشتاق الله]

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

السلام عليكم و رحمة الله و بركاته

اخى اريد مساعدتك لكنى تركت البيزيك , و لكنى ساوضح لك فكرة عمل
ما تريد بلغة تعبيرية و حضرتك ممكن تفهمها و تغير الاكواد :

char text[]="led one on "   // declare an array of characters 
for (i=0 to n)   // n= number of letters in text
        send (text[i] ) // send character one by one 
end for

و الله الموفق و المستعان

اللهم خذ بايدينا اليك

[mtm4song]

اقتباس المشاركة الأصلية كتبت بواسطة مشتاق الله بسم الله الرحمن الرحيم السلام عليكم و رحمة الله و بركاته اخى اريد مساعدتك لكنى تركت البيزيك , و لكنى ساوضح لك فكرة عمل ما تريد بلغة تعبيرية و حضرتك ممكن تفهمها و تغير الاكواد : char text[]="led one on " // declare an array of characters for (i=0 to n) // n= number of letters in text send (text[i] ) // send character one by one end for و الله الموفق و المستعان اللهم خذ بايدينا اليك

اشكرك جدا

انا بحاول في الفكرة لاكن محتاج حد يكون جربها لانو بتظهر معايا اخطاء كتير
في تجربتها

لاكن في اشخاص كتير تركو لغة البيزك مش عارف لية هل هيا لغة ليست قوية
او ملهاش دعم ؟؟

[mtm4anas]

انا محتاج نفس الفكرة بلظبط

يا ريت لو فى حد بيقدر يساعدنا ؟؟