السلام عليكم
الرجاء من اصحاب الخبرة مساعدتي في برمجة البيك
لعمل عداد من 0 الى 9999
لغة البرمجة على الميكروبازيك
انا قمت بتتبع الدورة الموجوده في المنتدى
لكن وصلت الى العد من 0 الى 9 فقط
صورة للبروجكت
رابط تحميل ملف العمل هنا
كود:
program pragma
dim count as byte
main:
trisb = %00000000
portb = %00000000
trisa = %00000001
porta = %00000001
while true
portA.1 = $1
portA.2 = $1
portA.3 = $1
portA.4 = $0
delay_ms (1000)
for count=0 to 9
select case count
case 0
TRISB = %00000000
PORTB = %00000000
TRISA = %11111111
PORTA = %11111111
case 1
TRISB = %11100111
PORTB = %11100111
TRISA = %11111111
PORTA = %11111111
case 2
TRISB = %10010011
PORTB = %10010011
TRISA = %11111110
PORTA = %11111110
case 3
TRISB = %11000011
PORTB = %10000011
TRISA = %11111110
PORTA = %11111110
case 4
TRISB = %01100100
PORTB = %01100100
TRISA = %11111110
PORTA = %11111110
case 5
TRISB = %01001000
PORTB = %01001000
TRISA = %11111110
PORTA = %11111110
case 6
TRISB = %00001000
PORTB = %00001000
TRISA = %11111110
PORTA = %11111110
case 7
TRISB = %11100011
PORTB = %11100011
TRISA = %11111111
PORTA = %11111111
case 8
TRISB = %00000001
PORTB = %00000001
TRISA = %11111110
PORTA = %11111110
case 9
TRISB = %01000001
PORTB = %01000001
TRISA = %11111110
PORTA = %11111110
end select
delay_ms (500)
next count
wend
end.