سوالاتی راجع به کار تایمر و اندازه گیری فرکانس

[aKaReZa75]

سلام.
اینم سورس + شبیه ساز فرکانس متر تا اندازه گیری چند مگا هرتز و نمایش مقدار آن با سون سگمنت.

مشخصات پروژه:
میکرو:Atmega32
کریستال:8000000
زبان:بیسیک

سورس:

کد:

$regfile = "m32def.dat" : $crystal = 8000000

Config Timer1 = Counter , Edge = Rising : Config Timer2 = Timer , Async = On , Prescale = 128
Config Porta = Output : Config Portd = Output

Segment Alias Porta

Defbyte S2 , S3 , S4 , S5 , S6 , S7 , S8
Dim Pa As Byte
Dim Hz As Long
Dim Hzz As String * 10
Dim Z As String * 10

Enable Interrupts : Enable Timer0 : Enable Timer2

On Timer2 Tim : On Counter1 Pal

Start Timer2

Main:
Do

Portd = Lookup(7 , Segment)
Segment = Lookup(s1 , Segmentdata)
Waitus 25
Portd = Lookup(6 , Segment)
Segment = Lookup(s2 , Segmentdata)
Waitus 25
Portd = Lookup(5 , Segment)
Segment = Lookup(s3 , Segmentdata)
Waitus 25
Portd = Lookup(4 , Segment)
Segment = Lookup(s4 , Segmentdata)
Waitus 25
Portd = Lookup(3 , Segment)
Segment = Lookup(s5 , Segmentdata)
Waitus 25
Portd = Lookup(2 , Segment)
Segment = Lookup(s6 , Segmentdata)
Waitus 25
Portd = Lookup(1 , Segment)
Segment = Lookup(s7 , Segmentdata)
Waitus 25
Portd = Lookup(0 , Segment)
Segment = Lookup(s8 , Segmentdata)
Waitus 25

Loop

End

Segmentdata:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

Segment:
Data &H01 , &H02 , &H04 , &H08 , &H10 , &H20 , &H40 , &H80

Tim:
Stop Timer2
Hz = Pa * 65536
Hz = Hz + Counter1
Hzz = Str(hz)
Hzz = Format(hzz , "00000000")
Z = Mid(hzz , 8 , 1)
S1 = Val(z)
Z = Mid(hzz , 7 , 1)
S2 = Val(z)
Z = Mid(hzz , 6 , 1)
S3 = Val(z)
Z = Mid(hzz , 5 , 1)
S4 = Val(z)
Z = Mid(hzz , 4 , 1)
S5 = Val(z)
Z = Mid(hzz , 3 , 1)
S6 = Val(z)
Z = Mid(hzz , 2 , 1)
S7 = Val(z)
Z = Mid(hzz , 1 , 1)
S8 = Val(z)
Z = Mid(hzz , 0 , 1)
Pa = 0
Counter1 = 0
Timer2 = 0
Start Timer2
Return

Pal:
Incr Pa
Return

شبیه ساز:


موفق باشی....