Программирование BASCOM
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » BASCOM » Вопросы-ответы » обьединение (bascom)
обьединение
sillverДата: Воскресенье, 27.02.2011, 23:47 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 11
Статус: Offline
Помогите пожалуста
есть задача но не знаю как воплотить
If Command = 1 или Pinc.0 Then
т.е. (команда1) или (команда2) выполнение процедуры
 
max50Дата: Понедельник, 28.02.2011, 18:22 | Сообщение # 2
Рядовой
Группа: Пользователи
Сообщений: 6
Статус: Offline
Не большой пример совместной работы пульта ДУ и кнопок.

Code
$regfile = "ATtiny2313.DAT"
$crystal = 8000000

Enable Interrupts

Config Rc5 = Pind.0

Config Pinb.1 = Output
Relay1 Alias Portb.1

Config Pinb.2 = Output
Relay2 Alias Portb.2

Config Pinb.3 = Output
Relay3 Alias Portb.3

Config Pinb.4 = Output
Relay4 Alias Portb.4

Config Pinb.5 = Output
Relay5 Alias Portb.5

Config Pinb.6 = Output
Relay6 Alias Portb.6

Config Pinb.7 = Output
Relay7 Alias Portb.7

Config Pind.1 = Input
Relay1_on_off Alias Pind.1
Set Portd.1

Config Pind.2 = Input
Relay2_on_off Alias Pind.2
Set Portd.2

Config Pind.3 = Input
Relay3_on_off Alias Pind.3
Set Portd.3

Config Pind.4 = Input
Relay4_on_off Alias Pind.4
Set Portd.4

Config Pind.5 = Input
Relay5_on_off Alias Pind.5
Set Portd.5

Config Pind.6 = Input
Relay6_on_off Alias Pind.6
Set Portd.6

Config Pinb.0 = Input
Relay7_on_off Alias Pinb.0
Set Portb.0

Dim Address As Byte
Dim Command As Byte

Do

Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
End If

If Relay1_on_off = 0 Or Command = 1 Then
Waitms 500
Toggle Relay1
End If

If Relay2_on_off = 0 Or Command = 2 Then
Waitms 500
Toggle Relay2
End If

If Relay3_on_off = 0 Or Command = 3 Then
Waitms 500
Toggle Relay3
End If

If Relay4_on_off = 0 Or Command = 4 Then
Waitms 500
Toggle Relay4
End If

If Relay5_on_off = 0 Or Command = 5 Then
Waitms 500
Toggle Relay5
End If

If Relay6_on_off = 0 Or Command = 6 Then
Waitms 500
Toggle Relay6
End If

If Relay7_on_off = 0 Or Command = 7 Then
Waitms 500
Toggle Relay7
End If

If Command = 12 Then
Reset Relay1
Reset Relay2
Reset Relay3
Reset Relay4
Reset Relay5
Reset Relay6
Reset Relay7
End If

Loop

End


Того, кто не задумывается о далеких трудностях, ожидают близкие неприятности.
 
sillverДата: Понедельник, 28.02.2011, 18:33 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 11
Статус: Offline
спасибо
 
Форум » BASCOM » Вопросы-ответы » обьединение (bascom)
Страница 1 из 11
Поиск:

Copyright Radan Studio © 2017