source: projects/magnetic-tape-show/spielplan.c @ 83

Last change on this file since 83 was 83, checked in by sven, 6 years ago

Show-File in C implementiert.

File size: 2.0 KB
Line 
1/*
2 * spielplan.c
3 *
4 * Created: 10.08.2013 14:02:58
5 *  Author: Sven
6 */ 
7
8#include "wiring.h"
9#include "pseudosprache.h"
10
11void abspielen() {
12        /*
13        while(1) {
14                start_led();
15                PORTA = 0x00;
16                warte(0.5 * SEKUNDE);
17                stop_led();
18                PORTA = 0xFF;
19                warte(SEKUNDE);
20        }
21        */     
22       
23        // Start des Plans, Heribert 13.08.2013, 18:50
24        warte(1   * SEKUNDEN); tape1_on(AN);
25        warte(1   * SEKUNDEN); tape1_on(AUS);
26                               tape2_on(AN);
27        warte(1   * SEKUNDEN); tape2_on(AUS);
28                               tape0_on(AN);
29        warte(1   * SEKUNDEN); tape0_on(AUS);
30                               tape1_for(AN);
31        warte(3   * SEKUNDEN); tape2_for(AN);
32        warte(5   * SEKUNDEN); tape2_for(AUS);
33        warte(0.5 * SEKUNDEN); tape0_for(AN);
34        warte(1.5 * SEKUNDEN); tape1_for(AUS);
35        warte(0.5 * SEKUNDEN); tape1_read(AN);
36        warte(0.5 * SEKUNDEN); tape2_for(AN);
37        warte(4   * SEKUNDEN); tape1_read(AUS);
38        warte(2.5 * SEKUNDEN); tape0_for(AUS);
39        warte(0.5 * SEKUNDEN); tape0_for(AUS);
40        warte(0.5 * SEKUNDEN); tape2_for(AUS);
41        warte(4.5 * SEKUNDEN); tape1_for(AN);
42        warte(1   * SEKUNDEN); tape0_read(AUS);
43        warte(2   * SEKUNDEN); tape0_for(AN);
44        warte(5   * SEKUNDEN); tape2_for(AN);
45        warte(1   * SEKUNDEN); tape0_for(AUS);
46        warte(1   * SEKUNDEN); tape1_for(AUS);
47        warte(0.5 * SEKUNDEN); tape0_read(AN);
48        warte(3.5 * SEKUNDEN); tape2_for(AUS);
49        warte(1   * SEKUNDEN); tape0_for(AN);
50        warte(3   * SEKUNDEN); tape1_read(AN);
51        warte(2   * SEKUNDEN); tape0_for(AUS);
52        warte(1   * SEKUNDEN); tape0_rew(AN);
53        warte(1   * SEKUNDEN); tape0_rew(AUS);
54        warte(1   * SEKUNDEN); tape1_read(AUS);
55        warte(1   * SEKUNDEN); tape1_rew(AN);
56                               tape2_rew(AUS);
57        warte(1   * SEKUNDEN); tape1_rew(AUS);
58        warte(13  * SEKUNDEN); tape0_lp(AN);
59        warte(1   * SEKUNDEN); tape0_lp(AUS);
60        warte(4   * SEKUNDEN); tape0_off(AN);
61        warte(1   * SEKUNDEN); tape0_off(AUS);
62        warte(5   * SEKUNDEN); tape1_off(AN);
63        warte(0.5 * SEKUNDEN); tape2_off(AN);
64        warte(0.5 * SEKUNDEN); tape1_off(AUS);
65        warte(0.5 * SEKUNDEN); tape2_off(AUS);
66}
Note: See TracBrowser for help on using the repository browser.
© 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