Здесь можно немножко помяукать :)
https://radiokot.ru/forum/
Код: Выделить всё
Do
If X = 1 Then Gosub Label1
If X = 0 Then Gosub Label2
S = 0
Loop
Buttons:
If Knopka = 0 Then
Waitms 100
Incr S
If S <= 5 Then
X = 1
S = 0
Else
X = 0
End If
End If
ReturnНе пойму, если Config Int0 = Falling, то когда же S станет больше 5-ти ?Magicanin писал(а):Попробуй так:
Она вообще станет больше 5-ти?Magicanin писал(а):If Knopka = 0 Then
Waitms 100
Incr S
If S <= 5 Then
X = 1
S = 0
Else....
Железа-то не видно! Где у Вас кнопки? Их две или одна?Smokeman писал(а):Устройство сделано в железе, по внешним признакам переходит сразу на Label2. На кнопки ни как не реагирует.
спасибо огромное.... давно знаю этот сайт, но не обратил внимания, что там тоже 3х вольтовый экран....Magicanin писал(а):Пример на дисплее LS020
http://robozone.su/2009/03/02/modul-dlj ... ls020.html
спаибоWladimir_TS писал(а):kkozyrev писал(а):а можно схемку посмотреть подключения?
или может просто в линии данных воткнуть резисторы по 10к ???
С ноги МК на вывод индикатора идет резисторЮ а с вывода индикатора на землю - еще один. Отношение сопротивлений как (Rна инд. + Rна земл.)/Rна земл = 5/3,3. Выбирал для тока через делитель миллиампер 5 - что-б зело фронты не валились.
)пробую АЦП так в принципе всё понятно вот только как вывести на индикатор нормальное значение напряжения,а не цифровой код АЦП и ещё пытался выполнить кое какие арифметические операции ,в частности эту формулу U^2/ 50 (ВЧ мощность передатчика высчитывает это так к примеру)так там опять что то не выходит,что я не так делаю подскажите????
Код: Выделить всё
$regfile = "m8def.dat" ' atmega8
$crystal = 1000000 ' частота установленного кварца 1 mHz
'указываем конфигурацию подключения дисплея к портам МК
Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0
Config Lcd = 16 * 2 'используем дисплей на 2 строчки по 16 знакомест в каждой
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'конфигурация АЦП
'объявляем переменные
Dim W As Word
Dim W1 As Word
Dim W2 As Word
Start Adc 'запускаем аналого-цифровое преобразование
'--------------выводим заставку-------------------------------
Wait 1 'задержка 1 секунда
Cursor Off 'отключаем отображение курсора на ЖК
Cls 'очитка дисплея
Deflcdchar 0 , 4 , 14 , 27 , 17 , 17 , 31 , 17 , 17
Deflcdchar 1 , 18 , 18 , 18 , 18 , 18 , 18 , 30 , 3
Deflcdchar 2 , 31 , 17 , 17 , 17 , 17 , 17 , 17 , 17
Deflcdchar 3 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4
Deflcdchar 4 , 31 , 16 , 16 , 31 , 31 , 16 , 16 , 31
Deflcdchar 5 , 31 , 16 , 16 , 16 , 16 , 16 , 16 , 31
Deflcdchar 6 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4
Cls
Locate 1 , 4
Lcd Chr(0) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(4) ; Chr(5) ; Chr(6)
Wait 2 'задержка 2 секунды
'-------------------------------------------------------------
'главный цикл программы
Do
W = Getadc(0)
Locate 1 , 1 : Lcd "" ; W ; "V"
W1 = W * W
W2 = W1 / 50 :
Lcd "; " ; W2 ; "Wt"
Waitms 100 ' зедержка 0,1 секунды
Loop
End
Расчет переменной я же давал коэф для 50В (5/1023)*10 где 10 это делительAleks8383 писал(а):Честно так и не понял как коэф.берутся??? 0.0489 это откуда взято из практики?А как на счёт арифметики?