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

[ Новые сообщения · Участники · Правила форума · Поиск · 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
Bogdanivf Дата: Чт, 09.11.2023, 09:18  |                                                                                                                Сообщение # 217
Группа: Заблокированные
Ранг:  Пытаюсь разобраться
Сообщений: 42
Репутация: 0   ±
Замечания:   ±
На сайте с 19.04.2021

Статус: Offline

Привет друзья.

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


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