برنامه نویسی به زبان ویژوال بیسیک (VB)

[admin]

کد تبلیغ اینجا

با سلام

من قصد دارم در این تاپیک به اموزش برنامه نویسی به زبان ویزوال بیسیک برای AVR ها بپردازم که میشه گفت تا حدودی با همون بیسیک کاملا شبیه هست. البته این تاپیک به نقل از سایت شرکت رگا پرداخته شده امیدوارم تاپیک خوبی بشه.

---

۝ بزرگترين خيانت اين است كه به دوست خود كه تو را راستگو مي پندارد دروغ بگويي.{ حضرت محمد (ص) }
۝ حسد ورزيدن علامت بارز بي لياقتي است.{ لارو شفوكو }
۝ مردان آفريننده ي كارهاي مهمند و زنان به وجود آورنده ي مردان مهم.{ رومن رولان }
۝ شايد خدا خواسته است كه ابتدا افراد نامناسب بسياري را بشناسي و سپس شخص مناسبي را به اين ترتيب وقتي او را يافتي بهتر مي تواني شكر گذار باشي .{ گابريل گارسيا ماركز }

دنیای علم و سرگرمی
MJCity.iR «--» Forum.MJCity.iR «--» Shop.MJCity.iR

[admin]

تعریف متغیر:

برای تعرف متغیر در نرم افزار Bascom از فرمت زیر تبعیت می کنیم.

Dim Var As Type

که در آن VAR می تواند یک حرف و یا یک کلمه باشد و Type می تواند یکی از انواع داده ی زیر باشد.


----------------------»VALUE RANGE---------/---------»STORES AS«---------/---------»نوع DATA
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
----------------------------»0 یا 1«-----------------------------BIT«--------------------------»A BIT
-------------------------»0 تا 255«----------------BYTE«------------------------»UNSIGNED 8 BITS
----------------»32767- تا 32767«-----------------INTEGER«--------------------»SIGNED 16 BITS
----------------------»0 تا 65535«---------------WORD«----------------------»UNSIGNED 16 BITS
-----»214783648 تا 214783647«------------------LONG«-----------------------»SIGNED 32 BITS
----»1.5 *10^-45 تا 3.4*10^38------------------»SINGLE«---------------------»SIGNED 32 BITS
----------------------------»***«-----------------------»STRING«----------------------»255 BYTES

نکته : در تعریف متغیرها باید هر متغیر به اندازه حافظه مورد نیازش تعریف کرد تا حافظه میکرو بی دلیل اشغال نشود.

برای مثال اگر عددی که در یک متغیر قرار می گیرد عدد 200 باشد ما نباید آن متغیر را از نوع Word تعریف کنیم ، در حالیکه ظرفیت Byte برای آن کافی می باشد.

Dim x As Byte

Dim Ali As Byte

Dim W As Integer

Dim Hh As Word

Dim T As Long

Dim U As Single

Dim Raga As String * 5

برای تعریف یک ثابت از این دستور استفاده می شود :

CONST SYMBOL= NUMCONST

CONST SYMBOL= STRINGCONST

CONST SYMBOL= EXPRESSION

SYMBOL نام ثابت و NUMCONST مقدار عددی انتساب یافته به SYMBOL , STRINGCONST رشته انتساب یافته به SYMBOL و EXPRESSION میتواند عبارتی باشد که نتیجه آن به SYMBOL انتساب یابد .

مثال

CONST S = “TEST”

CONST A = 5

CONST B1 =&B1001

CONST X = (B1 * 3 ) + 2

نحوه نوشتن برنامه در محیط Bascom :

تعاریف اصلی

معرفی میکرو :

$regfile = “ 8515def.dat “ ‘AT90s8515 MCU

$regfile = “ 8535def.dat “ ‘AT90s8535 MCU

$regfile = “ M8535.dat “ ‘MEGA 8535 MCU

$regfile = “ M8515.dat “ ‘MEGA 8515 MCU

$regfile = “ M8def.dat “ ‘MEGA 8 MCU

$regfile = “ M103def.dat “ ‘MEGA 103 MCU

$regfile = “ M16def.dat “ ‘MEGA 16 MCU

$regfile = “ M163def.dat “ ‘MEGA 163 MCU

$regfile = “ M161def.dat “ ‘MEGA 161 MCU

$regfile = “ M32def.dat “ ‘MEGA 32 MCU

$regfile = “ M323def.dat “ ‘MEGA 323 MCU

$regfile = “ M603def.dat “ ‘MEGA 603 MCU

$regfile = “ M64def.dat “ ‘MEGA 64 MCU

$regfile = “ M128def.dat “ ‘MEGA 128 MCU

$regfile = “ M128103.dat “ ‘MEGA 128 IN MEGA 103 MODE MCU

معرفی کریستال :

برای مشخص کردن فرکانس کریستال استفاده شده برحسب هرتز از دستور زیر استفاده می نماییم .

$CRYSTAL = X

مثال:

$CRYSTAL = 14000000 ’14MHZ external osc

$CRYSTAL = 8000000 ’8MHZ external osc

$CRYSTAL = 1000000 ’1MHZ internal osc

پیکره بندی پورت ها یا پین ها به عنوان ورودی یا خروجی :

CONFIG PORTx = state

CONFIG PINx.y = state

X , Y بسته به میکرو می توانند به ترتیب پایه های 0 -7 پورت های A ,B ,C ,D باشند. State
می تواند یکی از گزینه های زیر باشد :

INPUT یا 0 : در این حالت رجیستر جهت داده پایه یا پورت انتخاب شده صفر می شود و پایه یا پورت بعنوان ورودی استفاده می شود .

OUTPUT یا 1: در این حالت رجیستر جهت داده پایه یا پورت انتخاب شده یک مشود و پایه یا پورت بعنوان خروجی استفاده می شود .

مثال:

Config Portd = Input

Config Portc = output

Config Pina.1 = Input

Config Pinb.0 = output

تعریف متغیرها

Dim W As Integer

Dim Hh As Word

در تعاریف متغیرها می توانیم آنها را بصورت آرایه نیز تعریف کنیم.برای نمونه در مثال زیر 5 متغیر A(1) تا A(5) را به عنوان Word تعریف کرده ایم.

Dim A(5) As Word

مقداردهی به متغیرها

عدد HEX را با علامت &H و عدد BINARY را با علامت &B نشان دهید

مثال :

A= &HFF

B= &B11111111

C=255

هر سه متغیر فوق دارای محتوای یکسانی می باشند،ولی به سه فرم مختلف تعریف شده اند .

برنامه اصلی
Main:
.........................................................
برنامه ي اصلي را در این قسمت می نویسیم
.........................................................
END 'end program
..........................................................
سابروتین یا زیر برنامه را در این قسمت می نویسیم
...................................................

[admin]

ایجاد تاخیر در برنامه
دستور WAITus
برای ایجاد تاخیر در برنامه به مدت میکروثانیه از این دستور استفاده می شود .

WAITus microsecond

اجرای برنامه به مدت Micro Second میکرو ثانیه متوقف می شود .پس از سپری شدن زمان مشخص شده اجرای برنامه از خط بعد ادامه می یابد.
Micro Second می تواند عددی بین (1 – 65536 ) باشد .
مثال:

Waitus 10

دستور WAITms

برای ایجاد تاخیر در برنامه به مدت میلی ثانیه از این دستور استفاده می شود .

WAITms

اجرای برنامه به مدت میلی ثانیه متوقف می شود .پس از سپری شدن زمان مشخص شده اجرای برنامه از خط بعد ادامه می یابد. Milisecond می تواند عددی بین (1 –65536 ) باشد .
مثال:

Waitms 10

دستور WAITus

برای ایجاد تاخیر به مدت ثانیه در برنامه از این دستور استفاده می شود .

WAIT

اجرای برنامه به مدت second ثانیه متوقف می شود .پس از سپری شدن زمان مشخص شده اجرای برنامه از خط بعد ادامه می یابد.


مثال

Wait 3

دستورالعمل DO-LOOP

فرم کلی دستورات DO … LOOP بصورت زیر می باشد .

DO
statements
LOOP

DO –LOOP بتنهایی یک حلقه بینهایت است که با EXIT DO می توان از درون حلقه خارج شد و اجرای برنامه در خط بعد از حلقه ادامه یابد .
مثال:

Dim A As Byte
Do
A = A + 1
PORTB=A
WAITms 200
Loop

تمرین :

برنامه ای بنویسید که LED های روی برد را به صورت های زیر روشن و
خاموش کند (LED ها به صورت کاتد مشترک می باشند. )
تمام LED ها روشن شوند .
تمام LED ها خاموش شوند .
LED ها یکی در میان روشن شوند .
LED ها نصف روشن و نصف خاموش شوند .
( تاخیر بین حالت های فوق 500 میلی ثانیه باشد )

[admin]

"regfile = "m32def.dat$
crystal = 1000000$

Config Porta = Output

Main:
Do
Porta = &B11111111
Waitms 500
Porta = &B00000000
Waitms 500
Porta = &B10101010
Waitms 500
Porta = &B11110000
Waitms 500
Loop

End 'end program

[admin]

دستورالعمل IF

در کلیه حالتهای زیر عبارت statement می تواند یک دستورالعمل ساده یا چند دستورالعمل مرکب باشد .

حالت 1 :
در این حالت Statement فقط یک دستور ساده می تواند باشد و در این حالت نیازی به End if نداریم.

دستورالعمل statement زمانی اجرا می شود که عبارت expression دارای ارزش TRUE باشد .

If Expression THEN statement

حالت 2 :
درصورتی که عبارت expression دارای ارزشTRUE باشد دستورالعمل statement اجرا خواهد شد , در غیر اینصورت برنامه از خط بعد از end if اجرا می شود .

If Expression Then
statement
End If

حالت 3 :
درصورتی که عبارت expression دارای ارزشTRUE باشد دستورالعمل statement1 اجرا خواهد شد , در غیر این صورت دستورالعمل statement2 اجرا می شود .

If Expression Then
statement1
Else
statement2
End If

حالت 4 :
درصورتی که عبارت expression1 دارای ارزشTRUE باشد دستورالعمل statement1 اجرا خواهد شد ,در صورتی که عبارت expression1 دارای ارزش FALSE ولی عبارت اختیاری expression دارای ارزش TRUE باشد دستورالعمل statement2 اجرا می شود و در غیر این صورت دستورالعمل statement3 اجرا خواهد شد .

If Expression1 Then
statement1
Elseif [Expression2 Then]
statement2
Else
statement3
End If

همچنین با دستور IF می توان صفر یا یک بودن یک بیت از یک متغیر را امتحان کرد .

IF bit =1 THEN OR IF bit =0 THEN

مثال:

Dim A As Byte
A = 10
If A = 10 Then
Porta = &B11111111
Waitms 500
Else
Porta = &B00000000
Waitms 500
End If

مثال :

در مدار شکل زیر 4 سوئیچ به پایه های Portd.7 ،Portc.0، Portc.1 و Portc.2 متصل شده اند و 8 دیود LED به Porta متصل گشته اند .

حال برنامه ای بنویسید که :

اگر Pind.7 صفر شد تمام دیودها روشن شوند.
اگر Pinc.0 صفر شد دیودها یکی در میان روشن شوند.
اگر Pinc.1 صفر شد دیودها نصف روشن و نصف خاموش شوند.
اگر Pinc.2 صفر شد تمام دیودها خاموش شوند.

$regfile = "m32def.dat"
$crystal = 1000000

Config Porta = Output
Config Pind.7 = Input
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input

Main:

Do

If Pind.7 = 0 Then
Porta = &B11111111
Waitms 500
End If

If Pinc.0 = 0 Then
Porta = &B01010101
Waitms 500
End If

If Pinc.1 = 0 Then
Porta = &B00001111
Waitms 500
End If

If Pinc.2 = 0 Then
Porta = &B00000000
Waitms 500
End If

Loop
End 'end program

[admin]

دستور ROTATE

دستور زیر تمام بیتها را به چپ یا راست منتقل می کند ولی تمام بیتها محفوظ هستند و هیچ بیتی بیرون فرستاده نمی شود .

ROTATE var ,LEFT/RIGHT

Var می تواند داده ای از نوع LONG,WORD ,INTEGER , BYTE باشد . LEFT/RIGHT جهت چرخش بیتها و shift که اختیاری می باشد تعداد چرخش بیتها را مشخص می کند. در صورت قید نشدن مقدار یک در نظر گرفته می شود .

مثال :

برنامه ای بنویسید که LED های متصل شده به پورت A را به ترتیب از چب به راست یکی یکی روشن و خاموش نماید.

regfile = "m32def.dat$"
$crystal = 1000000

Config Porta = Output
'******************************
Dim X As Byte
'******************************
X = &B10000000
'******************************
Main:

Do
Porta = X
Rotate X , Right
Waitms 500
Loop

End 'end program

دستورالعمل FOR-NEXT

فرم کلی دستورات FOR .. NEXT بصورت زیر می باشد .

FOR var = start TO end [STEP VALUE ]

statements

NEXT var

Var بعنوان یک کانتر عمل می کند که start مقداراولیه آن و end مقدار پایانی است و هر دو می توانند یک ثابت عددی یا متغیر عددی باشند . Value مقدار عددی step را نشان می دهد که می تواند مثبت یا منفی باشد . وجود نام var بعد از NEXT الزامی نیست .

مثال:

برنامه ای بنویسید که LED را یک بار به طرف راست و یک بار به طرف چپ روشن و خاموش نماید.و این عمل دائما تکرار شود.

regfile = "m32def.dat$"
$crystal = 1000000

'******************************
Config Porta = Output
'******************************
Dim X As Byte
Dim Y As Byte
Dim W As Byte
'******************************
X = &B10000000
'******************************

Main:
Do

For Y = 0 To 8
Porta = X
Rotate X , Right
Waitms 500
Next Y

For W = 0 To 8
Porta = X
Rotate X , Left
Waitms 500
Next W

Loop

End 'end program

[admin]

موتور پله ای

انواع موتور پله ای:
1)موتور پله ای تک فاز یا 4 سیمه
2)موتور پله ای 2 فاز یا 5 سیمه

نکته:طرز کار نموتور پله ای 6 سیمه همانند موتور پله ای 5 سیمه می باشد

در این بخش سعی داریم کار با موتور پله ای دو فاز را آموزش دهیم.
در این بورد از یک موتور پله ای 5 سیمه استفاده شده است.

اکثر موتورهای پله ای برای کار کردن نیاز به یک راه انداز جریان دارند که در اینجا از IC ULN 2003 که توانایی تامین 500MA را دارد،استفاده گردیده است.

برای چرخاندن موتور پله ای کافی است آن را به یکی از پورت ها وصل کرده و عدد باینری 01100110 را در آن با دستور ROTATE بچرخانیم

برنامه ای بنویسید که موتور پله ای متصل به Port a را 50 پله به سمت راست بچرخاند،سپس 100 پله به سمت چپ بچرخاند و این حالت را دائما تکرار کند.

regfile = "m32def.dat$"
$crystal = 1000000

Config Porta = Output

Dim X As Byte
Dim Y As Byte
Dim W As Byte

X = &B01100110

Main:
Do
For Y = 0 To 50
Porta = X
Rotate X , Right
Waitms 500
Next Y
For W = 0 To 100
Porta = X
Rotate X , Left
Waitms 500
Next W
Loop

End 'end program

[admin]

نمایشگر کاراکتری (lcd 16*2)

LCD کاراکتری را می توان به دو روش راه اندازی کرد.

1-استفاده از 4 خط DATABUS
در این روش فقط پایه های 11- 14 معادل پایه های D4 - D7 به پورت میکرو متصل می شود.

2-استفاده از 8 خط DATABUS
در اینجا مورد دوم را توضیح می دهیم.

سخت افزار :
برای کار با LCD کاراکتری

1) باید پایه های RS و ENABLE بعلاوه ی پایه های دیتا باس LCD یعنی پایه های Db0 تا Db7 را به پورت های دلخواه از میکرو
2) پایه اول و پنجم به زمین (GND تغذیه)
3) پایه دوم به مثبت تغذیه 5 ولت
4) پایه سوم به پایه میانی یک پتانسیومتر 5k (دو سر دیگر ان بایستی به دو سر تغذیه متصل شود) : این پتانسیومتر سطح کنتراست LCD شما رو تغییر میده.
وصل کنیم.

نرم افزار :
1- نوع LCD را معرفی می کنیم:

CONFIG LCD =16*2

2- تعداد خط داده (DATA BUS) استفاده شده را می نویسیم :

CONFIG LCDBUS=8

3- نحوه ی اتصال پایه های LCD به پایه های میکرو را می نویسیم :

CONFIG LCDPIN=PORTB ,RS=PORTD.5 , E=PORTD.6

برخی از دستورات پر کاربرد در کار با LCD

1) دستور CLS برای پاک کردن صفحه LCD استفاده می شود
2) با دستور Locate x,y می توان محل شروع نوشته را مشخص کرد که در آن
x نشان دهنده سطر و y نشان دهنده ستون می باشد
3) برای نمایش یک نوشته به طریق مقابل عمل می کنیم " LCD"word
4) برای نمایش یک متغیر به روش مقابل عمل می کنیم " LCD"VAR
5) برای نمایش یک نوشته و یک متغیر به صورت همزمان به طریق مقابل عمل می کنیم LCD "word" ; VAR

مثال:
برنامه ای بنویسید که کلمه ی RAGA را وسط سطر اول و کلمه ی
Electronic را در وسط سطر دوم نمایش دهد.

$regfile = "m32def.dat"
$crystal = 1000000

Config Portb = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Lcd = 16 * 2
Config Lcdbus = 8
Config Lcdpin = Portb , Rs = Portd.5 , E = Portd.6
Main:
Cls
Locate 1 , 6
Lcd "RAGA"
Locate 2 , 3
Lcd "ELECTRONIC"
Wait 10

End 'end program

[admin]

کار با گیرنده مادون قرمز(IR):

گیرنده مادون قرمزدارای 3 پایه می باشد که دو پایه آن تغذیه و یک پایه آن خروجی می باشد. در حالت عادی پایه خروجی دارای ولتاژ +5 می باشد. در صورتیکه توسط یک فرستنده مادون قرمز(مانند کنترل تلویزیون) پالسی به گیرنده ارسال شود پایه خروجی گیرنده 0 می شود.

نکته :
گیرنده IR به تغذیه حساس می باشد و در صورتی که تغذیه آن اشتباه اعمال شود،می سوزد.


مثال:

برنامه ای بنویسد که با تحریک گیرنده IR بر روی LCD جمله IR Recive a pulse نوشته شود.

$regfile = "m32def.dat"
$crystal = 1000000

'******************************
Config Pina.6 = Input
Config Portb = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Lcd = 16 * 2
Config Lcdbus = 8

Config Lcdpin = Portb , Rs = Portd.5 , E = Portd.6

'******************************

Main:
Do
If Pina.6 = 0 Then
Cls
Locate 1 , 5
Lcd "IR Recieve a pulse"
Waitms 5000
End If
Loop

End 'end program

[admin]

راه اندازی رله (relay):

همانطور که می دانید رله ها دارای یک کنتاکت باز(Normaly open) و یک کنتاکت بسته (Normaly close) می باشند.

برای تغییر وضعیت رله از کنتاکت بسته به باز و بلعکس کافی است سیم پیچ رله را تحریک کنیم یک سر سیم پیچ تحریک به گراند(GND)وصل شده است.لذا برای تحریک رله کافی است پایه دیگر سیم پیچ را توسط یکی از پایه های میکرو 1 (set) کنیم.

تمرين:
برنامه ای بنویسید که با تحریک گیرنده IR متصل به port a.6 رله متصل بهport c.7 را تحریک کند.
(این تمرین به عهده شما ست و نتیجه را در انجمن قرار بدین.)