Changeset 82 in projects


Ignore:
Timestamp:
Aug 13, 2013, 7:24:01 PM (11 years ago)
Author:
sven
Message:

Wiring/PSeudosprache fertiggeschrieben.

Location:
magnetic-tape-show
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • magnetic-tape-show/pseudosprache.h

    r81 r82  
    1818void abspielen(); // Header signature for main.c
    1919
    20 // An/Ausschalten. Achtung - brauche Relaisnummer als Zahl, ansonsten geht das nicht
    21 #define anschalten(x)     ( PORTB &= ~(1 << x) )
    22 #define ausschalten(x)    ( PORTB |= (1 << x) )
    23 
    24 // Alternativ sowas:
    25 #define leser1_einschalten()       (PORTA &= ~(1 << RELAIS_01))
    26 #define leser1_ausschalten()       (PORTA |= (1 << RELAIS_01))
    27 
    28 
    29 
     20// Deppen-True/False
     21#define AN   TRUE // true in C99
     22#define EIN  AN
     23#define AUS  FALSE // false in C99
    3024
    3125// Schlafen/Warten: Einfache Formulierung
     
    5246
    5347
    54 // Impulssignale
    55 inline void impuls(int port, int relais, double dauer) {
    56         // ..
    57 }
    58 
    59 
    60 
    61 
    62 
    6348#endif /* PSEUDOSPRACHE_H_ */
  • magnetic-tape-show/spielplan.c

    r81 r82  
    1010
    1111void abspielen() {
    12        
     12        /*
    1313        while(1) {
    1414                start_led();
     
    1818                PORTA = 0xFF;
    1919                warte(SEKUNDE);
    20         }       
    21         /*
    22         geraet2_impuls(1 * SEKUNDE);
     20        }
     21        */     
    2322       
    24         anschalten(RELAIS_02);
    25         //warte_sekunden(2);
    26         ausschalten(RELAIS_02);
    27         */
     23        // Start des Plans, Heribert 13.08.2013, 18:50
     24        warte(3 * SEKUNDEN);
     25        tape1_on();
     26        warte(SEKUNDE);
     27       
     28       
     29       
     30
     31       
     32       
     33       
     34       
     35       
    2836}
  • magnetic-tape-show/wiring.h

    r80 r82  
    5454// PORT D: No RS232
    5555
     56// Relais zu daran angeschlossenen Geraete-Mapping:
     57//Rel. 1-4 (+15)    TAPE1   (ON, FORWARD, REWIND, OFF, LP=LOAD-POINT, READ)
     58//Rel. 5-8              TAPE2   (ebenso)
     59//Rel. 9-14             Tape0   (pneumatisches Laufwerk)
     60
     61// C99..
     62#define TRUE  1
     63#define FALSE 0
     64
     65#define set_bit(PORTi, RELAISj, WERT) (\
     66        (WERT == TRUE) ? \
     67          (PORTi &= ~(1 << RELAISj)) : \
     68          (PORTi |=  (1 << RELAISj))  )
     69         
     70// ON und OFF gehen immer in 1sec-Impulsen. Abkuerzen!
     71
     72#define  set_impuls(PORTi, RELAISj)  ({ \
     73        set_bit(PORTi, RELAISj, TRUE); \
     74        _delay_ms(1000); \
     75        set_bit(PORTi, RELAISj, FALSE); \
     76        })
     77
     78
     79#define tape1_on()                      set_impuls(PORTA, RELAIS_01)
     80#define tape1_for(v)            set_bit(PORTA, RELAIS_02, v)
     81#define tape1_rew(v)            set_bit(PORTA, RELAIS_03, v)
     82#define tape1_off()                     set_impuls(PORTA, RELAIS_04)
     83#define tape1_read(v)           set_bit(PORTA, RELAIS_15, v)
     84
     85#define tape2_on()                      set_impuls(PORTA, RELAIS_05)
     86#define tape2_for(v)            set_bit(PORTA, RELAIS_06, v)
     87#define tape2_rew(v)            set_bit(PORTA, RELAIS_07, v)
     88#define tape2_off()                     set_impuls(PORTA, RELAIS_08)
     89
     90#define tape0_on()                      set_impuls(PORTC, RELAIS_09)
     91#define tape0_for(v)            set_bit(PORTC, RELAIS_10, v)
     92#define tape0_read(v)           set_bit(PORTC, RELAIS_11, v)
     93#define tape0_rew(v)            set_bit(PORTC, RELAIS_12, v)
     94#define tape0_lp(v)                     set_bit(PORTC, RELAIS_13, v)
     95#define tape0_off()                     set_impuls(PORTC, RELAIS_14)
     96
     97#define sound_start(v)          set_bit(PORTC, RELAIS_16, v)
     98
     99
    56100
    57101// sic! LED on Olimex devel board
Note: See TracChangeset for help on using the changeset viewer.
© 2008 - 2013 technikum29 • Sven Köppel • Some rights reserved
Powered by Trac
Expect where otherwise noted, content on this site is licensed under a Creative Commons 3.0 License