Пн май 07, 2018 14:29:28
Ср май 09, 2018 21:29:23
Вс май 27, 2018 14:30:24
'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
Вс май 27, 2018 16:00:10
Чт май 31, 2018 21:48:20
Чт май 31, 2018 22:04:31
Чт май 31, 2018 22:28:22
Пт июн 01, 2018 05:54:20
nik_81 писал(а):Готового примера в сети тоже не нашёл.
Пт июн 01, 2018 10:58:16
Пт июн 01, 2018 19:18:11
$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
Пт авг 03, 2018 21:23:54
Чт авг 09, 2018 13:10:48
Чт авг 09, 2018 18:15:49
Пт авг 10, 2018 09:05:10
Вс авг 12, 2018 15:55:19
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
Вс авг 12, 2018 19:37:00
Вс авг 12, 2018 22:17:54
Чт авг 30, 2018 21:08:48
Пт авг 31, 2018 05:23:15
Сб сен 01, 2018 22:48:46