roboforum.ru

Технический форум по робототехнике.


Форт-система

Готовая электроника для самодельного робота. Уровень от начинающих до опытных конструкторов.

Re: Форт-система

Сообщение VANO22 » 21 апр 2014, 05:29

напиши в личку свой работающий номер плиз, это Иван
VANO22
 
Сообщения: 1
Зарегистрирован: 20 апр 2014, 08:41

Re: Форт-система

Сообщение chu » 22 сен 2014, 13:06

АЦП
Код: Выделить всёРазвернуть
\ chu 13:59 17.04.2013
\     22:57 17.04.2013
\

marker =adc=

: adc-start     ADCSRA    ADCSRA_ADSC over c@ or swap c! ;
: adc-complete? ADCSRA c@ ADCSRA_ADSC and  0= ;
: adc-data?     ADCSRA c@ ADCSRA_ADIF and     ;
: adc-end       ADCSRA    ADCSRA_ADIF over c@ or swap c! ;

\ adc turn on
: adc+
                           \    sound_sensor pin_pullup_off    \ input & low
     %01100000  ADMUX c!   \ REFS=01, ADLAR=1, MUX=00000
   [ ADCSRA_ADEN           \ ADC on
     ADCSRA_ADPS or        \ 16MHz/128=125KHz
   ] literal
     ADCSRA c!
    ;

\ turn off
: adc-
     ADCSRA
     ADCSRA_ADEN invert
     over c@ and swap c!
    ;
 
\
\ =============================================================================


\ adc init

\  $20  constant ADLAR

: ad<left   ADMUX  ADMUX_ADLAR over c@ or swap c! ;
: ad>right  ADMUX dup c@  ADMUX_ADLAR invert and swap c! ;


\ select analog channel
: adc! ( n --- )

    ADMUX_MUX        and    ADMUX c@
    ADMUX_MUX invert and or ADMUX c!
    ;

\ read adc result
: adc@ ADC c@ ADC 1+ c@ 8 lshift + ;  ( --- un )

\ get ad convertion
: !adc@ adc-start begin adc-complete? until adc@ ;

\
\ =============================================================================

: adc-tst begin !adc@ .x cr pause 500 ms key? until key drop ;

для коллекции

Добавлено спустя 26 минут 15 секунд:
Код: Выделить всёРазвернуть
\ ADC info
\ chu 1:23 19.04.2013
\
marker =adc-info=

: ?adc.

        ver bl emit ." AD Converter" cr
      \
        ADMUX c@
        ." *******" cr
        ." (ADMUX) ADC Multiplexer Selection Register = "  dup .x cr
      \
        dup ADMUX_REFS and dup ." Reference Selection Bits = " .x cr
        6 rshift
        case
           &0 of ." AREF, Internal Vref turned off "  endof
           &1 of ." AVCC with external capacitor at AREF pin " endof
           &2 of ." Reserved "  endof
           &3 of
." Internal 2.56V Voltage Reference with external capacitor at AREF pin "
             endof
        endcase cr
      \
        ." ADLAR = "
        dup ADMUX_ADLAR and if
        ."  left adjust"   else
        ." right adjust"   then cr
      \
        ." Analog Channel and Gain Selection Bits" cr
        ADMUX_MUX and dup
        case
           &0 &8  range of ." Single Ended Input - A" .x endof
           &9 &30 range of
." Differential Inputs, see p224 datasheet"   drop endof
              &30       of ." 1.22V (Vbg)"          drop endof
              &31       of ." 0V (GND)"             drop endof
        endcase cr

        ." ********" cr
      \
        ADCSRA c@
        ." (ADCSRA) ADC Control and Status Register A = " dup .x cr
      \
        ." ADC is turned "
        dup ADCSRA_ADEN  and if ." ON" else ." OFF" then cr
      \
        ." AD Convertion is "
        dup ADCSRA_ADSC  and if
        ." in progress"    else
        ." complete"       then cr
      \
        dup ADCSRA_ADATE and if
        ." triggered"      else
        ." single convertion" then cr
      \
        dup ADCSRA_ADIF  and if
." ADC conversion completes and the Data Registers are updated" then cr
      \
        ." ADC Interrupt "
        dup ADCSRA_ADIE  and if
        ." enabled"        else
        ." disabled"       then cr
      \
        ." ADC Prescaler Select Bits = "
        ADCSRA_ADPS and dup .x ." ,  "
        ." ADC clocks = "
        f_cpu  &1000  um/mod swap drop
        swap 
        case
        0 &2 range of &2   endof
          &2       of &4   endof
          &3       of &8   endof
          &4       of &16  endof
          &5       of &32  endof
          &6       of &64  endof
          &7       of &128 endof
        endcase /  base @ swap decimal . base ! ." KHz" cr
      ;
Аватара пользователя
chu
 
Сообщения: 76
Зарегистрирован: 23 сен 2010, 09:16
прог. языки: Forth

Re: Форт-система

Сообщение chu » 23 дек 2014, 07:30

Release 5.6 is out and it is by far the biggest change in amforth ever.
It is the first version that runs on two different controller types:
AVR Atmegas and the TI MSP430 (Launchpad G2553).
...
Enjoy
Matthias
Аватара пользователя
chu
 
Сообщения: 76
Зарегистрирован: 23 сен 2010, 09:16
прог. языки: Forth

Re: Форт-система

Сообщение chu » 23 янв 2016, 10:54

ilya73 любезно предоставил код для 3.2" TFT LCD 65K color 400x240 with the touch screen and SD card socket.
Graphics и fonts основаны на работах американца Craig A. Lindley для SSD1289 65K Color LCD Controller .

Добавлено спустя 17 минут 41 секунду:
Начинаем осваивать Mecrisp-Stellaris.
Вложения
tft-lcd+touch.zip
(10.5 КиБ) Скачиваний: 0
Аватара пользователя
chu
 
Сообщения: 76
Зарегистрирован: 23 сен 2010, 09:16
прог. языки: Forth

Пред.

Вернуться в МиниБот — национальный класс роботов

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Mail.ru counter