Зарегистрирован: Вс сен 10, 2006 00:04:03 Сообщений: 493
Рейтинг сообщения:0
SOUND
Action
Sends pulses to a port pin.
Syntax
SOUND pin, duration, pulses
Remarks
Pin
Any I/O pin such as PORTB.0 etc.
Duration
The number of pulses to send. Byte, integer/word or constant.
Pulses
The time the pin is pulled low and high.
This is the value for a loop counter.
When you connect a speaker or a buzzer to a port pin (see hardware) , you can use the SOUND statement to generate some tones.
The port pin is switched high and low for pulses times.
This loop is executed duration times.
The SOUND statement is not intended to generate accurate frequencies. Use a TIMER to do that.
See also
NONE
Example
'----------
'name : sound.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : SOUND
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'----------
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim Pulses As Word , Periods As Word
Pulses = 65535 : Periods = 10000 'set variables
Speaker Alias Portb.1 'define port pin
Sound Speaker , Pulses , Periods 'make some noice
'note that pulses and periods must have a high value for high XTALS
'sound is only intended to make some noise!
'pulses range from 1-65535
'periods range from 1-65535
End
Упс! Я ОЧЕНЬ разочарован в способностях автора данного поста. По крайней мере, можно было пустые строки убрать...Недоумевающий Сэр Мурр
ой влетит вам от мышонка за этот пост, уже писалось неоднократно, что б такие вещи сохранялить в текстовике или еще каком редакторе, и цеплять к сообщению, потому как один такой пост целую страницу изводит
SAU не мог бы ты написать как работать по i2с,да и с другими портами, интересует такие стороны как программы таймеров и частотомеров на барсике..Ждём продолжение с нетерпением.Побаловался в симуляторе с прогой и второго доковского файла-прикольно,а как можно ещё другого типа индикаторы прикручивать?Ивиняюсь,если я слишком разогнался.
Зарегистрирован: Вс сен 10, 2006 00:04:03 Сообщений: 493
Рейтинг сообщения:0
sinobi писал(а):
SAU не мог бы ты написать как работать по i2с,да и с другими портами, интересует такие стороны как программы таймеров и частотомеров на барсике..Ждём продолжение с нетерпением.Побаловался в симуляторе с прогой и второго доковского файла-прикольно,а как можно ещё другого типа индикаторы прикручивать?Ивиняюсь,если я слишком разогнался.
Частотомер писать на бейсике бессмысленно.Его нужно писать на асме.
Тем более, что у АВР синхронные счетчики и больше 1 Мгц ты не измеришь.
Конфигурирование портов очень простое - пишешь PortB=Output - и он настроен на выход, пишешь PortB=Input и он настроен на вход.Также можно настривать и отдельные пины.
Честно признавшись - лучше чем Кулиш я вряд ли напишу.Да и огромное количество апноутов могут помочь.
Если будет время - нарисую схему какой-нибудь охранной сигнализации, скажем на меге8, и попробуем разобрать.Но опять же - когда будет свободное время.
ЗЫ.Bascom , микроконтроллеры , ВЧ техника это всего лишь хобби, которому я отдаю свободное время когда оно появляется, к сожалению не очень часто.
Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей.
Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре.
Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств.
Замечание по III части.
SAU! ты жаловался в статье, что нет оператора сдвига битов в байте. Есть только функция rotate, но она перемещает бит с конца в начало и наоборот. Так вот, необходимый тебе оператор называется Shift и пример его использования находится в файле rotate.bas
Код:
B = 128 Shift B , Left Print B 'B should be 0 now
Вот результат. А если бы ты сделал это функцией rotate, то значение переменной было бы 1.
Кто могбы помоч с компиляцыей програмы ? Я больше уделяю написанию на си ну тут понадобилась скомпилировать программу на бейсике.Если кто возмется пожалуста подправте контролер с ATMEGA32 на ATMEGA128
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 40
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения