کانتر تایمر

[ali2590]

دوستان میخوام یه کانتر تایمر با مگا8 و سون سگمنت به روش مالتی پلکس به زبان بیسیک طراحی کنم که اعداد رو از 250 تا 0 بشماره
بهترین حالت کد نویسی برا بسکام چی هستش

شدنیه که یه متغیر برای 250 تعریف کرد و در هر ثانیه یک واحد ازش کم کرد و روی سون سگمنت نمایش داد.

[ali2590]

پاسخ : کانتر تایمر

کسی نظری نداره

[alireza shabani parsa]

پاسخ : کانتر تایمر

سلام دوست عزیز
امید وارم مورد قبول باشه

$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Config Portb = Output

Dim A As Integer
Dim B As Integer
Dim C As Integer

Config Timer2 = Timer , Async = On , Prescale = 128

Enable Interrupts
Start Timer2
Enable Ovf2

C = 2
B = 5
A = 0

On Timer2 E

Do

Waitms 1
Portc = &H01
Portb = Lookup(a , X)

Waitms 1
Portc = &H02
Portb = Lookup(b , X)

Waitms 1
Portc = &H04
Portb = Lookup(c , X)

Loop


E:

Decr A

If A < 0 Then
Decr B
A = 9
End If

If B < 0 Then
Decr C
B = 9
End If

If C < 0 Then
A = 0
B = 5
C = 2
End If

Return

X:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10

شماتیک:

[ali2590]

پاسخ : کانتر تایمر

یک دنیا ممنون از محبت شما
:applause:
:job: