Форум РадиоКот

Код: Выделить всё

Segments Var   PORTB
Digits   Var   PORTA

i   Var   Byte
n   Var   Byte
Value   Var   Word
ii    Var   Word

 

   TRISB = $80      ' Set segment pins to output
   TRISA = $f0      ' Set digit pins to output
     Value = 0
mainloop

    For ii = 0 To 9999
        GoSub display    ' Display the value
'*
        if porta.4 = 1 then Value = Value + 1 
        if Value = 9999 then Value = 0
                 Next ii
                 GoTo mainloop        ' Do it forever
'*

' Subroutine to send the number (0 - 9999) in Value to LEDs
display
   For i = 0 To 3      ' Loop through 4 digits
      n = Value Dig i   ' Get digit to display
      GoSub display1   ' Display the digit
      Pause 1      ' Leave it on 1 millisecond
   Next i         ' Do next digit
   Return


' Surboutine to display one digit on LED
'  i = digit number
'  n = number to display
display1
   Digits = $ff      ' All digits off to prevent ghosting

   ' Convert binary number in n to segments for LED
   Lookup n, [$40, $79, $24, $30, $19, $12, $02, $78, $00, $10], Segments

   ' Set digit pin i to 0 (on) and the rest of the pins to 1 (off)
   Digits = ~Dcd i

   Return

Код: Выделить всё

 ' дополнительные переменные
tmr0 VAR Word
tmr1 VAR Word

' изменение кода взятого в " '*    '* "
'*
    tmr1 = 0
  
       if Value = 9999 then Value = 0
       if porta.4 = 1 then tmr1 = 1
        if porta.4 = 1 then bb 
 GoTo mainloop
bb:

        if tmr1 - 0 = 1 then Value = Value + 1
        Next ii
                 GoTo mainloop        ' Do it forever

 '*