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