Forth-eV Wiki

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
  \ Das rote LED auf dem LaunchPad sieht hell und dunkel. 
  \ Nach einer Idee von Matthias Koch; Referenz: )
  
  hex
  01B0 CONSTANT ADC10CTL0
  01B2 CONSTANT ADC10CTL1
  01B4 CONSTANT ADC10MEM
  004A CONSTANT ADC10AE0
  
  bin
  \ stetup of adc:
  \ FED CB A 9 8 7 6 5 4 3 2 1 0
  \ 001 00 0 0 0 0 0 0 0 0 0 0 0  SREF_1      1*0x2000 VREF+ and VR- 
  \ 000 10 0 0 0 0 0 0 0 0 0 0 0  ADC10SHT_2  2*0x800  16 x ADC10CLKs
  \ 000 00 0 0 0 0 1 0 0 0 0 0 0  REF2_5V     0x040    ADC10 Ref 0:1.5V / 1:2.5V 
  \ 000 00 0 0 0 0 0 1 0 0 0 0 0  REFON       0x020    Reference on
  \ 000 00 0 0 0 0 0 0 1 0 0 0 0  ADC10ON     0x010    ADC10 On/Enable 
    0011000001110000  CONSTANT SETUPADC
  
  \ 000 00 0 0 0 0 0 0 0 0 0 1 0  ENC         Enable Conversion
  \ 000 00 0 0 0 0 0 0 0 0 0 0 1  ADC10SC     sample-and-conversion start.
    0000000000000011  CONSTANT ENC+ADC10SC
    0000000000000100  CONSTANT ADC10IFG
  hex
  : HELL       4 p2 cset  2 p2 cclr ;
  : DUNKEL     4 p2 cclr ;
  
  : ADC1X  \ sample & convert 1x machen
    ENC+ADC10SC ADC10CTL0 cset  
    BEGIN ADC10IFG ADC10CTL0 cget UNTIL ;
  
  : ADC+   1 ADC10CTL0 cset ;  \ Start ADC10  
  : ADC-   1 ADC10CTL0 cclr ;  \ STOP ADC10 
  : ADC@   adc1x ADC10MEM @ ;  \ Wert holen
  
  : ADC-INIT
    setupadc ADC10CTL0 cset
    0 ADC10CTL1 c!   \ input channel A0
    1 ADC10AE0 cset  \ Analog Input Enable P1.0
   ;
  
  : INIT     
    red cclr  green cclr  
    6 p2 1+ cset  \ P2.1 und P2.2 sind output
    1 p1 1+ cclr  \ P1.0 ist input
    dunkel adc- adc-init adc+ ;
  
  decimal
  : ROTAUGE ( -- )
    base @ decimal
    init 3 0 DO 
      hell    10 0 DO cr 200 ms adc@ . LOOP
      dunkel  10 0 DO cr 200 ms adc@ . LOOP
    LOOP base ! ;