Код: Выделить всё
'name : I2C-multibus.bas
'copyright : (c) 1995-2016, MCS Electronics
'purpose : demonstrates I2C multibus library
'micro : Mega88
'suited for demo : no, lib not included in demo
'commercial addon needed : no
'------------------------------------------------------------------------------
$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 24
$framesize = 24
Config I2cbus = 0 , Scl = Portc.0 , Sda = Portc.1 'each bus requires a configuration of the SCL and SDA pins
Config I2cbus = 1 , Scl = Portc.2 , Sda = Portc.3 'this sample creates 4 busses
Config I2cbus = 2 , Scl = Portd.2 , Sda = Portd.3
Config I2cbus = 3 , Scl = Portd.4 , Sda = Portd.5
Dim J As Byte
For J = 0 To 3 'the first bus is 0 !!!
I2cbus = J 'select the BUS
I2cinit 'init the pins and state
Next
Do
For J = 0 To 3
I2cbus = J 'select the bus
I2csend &H40 , &B01010101 'send some data
Next
Waitms 100
Loop
End
nik_81 писал(а):Готового примера в сети тоже не нашёл.
Код: Выделить всё
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Pinb.3 = Input 'настройка пина b3 на вход(S1)
Config Portb.2 = Output 'настройка пина b2 на выход(LED1)
Dim N As Byte ' Объявляем переменную N как байт
Config Debounce = 150 ' антидребезг
Reset Portb.2
N = 0
Do
If Pinb.3 = 0 Then
Bitwait Pinb.3 , Set
Incr N
If N = 3 Then
Set Portb.2
Waitms 100
Reset Portb.2
N = 0
End If
End If
Loop 'конец цикла
End
Код: Выделить всё
Do
1wreset
If Err = 1 Then
Cls
Lcd "Err"
Do
Loop
Else
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
A = 1wread()
B = 1wread()
If A > 248 Then
A = &HFF - A
B = &HFF - B
E = 2
Else
E = 1
End If
C = A / 16
D = B * 16
C = C + D
If E = 2 Then C = C + 1
If E = 1 And C = 0 Then E = 0
Cls
Lcd "V O D A= "
If E = 0 Then Lcd " " ; C ; "'" ; "C"
If E = 1 Then Lcd "+" ; C ; "'" ; "C"
If E = 2 Then Lcd "-" ; C ; "'" ; "C"
End If
If C <= 27 Then ' разМЫКАЕТ 2 И 3 контакт сверху реле . зеленый диод на реле ГОРИТ. это для ВыкЛЮЧЕНИЯ вентиляторов.
Reset Out_1
Locate 2 , 1
Lcd "C O O L E R O F F"
End If
If C > 27 Then ' в ином случае Замыкает 2 и 3 контакт сверху реле . зеленый диод на реле НЕ горит. это для ВКЛЮЧЕНИЯ вентиляторов.
Set Out_1
Locate 2 , 1
Lcd "C O O L E R O N"
End If
