'-------------------------- Конфигурация программирования -------------------- Config BODEN_OFF, BOREN_OFF, CP_OFF, DATA_CP_OFF, PWRTE_ON, WDT_OFF, LVP_OFF, MCLRE_ON, XT_OSC '-------------------------- Настройки портов --------------------------------- PortB_Pullups = OFF ' Выключить подтягивающие резисторы на PORTB Declare All_Digital = On ' Установить все порты цифровыми входами/выходами TRISA = %1111000 TRISB = %0000000 PORTA = 0 PORTB = 0 Symbol Seg = PORTB Symbol Anod = PORTA Symbol Obr = PORTA.3 Dim IND As Word Dim F As Word Dim H As Word Dim G As Word Dim n As Byte '------------------ Главная программа--------------------------------------- main: F = Counter Obr,1000 IND = F * 60 GoSub DI GoTo main DI: TRISB = %10000000 n = IND Dig 0 'Выделяем из числа единицы GoSub vr'и отправляем на табличную конвертацию Anod = %00000100 'Зажигаем 1-й справа разряд индикатора DelayMS 4 'Задержка для отображения цифры Anod = %00000000'Гасим разряд ' n = IND Dig 1 'Выделяем из числа десятки GoSub vr 'и отправляем на табличную конвертацию Anod = %00000010 'Зажигаем 2-й справа разряд индикатора DelayMS 4 'Задержка для отображения цифры Anod = %00000000'Гасим разряд ' n = IND Dig 2 'Выделяем из числа сотни GoSub vr 'и отправляем на табличную конвертацию Anod = %00000001 'Зажигаем 3-й справа разряд индикатора DelayMS 4 'Задержка для отображения цифры Anod = %00000000 'Гасим разряд Return vr: Seg = LookUp n,[192,249,164,176,153,146,130,248,128,144] Return