نقشه مدار کنترل 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
ادامه دارد...
تنظیم برای تبیان: سیدخاموشی