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

Last change on this file since 86 was 86, checked in by heribert-pc, 6 years ago

Spielplan korrigiert.

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        // Start des Plans, Heribert 13.08.2013, 18:50
13        warte(3   * SEKUNDEN); tape1_on(AN);  // RELAIS 02
14        warte(1   * SEKUNDEN); tape1_on(AUS); // RELAIS ...
15                               tape2_on(AN);  // .... usw..
16        warte(1   * SEKUNDEN); tape2_on(AUS);
17        warte(1   * SEKUNDEN); tape0_on(AN);
18        warte(1   * SEKUNDEN); tape0_on(AUS);
19                               tape1_for(AN);
20        warte(3   * SEKUNDEN); tape2_for(AN);
21        warte(5   * SEKUNDEN); tape2_for(AUS);
22        warte(0.5 * SEKUNDEN); tape0_for(AN);
23        warte(1.5 * SEKUNDEN); tape1_for(AUS);
24        warte(0.5 * SEKUNDEN); tape1_read(AN);
25        warte(0.5 * SEKUNDEN); tape2_for(AN);
26        warte(4   * SEKUNDEN); tape1_read(AUS);
27        warte(2.5 * SEKUNDEN); tape0_for(AUS);
28        warte(0.5 * SEKUNDEN); tape2_for(AUS);
29        warte(0.5 * SEKUNDEN); tape0_read(AN);
30        warte(4.5 * SEKUNDEN); tape1_for(AN);
31        warte(1   * SEKUNDEN); tape0_read(AUS);
32        warte(2   * SEKUNDEN); tape0_for(AN);
33        warte(5   * SEKUNDEN); tape2_for(AN);
34        warte(1   * SEKUNDEN); tape0_for(AUS);
35        warte(1   * SEKUNDEN); tape1_for(AUS);
36        warte(0.5 * SEKUNDEN); tape0_read(AN);
37        warte(3.5 * SEKUNDEN); tape2_for(AUS);
38        warte(1   * SEKUNDEN); tape0_for(AN);
39        warte(1   * SEKUNDEN); tape0_read(AUS);
40        warte(3   * SEKUNDEN); tape1_read(AN);
41        warte(2   * SEKUNDEN); tape0_for(AUS);
42        warte(1   * SEKUNDEN); tape0_rew(AN);
43        warte(1   * SEKUNDEN); tape0_rew(AUS);
44        warte(1   * SEKUNDEN); tape1_read(AUS);
45        warte(1   * SEKUNDEN); tape2_rew(AN);
46        warte(1   * SEKUNDEN); tape2_rew(AUS);
47                               tape1_rew(AN);
48        warte(1   * SEKUNDEN); tape1_rew(AUS);
49        warte(13  * SEKUNDEN); tape0_lp(AN);
50        warte(1   * SEKUNDEN); tape0_lp(AUS);
51        warte(4   * SEKUNDEN); tape0_off(AN);
52        warte(1   * SEKUNDEN); tape0_off(AUS);
53        warte(5   * SEKUNDEN); tape1_off(AN);
54        warte(0.5 * SEKUNDEN); tape2_off(AN);
55        warte(0.5 * SEKUNDEN); tape1_off(AUS);
56        warte(0.5 * SEKUNDEN); tape2_off(AUS);
57}
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