'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2019 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 28.10.2019 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** Device = 16F876 ' Сконфигурировать программу для микроконтроллера 16F873A. Xtal = 4 ' Использовать кварцевый резонатор 4 МГц. '-------------------------------------- Определение переменных -------------------------------------- Dim LOOP As Byte ' Создать переменную LOOP типа Byte. Symbol PIN = PORTA.4 ' Присвоить выводу RA.1 псевдоним PIN. TRISA = %00000000 PORTA = %00000000 TRISB = %00000000 PORTB = %00000000 TRISC = %00000000 PORTC = %00000000 ' trisd = %00000000 ' portd = %00000000 ' trise = %00000000 ' porte = %00000000 '---------------------------Музыкальная композиция "СЛЕДУЮЩЕЕ ПОКОЛЕНИЕ..." --------------------------- Thema: ' Метка начала главной программы. Sound PIN, [50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160] ' Первый музык. фрагмент. DelayMS 2000 ' Пауза 2 сек. For LOOP = 128 To 255 ' Цикл генерации спектра белого шума. Sound PIN, [LOOP,2] ' Имитировать белым шумом с повышающимся тоном пролетающий в высоте объект. Длительностью каждой ' отдельной звуковой частоты в сгенерированном шуме равна 2 х 10 мс = 20 мс. Next ' Если весь цикл генерации белого шума не закончен, то продолжить генерацию, иначе перейти к выполнению ' следующего опретора. DelayMS 2000 ' Пауза 2 сек. Sound PIN, [43,80,63,20,77,20,71,80,51,20,_ ' Второй музыкальный фрагмент 90,20,85,140,77,20,80,20,85,20,_ 90,20,80,20,85,60,90,60,92,60,87,_ 60,96,70,0,10,96,10,0,10,96,10,0,_ 10,96,30,0,10,92,30,0,10,87,30,0,_ 10,96,40,0,20,63,10,0,10,63,10,0,_ 10,63,10,0,10,63,20] DelayMS 6000 ' Пауза 6 сек GoTo Thema ' Повторить музыкальную тему (мелодию) End