OR-BWSENS — различия между версиями
=DeaD= (обсуждение | вклад) (→Документация) |
=DeaD= (обсуждение | вклад) (→Документация) |
||
| Строка 22: | Строка 22: | ||
[[Media:OR-BWSENS-UG.pdf|OR-BWSENS — Инструкция по эксплуатации.pdf]] (пока не готова) | [[Media:OR-BWSENS-UG.pdf|OR-BWSENS — Инструкция по эксплуатации.pdf]] (пока не готова) | ||
| − | Код для проверки датчика на WinAVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0): | + | Код для проверки датчика на WinAVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0, будет мигать светодиодом на линии C5): |
#include "defines.h" | #include "defines.h" | ||
#include <avr/interrupt.h> | #include <avr/interrupt.h> | ||
| Строка 47: | Строка 47: | ||
} | } | ||
| − | Код для проверки датчика на BASCOM AVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0): | + | Код для проверки датчика на BASCOM AVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0, будет мигать светодиодами на линиях C5 и B3): |
$regfile = "m32def.dat" | $regfile = "m32def.dat" | ||
$crystal = 7372800 | $crystal = 7372800 | ||
Версия 05:35, 23 сентября 2009
Датчик цвета поверхности OR-BWSENS (черное/белое)
Содержание
Краткие характеристики
Габариты модуля: 10 х 15 х 4 мм (длина*ширина — по печатной плате)
Вес: не более 3г
Распространенность модуля
- Продано 4 модуля: SkyStorm*2, BERKOF*2
- Кроме того в использовании 2 модуля: =DeaD=, blindman
Документация
OR-BWSENS-sch.pdf - Схема модуля
OR-BWSENS — Инструкция по эксплуатации.pdf (пока не готова)
Код для проверки датчика на WinAVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0, будет мигать светодиодом на линии C5):
#include "defines.h"
#include <avr/interrupt.h>
#include <util/delay.h>
int main(void)
{
DDRC=0x20;
while(1==1){
DDRA=0xFF;
PORTA=0xFF;
_delay_us(2500);
DDRA=0x00;
PORTA=0x00;
_delay_us(2500);
int x=PINA;
if(x & 0x01 == 0x01){
PORTC=0x20;
}else{
PORTC=0x00;
};
_delay_us(1000);
};
}
Код для проверки датчика на BASCOM AVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0, будет мигать светодиодами на линиях C5 и B3):
$regfile = "m32def.dat"
$crystal = 7372800
Config Portc = Output
Config Portb = Output
Dim A As Byte
A = 1
While A > 0
Config Porta = Output
Set Porta.0
Waitms 3
Config Porta = Input
Reset Porta.0
Waitms 3
If Pina.0 = 1 Then
Set Portc.5
Set Portb.3
Else
Reset Portc.5
Reset Portb.3
End If
Wend
End
Контакты:
- Сигнал - первый никак не обозначенный на плате контакт;
- Питание - соответственно + и - обозначенные на плате;