سلام عزیزان...
من 2 تا 7 سگمنت رو مالتی پلکس کردم
و یه سری تو بیسک کد زدم براش......
هدف برنامه:
عددی را از 0 تا 99 بشمارد
اینم از کد ها :
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Dim A As Byte , B As Byte
B = 0
Main:
Do
For A = 0 To 9
For B = 0 To 9
Waitms 2000
Portb.0 = 0 : Portb.1 = 0
Portb.0 = 1
Porta = A
Waitms 1
Portb.0 = 0 : Portb.1 = 0
Portb.1 = 1
Porta = B
Next
Next
Loop
End
فقط رقم دهگان رو تغییر میده :angry:
و عدد یکان فقط یه چشمک میزنه
ممنون میشم اگه این کد رو اصلاح کنین
یا یه سری کد قرار بدین
من 2 تا 7 سگمنت رو مالتی پلکس کردم
و یه سری تو بیسک کد زدم براش......
هدف برنامه:
عددی را از 0 تا 99 بشمارد
اینم از کد ها :
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Dim A As Byte , B As Byte
B = 0
Main:
Do
For A = 0 To 9
For B = 0 To 9
Waitms 2000
Portb.0 = 0 : Portb.1 = 0
Portb.0 = 1
Porta = A
Waitms 1
Portb.0 = 0 : Portb.1 = 0
Portb.1 = 1
Porta = B
Next
Next
Loop
End
فقط رقم دهگان رو تغییر میده :angry:
و عدد یکان فقط یه چشمک میزنه
ممنون میشم اگه این کد رو اصلاح کنین
یا یه سری کد قرار بدین
دیدگاه