'------------------------------------------------------------------------------------ ' Description: ' ' SE-TREE ' Xmas Tree Melody Kit ' ' ' Written by Junghoon Kim 01-Apl-2003 ' Compiled by BASCOM 8051 Demo ' ' http://www.mcselec.com/download_8051.htm ' ' SAMPLE Electronics co. ' #301 Jeshin Bd. 43-22 Shinkey-dong Yongsan-ku ' Seoul 190-040 South KOREA ' Tel: +82-2-707-3882(Office) +82-2-701-8051(Show Room) ' Fax: +82-2-707-3884(Office) +82-2-701-8058(Show Room) ' Mail : sample@korea.com ' Web : HTTP://WWW.SAMPLE.CO.KR ' '------------------------------------------------------------------------------------ ' ' << 음게 코드 표 >> ' ' ||A| | |C||D| | |F||G||A| | |C||D| | |F||G||A| | |C||D| | |F||G||A| | |C||D| | ' ||2| | |3||3| | |3||3||3| | |4||4| | |4||4||4| | |5||5| | |5||5||5| | |6||6| | ' ||#| | |#||#| | |#||#||#| | |#||#| | |#||#||#| | |#||#| | |#||#||#| | |#||#| | '| | | | | | | | | | | | | | | | | | | | | | | | | | | '|A2|B2|C3|D3|E3|F3|G3|A3|B3|C4|D4|E4|F4|G4|A4|B4|C5|D5|E5|F5|G5|A5|B5|C6|D6|E6| '+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ' Butten_left Alias P3.1 ' 원쪽 버튼 Butten_right Alias P3.0 ' 오른쪽 버튼 Speaker Alias P3.7 ' 피에조 부져 ' ' ' Freq.Hz| Cycle mS| Factor '------------------------------------------------------------------------------------ Const A2 = 169 ' 110.000| 9.0909 | 169 Const A2s = 162 ' 116.541| 8.6643 | 162 Const B2 = 152 ' 123.471| 8.0990 | 152 '------------------------------------------------------------------------------------ Const C3 = 143 ' 130.818| 7.6445 | 143 Const C3s = 135 ' 138.591| 7.2154 | 135 Const D3 = 128 ' 146.832| 6.8105 | 128 Const D3s = 120 ' 164.814| 6.0217 | 120 Const E3 = 111 ' 164.814| 6.0217 | 111 Const F3 = 105 ' 174.614| 5.7269 | 105 Const F3s = 100 ' 184.997| 5.4054 | 100 Const G3 = 95 ' 195.998| 5.1020 | 95 Const G3s = 90 ' 207.652| 4.8157 | 90 Const A3 = 84 ' 220.000| 4.5454 | 84 Const A3s = 80 ' 233.082| 4.3321 | 80 Const B3 = 74 ' 246.942| 4.0495 | 74 '------------------------------------------------------------------------------------ Const C4 = 71 ' 261.626| 3.8222 | 71 Const C4s = 66 ' 277.183| 3.6077 | 66 Const D4 = 62 ' 293.665| 3.4052 | 62 Const D4s = 56 ' 329.628| 3.0108 | 54 Const E4 = 54 ' 349.228| 2.8634 | 51 Const F4 = 51 ' 369.994| 2.7027 | 48 Const F4s = 48 ' 369.994| 2.7027 | 48 Const G4 = 46 ' 391.995| 2.5510 | 46 Const G4s = 44 ' 415.305| 2.4078 | 44 Const A4 = 41 ' 440.000| 2.2727 | 41 Const A4s = 38 ' 466.164| 2.1660 | 38 Const B4 = 36 ' 493.883| 2.0247 | 36 '------------------------------------------------------------------------------------ Const C5 = 34 ' 523.251| 1.9111 | 34 Const C5s = 32 ' 554.365| 1.8038 | 32 Const D5 = 30 ' 587.330| 1.7026 | 30 Const D5s = 28 ' 622.254| 1.6070 | 28 Const E5 = 26 ' 659.255| 1.5054 | 26 Const F5 = 24 ' 698.456| 1.4317 | 24 Const F5s = 23 ' 739.989| 1.3513 | 23 Const G5 = 22 ' 783.991| 1.2755 | 22 Const G5s = 20 ' 830.609| 1.2039 | 20 Const A5 = 19 ' 880.000| 1.1363 | 19 Const A5s = 18 ' 923.328| 1.0830 | 18 Const B5 = 17 ' 987.767| 1.0123 | 17 '------------------------------------------------------------------------------------ Const C6 = 16 '1046.502| 0.9555 | 16 Const C6s = 15 '1108.731| 0.9019 | 15 Const D6 = 14 '1174.659| 0.8513 | 14 Const D6s = 13 '1244.508| 0.8035 | 13 Const E6 = 12 '1328.510| 0.7527 | 12 '------------------------------------------------------------------------------------ ' Dim I As Word Dim Ii As Word Dim Iii As Byte Dim J As Word Dim Jj As Word Dim Tt As Word Dim Noteon As Word Dim Rnum As Byte Dim Ty As Byte Dim Vvv As Byte Dim Blink_mode As Bit ' '==================================================================================== Reset Blink_mode ' Random Blink Mode Vvv = &H55 ' Main: ' '------------- 크리스마스 캐롤 - 징글벨 ------------------------------------------- Noteon = 50 Iii = G4 : Gosub Melody ' 힌 Iii = E5 : Gosub Melody ' 눈 Iii = D5 : Gosub Melody ' 사 Iii = C5 : Gosub Melody ' 이 Noteon = 200 Iii = G4 : Gosub Melody ' 로 Noteon = 50 ' Iii = G4 : Gosub Melody ' 썰 Iii = E5 : Gosub Melody ' 매 Iii = D5 : Gosub Melody ' 를 Iii = C5 : Gosub Melody ' 타 Noteon = 200 ' Iii = A4 : Gosub Melody ' 고 Noteon = 50 Iii = A4 : Gosub Melody ' 달 Iii = F5 : Gosub Melody ' 리 Iii = E5 : Gosub Melody ' 는 Iii = D5 : Gosub Melody ' 기 Noteon = 200 Iii = B4 : Gosub Melody ' 분 Noteon = 50 Iii = G5 : Gosub Melody ' 상 Iii = G5 : Gosub Melody ' 쾌 Iii = F5 : Gosub Melody ' 도 Iii = D5 : Gosub Melody ' 하 Noteon = 100 Iii = E5 : Gosub Melody ' 다 Noteon = 100 Iii = C5 : Gosub Melody ' Noteon = 50 Iii = G4 : Gosub Melody ' 종 Iii = E5 : Gosub Melody ' 이 Iii = D5 : Gosub Melody ' 울 Iii = C5 : Gosub Melody ' 려 Noteon = 200 Iii = G4 : Gosub Melody ' 서 Noteon = 50 Iii = G4 : Gosub Melody ' 장 Iii = E5 : Gosub Melody ' 단 Iii = D5 : Gosub Melody ' 맟 Iii = C5 : Gosub Melody ' 추 Noteon = 200 ' Iii = A4 : Gosub Melody ' 니 Noteon = 50 Iii = A4 : Gosub Melody ' 흥 Iii = F5 : Gosub Melody ' 겨 Iii = E5 : Gosub Melody ' 워 Iii = D5 : Gosub Melody ' 서 ' Iii = G5 : Gosub Melody ' 소 Iii = G5 : Gosub Melody ' 리 Iii = G5 : Gosub Melody ' 높 Iii = G5 : Gosub Melody ' 여 Iii = A5 : Gosub Melody ' 노 Iii = G5 : Gosub Melody ' 래 Iii = F5 : Gosub Melody ' 부 Iii = D5 : Gosub Melody ' 른 Noteon = 200 Iii = C5 : Gosub Melody ' 다 ' Noteon = 50 Iii = E5 : Gosub Melody ' 종 Iii = E5 : Gosub Melody ' 소 Noteon = 100 ' Iii = E5 : Gosub Melody ' 리 Noteon = 50 ' Iii = E5 : Gosub Melody ' 울 Iii = E5 : Gosub Melody ' 려 Noteon = 100 Iii = E5 : Gosub Melody ' 라 Noteon = 50 Iii = E5 : Gosub Melody ' 종 Iii = G5 : Gosub Melody ' 소 Iii = C5 : Gosub Melody ' 리 Iii = D5 : Gosub Melody ' 울 Noteon = 200 Iii = E5 : Gosub Melody ' 려 Noteon = 50 Iii = F5 : Gosub Melody ' 우 Iii = F5 : Gosub Melody ' 리 Iii = F5 : Gosub Melody ' 썰 Iii = F5 : Gosub Melody ' 매 Iii = F5 : Gosub Melody ' 빨 Iii = E5 : Gosub Melody ' 리 Iii = E5 : Gosub Melody ' 달 Iii = E5 : Gosub Melody ' 려 Iii = E5 : Gosub Melody ' 종 Iii = D5 : Gosub Melody ' 소 Iii = D5 : Gosub Melody ' 리 Iii = E5 : Gosub Melody ' 울 Noteon = 100 Iii = D5 : Gosub Melody ' 려 Iii = G5 : Gosub Melody ' 라 ' Noteon = 50 Iii = E5 : Gosub Melody ' 종 Iii = E5 : Gosub Melody ' 소 Noteon = 100 ' Iii = E5 : Gosub Melody ' 리 Noteon = 50 ' Iii = E5 : Gosub Melody ' 울 Iii = E5 : Gosub Melody ' 려 Noteon = 100 Iii = E5 : Gosub Melody ' 라 Noteon = 50 Iii = E5 : Gosub Melody ' 종 Iii = G5 : Gosub Melody ' 소 Iii = C5 : Gosub Melody ' 리 Iii = D5 : Gosub Melody ' 울 Noteon = 200 Iii = E5 : Gosub Melody ' 려 ' Noteon = 50 Iii = F5 : Gosub Melody ' 우 Iii = F5 : Gosub Melody ' 리 Iii = F5 : Gosub Melody ' 썰 Iii = F5 : Gosub Melody ' 매 ' Iii = F5 : Gosub Melody ' 빨 Iii = E5 : Gosub Melody ' 리 Iii = E5 : Gosub Melody ' 달 Iii = E5 : Gosub Melody ' 려 ' Iii = G5 : Gosub Melody ' 종 Iii = G5 : Gosub Melody ' 소 Iii = F5 : Gosub Melody ' 리 Iii = D5 : Gosub Melody ' 울 Noteon = 200 Iii = C5 : Gosub Melody ' 려 ' Waitms 1000 ' '----------------- 그 맑고 환한 밤 중에 --------------------------------------------- Noteon = 150 Iii = F4 : Gosub Melody ' 그 Noteon = 300 Iii = D5 : Gosub Melody ' 맑 Noteon = 150 Iii = C5 : Gosub Melody ' 고 Iii = C5 : Gosub Melody ' 환 Iii = A4s : Gosub Melody ' - Iii = G4 : Gosub Melody ' 한 Noteon = 300 Iii = F4 : Gosub Melody ' 밤 Noteon = 150 Iii = G4 : Gosub Melody ' 중 Noteon = 300 Iii = F4 : Gosub Melody ' 에 Noteon = 150 Iii = F4 : Gosub Melody ' 뭇 Iii = G4 : Gosub Melody ' 천 Iii = A4 : Gosub Melody ' - Iii = A4s : Gosub Melody ' 사 Iii = A4s : Gosub Melody ' 내 Iii = C5 : Gosub Melody ' - Iii = D5 : Gosub Melody ' 려 Noteon = 600 Iii = C5 : Gosub Melody ' 와 ' Noteon = 150 Iii = F4 : Gosub Melody ' 그 Noteon = 300 Iii = D5 : Gosub Melody ' 손 Noteon = 150 Iii = A4 : Gosub Melody ' 에 Iii = C5 : Gosub Melody ' 비 Iii = A4s : Gosub Melody ' - Iii = G4 : Gosub Melody ' 파 Noteon = 300 Iii = F4 : Gosub Melody ' 들 Noteon = 150 Iii = G4 : Gosub Melody ' 고 Noteon = 300 Iii = F4 : Gosub Melody ' 서 Noteon = 150 Iii = F4 : Gosub Melody ' 다 Noteon = 300 Iii = G4 : Gosub Melody ' 찬 Noteon = 150 Iii = G4 : Gosub Melody ' 송 Iii = A4 : Gosub Melody ' 하 Iii = G4 : Gosub Melody ' - Iii = F4 : Gosub Melody ' 기 Noteon = 600 Iii = A4s : Gosub Melody ' 를 ' Noteon = 150 Iii = D5 : Gosub Melody ' 평 Noteon = 300 Iii = D5 : Gosub Melody ' 강 Noteon = 150 Iii = D4 : Gosub Melody ' 의 Iii = D4 : Gosub Melody ' 왕 Iii = D4s : Gosub Melody ' - Iii = F4s : Gosub Melody ' 이 Noteon = 300 Iii = G4 : Gosub Melody ' 오 Noteon = 150 Iii = A4 : Gosub Melody ' 시 Noteon = 300 Iii = A4s : Gosub Melody ' 니 Noteon = 150 Iii = D5 : Gosub Melody ' 다 Iii = C5 : Gosub Melody ' 평 Iii = A4s : Gosub Melody ' - Iii = A4 : Gosub Melody ' 안 Iii = G4 : Gosub Melody ' 하 Iii = A4 : Gosub Melody ' - Iii = G4 : Gosub Melody ' 여 Noteon = 600 Iii = F4 : Gosub Melody ' 라 ' Noteon = 150 Iii = F4 : Gosub Melody ' 그 Noteon = 300 Iii = D5 : Gosub Melody ' 소 Noteon = 150 Iii = A4 : Gosub Melody ' 란 Iii = C5 : Gosub Melody ' 하 Iii = A4s : Gosub Melody ' - Iii = G4 : Gosub Melody ' 던 Noteon = 300 Iii = F4 : Gosub Melody ' 세 Noteon = 150 Iii = G4 : Gosub Melody ' 상 Noteon = 300 Iii = F4 : Gosub Melody ' 이 Noteon = 150 Iii = F4 : Gosub Melody ' 다 Noteon = 300 Iii = G4 : Gosub Melody ' 고 Noteon = 150 Iii = G4 : Gosub Melody ' 요 Iii = A4 : Gosub Melody ' 하 Iii = G4 : Gosub Melody ' - Iii = F4 : Gosub Melody ' 도 Noteon = 600 Iii = A4s : Gosub Melody ' 다 '------------------------------------------------------------------------------------ ' Waitms 1000 ' Goto Main ' '==================================================================================== Melody: ' 멜로디 발생 Ii = Iii Tt = 60 * Noteon Jj = Tt / Ii For J = 0 To Jj For I = 0 To Ii Next I Reset Speaker For I = 0 To Ii Next I Set Speaker Next J Waitms 100 Set Butten_left ' 원쪽 버튼 입력상태 준비 Set Butten_right ' 오른쪽 버튼 입력상태 준비 If Butten_left = 0 Then Set Blink_mode End If If Butten_right = 0 Then Reset Blink_mode End If If Blink_mode = 0 Then ' 랜덤 표시모드 Rnum = Rnum + Rnd(100) P1 = Rnum Ty = Rnum + 77 P3 = Ty Or &B10000000 Else Rotate Vvv , Right , 1 ' 회전 표시모드 P1 = Vvv P3 = Vvv Or &B10000000 End If Return '====================== End of FILE =================================================