'****************************************************************
'*  Name    : UNTITLED.BAS                    *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                    *
'*  Date    : 28.11.2014                    *
'*  Version : 1.0                    *
'*  Notes   :                    *
'*          :                    *
'****************************************************************
Clear
Device 16F877A
Xtal 20

'Описание для работы с LCD
Declare LCD_Type ALPHA
Declare LCD_DTPin PORTB.4      'начальный порт для информации PORTB.4
Declare LCD_RSPin PORTB.3  'Вывод для RS - PORTB.3
Declare LCD_ENPin PORTB.2      'Вывод для E - PORTB.2
Declare LCD_Interface 4          'Разрядность шины LCD
DEFINE LCD_Lines    2      'Количество строк
DEFINE LCD_CommandUs 2000
DEFINE LCD_DataUs    50

'Print At 1,3, "Initialization"    '"Инициализация"    'вывод на LCD
'------------------------------
Declare Adin_Res 10 ' Pазрядность результата преобразования АЦП = 10
Declare Adin_Tad FRC ' Источник тактирования АЦП = FRC
Declare Adin_Stime 50 ' Установить время ожидания в 50 мкс перед началом преобразования

Declare Float_Rounding = On ' не   

ADCON1 = %10000100  'выбираем режим АЦП
TRISA  = %00011111 'все вывода порта А как входы

TRISB=%00000001   ' B.0 - вход,остальные выходы
Clear PORTB

DelayMS 500
Cls 'отчистить экран
'настройка TMR0
OPTION_REG = %11111011  'разрешаем работу таймера 0 от внешних импульсов
INTCON = %11110000 'настройка прерываени TMR0
TMR0=255
'--------------------

'настройка TMR1
TMR1L=$DC       'запимываем в таймер1 начальное значение 3036
TMR1H=$0B
T1CON=%00110001
PIE1.0=1 ' разрешаем прерывания при переполнении TMR1
'-------------
Dim scr As Byte ' Номер отображаемого экрана
Dim minute As Byte
Dim second As Byte
Dim ms100 As Byte
Dim hour As Byte
Dim imp As Word
Dim rpm As Word
Dim paus As Byte
Dim dig_volt As Word

On_Interrupt GoTo myint

main:
dig_volt=ADIn 1
dig_volt=dig_volt * 4.884
If second=60 Then
    second=0
    minute=minute+1
End If
If minute=60 Then
    minute=0
    hour=hour+1
End If
If hour=24 Then
    hour=0
End If
'cls
If paus=3 And scr!=221 Then scr=220:paus=0:Cls
If paus=3 And scr=221 Then scr=0:paus=0:Cls
GoSub na_lcd
DelayMS 500

GoTo main

na_lcd: 'вывод на LCD

Select scr
    Case 0
      Print At 1,9, "Ekran 1"
      Print At 2,8, Dec2 hour, ":", Dec2 minute, ":", Dec2 second
    Case 1
      Print At 1,9, "Ekran 2"
      Print At 2,8, "V - ", Dec dig_volt
    Case 220
      Print At 1,9, "Settings"
    Case 221
      Print At 1,9,"Settings"
      Print At 2,9,"EXIT"
End Select   

Resume

Disable
myint:
Context Save
If INTCON.2=1 Then  'по переполнению TMR0
    INTCON.2=0
    scr=scr+1
    If scr=2 Then scr=0
    Cls
    TMR0=255
End If
If INTCON.1=1 Then
   INTCON.1=0
   imp=imp+1
End If
If PIR1.0=1 Then       ' при переполнении TMR1
    PIR1.0=0
    ms100=ms100+1        ' проходит 100мс
    If ms100=10 Then     ' после 10*100мс=1с
      ms100=0
      second=second+1
      'If PORTA.2=0 Then   
      '  paus=paus+1
      'Else
      '  paus=0
      'End If
      rpm=imp*30
      imp=0
    End If
    TMR1L=$DC            'устанавливаем начальное значение TMR1=3036
    TMR1H=$0B
End If
Context Restore
Resume
Enable