'Arduino_uno_pins.inc

D0 Alias Portd.0
D1 Alias Portd.1
D2 Alias Portd.2
D3 Alias Portd.3
D4 Alias Portd.4
D5 Alias Portd.5
D6 Alias Portd.6
D7 Alias Portd.7
D8 Alias Portb.0
D9 Alias Portb.1
D10 Alias Portb.2
D11 Alias Portb.3
D12 Alias Portb.4
D13 Alias Portb.5
D14 Alias Portc.0
D15 Alias Pinc.1
D16 Alias Pinc.2
D17 Alias Pinc.3
D18 Alias Portc.4
D19 Alias Portc.5
 

'Arduino Uno -  Multi-functional board

$regfile "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 64

Dim X As Word

Const _shift_delay = 20                                     'shift out delay in microseconds

'beeper = d3 = portd.3 - 0=active
'led1 = d13 = portb.5
'led2 = d12 = portb.4
'led3 = d11 = portb.3
'led4 = d10 = portb.2
'S1 = D15 = pinc.1
'S2 = D16 = pinc.2
'S3 = D17 = pinc.3

$include "arduino_uno_pins.inc"

Config D3 = Output                                          'beeper
Config D13 = Output                                         'led1
Config D12 = Output                                         'led2
Config D11 = Output                                         'led3
Config D10 = Output                                         'led4
Config D15 = Input                                          'switch1
Config D16 = Input                                          'switch2
Config D17 = Input                                          'switch3

Data_out Alias Portb.0                                      ' SER - first 595 pin 14
Latch_out Alias Portd.4                                     ' RCLK- all chips pin 12
Clock_out Alias Portd.7                                     ' SRCLK- all chips pin 11
                                                            'Chip 1 QH' -> 2nd SER
                                                            'OE connected to ground
Config Clock_out = Output                                   'set output to 595.
Config Data_out = Output                                    'set output to 595.
Config Latch_out = Output                                   'set output to 595.

Set Clock_out                                               'switch off 595
Reset Data_out                                              'switch off 595
Reset Latch_out                                             'switch off 595

Dim Pattern As Word
D3 = 1                                                      ' beeper off

Declare Sub Send595(byval Pattern As Word)

'clear display

'              SSSSSSSS      DDDD
'              .GFEDCBA      1234
   Pattern = &B11111111_0000_0000                           'segments active low, display active high
   Call Send595(pattern)

' beeper on/off

D3 = 0                                                      'beeper
Wait 1
D3 = 1
Wait 1

' leds running

For X = 1 To 20
   D13 = 0
   Waitms 100
   D13 = 1
   D12 = 0
   Waitms 100
   D12 = 1
   D11 = 0
   Waitms 100
   D11 = 1
   D10 = 0
   Waitms 100
   D10 = 1
   Waitms 100
Next X

'beep for switch press

D3 = 0                                                      'beeper
Wait 1
D3 = 1
Wait 1

' switches

For X = 1 To 6500
If D15 = 0 Then D13 = 0                                     'S1 - Led1
If D16 = 0 Then D12 = 0                                     'S2 - Led2
If D17 = 0 Then D11 = 0                                     'S3 - Led3
Waitms 1
Next X

'beep for switch press

D3 = 0                                                      'beeper
Wait 1
D3 = 1

'leds off

D13 = 1
D12 = 1
D11 = 1
D10 = 1

'display, show 1234 - found in www.mcselec.com - work of Ian Dobson

Do
'segment and display
'              SSSSSSSS      DDDD
'              .GFEDCBA      1234
   Pattern = &B11111001_0000_0001                              '1
   Call Send595(pattern)
   Waitms 5
   Pattern = &B10100100_0000_0010                              '2
   Call Send595(pattern)
   Waitms 5
   Pattern = &B10110000_0000_0100                              '3
   Call Send595(pattern)
   Waitms 5
   Pattern = &B10011001_0000_1000                              '4
   Call Send595(pattern)
   Waitms 5
Loop
End

'-----------------------------------------------------------------------------
Sub Send595(byval Pattern As Word)
   Shiftout Data_out , Clock_out , Pattern , 0 , 16 , _shift_delay       'send pattern
   Set Latch_out                                             'latch shift reg to outputs
   NOP                                                       'wait abit
   Reset Latch_out                                           'latch off, data written
End Sub