سلام من دوخط برنامه نوشتم عدد ها رو رو 7 سگمنت نشون میده اما تند تند چشمک میزنه و ثابت نمیمونه
به حساب خودم رفرشینگه مثلا
یه نگاه بندازیید کمکم کنید
سون سگمنت کاتذ مشترک با 7448 وصلش کردم به پورت b
دوتا پایه کنترلی رو هم به پورت d.4 و d.5
به حساب خودم رفرشینگه مثلا
یه نگاه بندازیید کمکم کنید
سون سگمنت کاتذ مشترک با 7448 وصلش کردم به پورت b
دوتا پایه کنترلی رو هم به پورت d.4 و d.5
کد:
$regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 '~~~~~~~~~~~~~~~~~~~~~ Configurations ~~~~~~~~~~~~~~~~~~~~~ Config Porta = Input Config Portb = Output Config Portc = Output Config Portd = Output ' ~~~~~~~~~~~~~~~~~~~~~Main program ~~~~~~~~~~~~~~~~~~~~~ dim K As Word Dim R As Single k=5 r=2 Do Reset Portd.4 Set Portd.5 Portb = k Waitms 1 Set Portd.4 Reset Portd.5 Portb = r Waitms 1 loop end
دیدگاه