عضویت     ورود  جوانی ستاره ای است که فقط یکبار در آسمان عمر طلوع می کند . ژوبرت چهارشنبه، 20 فروردين ماه ، 1399

کانال تلگرام


تبلیغات متنی


منوی سایت


جست و جو در بانك مقالات




مقالات جدید
تعداد شاخه ها: 30 عدد
تعداد مقالات: 758 عدد 1: آزمايشگاه الكترونيك - استاد محرري 
[دفعات مشاهده : 6424 بار]
 2: جزوه درس مخابرات 1 - دانشگاه فردوسي مشهد 
[دفعات مشاهده : 6345 بار]
 3: كتاب مهندسي تاسيسات / دكتر كلهر 
[دفعات مشاهده : 6162 بار]
 4: مجموع اعوجاج هارمونیک T.H.D 
[دفعات مشاهده : 6168 بار]
 5: كتاب "روش طراحي و تحليل مدارهاي الكترونيك" 
[دفعات مشاهده : 12912 بار]
 6: ادوات نوري 
[دفعات مشاهده : 6017 بار]
 7: كتاب اصول تلويزيون رنگي 
[دفعات مشاهده : 7974 بار]
 8: پروژه دزد گیر با سنسور تشخیص حرکت pir با قفل رمز الکترونیکی 
[دفعات مشاهده : 7323 بار]
 9: جزوه اندازه گیری الکتریکی 
[دفعات مشاهده : 6635 بار]
 10: سوالات کنکور کارشناسی ارشد 90 / گروه مهندسی برق 
[دفعات مشاهده : 8371 بار]
 11: آرشيو پروژه هاي 8051 
[دفعات مشاهده : 7186 بار]
 12: آرشيو پروژه هاي AVR‌ (ـ‌ 126 پروژه ) 
[دفعات مشاهده : 15176 بار]
 13: آموزش برنامه نويسي و كار با ماژول Sim300CZ با ميكروكنترلر AVR 
[دفعات مشاهده : 11343 بار]
 14: سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق 
[دفعات مشاهده : 8605 بار]
 15: ارتباط میکروهای PIC با کمک پروتکل سریال I2C و نکات تکمیلی ماژول MSSP 
[دفعات مشاهده : 6753 بار]
 16: ساعت تقویم با کمک میکروکنترلر PIC و DS1307 
[دفعات مشاهده : 7291 بار]
 17: تایمرهای چند زمانه ( ساعت مرکزی ) با میکرو PIC 
[دفعات مشاهده : 6695 بار]
 18: ساعت تقویم شمسی مجهز به آلارم روزانه و هفتگی 
[دفعات مشاهده : 7581 بار]
 19: صفحه کلید وقفه ای با میکروکنترلر PIC 
[دفعات مشاهده : 6392 بار]
 20: کرنومتر دیجیتال با میکروکنترلر PIC با قابلیت ثبت 3 زمان 
[دفعات مشاهده : 6511 بار]
 21: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HMTR + پروژه چت متنی بیسیم 
[دفعات مشاهده : 10407 بار]
 22: سنسورهای حرارت 
[دفعات مشاهده : 8625 بار]
 23: کنترل وسایل برقی از طریق خط تلفن با میکروکنترلر PIC 
[دفعات مشاهده : 8723 بار]
 24: ارتباط سریال UART بین دو میکروکنترلر PIC 
[دفعات مشاهده : 6989 بار]
 25: گزارش کار آموزی : ماشین های ابزار کنترل عددی CNC 
[دفعات مشاهده : 7275 بار]
 26: کنترل وسایل به کمک ماژول HM-TR و میکرو AVR 
[دفعات مشاهده : 9853 بار]
 27: طراحی و ساخت کنترل از راه دور 1 کانال با کمک ماژول های ASK و آی سی های سری PT 
[دفعات مشاهده : 8306 بار]
 28: مجموعه رفرنس های آموزشی میکروکنترلرهای سری dsPIC 
[دفعات مشاهده : 7680 بار]
 29: مجموعه پروژه های میکروکنترلر AVR با کامپایلر بسکام 
[دفعات مشاهده : 13061 بار]
 30: طراحی و ساخت مدارات انتقال دیتا به وسیله ماژول های HM-T و HM-R با میکرو AVR 
[دفعات مشاهده : 10773 بار]


آخرين مطالب ارسال شده
· روش طراحي و تحليل مدارهاي الكترونيك[ 1 نظر شما چيه؟ - 40530 مشاهده ]
· اصول تلويزيون رنگي[ 0 نظر شما چيه؟ - 18826 مشاهده ]
· نرم افزار DigSilent[ 2 نظر شما چيه؟ - 21991 مشاهده ]
· AVR Tech Lib 2011[ 1 نظر شما چيه؟ - 25513 مشاهده ]
· مجموعه كنفرانس هاي سالينه ميكروچيپ / سال 2009 /[ 2 نظر شما چيه؟ - 23290 مشاهده ]
· آموزش كار با ماژول SIM300CZ با ميكرو AVR[ 4 نظر شما چيه؟ - 25746 مشاهده ]
· مجموعه فيلم هاي آموزشي نرم افزار Altium Designer[ 0 نظر شما چيه؟ - 40000 مشاهده ]
·  سوالات كنكور كارشناسي ناپيوسته 89 - گروه برق[ 0 نظر شما چيه؟ - 20677 مشاهده ]
· لينك دانلود مجله October 2010 / SERVO[ 0 نظر شما چيه؟ - 17596 مشاهده ]
· Catalog CA 01 (10/2009) / International version[ 0 نظر شما چيه؟ - 22154 مشاهده ]

[ موارد بیشتر در بخش اخبار و تازه ها ]


زبان
انتخاب زبان نمایش :



مطالب جديد
· 1: AUTOMATIC QUALITY CONTROL OF FRIED POTATO USING MACHINE VISION
· 2: بررسی افت ولتاژ و کنترل توان بیشینه در سیستم های فتوولتاییک
· 3: تخمين ميانگين عمر مفيد يك نوع كامپيوتر صنعتي به روش مونت كارلو و ارائه راهكار جهت افزايش آن
· 4: REACTIVE COMPENSATION USING STATIC VAR COMPENSATORS -A PLANNING CASE STUDY USING
· 5: Design and Implementation of an efficient Two-level Scheduler for Cloud Computing Environment
· 6: Phase Shift Pulse Codes With Good Periodic Correlation Properties
· 7: Evaluation of Wave Energy Changes in Taiwan
· 8: PDA Robotics(Using Your Personal Digital Assistant to Control Your Robot)
· 9: Spectral Estirmation: Fact or Fiction
· 10: Definition and Classification of Power System Stability
· 11: Obstacle Avoidance with Ultrasonic Sensors
· 12: سيستم DSLو جايگاه آن در ايران
· 13: فیلم آموزشی Step7 Process Diagnostics
· 14: Recognition Assisted Dynamic Surveillance System Based on OSGi and OpenCV
· 15: Characteristics and Stabilization of an Inertial Platform
· 16: Evaluation of Nanostructural, Mechanical and Biological Properties of Collagen-Nanotube Composites
· 17: Speaker Independent Automatic Emotion Recognition from Speech:-A Comparison of MFCCs and Discrete Wa
· 18: ANSI N42.38-2006
· 19: مطالعه و شناسایی شبکه توزیع با استفاده از دستگاه ثبات پارامترهای شبکه(طراحی و ساخت)
· 20: Transducer Properties of Lead Titanate Zirconate Ceramics

[ آخرين مقالات ]


ارسال مقاله به سايت

 



...::: Ir-Micro.Com :::... :: View topic - کمک در مورد برنامه نویسی برای hm-t-hm-r


کمک در مورد برنامه نویسی برای hm-t-hm-r
Goto page 1, 2  Next
 
Post new topic   Reply to topic    ...::: Ir-Micro.Com :::... Forum Index -> مخابرات Printable Version
View previous topic :: View next topic  
Author Message
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 2 دي ماه ، 1389 10:16:24 Reply with quote Scroll Down to Next postGo to last Post of Page

سلام
من اومدم يه بايت رو با ماژول hm-r وhm-t بفرستم و مدارو بستم ولي كار نميكنه نمي دونم اشكال از چيه؟ نميدونم پايه tx ميكرو اطلاعات رو به ماژول
ميده تا بفرسته؟ چيكار كنم كه مطمئن شوم اطلاعات رو مي فرسته؟؟؟؟ و گيرنده اونو در يافت ميكنه؟

ممنون ميشم اگه كمكم كنيد

Back to top
View user's profile Send private message
EBKA
کاربر فعال
کاربر فعال

Joined: Dec 19, 2007
Posts: 343




Location: تهران-یزد
948325.86 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 2 دي ماه ، 1389 15:23:03 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

سلام...
شما سیم وصل کن ببین میفرسته یا نه!!!!

Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 2 دي ماه ، 1389 20:06:16 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

با سيم بايد پايه tx ميكرو فرستنده رو به پايهrx ميكرو گيرنده وصل كنم؟ همين كافيه؟

ممنون ميشم اگه كمكم كنيد

Back to top
View user's profile Send private message
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 2 دي ماه ، 1389 21:05:55 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

برای اتصال دو میکرو.
GND به GND
پایه ی tx فرستنده به پایه ی rx گیرنده.

درضمن لزوماٌ از کریستال خارجی استفاده میشه و baud rate باید مشخص بشه.

علت کار نکردن ریموت.
اگر از فرکانس 915 استفاده میکنید، امواج با این فرکانس در هوا زیاد است. (قابل حل)
هنگام استفاده از دستور print به صورت زیر عمل کنید.
print var+(chr13)
یعنی عبارت chr13 را بعد از print قرار بدی.
یک نکته ی دیگه ، اگر طول رشتت بیشتر از 4 کارکتر باشد احتمال صحت اطلاعات دریافتی کم میشه.(4 را با آزمایش به دست آوردم.).
این هم یک لینک مرتبط
http://www.ir-micro.com/modules.php?name=Forums&file=viewtopic&t=6120

Back to top
View user's profile Send private message Send e-mail Visit poster's website
EBKA
کاربر فعال
کاربر فعال

Joined: Dec 19, 2007
Posts: 343




Location: تهران-یزد
948325.86 امتیاز

Items

Status: Offline

PostPosted: جمعه، 3 دي ماه ، 1389 12:55:54 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

سلام..
شما بادستور
printbin var
متغییر رو ارسال
و در گیرنده با دستور:
var=inkey()
یا
var=waitkey()
دریافت میکنی...
var همون متغییر هست ...
موفق باشی....

Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: جمعه، 3 دي ماه ، 1389 15:51:55 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

من وقتي كه سيم كه ازtx فرستنده به rx گيرنده وصل شده رو جدا مي كنم هنوز هم پايهc2 يك مي شود(روشن) نميدونم چرا اينجوري شده؟ اصلا هيچ تاثيري نداره.آيا برنامه درسته؟
فرستنده:
Dim A As String * 3
A = "h"
Do
Print A;
Loop
End
گيرنده:
im A As String * 3
Config Portc = Output
Do
A = Inkey()
If A = "h" Then
Set Portc.2
End If
Loop
End
ممنون ميشم اگه كمكم كنيد

Back to top
View user's profile Send private message
EBKA
کاربر فعال
کاربر فعال

Joined: Dec 19, 2007
Posts: 343




Location: تهران-یزد
948325.86 امتیاز

Items

Status: Offline

PostPosted: جمعه، 3 دي ماه ، 1389 19:53:06 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

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




Last edited by EBKA on شنبه، 4 دي ماه ، 1389 16:22:47; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: شنبه، 4 دي ماه ، 1389 12:48:16 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

این برنامه :
$crystal =8000000
$baud=9600
dim s as string*3
s="ali"
do
print s +chr(13)
loop
end

برای گیرنده:
$crystal=8000000
$baud=9600
config portc.2 =output
dim s as string*3
do
input s
if s ="ali" then set portc.2
loop
end

در ضمن این برنامه با یک بار زدن کلید پورت C.2 را 1 میکنه و برای خاموش شدن باید میکرو را ریست کنی. برنامه ی شما احتمالاٌ به این دلایل کار نمی کند:
1. طول رشته ی شما کمه (یکی از امواج هوا که حامل h است با دستور شما مطابقت پیدا می کند. در کل رمز شما بای مناسب تر باشد.)
2. chr(13) را که ننوشتی.
3. چون می گی مدام برای خودش 0 و 1 میشه احتمالاٌ pull down را انجام ندادی. این امر به علت نویز روی پایه ی خروجی (C.2) انجام میشه. برای pull down یک مقاومت 10 کیلو بین پایهی خروجی و gnd باید قرار بدی. به این کار pull down میگند.

Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: شنبه، 4 دي ماه ، 1389 12:52:28 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

راستی باید طول رشتهی string با طول متغییر برابر باشه .
در برنامه ی شما هیچوقت متغییر در گیرنده h نمی شود . بلکه یک متغییر سه کارکتری مثل u8j خواهد شد.

Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: شنبه، 4 دي ماه ، 1389 21:10:44 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

برنامه با سيم كار كرد. ولي با ماژول كار نمي كنه؟فاصله بين دو ماژول 3m است
فرستنده:
$crystal = 8000000
$baud = 9600
Dim S As String * 3
S = "ali"
Do
Print S + Chr(13)
Loop
End
گيرنده:
$crystal = 8000000
$baud = 9600
Config Portd.7 = Output
Dim S As String * 3
Do
Input S
If S = "ali" Then Set Portd.7
Loop
End
ممنون ميشم كمكم كنيد

Back to top
View user's profile Send private message
RFBOOK
مدیر انجمن
مدیر انجمن

Joined: Dec 21, 2009
Posts: 394




Location: اصفهان
1531550.12 امتیاز

Items

Status: Offline

PostPosted: شنبه، 4 دي ماه ، 1389 23:52:59 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

سلام

با این برنامه ای که نوشتی وقتی ماژول ها را متصل می کنی توی گیرنده روی LCD چی نشون میده ؟



__________________
آموزش ماژول های RF






خدمت سربازي تا تير Ù
Back to top
View user's profile Send private message Send e-mail Visit poster's website Yahoo Messenger
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: يكشنبه، 5 دي ماه ، 1389 06:41:16 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

lcd وصل نكردم فقط بايد portd.7 رو يك كنه.آيا برنامه درسته؟ اگه نه لطفا كمكم كنيد.

ممنون ميشم

Back to top
View user's profile Send private message
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: دوشنبه، 6 دي ماه ، 1389 01:39:37 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

دوست عزیز دقیقاٌ نوع میکرو و ماژول و فرکانس کاری را بنویس.
آیا قبلاٌ با میکرو و ماژول کار کردی.
درضمن در قسمت گیرنده ، پایهی enable را به vcc وصل کردی؟
اصلاٌ فیوز بیت ها را برای کریستال خارجی تنظیم کردی؟
ماژول نو هست؟
در برنامه ی بالا من نوع میکرو رو ننوشتم که باید خودت می نوشتی.
آیا برنامه با ارتباط سیمی کار می کنه؟
pull down را انجام دادی؟

Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: دوشنبه، 6 دي ماه ، 1389 01:48:17 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

در برنامهی گیرنده عبارت زیر را بعد از نوع میکرو بنویس.
Enable Interrupts

Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: دوشنبه، 6 دي ماه ، 1389 20:51:41 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

نوع ميكرو:atmega16 ماژول hm-t و hm-r وفركانس 8mhz هست.
1-با ميكرو كار كردم ولي با ماژول نه
2-پايه enable رو به vcc وصل كردم.
3-كريستال خارجي نگذاشتم و داخلي بكار بردم.
4-ماژول نو هست.نوع ميكرو رو در تنظيمات bascom انجام دادم.
5-برنامه با سيم كار مي كنه.
6-pull down رو انجام ندادم چون پايه مدام 0 و1 نميشه.
7-اگه برنامه رو با interrupts ننويسم مشكلي به وجود مي آيد.
فقط enable interrupts رو اضافه كنم كافيه يا بايدتغييراتي رو مربوط به interrupts هست رو
به برنامه اضافه كنم

Back to top
View user's profile Send private message
EBKA
کاربر فعال
کاربر فعال

Joined: Dec 19, 2007
Posts: 343




Location: تهران-یزد
948325.86 امتیاز

Items

Status: Offline

PostPosted: سه شنبه، 7 دي ماه ، 1389 10:10:41 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

سلام... دوست عزیز پایه های میکرو رو به ماژول چجوری وصل کردی...؟؟؟
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: سه شنبه، 7 دي ماه ، 1389 18:52:33 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

حتماٌ از کریستال خارجی استفاده کن.
pull down را حتماٌ انجام بده.
ولتاژ تنظیم باشه. از باطری استفاده کن.
enable interrupts کافیه.
بازم می گم از کریستال خارجی استفاده کن.
اگر بازم نشد، اطلاعات را روی کامپیوتر مایتورینگ کن ببین چی نشون می ده.( برای مانیتورینگ از max232 استفاده کن. یادت باشه که پایه ی 16 این آیسی را به vcc و پایهی 15را به GND وصل کنی.).
درضمن فرکانس ماژول چند است؟؟؟؟؟
موفق باشی.

Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: سه شنبه، 7 دي ماه ، 1389 19:03:06 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

pull down را حتماً برای گیرنده و فرستنده انجام بده.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: سه شنبه، 7 دي ماه ، 1389 23:11:55 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

فركانس ماژول 433 مگا است.
در ضمن كريستال خارجي 7.3728 مگا است. آيا مناسب هست ؟

Back to top
View user's profile Send private message
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: چهارشنبه، 15 دي ماه ، 1389 12:02:03 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

چی شد؟؟؟؟؟؟؟؟؟؟؟؟
کریستال 8mhz

Back to top
View user's profile Send private message Send e-mail Visit poster's website
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: چهارشنبه، 15 دي ماه ، 1389 23:45:53 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

كريستال خارجي 7.3728 مگا است.
فركانس ماژول 433 مگا است

Back to top
View user's profile Send private message
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 16 دي ماه ، 1389 00:04:15 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

اين برنامه من براي موتور dc هست ولي كار نمي كنه
اول اومدم با سيم امتحان كنم ولي نشد كسي مي تونه كمكم كنه؟؟؟؟؟؟
فرستنده:
$regfile = "m16def.dat"
Config Porta = Input
Ddra.0 = 0 : Porta.0 = 1
Ddra.1 = 0 : Porta.1 = 1
Ddra.2 = 0 : Porta.2 = 1
Dim A As String * 7 , B As Byte
Do
Debounce Pina.0 , 0 , Right
Debounce Pina.1 , 0 , Left
Debounce Pina.2 , 0 , Stop
Loop
Right:
For B = 1 To 10
Print "Right"
Waitms 50
Next
Return
Left:
For B = 1 To 10
Print "Left"
Waitms 50
Next
Return
Stop:
For B = 1 To 10
Print "Stop"
Waitms 50
Next
Return
گيرنده:
$regfile = "m16def.dat"
Config Portd.6 = Output
Config Portd.7 = Output
Set Portd.5
Dim A As Byte
Do
Inputbin A
If A = "Right" Then
Reset Portd.6
Reset Portd.7
Waitms 50
Set Portd.6
Reset Portd.7
End If
If A = "Left" Then
Reset Portd.6
Reset Portd.7
Waitms 50
Set Portd.7
Reset Portd.6
End If
If A = "Stop" Then
Reset Portd.6
Reset Portd.7
End If
Loop
End
در محيط شبيه سازي كار ميكنه

Back to top
View user's profile Send private message
hossein-ab
کاربر عادی
کاربر عادی

Joined: Mar 04, 2008
Posts: 48





90280.12 امتیاز

Items

Status: Offline

PostPosted: پنجشنبه، 16 دي ماه ، 1389 13:38:36 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

اين برنامه فرستنده من براي موتور dc هست آيا درسته يا نه؟
$regfile = "m16def.dat"
Config Portd.3 = Input
Ddrd.3 = 0 : Portd.3 = 1
Ddrd.4 = 0 : Portd.4 = 1
Dim A As String * 10 , B As Byte
Do
Debounce Pind.3 , 0 , Right
Debounce Pind.4 , 0 , Left
Loop
Right:
For B = 1 To 10
Print "hossein1"
Waitms 50
Next
Return
Left:
For B = 1 To 10
Print "hossein2"
Waitms 50
Next
Return
End
اين برنامه گيرنده آيا درسته؟
$regfile = "m16def.dat"
Config Portd.6 = Output
Config Portd.7 = Output
Dim A As String * 10
Do
Input A
If A = "hossein1" Then
Reset Portd.6
Reset Portd.7
Waitms 50
Set Portd.6
Reset Portd.7
End If
If A = "hossein2" Then
Reset Portd.6
Reset Portd.7
Waitms 50
Set Portd.7
Reset Portd.6
End If
Loop

Back to top
View user's profile Send private message
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: شنبه، 18 دي ماه ، 1389 10:12:56 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

دوست عزیز
طول رشته string باید کم ( حدود 4 کارکتر) باشد.قبلاً گفته شده.
کریستال خارجی باشد و فیوز بیت ها باید برای کریستال خارجی تنظیم شوند و اندازه ی کریستال باید در بر نامه باشد.
بالاخره یا از inputbin و printbin استفاده کن یا input و print. حتماًاًاً طول رشتهی پرینت شده با طول رشتهی string براببببببر باشد.
در آخر پورت ها رو برای ورودی و خروجی درست تنظیم کن.
pull down را انجام بده!!!!!!!!!
در حلقه ی پرینت فاصله ی زمانی (waitms) ایجاد مکن.
در فیوز بیت ها برای کریستال خارجی مقادیر CKSEL0...3 را 1 کن.(درحالت کریستال داخلی 0 هستند.)

Back to top
View user's profile Send private message Send e-mail Visit poster's website
bigbomber
کاربر نیمه فعال
کاربر نیمه فعال

Joined: Jan 23, 2010
Posts: 140




Location: اصفهان
537124.00 امتیاز

Items

Status: Offline

PostPosted: شنبه، 18 دي ماه ، 1389 10:19:33 Reply with quote Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

راستی متغییر ی که پرینت میگیری و انپوت می کنی را در آخرین عبارت قبل از loop صفر کن.( این متغییر در مثال خودت A است. فکر کن اگر این کار را نکنی چی میشه؟؟؟؟؟)

موفق باشی.

Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    ...::: Ir-Micro.Com :::... Forum Index -> مخابرات All times are GMT + 3.5 Hours
Goto page 1, 2  Next
Page 1 of 2
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum

 
 Jump to:   

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts کاربرانی که با دانلود کردن فایلها از سایت مشکل دارند بخوانند 92 Hamed 123043 چهارشنبه، 15 شهريور ماه ، 1391 12:01:25
mohamad_mousavi69 View latest post
No new posts نحوی نمونه برداری از آمپر ac بدون استفاده از ct 8 monjezy 16751 شنبه، 20 اسفند ماه ، 1390 22:55:17
exact-zero View latest post
No new posts مشكل استفاده از وقفه خارجي 41 arvinfx 41870 جمعه، 6 فروردين ماه ، 1389 15:55:00
Morteza_rk View latest post
 


Powered by phpBB © 2001, 2008 phpBB Group

Ported to Platinum 7.6.b.4 V2 by sadeghkhafan

فروشگاه تخصصی برق و الکترونیک ایران میکرو
www.iran-micro.com
PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL.
Powered by Platinum 7.6.b.4 v2
Powered by Platinum 7.6.b.4 v2 Persian

مدت زمان ایجاد صفحه : 0.19 ثانیه