سلام من دوخط برنامه نوشتم عدد ها رو رو 7 سگمنت نشون میده اما تند تند چشمک میزنه و ثابت نمیمونه
به حساب خودم رفرشینگه مثلا
یه نگاه بندازیید کمکم کنید
سون سگمنت کاتذ مشترک با 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