Зарегистрирован: Вс сен 10, 2006 00:04:03 Сообщений: 492
Рейтинг сообщения: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 Сообщений: 492
Рейтинг сообщения:0
sinobi писал(а):
SAU не мог бы ты написать как работать по i2с,да и с другими портами, интересует такие стороны как программы таймеров и частотомеров на барсике..Ждём продолжение с нетерпением.Побаловался в симуляторе с прогой и второго доковского файла-прикольно,а как можно ещё другого типа индикаторы прикручивать?Ивиняюсь,если я слишком разогнался.
Частотомер писать на бейсике бессмысленно.Его нужно писать на асме.
Тем более, что у АВР синхронные счетчики и больше 1 Мгц ты не измеришь.
Конфигурирование портов очень простое - пишешь PortB=Output - и он настроен на выход, пишешь PortB=Input и он настроен на вход.Также можно настривать и отдельные пины.
Честно признавшись - лучше чем Кулиш я вряд ли напишу.Да и огромное количество апноутов могут помочь.
Если будет время - нарисую схему какой-нибудь охранной сигнализации, скажем на меге8, и попробуем разобрать.Но опять же - когда будет свободное время.
ЗЫ.Bascom , микроконтроллеры , ВЧ техника это всего лишь хобби, которому я отдаю свободное время когда оно появляется, к сожалению не очень часто.
Качественное и безопасное устройство, работающее от аккумулятора, должно учитывать его физические и химические свойства, профили заряда и разряда, их изменение во времени и под влиянием различных условий, таких как температура и ток нагрузки. Мы расскажем о литий-ионных аккумуляторных батареях EVE и нескольких решениях от различных китайских компаний, рекомендуемых для разработок приложений с использованием этих АКБ. Представленные в статье китайские аналоги помогут заменить продукцию западных брендов с оптимизацией цены без потери качества.
Компания 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
Сейчас этот форум просматривают: Varlakotam и гости: 36
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения