Tony Abbey
/
Morse-buddy-JohnF
Random morse code at 4 different speeds. Originally posted by John Fisher on the AQRP Yahoo group.
Morse_Code.cpp@0:8c725fbd8e0e, 2013-06-22 (annotated)
- Committer:
- tony1tf
- Date:
- Sat Jun 22 21:52:12 2013 +0000
- Revision:
- 0:8c725fbd8e0e
Random morse code practice at 4 different speeds. Written by John Fisher and published on the AQRP Yahoo group.
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
tony1tf | 0:8c725fbd8e0e | 1 | |
tony1tf | 0:8c725fbd8e0e | 2 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 3 | // Morse Code June 30, 2011 John H. Fisher - K5JHF |
tony1tf | 0:8c725fbd8e0e | 4 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 5 | |
tony1tf | 0:8c725fbd8e0e | 6 | #include "mbed.h" |
tony1tf | 0:8c725fbd8e0e | 7 | |
tony1tf | 0:8c725fbd8e0e | 8 | #include "main.h" |
tony1tf | 0:8c725fbd8e0e | 9 | |
tony1tf | 0:8c725fbd8e0e | 10 | #include "Morse_Code.h" |
tony1tf | 0:8c725fbd8e0e | 11 | |
tony1tf | 0:8c725fbd8e0e | 12 | const float sine_wave [ 32 ] = { |
tony1tf | 0:8c725fbd8e0e | 13 | |
tony1tf | 0:8c725fbd8e0e | 14 | sin ( 1 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 15 | sin ( 2 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 16 | sin ( 3 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 17 | sin ( 4 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 18 | sin ( 5 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 19 | sin ( 6 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 20 | sin ( 7 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 21 | sin ( 8 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 22 | sin ( 9 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 23 | sin ( 10 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 24 | sin ( 11 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 25 | sin ( 12 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 26 | sin ( 13 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 27 | sin ( 14 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 28 | sin ( 15 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 29 | sin ( 16 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 30 | sin ( 17 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 31 | sin ( 18 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 32 | sin ( 19 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 33 | sin ( 20 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 34 | sin ( 21 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 35 | sin ( 22 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 36 | sin ( 23 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 37 | sin ( 24 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 38 | sin ( 25 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 39 | sin ( 26 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 40 | sin ( 27 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 41 | sin ( 28 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 42 | sin ( 29 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 43 | sin ( 30 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 44 | sin ( 31 * step ) / 2.0 + 0.5 , |
tony1tf | 0:8c725fbd8e0e | 45 | sin ( 0 * step ) / 2.0 + 0.5 |
tony1tf | 0:8c725fbd8e0e | 46 | |
tony1tf | 0:8c725fbd8e0e | 47 | }; |
tony1tf | 0:8c725fbd8e0e | 48 | |
tony1tf | 0:8c725fbd8e0e | 49 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 50 | |
tony1tf | 0:8c725fbd8e0e | 51 | Morse_Code::Morse_Code ( float WPM_Character, |
tony1tf | 0:8c725fbd8e0e | 52 | float WPM_Speed, |
tony1tf | 0:8c725fbd8e0e | 53 | int Tone_Frequency, |
tony1tf | 0:8c725fbd8e0e | 54 | char LED_Pin, |
tony1tf | 0:8c725fbd8e0e | 55 | char Speaker_Pin ) { |
tony1tf | 0:8c725fbd8e0e | 56 | |
tony1tf | 0:8c725fbd8e0e | 57 | _WPM_Character = WPM_Character; |
tony1tf | 0:8c725fbd8e0e | 58 | |
tony1tf | 0:8c725fbd8e0e | 59 | _WPM_Speed = WPM_Speed; |
tony1tf | 0:8c725fbd8e0e | 60 | |
tony1tf | 0:8c725fbd8e0e | 61 | _Tone_Frequency = Tone_Frequency; |
tony1tf | 0:8c725fbd8e0e | 62 | |
tony1tf | 0:8c725fbd8e0e | 63 | _LED_Pin = LED_Pin; |
tony1tf | 0:8c725fbd8e0e | 64 | |
tony1tf | 0:8c725fbd8e0e | 65 | _Speaker_Pin = Speaker_Pin; |
tony1tf | 0:8c725fbd8e0e | 66 | |
tony1tf | 0:8c725fbd8e0e | 67 | Calculate_Morse_Timing ( _WPM_Speed, _WPM_Character ); |
tony1tf | 0:8c725fbd8e0e | 68 | |
tony1tf | 0:8c725fbd8e0e | 69 | Practice_On(); |
tony1tf | 0:8c725fbd8e0e | 70 | |
tony1tf | 0:8c725fbd8e0e | 71 | } |
tony1tf | 0:8c725fbd8e0e | 72 | |
tony1tf | 0:8c725fbd8e0e | 73 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 74 | |
tony1tf | 0:8c725fbd8e0e | 75 | void Morse_Code::Sound_On ( void ) { |
tony1tf | 0:8c725fbd8e0e | 76 | |
tony1tf | 0:8c725fbd8e0e | 77 | Morse_Flag._Sound = 1; |
tony1tf | 0:8c725fbd8e0e | 78 | |
tony1tf | 0:8c725fbd8e0e | 79 | } |
tony1tf | 0:8c725fbd8e0e | 80 | |
tony1tf | 0:8c725fbd8e0e | 81 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 82 | |
tony1tf | 0:8c725fbd8e0e | 83 | void Morse_Code::Sound_Off ( void ) { |
tony1tf | 0:8c725fbd8e0e | 84 | |
tony1tf | 0:8c725fbd8e0e | 85 | Morse_Flag._Sound = 0; |
tony1tf | 0:8c725fbd8e0e | 86 | |
tony1tf | 0:8c725fbd8e0e | 87 | } |
tony1tf | 0:8c725fbd8e0e | 88 | |
tony1tf | 0:8c725fbd8e0e | 89 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 90 | |
tony1tf | 0:8c725fbd8e0e | 91 | void Morse_Code::Sound_Toggle ( void ) { |
tony1tf | 0:8c725fbd8e0e | 92 | |
tony1tf | 0:8c725fbd8e0e | 93 | Morse_Flag._Sound ^= 1; |
tony1tf | 0:8c725fbd8e0e | 94 | |
tony1tf | 0:8c725fbd8e0e | 95 | } |
tony1tf | 0:8c725fbd8e0e | 96 | |
tony1tf | 0:8c725fbd8e0e | 97 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 98 | |
tony1tf | 0:8c725fbd8e0e | 99 | void Morse_Code::Practice_On ( void ) { |
tony1tf | 0:8c725fbd8e0e | 100 | |
tony1tf | 0:8c725fbd8e0e | 101 | Morse_Flag._Practice = 1; |
tony1tf | 0:8c725fbd8e0e | 102 | |
tony1tf | 0:8c725fbd8e0e | 103 | } |
tony1tf | 0:8c725fbd8e0e | 104 | |
tony1tf | 0:8c725fbd8e0e | 105 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 106 | |
tony1tf | 0:8c725fbd8e0e | 107 | void Morse_Code::Practice_Off ( void ) { |
tony1tf | 0:8c725fbd8e0e | 108 | |
tony1tf | 0:8c725fbd8e0e | 109 | Morse_Flag._Practice = 0; |
tony1tf | 0:8c725fbd8e0e | 110 | |
tony1tf | 0:8c725fbd8e0e | 111 | } |
tony1tf | 0:8c725fbd8e0e | 112 | |
tony1tf | 0:8c725fbd8e0e | 113 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 114 | |
tony1tf | 0:8c725fbd8e0e | 115 | void Morse_Code::Practice_Toggle ( void ) { |
tony1tf | 0:8c725fbd8e0e | 116 | |
tony1tf | 0:8c725fbd8e0e | 117 | Morse_Flag._Practice ^= 1; |
tony1tf | 0:8c725fbd8e0e | 118 | |
tony1tf | 0:8c725fbd8e0e | 119 | // Serial.print ( Morse_Flag._Practice ); |
tony1tf | 0:8c725fbd8e0e | 120 | |
tony1tf | 0:8c725fbd8e0e | 121 | } |
tony1tf | 0:8c725fbd8e0e | 122 | |
tony1tf | 0:8c725fbd8e0e | 123 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 124 | |
tony1tf | 0:8c725fbd8e0e | 125 | int Morse_Code::get_Practice ( void ) { |
tony1tf | 0:8c725fbd8e0e | 126 | |
tony1tf | 0:8c725fbd8e0e | 127 | return Morse_Flag._Practice; |
tony1tf | 0:8c725fbd8e0e | 128 | |
tony1tf | 0:8c725fbd8e0e | 129 | } |
tony1tf | 0:8c725fbd8e0e | 130 | |
tony1tf | 0:8c725fbd8e0e | 131 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 132 | |
tony1tf | 0:8c725fbd8e0e | 133 | void Morse_Code::set_Tone ( int frequency ) { |
tony1tf | 0:8c725fbd8e0e | 134 | |
tony1tf | 0:8c725fbd8e0e | 135 | _Tone_Frequency = frequency; |
tony1tf | 0:8c725fbd8e0e | 136 | |
tony1tf | 0:8c725fbd8e0e | 137 | } |
tony1tf | 0:8c725fbd8e0e | 138 | |
tony1tf | 0:8c725fbd8e0e | 139 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 140 | |
tony1tf | 0:8c725fbd8e0e | 141 | int Morse_Code::get_Tone ( ) { |
tony1tf | 0:8c725fbd8e0e | 142 | |
tony1tf | 0:8c725fbd8e0e | 143 | return _Tone_Frequency; |
tony1tf | 0:8c725fbd8e0e | 144 | |
tony1tf | 0:8c725fbd8e0e | 145 | } |
tony1tf | 0:8c725fbd8e0e | 146 | |
tony1tf | 0:8c725fbd8e0e | 147 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 148 | |
tony1tf | 0:8c725fbd8e0e | 149 | void Morse_Code::Tone_Adjust ( int delta, int limit ) { |
tony1tf | 0:8c725fbd8e0e | 150 | |
tony1tf | 0:8c725fbd8e0e | 151 | Adjust ( &_Tone_Frequency, delta, limit ); |
tony1tf | 0:8c725fbd8e0e | 152 | |
tony1tf | 0:8c725fbd8e0e | 153 | } |
tony1tf | 0:8c725fbd8e0e | 154 | |
tony1tf | 0:8c725fbd8e0e | 155 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 156 | |
tony1tf | 0:8c725fbd8e0e | 157 | void Morse_Code::set_WPM ( float WPM_Speed ) { |
tony1tf | 0:8c725fbd8e0e | 158 | |
tony1tf | 0:8c725fbd8e0e | 159 | _WPM_Speed = WPM_Speed; |
tony1tf | 0:8c725fbd8e0e | 160 | |
tony1tf | 0:8c725fbd8e0e | 161 | } |
tony1tf | 0:8c725fbd8e0e | 162 | |
tony1tf | 0:8c725fbd8e0e | 163 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 164 | |
tony1tf | 0:8c725fbd8e0e | 165 | float Morse_Code::get_WPM ( ) { |
tony1tf | 0:8c725fbd8e0e | 166 | |
tony1tf | 0:8c725fbd8e0e | 167 | return _WPM_Speed; |
tony1tf | 0:8c725fbd8e0e | 168 | |
tony1tf | 0:8c725fbd8e0e | 169 | } |
tony1tf | 0:8c725fbd8e0e | 170 | |
tony1tf | 0:8c725fbd8e0e | 171 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 172 | |
tony1tf | 0:8c725fbd8e0e | 173 | void Morse_Code::WPM_Adjust ( float delta, float limit ) { |
tony1tf | 0:8c725fbd8e0e | 174 | |
tony1tf | 0:8c725fbd8e0e | 175 | Adjust ( &_WPM_Speed, delta, limit ); |
tony1tf | 0:8c725fbd8e0e | 176 | |
tony1tf | 0:8c725fbd8e0e | 177 | Calculate_Morse_Timing ( _WPM_Speed, _WPM_Character ); |
tony1tf | 0:8c725fbd8e0e | 178 | |
tony1tf | 0:8c725fbd8e0e | 179 | } |
tony1tf | 0:8c725fbd8e0e | 180 | |
tony1tf | 0:8c725fbd8e0e | 181 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 182 | |
tony1tf | 0:8c725fbd8e0e | 183 | char Morse_Code::Morse ( char ASCII ) { |
tony1tf | 0:8c725fbd8e0e | 184 | |
tony1tf | 0:8c725fbd8e0e | 185 | switch ( ASCII ) { |
tony1tf | 0:8c725fbd8e0e | 186 | |
tony1tf | 0:8c725fbd8e0e | 187 | case 'a': |
tony1tf | 0:8c725fbd8e0e | 188 | case 'A': |
tony1tf | 0:8c725fbd8e0e | 189 | |
tony1tf | 0:8c725fbd8e0e | 190 | return 0x05; // B'0000 0101' ;A |
tony1tf | 0:8c725fbd8e0e | 191 | |
tony1tf | 0:8c725fbd8e0e | 192 | case 'b': |
tony1tf | 0:8c725fbd8e0e | 193 | case 'B': |
tony1tf | 0:8c725fbd8e0e | 194 | |
tony1tf | 0:8c725fbd8e0e | 195 | return 0x18; // B'0001 1000' ;B |
tony1tf | 0:8c725fbd8e0e | 196 | |
tony1tf | 0:8c725fbd8e0e | 197 | case 'c': |
tony1tf | 0:8c725fbd8e0e | 198 | case 'C': |
tony1tf | 0:8c725fbd8e0e | 199 | |
tony1tf | 0:8c725fbd8e0e | 200 | return 0x1A; // B'0001 1010' ;C |
tony1tf | 0:8c725fbd8e0e | 201 | |
tony1tf | 0:8c725fbd8e0e | 202 | case 'd': |
tony1tf | 0:8c725fbd8e0e | 203 | case 'D': |
tony1tf | 0:8c725fbd8e0e | 204 | |
tony1tf | 0:8c725fbd8e0e | 205 | return 0x0C; // B'0000 1100' ;D |
tony1tf | 0:8c725fbd8e0e | 206 | |
tony1tf | 0:8c725fbd8e0e | 207 | case 'e': |
tony1tf | 0:8c725fbd8e0e | 208 | case 'E': |
tony1tf | 0:8c725fbd8e0e | 209 | |
tony1tf | 0:8c725fbd8e0e | 210 | return 0x02; // B'0000 0010' ;E |
tony1tf | 0:8c725fbd8e0e | 211 | |
tony1tf | 0:8c725fbd8e0e | 212 | case 'f': |
tony1tf | 0:8c725fbd8e0e | 213 | case 'F': |
tony1tf | 0:8c725fbd8e0e | 214 | |
tony1tf | 0:8c725fbd8e0e | 215 | return 0x12; // B'0001 0010' ;F |
tony1tf | 0:8c725fbd8e0e | 216 | |
tony1tf | 0:8c725fbd8e0e | 217 | case 'g': |
tony1tf | 0:8c725fbd8e0e | 218 | case 'G': |
tony1tf | 0:8c725fbd8e0e | 219 | |
tony1tf | 0:8c725fbd8e0e | 220 | return 0x0E; // B'0000 1110' ;G |
tony1tf | 0:8c725fbd8e0e | 221 | |
tony1tf | 0:8c725fbd8e0e | 222 | case 'h': |
tony1tf | 0:8c725fbd8e0e | 223 | case 'H': |
tony1tf | 0:8c725fbd8e0e | 224 | |
tony1tf | 0:8c725fbd8e0e | 225 | return 0x10; // B'0001 0000' ;H |
tony1tf | 0:8c725fbd8e0e | 226 | |
tony1tf | 0:8c725fbd8e0e | 227 | case 'i': |
tony1tf | 0:8c725fbd8e0e | 228 | case 'I': |
tony1tf | 0:8c725fbd8e0e | 229 | |
tony1tf | 0:8c725fbd8e0e | 230 | return 0x04; // B'0000 0100' ;I |
tony1tf | 0:8c725fbd8e0e | 231 | |
tony1tf | 0:8c725fbd8e0e | 232 | case 'j': |
tony1tf | 0:8c725fbd8e0e | 233 | case 'J': |
tony1tf | 0:8c725fbd8e0e | 234 | |
tony1tf | 0:8c725fbd8e0e | 235 | return 0x17; // B'0001 0111' ;J |
tony1tf | 0:8c725fbd8e0e | 236 | |
tony1tf | 0:8c725fbd8e0e | 237 | case 'k': |
tony1tf | 0:8c725fbd8e0e | 238 | case 'K': |
tony1tf | 0:8c725fbd8e0e | 239 | |
tony1tf | 0:8c725fbd8e0e | 240 | return 0x0D; // B'0000 1101' ;K |
tony1tf | 0:8c725fbd8e0e | 241 | |
tony1tf | 0:8c725fbd8e0e | 242 | case 'l': |
tony1tf | 0:8c725fbd8e0e | 243 | case 'L': |
tony1tf | 0:8c725fbd8e0e | 244 | |
tony1tf | 0:8c725fbd8e0e | 245 | return 0x14; // B'0001 0100' ;L |
tony1tf | 0:8c725fbd8e0e | 246 | |
tony1tf | 0:8c725fbd8e0e | 247 | case 'm': |
tony1tf | 0:8c725fbd8e0e | 248 | case 'M': |
tony1tf | 0:8c725fbd8e0e | 249 | |
tony1tf | 0:8c725fbd8e0e | 250 | return 0x07; // B'0000 0111' ;M |
tony1tf | 0:8c725fbd8e0e | 251 | |
tony1tf | 0:8c725fbd8e0e | 252 | case 'n': |
tony1tf | 0:8c725fbd8e0e | 253 | case 'N': |
tony1tf | 0:8c725fbd8e0e | 254 | |
tony1tf | 0:8c725fbd8e0e | 255 | return 0x06; // B'0000 0110' ;N |
tony1tf | 0:8c725fbd8e0e | 256 | |
tony1tf | 0:8c725fbd8e0e | 257 | case 'o': |
tony1tf | 0:8c725fbd8e0e | 258 | case 'O': |
tony1tf | 0:8c725fbd8e0e | 259 | |
tony1tf | 0:8c725fbd8e0e | 260 | return 0x0F; // B'0000 1111' ;O |
tony1tf | 0:8c725fbd8e0e | 261 | |
tony1tf | 0:8c725fbd8e0e | 262 | case 'p': |
tony1tf | 0:8c725fbd8e0e | 263 | case 'P': |
tony1tf | 0:8c725fbd8e0e | 264 | |
tony1tf | 0:8c725fbd8e0e | 265 | return 0x16; // B'0001 0110' ;P |
tony1tf | 0:8c725fbd8e0e | 266 | |
tony1tf | 0:8c725fbd8e0e | 267 | case 'q': |
tony1tf | 0:8c725fbd8e0e | 268 | case 'Q': |
tony1tf | 0:8c725fbd8e0e | 269 | |
tony1tf | 0:8c725fbd8e0e | 270 | return 0x1D; // B'0001 1101' ;Q |
tony1tf | 0:8c725fbd8e0e | 271 | |
tony1tf | 0:8c725fbd8e0e | 272 | case 'r': |
tony1tf | 0:8c725fbd8e0e | 273 | case 'R': |
tony1tf | 0:8c725fbd8e0e | 274 | |
tony1tf | 0:8c725fbd8e0e | 275 | return 0x0A; // B'0000 1010' ;R |
tony1tf | 0:8c725fbd8e0e | 276 | |
tony1tf | 0:8c725fbd8e0e | 277 | case 's': |
tony1tf | 0:8c725fbd8e0e | 278 | case 'S': |
tony1tf | 0:8c725fbd8e0e | 279 | |
tony1tf | 0:8c725fbd8e0e | 280 | return 0x08; // B'0000 1000' ;S |
tony1tf | 0:8c725fbd8e0e | 281 | |
tony1tf | 0:8c725fbd8e0e | 282 | case 't': |
tony1tf | 0:8c725fbd8e0e | 283 | case 'T': |
tony1tf | 0:8c725fbd8e0e | 284 | |
tony1tf | 0:8c725fbd8e0e | 285 | return 0x03; // B'0000 0011' ;T |
tony1tf | 0:8c725fbd8e0e | 286 | |
tony1tf | 0:8c725fbd8e0e | 287 | case 'u': |
tony1tf | 0:8c725fbd8e0e | 288 | case 'U': |
tony1tf | 0:8c725fbd8e0e | 289 | |
tony1tf | 0:8c725fbd8e0e | 290 | return 0x09; // B'0000 1001' ;U |
tony1tf | 0:8c725fbd8e0e | 291 | |
tony1tf | 0:8c725fbd8e0e | 292 | case 'v': |
tony1tf | 0:8c725fbd8e0e | 293 | case 'V': |
tony1tf | 0:8c725fbd8e0e | 294 | |
tony1tf | 0:8c725fbd8e0e | 295 | return 0x11; // B'0001 0001' ;V |
tony1tf | 0:8c725fbd8e0e | 296 | |
tony1tf | 0:8c725fbd8e0e | 297 | case 'w': |
tony1tf | 0:8c725fbd8e0e | 298 | case 'W': |
tony1tf | 0:8c725fbd8e0e | 299 | |
tony1tf | 0:8c725fbd8e0e | 300 | return 0x0B; // B'0000 1011' ;W |
tony1tf | 0:8c725fbd8e0e | 301 | |
tony1tf | 0:8c725fbd8e0e | 302 | case 'x': |
tony1tf | 0:8c725fbd8e0e | 303 | case 'X': |
tony1tf | 0:8c725fbd8e0e | 304 | |
tony1tf | 0:8c725fbd8e0e | 305 | return 0x19; // B'0001 1001' ;X |
tony1tf | 0:8c725fbd8e0e | 306 | |
tony1tf | 0:8c725fbd8e0e | 307 | case 'y': |
tony1tf | 0:8c725fbd8e0e | 308 | case 'Y': |
tony1tf | 0:8c725fbd8e0e | 309 | |
tony1tf | 0:8c725fbd8e0e | 310 | return 0x1B; // B'0001 1011' ;Y |
tony1tf | 0:8c725fbd8e0e | 311 | |
tony1tf | 0:8c725fbd8e0e | 312 | case 'z': |
tony1tf | 0:8c725fbd8e0e | 313 | case 'Z': |
tony1tf | 0:8c725fbd8e0e | 314 | |
tony1tf | 0:8c725fbd8e0e | 315 | return 0x1C; // B'0001 1100' ;Z |
tony1tf | 0:8c725fbd8e0e | 316 | |
tony1tf | 0:8c725fbd8e0e | 317 | case '1': |
tony1tf | 0:8c725fbd8e0e | 318 | |
tony1tf | 0:8c725fbd8e0e | 319 | return 0x2F; // B'0010 1111' ;1 |
tony1tf | 0:8c725fbd8e0e | 320 | |
tony1tf | 0:8c725fbd8e0e | 321 | case '2': |
tony1tf | 0:8c725fbd8e0e | 322 | |
tony1tf | 0:8c725fbd8e0e | 323 | return 0x27; // B'0010 0111' ;2 |
tony1tf | 0:8c725fbd8e0e | 324 | |
tony1tf | 0:8c725fbd8e0e | 325 | case '3': |
tony1tf | 0:8c725fbd8e0e | 326 | |
tony1tf | 0:8c725fbd8e0e | 327 | return 0x23; // B'0010 0011' ;3 |
tony1tf | 0:8c725fbd8e0e | 328 | |
tony1tf | 0:8c725fbd8e0e | 329 | case '4': |
tony1tf | 0:8c725fbd8e0e | 330 | |
tony1tf | 0:8c725fbd8e0e | 331 | return 0x21; // B'0010 0001' ;4 |
tony1tf | 0:8c725fbd8e0e | 332 | |
tony1tf | 0:8c725fbd8e0e | 333 | case '5': |
tony1tf | 0:8c725fbd8e0e | 334 | |
tony1tf | 0:8c725fbd8e0e | 335 | return 0x20; // B'0010 0000' ;5 |
tony1tf | 0:8c725fbd8e0e | 336 | |
tony1tf | 0:8c725fbd8e0e | 337 | case '6': |
tony1tf | 0:8c725fbd8e0e | 338 | |
tony1tf | 0:8c725fbd8e0e | 339 | return 0x30; // B'0011 0000' ;6 |
tony1tf | 0:8c725fbd8e0e | 340 | |
tony1tf | 0:8c725fbd8e0e | 341 | case '7': |
tony1tf | 0:8c725fbd8e0e | 342 | |
tony1tf | 0:8c725fbd8e0e | 343 | return 0x38; // B'0011 1000' ;7 |
tony1tf | 0:8c725fbd8e0e | 344 | |
tony1tf | 0:8c725fbd8e0e | 345 | case '8': |
tony1tf | 0:8c725fbd8e0e | 346 | |
tony1tf | 0:8c725fbd8e0e | 347 | return 0x3C; // B'0011 1100' ;8 |
tony1tf | 0:8c725fbd8e0e | 348 | |
tony1tf | 0:8c725fbd8e0e | 349 | case '9': |
tony1tf | 0:8c725fbd8e0e | 350 | |
tony1tf | 0:8c725fbd8e0e | 351 | return 0x3E; // B'0011 1110' ;9 |
tony1tf | 0:8c725fbd8e0e | 352 | |
tony1tf | 0:8c725fbd8e0e | 353 | case '0': |
tony1tf | 0:8c725fbd8e0e | 354 | |
tony1tf | 0:8c725fbd8e0e | 355 | return 0x3F; // B'0011 1111' ;0 |
tony1tf | 0:8c725fbd8e0e | 356 | |
tony1tf | 0:8c725fbd8e0e | 357 | case '.': |
tony1tf | 0:8c725fbd8e0e | 358 | |
tony1tf | 0:8c725fbd8e0e | 359 | return 0x55; // B'0101 0101' ;. |
tony1tf | 0:8c725fbd8e0e | 360 | |
tony1tf | 0:8c725fbd8e0e | 361 | case ',': |
tony1tf | 0:8c725fbd8e0e | 362 | |
tony1tf | 0:8c725fbd8e0e | 363 | return 0x73; // B'0111 0011' ;, |
tony1tf | 0:8c725fbd8e0e | 364 | |
tony1tf | 0:8c725fbd8e0e | 365 | case ';': |
tony1tf | 0:8c725fbd8e0e | 366 | |
tony1tf | 0:8c725fbd8e0e | 367 | return 0x6A; // B'0110 1010' ;; |
tony1tf | 0:8c725fbd8e0e | 368 | |
tony1tf | 0:8c725fbd8e0e | 369 | case ':': |
tony1tf | 0:8c725fbd8e0e | 370 | |
tony1tf | 0:8c725fbd8e0e | 371 | return 0x78; // B'0111 1000' ;: |
tony1tf | 0:8c725fbd8e0e | 372 | |
tony1tf | 0:8c725fbd8e0e | 373 | case 0x27: |
tony1tf | 0:8c725fbd8e0e | 374 | |
tony1tf | 0:8c725fbd8e0e | 375 | return 0x5E; // B'0101 1110' ;' |
tony1tf | 0:8c725fbd8e0e | 376 | |
tony1tf | 0:8c725fbd8e0e | 377 | case 0x22: |
tony1tf | 0:8c725fbd8e0e | 378 | |
tony1tf | 0:8c725fbd8e0e | 379 | return 0x52; // B'0101 0010' ;" |
tony1tf | 0:8c725fbd8e0e | 380 | |
tony1tf | 0:8c725fbd8e0e | 381 | case '/': |
tony1tf | 0:8c725fbd8e0e | 382 | |
tony1tf | 0:8c725fbd8e0e | 383 | return 0x32; // B'0011 0010' ;/ |
tony1tf | 0:8c725fbd8e0e | 384 | |
tony1tf | 0:8c725fbd8e0e | 385 | case '?': |
tony1tf | 0:8c725fbd8e0e | 386 | |
tony1tf | 0:8c725fbd8e0e | 387 | return 0x4C; // B'0100 1100' ;? |
tony1tf | 0:8c725fbd8e0e | 388 | |
tony1tf | 0:8c725fbd8e0e | 389 | case '-': |
tony1tf | 0:8c725fbd8e0e | 390 | |
tony1tf | 0:8c725fbd8e0e | 391 | return 0x61; // B'0110 0001' ;- |
tony1tf | 0:8c725fbd8e0e | 392 | |
tony1tf | 0:8c725fbd8e0e | 393 | case '_': |
tony1tf | 0:8c725fbd8e0e | 394 | |
tony1tf | 0:8c725fbd8e0e | 395 | return 0x4D; // B'0100 1101' ;_ |
tony1tf | 0:8c725fbd8e0e | 396 | |
tony1tf | 0:8c725fbd8e0e | 397 | case '=': |
tony1tf | 0:8c725fbd8e0e | 398 | |
tony1tf | 0:8c725fbd8e0e | 399 | return 0x31; // B'0011 0001' ;= |
tony1tf | 0:8c725fbd8e0e | 400 | |
tony1tf | 0:8c725fbd8e0e | 401 | case '+': |
tony1tf | 0:8c725fbd8e0e | 402 | |
tony1tf | 0:8c725fbd8e0e | 403 | return 0x2A; // B'0010 1010' ;+ |
tony1tf | 0:8c725fbd8e0e | 404 | |
tony1tf | 0:8c725fbd8e0e | 405 | case '!': |
tony1tf | 0:8c725fbd8e0e | 406 | |
tony1tf | 0:8c725fbd8e0e | 407 | return 0x22; // B'0010 0010' ;! |
tony1tf | 0:8c725fbd8e0e | 408 | |
tony1tf | 0:8c725fbd8e0e | 409 | case '@': |
tony1tf | 0:8c725fbd8e0e | 410 | |
tony1tf | 0:8c725fbd8e0e | 411 | return 0x5A; // B'0101 1010' ;@ |
tony1tf | 0:8c725fbd8e0e | 412 | |
tony1tf | 0:8c725fbd8e0e | 413 | case '#': |
tony1tf | 0:8c725fbd8e0e | 414 | |
tony1tf | 0:8c725fbd8e0e | 415 | return 0x54; // B'0101 0100' ;# |
tony1tf | 0:8c725fbd8e0e | 416 | |
tony1tf | 0:8c725fbd8e0e | 417 | case '$': |
tony1tf | 0:8c725fbd8e0e | 418 | |
tony1tf | 0:8c725fbd8e0e | 419 | return 0x89; // B'1000 1001' ;$ |
tony1tf | 0:8c725fbd8e0e | 420 | |
tony1tf | 0:8c725fbd8e0e | 421 | case '%': |
tony1tf | 0:8c725fbd8e0e | 422 | |
tony1tf | 0:8c725fbd8e0e | 423 | return 0x35; // B'0011 0101' ;% |
tony1tf | 0:8c725fbd8e0e | 424 | |
tony1tf | 0:8c725fbd8e0e | 425 | case '^': |
tony1tf | 0:8c725fbd8e0e | 426 | |
tony1tf | 0:8c725fbd8e0e | 427 | return 0x0D; // B'0000 1101' ;^ |
tony1tf | 0:8c725fbd8e0e | 428 | |
tony1tf | 0:8c725fbd8e0e | 429 | case '&': |
tony1tf | 0:8c725fbd8e0e | 430 | |
tony1tf | 0:8c725fbd8e0e | 431 | return 0x28; // B'0010 1000' ;& |
tony1tf | 0:8c725fbd8e0e | 432 | |
tony1tf | 0:8c725fbd8e0e | 433 | case '*': |
tony1tf | 0:8c725fbd8e0e | 434 | |
tony1tf | 0:8c725fbd8e0e | 435 | return 0x45; // B'0100 0101' ;* |
tony1tf | 0:8c725fbd8e0e | 436 | |
tony1tf | 0:8c725fbd8e0e | 437 | case '(': |
tony1tf | 0:8c725fbd8e0e | 438 | |
tony1tf | 0:8c725fbd8e0e | 439 | return 0x36; // B'0011 0110' ;( |
tony1tf | 0:8c725fbd8e0e | 440 | |
tony1tf | 0:8c725fbd8e0e | 441 | case ')': |
tony1tf | 0:8c725fbd8e0e | 442 | |
tony1tf | 0:8c725fbd8e0e | 443 | return 0x6D; // B'0110 1101' ;) |
tony1tf | 0:8c725fbd8e0e | 444 | |
tony1tf | 0:8c725fbd8e0e | 445 | case 0x09: |
tony1tf | 0:8c725fbd8e0e | 446 | |
tony1tf | 0:8c725fbd8e0e | 447 | return 0x54; // B'0101 0100' ;TAB |
tony1tf | 0:8c725fbd8e0e | 448 | |
tony1tf | 0:8c725fbd8e0e | 449 | case 0x08: |
tony1tf | 0:8c725fbd8e0e | 450 | |
tony1tf | 0:8c725fbd8e0e | 451 | return 0x80; // B'1000 0000' ;Backspace |
tony1tf | 0:8c725fbd8e0e | 452 | |
tony1tf | 0:8c725fbd8e0e | 453 | case ' ': |
tony1tf | 0:8c725fbd8e0e | 454 | |
tony1tf | 0:8c725fbd8e0e | 455 | return 0x01; // B'1000 0000' ;space |
tony1tf | 0:8c725fbd8e0e | 456 | |
tony1tf | 0:8c725fbd8e0e | 457 | default: |
tony1tf | 0:8c725fbd8e0e | 458 | |
tony1tf | 0:8c725fbd8e0e | 459 | return 0x01; |
tony1tf | 0:8c725fbd8e0e | 460 | |
tony1tf | 0:8c725fbd8e0e | 461 | } |
tony1tf | 0:8c725fbd8e0e | 462 | |
tony1tf | 0:8c725fbd8e0e | 463 | } |
tony1tf | 0:8c725fbd8e0e | 464 | |
tony1tf | 0:8c725fbd8e0e | 465 | //=================================================================== |
tony1tf | 0:8c725fbd8e0e | 466 | |
tony1tf | 0:8c725fbd8e0e | 467 | void Morse_Code::Send_Morse ( char Morse ) { |
tony1tf | 0:8c725fbd8e0e | 468 | |
tony1tf | 0:8c725fbd8e0e | 469 | char bit_counter = 8; |
tony1tf | 0:8c725fbd8e0e | 470 | |
tony1tf | 0:8c725fbd8e0e | 471 | while ( !( Morse & 0x80 ) ) { |
tony1tf | 0:8c725fbd8e0e | 472 | |
tony1tf | 0:8c725fbd8e0e | 473 | Morse <<= 1; |
tony1tf | 0:8c725fbd8e0e | 474 | |
tony1tf | 0:8c725fbd8e0e | 475 | --bit_counter; |
tony1tf | 0:8c725fbd8e0e | 476 | |
tony1tf | 0:8c725fbd8e0e | 477 | } |
tony1tf | 0:8c725fbd8e0e | 478 | |
tony1tf | 0:8c725fbd8e0e | 479 | Morse_Flag.last_bit = 0; |
tony1tf | 0:8c725fbd8e0e | 480 | |
tony1tf | 0:8c725fbd8e0e | 481 | while ( --bit_counter ) { |
tony1tf | 0:8c725fbd8e0e | 482 | |
tony1tf | 0:8c725fbd8e0e | 483 | if ( bit_counter == 1 ) Morse_Flag.last_bit = 1; |
tony1tf | 0:8c725fbd8e0e | 484 | |
tony1tf | 0:8c725fbd8e0e | 485 | if ( ( Morse <<= 1 ) & 0x80 ) dah(); |
tony1tf | 0:8c725fbd8e0e | 486 | |
tony1tf | 0:8c725fbd8e0e | 487 | else dit(); |
tony1tf | 0:8c725fbd8e0e | 488 | |
tony1tf | 0:8c725fbd8e0e | 489 | if ( !Morse_Flag.last_bit ) wait ( u ); |
tony1tf | 0:8c725fbd8e0e | 490 | |
tony1tf | 0:8c725fbd8e0e | 491 | else if ( Morse_Flag.last_char ) wait ( tw ); |
tony1tf | 0:8c725fbd8e0e | 492 | |
tony1tf | 0:8c725fbd8e0e | 493 | else wait ( tc ); |
tony1tf | 0:8c725fbd8e0e | 494 | |
tony1tf | 0:8c725fbd8e0e | 495 | } |
tony1tf | 0:8c725fbd8e0e | 496 | |
tony1tf | 0:8c725fbd8e0e | 497 | } |
tony1tf | 0:8c725fbd8e0e | 498 | |
tony1tf | 0:8c725fbd8e0e | 499 | //=================================================================== |
tony1tf | 0:8c725fbd8e0e | 500 | |
tony1tf | 0:8c725fbd8e0e | 501 | char Morse_Code::Random_Code ( void ) { |
tony1tf | 0:8c725fbd8e0e | 502 | |
tony1tf | 0:8c725fbd8e0e | 503 | char ascii; |
tony1tf | 0:8c725fbd8e0e | 504 | |
tony1tf | 0:8c725fbd8e0e | 505 | static char count; |
tony1tf | 0:8c725fbd8e0e | 506 | |
tony1tf | 0:8c725fbd8e0e | 507 | ascii = 32 + rand () % 95; |
tony1tf | 0:8c725fbd8e0e | 508 | |
tony1tf | 0:8c725fbd8e0e | 509 | Send_Morse ( Morse ( ascii ) ); |
tony1tf | 0:8c725fbd8e0e | 510 | |
tony1tf | 0:8c725fbd8e0e | 511 | if ( ( count++ ) % 5 == 0 ) Morse_Flag.last_char = 1; |
tony1tf | 0:8c725fbd8e0e | 512 | |
tony1tf | 0:8c725fbd8e0e | 513 | else Morse_Flag.last_char = 0; |
tony1tf | 0:8c725fbd8e0e | 514 | |
tony1tf | 0:8c725fbd8e0e | 515 | return ascii; |
tony1tf | 0:8c725fbd8e0e | 516 | |
tony1tf | 0:8c725fbd8e0e | 517 | } |
tony1tf | 0:8c725fbd8e0e | 518 | |
tony1tf | 0:8c725fbd8e0e | 519 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 520 | // The ARRL Morse Transmission Timing Standard |
tony1tf | 0:8c725fbd8e0e | 521 | |
tony1tf | 0:8c725fbd8e0e | 522 | void Morse_Code::Calculate_Morse_Timing ( float s, float c ) { // In seconds for wait function |
tony1tf | 0:8c725fbd8e0e | 523 | |
tony1tf | 0:8c725fbd8e0e | 524 | if ( s >= 18.0 ) { |
tony1tf | 0:8c725fbd8e0e | 525 | |
tony1tf | 0:8c725fbd8e0e | 526 | c = s; |
tony1tf | 0:8c725fbd8e0e | 527 | |
tony1tf | 0:8c725fbd8e0e | 528 | u = 1.2 / c; |
tony1tf | 0:8c725fbd8e0e | 529 | |
tony1tf | 0:8c725fbd8e0e | 530 | tc = 3.0 * u; |
tony1tf | 0:8c725fbd8e0e | 531 | |
tony1tf | 0:8c725fbd8e0e | 532 | tw = 7.0 * u; |
tony1tf | 0:8c725fbd8e0e | 533 | |
tony1tf | 0:8c725fbd8e0e | 534 | } |
tony1tf | 0:8c725fbd8e0e | 535 | |
tony1tf | 0:8c725fbd8e0e | 536 | else { |
tony1tf | 0:8c725fbd8e0e | 537 | |
tony1tf | 0:8c725fbd8e0e | 538 | u = 1.2 / c; |
tony1tf | 0:8c725fbd8e0e | 539 | |
tony1tf | 0:8c725fbd8e0e | 540 | ta = ( 60.0 * c - 37.2 * s ) / ( s * c ); |
tony1tf | 0:8c725fbd8e0e | 541 | |
tony1tf | 0:8c725fbd8e0e | 542 | tc = 3.0 * ta / 19.0; |
tony1tf | 0:8c725fbd8e0e | 543 | |
tony1tf | 0:8c725fbd8e0e | 544 | tw = 7.0 * ta / 19.0; |
tony1tf | 0:8c725fbd8e0e | 545 | |
tony1tf | 0:8c725fbd8e0e | 546 | } |
tony1tf | 0:8c725fbd8e0e | 547 | |
tony1tf | 0:8c725fbd8e0e | 548 | } |
tony1tf | 0:8c725fbd8e0e | 549 | |
tony1tf | 0:8c725fbd8e0e | 550 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 551 | |
tony1tf | 0:8c725fbd8e0e | 552 | void Morse_Code::dit ( ) { |
tony1tf | 0:8c725fbd8e0e | 553 | |
tony1tf | 0:8c725fbd8e0e | 554 | led = on; |
tony1tf | 0:8c725fbd8e0e | 555 | |
tony1tf | 0:8c725fbd8e0e | 556 | Tone ( _Tone_Frequency, u ); |
tony1tf | 0:8c725fbd8e0e | 557 | |
tony1tf | 0:8c725fbd8e0e | 558 | led = off; |
tony1tf | 0:8c725fbd8e0e | 559 | |
tony1tf | 0:8c725fbd8e0e | 560 | } |
tony1tf | 0:8c725fbd8e0e | 561 | |
tony1tf | 0:8c725fbd8e0e | 562 | //============================================================== |
tony1tf | 0:8c725fbd8e0e | 563 | |
tony1tf | 0:8c725fbd8e0e | 564 | void Morse_Code::dah ( ) { |
tony1tf | 0:8c725fbd8e0e | 565 | |
tony1tf | 0:8c725fbd8e0e | 566 | led = on; |
tony1tf | 0:8c725fbd8e0e | 567 | |
tony1tf | 0:8c725fbd8e0e | 568 | Tone ( _Tone_Frequency, 3.0 * u ); |
tony1tf | 0:8c725fbd8e0e | 569 | |
tony1tf | 0:8c725fbd8e0e | 570 | led = off; |
tony1tf | 0:8c725fbd8e0e | 571 | |
tony1tf | 0:8c725fbd8e0e | 572 | } |
tony1tf | 0:8c725fbd8e0e | 573 | |
tony1tf | 0:8c725fbd8e0e | 574 | //============================================================= |
tony1tf | 0:8c725fbd8e0e | 575 | |
tony1tf | 0:8c725fbd8e0e | 576 | void Morse_Code::Tone ( int freq_factor, float duration ) { |
tony1tf | 0:8c725fbd8e0e | 577 | |
tony1tf | 0:8c725fbd8e0e | 578 | Timer timer; |
tony1tf | 0:8c725fbd8e0e | 579 | |
tony1tf | 0:8c725fbd8e0e | 580 | char i = 0; |
tony1tf | 0:8c725fbd8e0e | 581 | |
tony1tf | 0:8c725fbd8e0e | 582 | unsigned int delay; |
tony1tf | 0:8c725fbd8e0e | 583 | |
tony1tf | 0:8c725fbd8e0e | 584 | timer.start(); |
tony1tf | 0:8c725fbd8e0e | 585 | |
tony1tf | 0:8c725fbd8e0e | 586 | timer.reset(); |
tony1tf | 0:8c725fbd8e0e | 587 | |
tony1tf | 0:8c725fbd8e0e | 588 | do { |
tony1tf | 0:8c725fbd8e0e | 589 | |
tony1tf | 0:8c725fbd8e0e | 590 | for ( i = 0; i < 32; i++ ) { |
tony1tf | 0:8c725fbd8e0e | 591 | |
tony1tf | 0:8c725fbd8e0e | 592 | piezo = sine_wave [ i ]; |
tony1tf | 0:8c725fbd8e0e | 593 | |
tony1tf | 0:8c725fbd8e0e | 594 | for ( delay = 0; delay < freq_factor; delay++ ); |
tony1tf | 0:8c725fbd8e0e | 595 | |
tony1tf | 0:8c725fbd8e0e | 596 | } |
tony1tf | 0:8c725fbd8e0e | 597 | |
tony1tf | 0:8c725fbd8e0e | 598 | } while ( timer.read() < duration ); |
tony1tf | 0:8c725fbd8e0e | 599 | |
tony1tf | 0:8c725fbd8e0e | 600 | } |
tony1tf | 0:8c725fbd8e0e | 601 | |
tony1tf | 0:8c725fbd8e0e | 602 | //============================================================= |
tony1tf | 0:8c725fbd8e0e | 603 | |
tony1tf | 0:8c725fbd8e0e | 604 | |
tony1tf | 0:8c725fbd8e0e | 605 | |
tony1tf | 0:8c725fbd8e0e | 606 |