OR-BWSENS — различия между версиями

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
(Документация)
(Документация)
Строка 21: Строка 21:
  
 
[[Media:OR-BWSENS-UG.pdf|OR-BWSENS — Инструкция по эксплуатации.pdf]] (пока не готова)
 
[[Media:OR-BWSENS-UG.pdf|OR-BWSENS — Инструкция по эксплуатации.pdf]] (пока не готова)
 +
 +
Код для проверки датчика на WinAVR (для контроллера OR-AVR-M32-D, датчик должен быть на линии A0):
 +
#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):
 +
$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
  
 
Контакты:
 
Контакты:

Версия 05:33, 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):

#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):

$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

Контакты:

  • Сигнал - первый никак не обозначенный на плате контакт;
  • Питание - соответственно + и - обозначенные на плате;

Форум поддержки

[http://www.roboforum.ru/viewtopic.php?f=69&t=5878]