BL620-Applications/buzzerjingle.sb at master · LairdCP/BL620-Applications · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
// Copyright (c) 2013, Laird
//
// Permission to use, copy, modify, and/or distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
//
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
// SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
// IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
//
// SPDX-License-Identifier:ISC
//
// Author & Conductor:  Mark Duncombe
//
//******************************************************************************

//******************************************************************************
// Definitions
//******************************************************************************
#define BT900_DEV_ID            0x42370900
#define BL600_DEV_ID            0x424C0600
#define BL620_DEV_ID            0x424C0620


//******************************************************************************
// Global Variable Declarations
//******************************************************************************
dim rc
dim n
dim scale[7]
dim text$[7]


//------------------------------------------------------------------------------
//** #include the correct GPIO library file for the smartBASIC module being used
//------------------------------------------------------------------------------
#include "lib\gpio.bl6xx.sblib"
//#include "lib\gpio.bt9xx.sblib"


scale[0] = 262 //Do
scale[1] = 294 //Re
scale[2] = 330 //Mi
scale[3] = 349 //Fa
scale[4] = 392 //So
scale[5] = 440 //La
scale[6] = 494 //Si

text$[0] = "Do"
text$[1] = "Re"
text$[2] = "Mi"
text$[3] = "Fa"
text$[4] = "So"
text$[5] = "La"
text$[6] = "Si"

rc=GpioSetFunc(GPIO_BUZZER,2,3)  //Configure the SIO for the buzzer

sub sound()
 GpioWrite(GPIO_BUZZER,scale[n])
endsub

sub quit()
 timercancel(0)
 GpioWrite(GPIO_BUZZER,0)
endsub


//Print devkit config info
select DEV_ID
    print "\nEnsure the DIP switches on CON15 are set as follows:"
    case BT900_DEV_ID
        print "\n        OFF      ON"
        print "\nRTC_SDA [1   x    ]"
        print "\nRTC_SCL [2   x    ]"
        print "\nBuzzer  [3     -->]"
        print "\n        [4   x    ]"
        print "\nx = doesn't matter"
    //BL600 or BL620
    case else
        print "\n       OFF      ON"
        print "\n       [1   x    ]"
        print "\nBuzzer [2     -->]"
        print "\nLED0   [3   x    ]"
        print "\nLED1   [4   x    ]"
        print "\nx = doesn't matter"
endselect

print "\n\n"

TIMERSTART(0,500,1)
n=0
sound()
Print text$[n];"\n"

FUNCTION handlerTimer0()
n=n+1
if n>6 then
 quit()
 Print "\nExiting app"
 EXITFUNC 0
else
 sound()
 Print text$[n];"\n"
endif
ENDFUNC 1

ONEVENT EVTMR0 CALL handlerTimer0

WAITEVENT