سلام
من یه برنامه نوشتم که 4 تا سون سگمنت با هم مالتیپلکس شدن و از صفر شروع میکنه به شمارش
من میخوام با این برنامه یه ساعت درست کنم ولی مشکلم اینه که وقتی تاخیر 1 ثانیه رو ایجاد میکنم عدد روی سگمنت نمیمونه و فقط عدد یک رو نشون میده میخوام هر ثانیه یکی به عدد اضافه بشه و بمونه
اینم برنامش
اگه کمکم کنید ممنون میشم
$regfile = "M8def.dat " "
$crystal = 8000000
Dim A As Byte
Dim B As Byte
Dim S As Byte
Dim D As Byte
Config Portb = Output
Config Portd = Output
Config Portc.0 = Output
Config Portc.1 = Input
Enable Interrupts
Config Clock = Soft , Gosub = Sectic
Sectic:
Incr A
If A = 10 Then
A = 0
Incr B
End If
If B = 10 Then
B = 0
Incr S
End If
If S = 10 Then
S = 0
Incr D
End If
If D = 6 Then
D = 0
End If
Reset Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Portd = Lookup(a , Lable1)
Waitms 10
Set Portb.0
Reset Portb.1
Set Portb.2
Set Portb.3
Portd = Lookup(b , Lable1)
Waitms 10
Set Portb.0
Set Portb.1
Reset Portb.2
Set Portb.3
Portd = Lookup(s , Lable1)
Waitms 10
Set Portb.0
Set Portb.1
Set Portb.2
Reset Portb.3
Portd = Lookup(0 , Lable1)
Waitms 100
Return
Lable1:
Data &B00111111
Data &B00000110
Data &B01011011
Data &B01001111
Data &B01100110
Data &B01101101
Data &B01111101
Data &B00000111
Data &B01111111
Data &B01101111
من یه برنامه نوشتم که 4 تا سون سگمنت با هم مالتیپلکس شدن و از صفر شروع میکنه به شمارش
من میخوام با این برنامه یه ساعت درست کنم ولی مشکلم اینه که وقتی تاخیر 1 ثانیه رو ایجاد میکنم عدد روی سگمنت نمیمونه و فقط عدد یک رو نشون میده میخوام هر ثانیه یکی به عدد اضافه بشه و بمونه
اینم برنامش
اگه کمکم کنید ممنون میشم
$regfile = "M8def.dat " "
$crystal = 8000000
Dim A As Byte
Dim B As Byte
Dim S As Byte
Dim D As Byte
Config Portb = Output
Config Portd = Output
Config Portc.0 = Output
Config Portc.1 = Input
Enable Interrupts
Config Clock = Soft , Gosub = Sectic
Sectic:
Incr A
If A = 10 Then
A = 0
Incr B
End If
If B = 10 Then
B = 0
Incr S
End If
If S = 10 Then
S = 0
Incr D
End If
If D = 6 Then
D = 0
End If
Reset Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Portd = Lookup(a , Lable1)
Waitms 10
Set Portb.0
Reset Portb.1
Set Portb.2
Set Portb.3
Portd = Lookup(b , Lable1)
Waitms 10
Set Portb.0
Set Portb.1
Reset Portb.2
Set Portb.3
Portd = Lookup(s , Lable1)
Waitms 10
Set Portb.0
Set Portb.1
Set Portb.2
Reset Portb.3
Portd = Lookup(0 , Lable1)
Waitms 100
Return
Lable1:
Data &B00111111
Data &B00000110
Data &B01011011
Data &B01001111
Data &B01100110
Data &B01101101
Data &B01111101
Data &B00000111
Data &B01111111
Data &B01101111
دیدگاه