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

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

$regfile = "attiny13.dat"
$crystal = 9600000
$lib "mcsbyte.lbx"

Dim Address As Byte
Dim Command As Byte
Config Portb.4 = Output
Relay Alias Portb.4
Config Rc5 = Pinb.0
Enable Interrupts 

Do
Getrc5(address , Command)             
Command = Command And &B01111111

If Command = 12 Then  
   Toggle Relay
End If
Loop   
End  

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

Button:
Toggle Relay
Waitms 100
Gifr = 64
 Return

End

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

If Command = 12 Then  
   Waitms 200
   Toggle Relay
End If

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

Config Rc5 = Pinb.3 , Wait = 200 ' *Wait - подбирать по стабильному срабатыванию

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

Dim Temp as Word   ' переменная, определяющая величину задержки (0 - 65535)

................

Waitms Temp

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

Dim Count as Word, Temp as Word

..................

Any_delay:

For Count = 1 To Temp 

Waitus 1

Next

Return

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

For I = 1 To 4
      Cyfra_ = Cyfra(i)
      Razryad_ = Cyfra_ * 8                                             'выбираем строку в таблице данных
      Razryad_ = Segment + Razryad_                                     'выбираем столбец в таблице данных
      Razryad_ = Lookup(razryad_ , Cifri)                               'забираем данные
      If Common_cathode = 1 Then Razryad_ = Not Razryad_                'инвертируем в случае общего катода
      Razryad(i) = Razryad_
Next I

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

Dim Razryad_ As Byte
Dim Razryad(4) As Byte
Dim Cyfra(4) As Byte                                                    'хранение минут и секунд по разрядам (cyfra(1) - самый старший разряд, cyfra(4) - самый младший)
Dim Cyfra_ As Byte
Dim Segment As Byte
Dim I As Byte

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

Razryad(i) = Razryad Next I 

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

Dim A As Byte , B As Byte , C As Byte , D As Byte , _
E As Byte , F As Byte , G As Byte , H As Byte

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

Tmp006:
I2cstart
I2cwbyte Tmp006w
I2cwbyte B1
I2cstart
I2cwbyte Tmp006r
I2crbyte Hightemp , Ack
I2crbyte Lowtemp , Nack
I2cstop
 Temp = Makeint(hightemp , Lowtemp )
  Return