تبیان، دستیار زندگی
به نقشه مدار در شکل زیر توجه کنید در این نقشه اگر جهت led را عوض کنید باز هم led مانند
بازدید :
زمان تقریبی مطالعه :

نقشه مدار کنترل LED

دیروز در زمینه کنترل کردن ربات از راه دور گفتگو کردیم در ادامه گفتگو به نقشه مدار می پردازیم

نقشه مدار

مدار دیود

به نقشه مدار در شکل زیر توجه کنید در این نقشهاگر جهت led را عوض کنید باز هم led مانند حالت قبل روشن و خاموش می شود و به چشمک زدن خود ادامه می دهد ، این بار روشن و خاموش شدن بر خلاف حالت اولیه خواهد بود برای اینکه این حالت را بهتر متوجه بشوید دو عدد led را در کنار یکدیگر به صورت موازی قرار دهید به گونه ای که مثبت و منفی یا آند و کاتد آنها بر خلاف یکدیگر باشند اگر برنامه را اجرا کنید مشاهده خواهید کرد که led ها با هم روشن نمی شوند بلکه عمل روشن و خاموش شدن به تناوب صورت خواهد گرفت علت آن وجود قطار پالسی است که توسط برنامه صورت می گیرد زمانی که این قطار پالس زیر محور صفر قرار می گیرد در واقع زمین نسبت به آن مثبت تر است و جریان را براحتی عبور می دهد و دیود روشن و خاموش می شود، یک اصل مهم را همواره در دیودها به خاطر بسپارید هرگاه ولتاژ سمت آند دیود از ولتاژ سمت کاتد آن مثبت تر باشد دیود جریان را از خود عبور می دهد این عمل در led ها با روشن شدن آنها براحتی و با چشم دیده می شود

برنامه مدار

led

در ابتدای برنامه متغیر output معرفی شده است نوع این متغیر Integer یا عدد صحیح است در خطوط بعدی رویداد های مربوط به کلیک دکمه start معرفی شده است بارگذاری اولیه تایمر و فعال کردن تایمر،رویداد مربوط به کلیک دکمه stop را در خطوط بعدی مشاهده می کنید به محض کلیک این دکمه تایمر برنامه متوقف می شود در قسمت FORM_LOAD به بارگذاری اولیه برنامه در هنگام بالا آمدن اشاره می کند پورت سریال شماره 2 باز می شود و در صورت بسته بودن به طور مثال اگر MOUSE به آن وصل باشد پیغام خطای پورت قابل دسترسی نیست را می دهد مقدار اولیه تایمر 250 میلی ثانیه است تایمر نیز ENABLE یا فعال می شود متغیر OUTPUT نیز مقدار صفر را به خود اختصاص می دهد در قسمت HSCROLL1_CHANGE تایمر یک ،توسط SCROLLBAR ای که بر روی فرم قرار دارد مقدار دهی می شود با توجه به اینکه مقدار اولیه آن 100 بارگذاری شده با مقدار 10 جمع می شود و فاصله زمانی بین پالسها 110 میلی ثانیه است در انتهای برنامه متغییر OUTPUT مقدار دهی می شود اگر یک باشد ،صفر می شود و اگر صفر باشد یک می شود در خط انتهایی مقدار DTR برابر مقدار OUTPUT است و فاصله زمانی این بارگذاری ها توسط Scrollbar موجود بر روی فرم تعیین می شود

1:

2:

3:  Dim Output As Integer

4:

5:  Private Sub Command1_Click()

6:    Timer1 Interval = HScroll1 Value + 10

7:    Timer1 Enabled = True

8:  End Sub

9:

10:  Private Sub Command2_Click()

11:    Timer1 Enabled = False

12:  End Sub

13:

14:  Private Sub Form_Load()

15:   i = OPENCOM("COM2,1200,N,8,1")

16:   If i = 0 Then MsgBox ("COM Port unavailable")

17:   Timer1 Interval = 250

18:   Timer1 Enabled = True

19:   Output = 0

20:  End Sub

21:

22:  Private Sub Form_Unload(Cancel As Integer)

23:  CLOSECOM

24:  End Sub

25:

26:  Private Sub HScroll1_Change()

27:   Timer1 Interval = HScroll1 Value + 10

28:  End Sub

29:

30:  Private Sub Timer1_Timer()

31:    If Output = 1 Then Output = 0 Else Output = 1

32:    If Output = 1 Then DTR 1 Else DTR 0

33:  End Sub

ادامه دارد...

تنظیم برای تبیان: سیدخاموشی