code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| #chip mega328P, 16 #include "74hc595.gcb" #define SER portb.1 #define OE portb.2 #define RCLK portb.3 #define SRCLK portb.4 #define SRCLR portb.5 init595 do shiftBit( 1 ) wait 500 ms for index=1 to 7 shiftBit( 0 ) wait 500 ms next loop |
Demo video 10 minuten.
Thuis pagina
http://gcbasic.sourceforge.net/Typesetter/index.php/Home
