دانلود پروژه شماره گیری به روش پالس با میکروکنترلر AVR

شماره گیری به روش پالس

در این بخش دانلود پروژه شماره گیری به روش پالس با میکروکنترلر AVR, توسط تیم الکترونیک و برنامه نویسی الکترونیک ۹۸ برای شما علاقه مندان به پروژه های میکروکنترلر AVR آماده شده است. مبنای کار این روش بسیار ساده و بر پایه قطع و وصل خط استوار است. میزان تناوب این عمل در استانداردهای مختلف, متفاوت است, اما در حالت کلی, میزان پالس در هر ثانیه باید بین 8 تا 11 باشد, بنابراین با میزان 10PPS, طول هر تناوب 100ms خواهد شد. به طور معمول خط در هر پالس, 60ms در حالت قطع (Break) و 40ms در حالت وصل (Make) قرار می گیرد. در تصویر زیر نقشه شماتیک مدار شماره گیری به روش پالس توسط یک میکروکنترلر ATmega8 به سادگی هر چه تمام می بینید.

برنامه میکروکنترلر در محیط نرم افزار BASCOM-AVR

‘—————————-
‘Pulse dialing
‘—————————-
$regfile = “m8def.dat”
$crystal = 8000000
‘—————————-
Config Pinb.0 = Output
Config Pinb.1 = Input
‘—————————-
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Dim S1 As String * 11
Dim S2 As String * 11
‘—————————-
S1 = “09844888520”
Set Portb.0
‘—————————-
Do
If Pinb.1 = 0 Then
Reset Portb.0
Waitms 1000
A2 = Len(s1)
For A3 = 1 To A2
S2 = Mid(s1 , A3 , 1)
A4 = Val(s2)
If A4 = 0 Then A4 = 10
For A1 = 1 To A4
Set Portb.0
Waitms 65
Reset Portb.0
Waitms 40
Next A1
Waitms 1000
Next A3
Reset Portb.0
Wait 50
Set Portb.0
Wait 4
End If
Loop
End
‘—————————

‘—————————-

‘Pulse dialing

‘—————————-

$regfile = “m8def.dat”

$crystal = 8000000

‘—————————-

Config Pinb.0 = Output

Config Pinb.1 = Input

‘—————————-

Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte

Dim S1 As String * 11

Dim S2 As String * 11

‘—————————-

S1 = “09844888520”

Set Portb.0

‘—————————-

If Pinb.1 = 0 Then

Reset Portb.0

Waitms 1000

A2 = Len(s1)

For A3 = 1 To A2

S2 = Mid(s1 , A3 , 1)

A4 = Val(s2)

If A4 = 0 Then A4 = 10

For A1 = 1 To A4

Set Portb.0

Waitms 65

Reset Portb.0

Waitms 40

Next A1

Waitms 1000

Next A3

Reset Portb.0

Wait 50

Set Portb.0

Wait 4

End If

Loop

End

‘—————————

شرح برنامه میکروکنترلر به زبان بیسیک

در این برنامه, به محض فشار دادن کلید B1 و در نتیجه صفر شدن Pinb.1 عددی که از پیش در رشته S1 قرار گرفته است, به روش پالس شماره گیری می شود, بنابراین برنامه به روش سرکشی (Polling) منتظر فشرده شدن کلید می ماند و سپس با صفر کردن PB0, رله تحریک و خط اشغال می شود.

با دستور Len, طول رشته S1 در متغیر A2 قرار می گیرد و در حلقه For با کمک دستور Mid (S1, A3 ,1) کارکترهای رشته به ترتیب از سمت چپ جدا می شوند. سپس دستور Val (S2) مقدار عددی این کارکترها را به متغیر A4 بر می گرداند. اکنون متناسب با مقدار A4, که عددی بین 1 تا 10 است, خط قطع و وصل خواهد شد. بین هر دو عدد, تاخیری به اندازه 300ms قرار داده می شود تا شماره گیری به صورت صحیح انجام پذیرد. خط تلفن, 50 ثانیه پس از اتمام شماره گیری به حالت اولیه خود باز می گردد.

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