Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 15 из 15
  • «
  • 1
  • 2
  • 13
  • 14
  • 15
Модератор форума: ivan_fd  
Форум Picbasic.ru » Программирование МК » PicBasicPro » Cчет импульсов (счет импульсов)
Cчет импульсов
DeveloperX Дата: Чт, 05.06.2008, 16:05  |                                                                                                                Сообщение # 211
Группа: Пользователи
Ранг:  Могу и подсказать
Сообщений: 149
Репутация: 1   ±
Замечания:   ±
На сайте с 25.10.2007

Статус: Offline

Yrok, не помогло!!!
вот все исходники
Прикрепления: voltmeter.zip (37.9 Kb)
ЯНДЕКС Дата: 05.06.2008
holyuser Дата: Чт, 05.06.2008, 22:28  |                                                                                                                Сообщение # 212
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 228
Репутация: 5   ±
Замечания:   ±
На сайте с 12.12.2007

Статус: Offline

Вот что у меня получилось:


Code

'****************************************************************
'*  Name    : VoltMeter.pbp                    
'*  Author  : Never Mind                    
'*  Notice  : Copyright (c) 2008 Absolutely Free                 
'*  Date    : 05.6.2008 г.                    
'*  Version : 1.0                    
'*  Notes   : PIC16F676 & LCD 16x2                    
'****************************************************************

   DEFINE  OSC 4
   DEFINE  OSCCAL_1K 1     
   DEFINE  NO_CLRWDT 1

   DEFINE  LCD_DREG    PORTC
   DEFINE  LCD_DBIT    0
   DEFINE  LCD_RSREG    PORTC
   DEFINE  LCD_RSBIT    4
   DEFINE  LCD_EREG    PORTC
   DEFINE  LCD_EBIT    5
   DEFINE  LCD_BITS    4
   DEFINE  LCD_LINES    2
   DEFINE  LCD_COMMANDUS    2000
   DEFINE  LCD_DATAUS    50

   DEFINE  ADC_BITS 10
   DEFINE  ADC_CLOCK 3
   DEFINE  ADC_SAMPLEUS 50

   voltage   VAR WORD
   i         VAR WORD
   dummy     VAR WORD
   disp      VAR WORD
   scale     CON 6826

   OPTION_REG = %10000000
   PIE1 = 0
   TRISA = %00111111
   TRISC = %00000000
   ANSEL = 1
   PORTC = 0
   CMCON = 7
   ADCON0 = %10000001
   i = 10000

begin:
   ADCIN 0,voltage
   dummy = voltage * i
   disp = DIV32 scale
   LCDOUT $FE,128,"Input Voltage > "
   LCDOUT $FE,192,"  ",#(disp DIG 3),#(disp DIG 2),","_
   ,#(disp DIG 1),#(disp DIG 0)," Volts  "
   PAUSE 1000
   GOTO begin
    
   END

Добавлено (06.06.2008, 0:17:55)
---------------------------------------------
Все работает нормально... happy

Добавлено (06.06.2008, 4:28:39)
---------------------------------------------
А вот и схема:

DeveloperX Дата: Пт, 06.06.2008, 10:43  |                                                                                                                Сообщение # 213
Группа: Пользователи
Ранг:  Могу и подсказать
Сообщений: 149
Репутация: 1   ±
Замечания:   ±
На сайте с 25.10.2007

Статус: Offline

всё понятно, кроме этого:
Quote (holyuser)
i = 10000
holyuser Дата: Пт, 06.06.2008, 11:20  |                                                                                                                Сообщение # 214
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 228
Репутация: 5   ±
Замечания:   ±
На сайте с 12.12.2007

Статус: Offline

Дело в том, что в PicBasic-е - только целые числа (без знака), а WORD макс. 65535.
Чтобы получить необходимое количество разрядов в результате, и при том минимизировать неточность округления
при вычислениях, в некоторых случаях приходится прибегать к таким вот приемам.

В нашем случае константа scale = 2^n/(Uref*Kd) = 68.26666(6)
где:
n=10 - разрядность АЦП
Uref=5V - опорное напряжение (в нашем случае это VDD)
Kd=3 - коэффициент деления входного напряжения резистивным делителем: Kd=(R1+R2)/R2

Ясно, что такое значение scale непригодно для непосредственного использования в программе.
Поэтому scale нужно сначала умножить на подходящее число 10^m, и при вычислениях учитывать это,
чтобы не превысить ограничения PicBasic-а.
Вот откуда i=10000

Хотя, наверно, можно сделать и по-другому, но это вопрос вкуса...

Сообщение отредактировал holyuser - Пт, 06.06.2008, 11:24
DeveloperX Дата: Вт, 10.06.2008, 15:00  |                                                                                                                Сообщение # 215
Группа: Пользователи
Ранг:  Могу и подсказать
Сообщений: 149
Репутация: 1   ±
Замечания:   ±
На сайте с 25.10.2007

Статус: Offline

holyuser, БОЛЬШУЩЕЕ спасибо!!!
всё получилось!!!
cjvjd Дата: Ср, 30.07.2008, 00:19  |                                                                                                                Сообщение # 216
Группа: Удаленные
Ранг: 
Сообщений:
Репутация:   ±
Замечания:   ±
На сайте с

Статус:

Здравствуйте!
Объясните, пожалуйста, программа microbasic compiler for pic ver. 7.0.0 ну ни как не хочет понимать COUNT и PULSIN или у этой программы есть другая команда? В helpe этих команд также нет. Заранее спасибо. Владимир Москва. surprised
Bogdankul Дата: Пт, 03.06.2022, 17:52  |                                                                                                                Сообщение # 217
Группа: Заблокированные
Ранг:  Пытаюсь разобраться
Сообщений: 41
Репутация: -3   ±
Замечания:   ±
На сайте с 22.10.2019

Статус: Offline

Добрый день друзья.

Есть такой интересный сайт для заказа услуг стоматологии в Минске.К вашим услугам лучшие стоматологи Минска с многолетним стажем.стоматология минск,удаление зуба, отбеливание зубов,лечение зуба,удаление зуба мудрости,стоматология минск цены и стоматология платные услуги минск.
В случаях, когда терапевтическая стоматология бессильна, приходится прибегать к хирургической. А если зубосохраняющие операции не принесут результата, прибегают к удалению зуба.Необходимость вырвать зуб возникает при:полном или сильном разрушении кариесом;наличии кисты;острых формах периодонтита;количестве зубов выше нормы;неправильном расположении в десне — актуально для зубов мудрости, нередко растущих перпендикулярно основному зубному ряду;установке брекет-системы или зубного протеза;физическом травмировании, смещении в десне, невозможности восстановительной операции.Рекомендации после удаления.После операции в десне остается открытая лунка, на которую иногда накладываются швы. Нежелательно касаться лунки языком, дав сформироваться кровяному сгустку. По той же причине рекомендуется не принимать пищу на протяжении 3-4 часов после посещения стоматолога. Необходимо некоторое время воздерживаться от горячей еды и напитков, а также алкоголя. Несоблюдение рекомендации приведет к увеличению периода заживления и болезненным ощущениям.Качественно и безопасно вырвать зуб в Минске можно платно. Цена удаления зуба в стоматологии зависит от количества корней, расположения, сложности удаления. Операция проводится квалифицированными хирургами-стоматологами.
Увидимся!
индивидуальная гигиена полости рта при пародонтите
отбеливание зубов яблоком
отбеливание зубов дентал
коррекция зубных протезов съемных цена
хирургический шаблон зуба
циркониевые коронки минск
снятие наддесневых зубных отложений
протез зубной съемный на присосках
кариес после пломбирования зуба
сколько проходит анестезия зуба
снимок зуба удаление
амбулаторные зубные хирургические операции
чувствительность зубов причины и лечение
имплантация зубов стоимость цены
удаление зуба мудрости стоимость
стоматологическая имплантация зубов
преимущества металлокерамических коронок
имплантация зубов с пластикой
удаление кисты зуба
ультразвуковое снятие зубных отложений
съемные зубные протезы на имплантах
имплантация зубов adin
заложили лекарство после удаления зуба
воспаление десна зуб удаление
удаление ретинированных зубов минск
удаление 7 зуба цена
отбеливание зубов картинки
металлокерамика зубы штифт
протезирование зубов металлокерамика цены
отбеливание чувствительных зубов
детская стоматология гигиена полости рта
болит зуб после пломбирования каналов
изготовить съемный зубной протез
съемные зубные протезы
протезирование зубов на 6 имплантах
удаление капюшона зуба
зубной съемный протез акри
съемные зубные протезы самые дорогие
бюгельные зубные протезы на верхнюю челюсть цена
лечение периодонтита стадии
корректировка съемных зубных протезов
кусок зуба после удаления
имплантация 1 зуба
безметалловая пресс керамика
лечение пульпита взрослым
натирает зубной протез съемный нижний
имплантация зубов верхней челюсти
зуб мудрости удаление гайморита
уход после имплантации зубов
композитные виниры цена


магнитоэлектрические измерительные приборы
Antonionwo Дата: Ср, 22.06.2022, 00:16  |                                                                                                                Сообщение # 218
Группа: Пользователи
Ранг:  Начал соображать
Сообщений: 31
Репутация: 0   ±
Замечания:   ±
На сайте с 31.01.2021

Статус: Offline

Приветствую Вас дамы и господа!
Предлагаем Вашему вниманию замечательный сайт https://dengi-do-zarplaty.ru/
Отличные наличные – ведущая компания в сфере микрокредитования, деньги будут у вас на карте через 15 минут. Оформить займ можно круглосуточно, в выходные и праздники.Мы применяем самые передовые технологии, чтобы вы могли за 15 минут получить займ на карту или наличными.Наш сервис доступен везде где есть интернет, получить деньги можно в одном из наших отделений или круглосуточно не выходя из дома.


тонировка окон пвх
Antoniocgi Дата: Ср, 22.06.2022, 01:11  |                                                                                                                Сообщение # 219
Группа: Пользователи
Ранг:  Пытаюсь разобраться
Сообщений: 40
Репутация: 0   ±
Замечания:   ±
На сайте с 08.10.2020

Статус: Offline

Добрый день друзья!
Предлагаем Вашему вниманию замечательный сайт https://dengi-do-zarplaty.ru/
Первое, что приходит в голову – это обратиться в банк. Но здесь есть нюансы. Чтобы оформить деньги в кредит в банке, понадобиться время, которого иногда нет. Или к примеру, если человек имеет плохую кредитную историю, банк однозначно не одобрит ему запрашиваемые средства. Получить желаемую сумму будет также сложно тем, кто не имеет официальной работы и постоянного дохода.Если в Ваши планы входит взять деньги в долг без банков и поручителей, в таком случае единственным выходом из ситуации будет - оформление микрозайма в МФО. Все выше перечисленные категории заемщиков, которые считаются максимально рискованными для банковского сектора, в МФО получают положительное решение по выдачи средств.


пленка 3м для авто
Victoregc Дата: Ср, 22.06.2022, 02:52  |                                                                                                                Сообщение # 220
Группа: Заблокированные
Ранг:  Начал соображать
Сообщений: 37
Репутация: 0   ±
Замечания:   ±
На сайте с 27.11.2020

Статус: Offline

Доброго времени суток дамы и господа!
Есть такой интересный сайт https://dengi-do-zarplaty.ru/
Займ на карту онлайн – популярная микрофинансовая услуга. Ее основными достоинствами, по сравнению с обычным банковским кредитом, выступают: оперативность выдачи денег на карточку и доступность большей части потенциальных заемщиков, включая проблемных, то есть имеющих плохую кредитную историю, текущие долги и непогашенные финансовые обязательства.Займы на карту стали реальной возможностью получить деньги не в банке, что требует много времени и доступно далеко не всем. Важным дополнением становится минимум формальностей при получении займа и лояльность со стороны МФО по отношению к потенциальным клиентам. Получить быстрый займ на карту онлайн можно в случае острой нехватки денежных средств, например, при задержке зарплаты, при обнаружении болезни и т.д.


декоративная пленка для стекла купить
Antonioedv Дата: Ср, 22.06.2022, 16:12  |                                                                                                                Сообщение # 221
Группа: Заблокированные
Ранг:  Пытаюсь разобраться
Сообщений: 46
Репутация: 0   ±
Замечания:   ±
На сайте с 01.04.2021

Статус: Offline

Здравствуйте господа!
Есть такой замечательный сайт https://dengi-do-zarplaty.ru/
Конечно, никто не хочет давать деньги в долг и особенно никому не хочется брать их взаймы. Но иногда ситуация решает за нас и приходится очень срочно искать, откуда взять деньги. В первую очередь обычно обращаются к родственникам, друзьям, коллегам по работе, партнерам по бизнесу, но во многих случаях они могут отказать. Хорошим выбором будет обратиться в финансовую компанию, в которой можно на выгодных условиях взять кредит, чтобы улучшить свое положение. Причем важно не только оформить кредит быстро с хорошими требованиями, но и взять кредит наличными под низкий процент. Никто не хочет влезать в долги, которые еще не понятно, как придется отдавать.


пленка защитная xperia
ЯНДЕКС Дата: 22.06.2022
Bogdanvrw Дата: Пт, 25.11.2022, 02:32  |                                                                                                                Сообщение # 222
Группа: Заблокированные
Ранг:  Пытаюсь разобраться
Сообщений: 46
Репутация: -3   ±
Замечания:   ±
На сайте с 21.05.2020

Статус: Offline

Здравствуйте дамы и господа.

Предлагаем Вашему вниманию интересный сайт для заказа услуг стоматологии в Минске.К вашим услугам лучшие стоматологи Минска с многолетним стажем.стоматология минск,удаление зуба, отбеливание зубов,лечение зуба,удаление зуба мудрости,стоматология минск цены и стоматология платные услуги минск.
Перед нами поставлена амбициозная задача: создать самую лучшую стоматологическую службу в Беларуси. И с каждым днем мы приближаемся к своей цели.Последние десять лет наблюдается большой спрос на оказание стоматологических услуг – только в одном Минске сегодня действует около двухсот зубных клиник и частных кабинетов. Наличие огромной конкуренции привело к тому, что Дентистри отвечает самым высоким стандартам качества.Мы уделяем большое внимание профессиональному развитию команды, для чего регулярно направляем сотрудников на обучение и мастер-классы как в Беларуси, так и за рубежом. Хирурги и ортопеды успешно прошли необходимое обучение и имеют допуски к осуществлению одномоментной имплантации и применению систем All-on-4 и All-on-6. Все доктора и медицинские сестры имеют первую квалификационную категорию.Выделим три наиболее важных:Специализация на решении сложнейших клинических случаев имплантации и протезирования.Принятая к исполнению политика качества и внедрение аналитических инструментов позволяет нам спрогнозировать возможные риски и принять наиболее оптимальный вариант. Многие наши Клиенты рассказывали, что по своему месту жительства им просто отказывали в лечении!Демократичная ценовая политика.Мы грамотно оптимизировали рабочий процесс и снизили затраты. У нас единый прейскурант вне зависимости от гражданства пациента;Гарантийная поддержка пациентов.На медицинские услуги предоставляются широкие гарантии. В случае наступления гарантийного случая все работы будут проведены бесплатно.За последние два года мы стали реальными лидерами в организации и проведении стоматологического лечения. Мы приняли пациентов из России, Казахстана, Украины, Литвы, Латвии, Эстонии, Польши, Германии, Швеции, Финляндии, Израиля, США, Канады, Австралии и еще десятка государств. Кроме того, к нам обращаются и со всех уголков Беларуси.По результатам проведенного в ноябре-декабре 2018 года опроса пациентов получили великолепную оценку работы: 96,4% респондентов поставили нам высшую оценку. Большое вам спасибо за доверие!самостоятельно оказывает сервисные услуги по организации лечения “под ключ”: дистанционные бесплатные консультации, трансферы, прохождение дополнительного медицинского обследования в Минске.формируем положительный имидж белорусской стоматологии и медицинской отрасли в целом. Мы открыты всему миру.Популярные стоматологические услуги в Беларуси.Самой популярной стоматологической услугой, несомненно, является имплантация зубов. Благодаря высокому качеству работ, гарантии положительного результата мы заслужили уважение и отличную репутацию среди Клиентов.Мы работаем с линейкой имплантов Megagen, Noris, а также системой премиум-уровня Straumann и Nobel. В нашем распоряжении собственные зуботехническая лаборатория и рентген-кабинет с компьютерным томографом последнего поколения.
От всей души Вам всех благ!
мост керамических коронок
стоматологии г минска
как ставят циркониевые коронки
снять керамическую коронку
ремонт съемных зубных протезов цены
удаление поврежденного зуба
обезболивающее перед удалением зуба
косметическое отбеливание зубов цена
керамические виниры стоимость
пломбирование коренных зубов
комплексная профессиональная гигиена полости рта
удаление корня зуба цена
удаление зуба без анестезии
полный съемный протез зубной акри фри
металлокерамическая коронка цена
онемение после удаления зуба мудрости
отбеливание зубов ультразвуком
установка имплантата после удаления зуба
керамические коронки на каркасе
съемные зубные протезы дешево
пломбирование зуба пастой
определение профессиональной гигиены полости рта
верхний съемный зубной протез на имплантах
стоматология отбеливание зубов цены
удаление зуба мудрости губка
металлокерамика на жевательные зубы
после удаления зуба надо полоскать
хирургия стоматология
удаление 37 зуба
простое удаление многокорневого зуба
гемостатическая губка после удаления зуба
керамические виниры купить
установка импланта straumann
после удаления 3 зубов
удаление ретинированного зуба мудрости
качественное отбеливание зубов
состояние гигиены полости рта
лечение корневых каналов зуба цена
анестезия перед удалением зуба
скол на металлокерамической коронке
срочное удаление зуба минск
имплантат после удаления зуба
полоски для отбеливания зубов 3d
установка металлокерамической коронки
имплантация удаленного зуба
можно ли лечить зубы с анестезией
при удалении зуба остался осколок
удаление зуба ультразвуком
разница между циркониевой коронкой и металлокерамикой
без съемные зубные протезы


сверло по дереву 30 купить
Antoniolec Дата: Ср, 12.04.2023, 07:31  |                                                                                                                Сообщение # 223
Группа: Пользователи
Ранг:  Пытаюсь разобраться
Сообщений: 38
Репутация: 0   ±
Замечания:   ±
На сайте с 18.06.2021

Статус: Offline

Приветствую Вас господа! https://r-notebook.ru/
Сервисный центр «Р-Ноутбук» срочно придет на помощь, если у вас сломался ноутбук или ультрабук. Вы можете вызвать мастера, если техника не включается, зависает или тормозит, выдает ошибки. Он оперативно устранит неисправность и предоставит гарантию до 1 года, которая действует на услуги и комплектующие.Специалисты сервиса обладают значительным опытом в сфере ремонта ноутбуков. Они восстанавливают девайсы разных брендов и моделей. Большинство неисправностей инженеры ликвидируют на дому клиентов в Москве. Если поломка серьезная – они бесплатно доставят технику в мастерскую. Мы выполняем программный и аппаратный ремонт девайсов, проводим чистку с заменой термопасты, апгрейд. Стаж и квалификация наших сотрудников позволяют оперативно ликвидировать поломки любой сложности. Более подробная информация о том, чем мы занимаемся, здесь: https://r-notebook.ru/.
Хорошего дня!


водопонижение минск
Antoniobtl Дата: Ср, 12.04.2023, 19:57  |                                                                                                                Сообщение # 224
Группа: Заблокированные
Ранг:  Начал соображать
Сообщений: 37
Репутация: 0   ±
Замечания:   ±
На сайте с 19.06.2021

Статус: Offline

Приветствую Вас господа! https://r-notebook.ru/
Сервисный центр «Р-Ноутбук» оказывает услуги по ремонту техники на дому и в мастерской в Москве. Обращайтесь к нам, если ноутбук вышел из строя – перестал запускаться, выдает ошибки, зависает и тормозит или показывает синий экран. В комплекс услуг компании входит ремонт, апгрейд, чистка игровых, профессиональных ноутбуков, а также ультрабуков. Мы работаем с техникой разных брендов и моделей.В нашей команде – только опытные сотрудники, которые легко справляются даже со сложными задачами. Специалисты со стажем от 5 лет оперативно и качественно устранят программные и аппаратные неисправности с использованием оригинальных компонентов. У нас – собственный склад брендовых комплектующих, которые мы используем для замены. Поэтому искать и заказывать запчасти не понадобится. Подробная информация об услугах сервиса – на сайте https://r-notebook.ru/. Обращайтесь!
Увидимся!


воду в дом из скважины цена
Форум Picbasic.ru » Программирование МК » PicBasicPro » Cчет импульсов (счет импульсов)
  • Страница 15 из 15
  • «
  • 1
  • 2
  • 13
  • 14
  • 15
Поиск: