$regfile = "2313def.dat"
$crystal = 8000000
$baud = 19200

Config Timer1 = Timer , Prescale = 64 , Capture Edge = Rising
Config Portd.6 = Input                    'прерывания
Config Portb.2 = Output                    'светодиод

Open "comb.0:9600,8,n,1" For Output As #1
Open "comb.1:9600,8,n,1" For Input As #2

'Так как предделитель 64 то 64/8000000*65535=0.52428 переполнений в секунду
'тобиш приблизительно 2 раза 2 Гц.
Dim Timercounter As Word                    '
Dim Period As Single
Dim Secund As Single
Dim Milisec As Single
Dim Flag As Bit
Dim Watt As Single
Dim F As Integer

'T=(1/F)*n тут Т-константа, n-предделитель, F-частота работы камня
'T=(1/8000000)*64=0.000008
'каждое значение таймера1 = 0.000008 сек.
Const T = 0.000008

Flag = 0
On Capture1 Zaxvat

Timercounter = 0
Flag = 0
Waitms 50
'разрешаем прерывания
Enable Interrupts
Enable Capture1

Set Portb.2

Do                    ' главный цикл программы

  '0.52428  время переполнения таймера
  '62500 0.5 sek
If Timer1 = 65535 Then

'так как он переполняется каждые 0.52428 секунды то их и складываем
Secund = Secund + 0.52428

If Secund > 255 Then Secund = 0
End If

If Flag = 1 Then

' определяем период * на коэффициент 1/8000000*64= 0,000008 примерное
'время в секундах на один тик таймера
    Period = Timercounter * T
   Milisec = Period + Milisec

    '************************
    Watt = 3600 / Milisec                    'импульсов в час                    '
    Watt = Watt * 1000                    ' импульсы на 1000 ватт
    Watt = Watt / 3200                    '  колличество ватт
     F = Watt
Print #1 , "Watt :"
Print #1 , F
Flag = 0
'Secund = 0

End If
Loop

'отрабатывает по прерыванию portd.6
Zaxvat:

  Timercounter = Timer1
  Milisec = Secund                    ' копируем значение таймера в переменную
  Flag = 1
  Timer1 = 0
  Secund = 0                    ' обнуляем таймер
Return