سلام.
کسی میتونه این دو تا برنامه رو برام با بیسیک بنویسه؟
یک فلشر با 8 ال ای دی و یک کلید INT0 به گونه ای طراحی کنید که با فشرده شدن کلید جهت روشن شدن ال ای دی ها تغییر کند.ال ای دی ها یکی به یک از یک جهت روشن می شوند و در نهایت پس از روشن شده همه ال ای دی ها همگی به یکباره خاموش و روند روشن شدن دوباره تکرار شود.
این برنامه خودمه ک نوشتم ولی مشکل داره.
$regfile = "m16def.dat"
$crystal = 1000000
Config Pind.2 = Input
Config Portb = Output
Config Debounce = 30
Do
Debounce Pind.2 , 1 , M , Sub
M:
Set Pinb.0
Waitms 200
Set Pinb.1
Waitms 200
Set Pinb.2
Waitms 200
Set Pinb.3
Waitms 200
Set Pinb.4
Waitms 200
Set Pinb.5
Waitms 200
Set Pinb.6
Waitms 200
Set Pinb.7
Waitms 200
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Reset Portb.7
Bitwait Pind.2 , Set
Set Pinb.7
Waitms 200
Set Pinb.6
Waitms 200
Set Pinb.5
Waitms 200
Set Pinb.4
Waitms 200
Set Pinb.3
Waitms 200
Set Pinb.2
Waitms 200
Set Pinb.1
Waitms 200
Set Pinb.0
Waitms 200
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Reset Portb.7
Bitwait Pind.2 , Reset
Loop
End
مدار شمارنده ای با سون سگمنت طراحی کنید که با فشردن یک کلید INT0 یک واحد اضافه شود و با فشردن یک کلید دیگر INT1 یک واحد کم شود.در هر بار نتیجه شمارش روی سون سگمنت نمایش داده شود.
اینم نوشتم ولی مشکل داره.من وقتی کلید int0 میزنم یکی یکی اضافه میشه اما وقتی از عدد 9 که رد میشه اعداد نامفهوم نمایش میده.وقتی هم که کلید int1 میزنم یکی یکی کم میشه اما بعد از عدد صفر،عدد 8 نمایش داده میشه.مشکل کجتست؟
$regfile = "m16def.dAt"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Portd = Output
Config Debounce = 30
Dim Q As Byte
Do
Waitms 1
Portd = Lookup(q , W)
Debounce Pinb.0 , 1 , Ziad , Sub
Debounce Pinb.1 , 1 , Kam , Sub
Loop
End
W:
Data &B1111110 , &B0110000 , &B1101101 , &B1111001 , &B0110011 , &B1011011 , &B1011111 , &B1110000 , &B1111111 , &B1111011
Ziad:
Incr Q
Return
Kam:
Decr Q
Return
ممنون میشم کمک کنید.
کسی میتونه این دو تا برنامه رو برام با بیسیک بنویسه؟
یک فلشر با 8 ال ای دی و یک کلید INT0 به گونه ای طراحی کنید که با فشرده شدن کلید جهت روشن شدن ال ای دی ها تغییر کند.ال ای دی ها یکی به یک از یک جهت روشن می شوند و در نهایت پس از روشن شده همه ال ای دی ها همگی به یکباره خاموش و روند روشن شدن دوباره تکرار شود.
این برنامه خودمه ک نوشتم ولی مشکل داره.
$regfile = "m16def.dat"
$crystal = 1000000
Config Pind.2 = Input
Config Portb = Output
Config Debounce = 30
Do
Debounce Pind.2 , 1 , M , Sub
M:
Set Pinb.0
Waitms 200
Set Pinb.1
Waitms 200
Set Pinb.2
Waitms 200
Set Pinb.3
Waitms 200
Set Pinb.4
Waitms 200
Set Pinb.5
Waitms 200
Set Pinb.6
Waitms 200
Set Pinb.7
Waitms 200
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Reset Portb.7
Bitwait Pind.2 , Set
Set Pinb.7
Waitms 200
Set Pinb.6
Waitms 200
Set Pinb.5
Waitms 200
Set Pinb.4
Waitms 200
Set Pinb.3
Waitms 200
Set Pinb.2
Waitms 200
Set Pinb.1
Waitms 200
Set Pinb.0
Waitms 200
Reset Portb.0
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Reset Portb.7
Bitwait Pind.2 , Reset
Loop
End
مدار شمارنده ای با سون سگمنت طراحی کنید که با فشردن یک کلید INT0 یک واحد اضافه شود و با فشردن یک کلید دیگر INT1 یک واحد کم شود.در هر بار نتیجه شمارش روی سون سگمنت نمایش داده شود.
اینم نوشتم ولی مشکل داره.من وقتی کلید int0 میزنم یکی یکی اضافه میشه اما وقتی از عدد 9 که رد میشه اعداد نامفهوم نمایش میده.وقتی هم که کلید int1 میزنم یکی یکی کم میشه اما بعد از عدد صفر،عدد 8 نمایش داده میشه.مشکل کجتست؟
$regfile = "m16def.dAt"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Portd = Output
Config Debounce = 30
Dim Q As Byte
Do
Waitms 1
Portd = Lookup(q , W)
Debounce Pinb.0 , 1 , Ziad , Sub
Debounce Pinb.1 , 1 , Kam , Sub
Loop
End
W:
Data &B1111110 , &B0110000 , &B1101101 , &B1111001 , &B0110011 , &B1011011 , &B1011111 , &B1110000 , &B1111111 , &B1111011
Ziad:
Incr Q
Return
Kam:
Decr Q
Return
ممنون میشم کمک کنید.
دیدگاه