константин_KoSS_89 писал(а):Да на пальцах я понимаю, нужно в деле, продолжаем поиск...
vanyap1 писал(а):Появилась у меня вот проблема. 2 месяца тому сделал блок управления насосом с электро-механическим манометром. Насос стоит в санатории, качает минеральную воду с давлением 6 кг/см2 (включен через блок плавного пуска). Так вот, манометр не дает качественный сигнал и стрелка при небольшой разнице давлений (мин-макс) прыгает и контроллер постоянно меняет состояние устройства плавного пуска и двигатель воет.
vanyap1 писал(а):манометр не дает качественный сигнал и стрелка при небольшой разнице давлений (мин-макс) прыгает и контроллер постоянно меняет состояние устройства
Код: Выделить всё
If Min_p = 1 Then : Waitms 200 : Set Nasos : End If
If Max_p = 1 Then : Waitms 200 : Reset Nasos : End IfКод: Выделить всё
A = 50
1:
Do
If Plus = 1 Then : Goto Sta_t : End If
If Minus = 1 Then : Goto St_p : End If
Gosub Displey
Loop
Sta_t:
C = 0
Do
If Plus = 1 Then
If Plus = 1 And Minus = 1 Then : Waitms 200 : Goto Conf_g : End If
Incr C
If C > A Then
C = 0
X = 255
Goto 1
End If
Gosub Displey
Else
Goto 1
End If
Loop
St_p:
C = 0
Do
If Minus = 1 Then
If Plus = 1 And Minus = 1 Then : Waitms 200 : Goto Conf_g : End If
Incr C
If C > A Then
C = 0
X = 0
Goto 1
End If
Gosub Displey
Else
Goto 1
End If
Loop
Displey:
Locate 1 , 1
Lcd "Nasos c=" ; C ; " "
Locate 2 , 1
Lcd "status = " ; X ; " "
Pwm1a = X
Return
Conf_g:
Cls
Do
Incr C
If Plus = 1 Then : Waitms 75 : C = 0 : Incr A : End If
If Minus = 1 Then : Waitms 75 : C = 0 : Decr A : End If
If C = 150 Then : Goto 1 : End If
Locate 1 , 1 : Lcd "Set"
Locate 2 , 1 : Lcd "wait = " ; A ; " "
Loop
uni писал(а):Я там написал свои функции для работы с LCD, т.к. первый раз пишу на Bascom AVR и понятия не имею как запустить библиотечные для моей конфигурации.
Это же бубльгум Си чистой воды. 
uni писал(а):И где у меня тама Си?
Я же не имел ввиду что код на Си, я к тому что _delay_us, ==, PROGMEM и прочее не спутаешь ни с чем. Вообще спасибо, интересно покопаться будет. Код: Выделить всё
' // Port C Data Direction Register
' // [ Регистр направления порта C ][ATmega16]
' // 00000000 - Initial Value
DDRC = &B01000000
' // ||||||||
' // |||||||+- 0, rw, DDC0: (SCL) - SCL
' // ||||||+-- 1, rw, DDC1: (SDA) - SDA
' // |||||+--- 2, rw, DDC2: (TCK) - JTAG
' // ||||+---- 3, rw, DDC3: (TMS) - JTAG
' // |||+----- 4, rw, DDC4: (TDO) - JTAG
' // ||+------ 5, rw, DDC5: (TDI) - JTAG
' // |+------- 6, rw, DDC6: (TOSC1) - LCD RS / Dig1
' // +-------- 7, rw, DDC7: (TOSC2) - Ch B (энкодер)
' // Примечание:
uni писал(а):Мне бы очень хотелось знать как должна выглядеть программа на бейсике при использовании стандартной библиотеки для работы с индикатором по 4-проводной шине.
Кириллица в HD44780
Одна из главных проблем, с который могут столкнуться русскоязычные пользователи - нестандартная кодировка кириллических символов. То есть если вы отправите в ЖКИ обычную строку с русскими символами, вместо них на экран будут выведены абраказябры. Связано это с тем, что для экономии места в памяти контроллера тупоголовые разработчики вместо увеличения объема (можно было просто занять свободные ячейки) решили оставить лишь по одной ячейке для символов со сходным начертанием. Так например, буква O или P выглядят одинаково как в кириллице, так и латинице. Неумные инженеры подумали, что так они неистово сократят объем используемой памяти, но сократили лишь функциональность дисплея. И теперь при необходимости вывести русские символы, каждый раз возникает неприятная неприятность в виде несовместимости таблиц HD44780 и ASCII. Выхода есть два, у обоих свои плюсы и минусы:
1. Написать подпрограмму для контроллера, которая на лету будет декодировать ASCII коды и выводить уже правильные символы на ЖКИ. Удобна тем, что позволяет передавать любые строки без опасения, что они будут выведены впоследствии неправильно. Но этот способ требует лишних ресурсов на перекодировку, а также нужно постоянно хранить в памяти таблицу символов.
2. Использовать утилиту для ПК, которая сама переконвертирует нужные строки в нужный формат, которые сразу подставляются в код для вывода. Удобно тем, что не занимает память контроллера, работает быстро и вообще не требует ресурсов для перекодировки. Но минус в том, что в коде программы нужные строки уже не разобрать. Вывод символов в этом фиксированный, то есть выводить можно только заранее выбранный набор строк. При использовании ввода, например, с RS-232, русские символы будут отображены некорректно.
О наличии подпрограмм для первого случая мне известно, но я не встречал ни одной библиотеки или функции на Basom, которая бы выполняла это. Если вы встречали что-то подобное, убедительная просьба прислать это мне.
Код: Выделить всё
'/**
' * Вывод символа из ОЗУ
' */
Sub LCD_PutChar(ByVal Ch As Byte)
Dim CharFromTable As Byte
'// Заглушка, если драйвер не выбран
'if ( Driver == LCD_DRIVER_NONE ) return;
'// Если есть перевод каретки, то переходим на следующую строку
If Ch = Asc( "|" ) Then
LCD_Goto 1, 0
Else
' CharFromTable = CP1251_TO_CPHD44780(Ch)
CharFromTable = Lookup( Ch, CP1251_TO_CPHD44780 )
' Выводим символ, который соответствует таблице индикатора
LCD_WriteData TYPE_DATA, CharFromTable
End If
End Sub
Код: Выделить всё
' CharFromTable = CP1251_TO_CPHD44780(Ch)
CharFromTable = Lookup( Ch, CP1251_TO_CPHD44780 )
Код: Выделить всё
' В качестве разделителя строк используется символ вертикальной черты "|".
' Он отсутствует в таблице ЖКИ, поэтому был выбран вместо управляющего
' символа перевода каретки с кодом &H0D, который не удаётся задать в
' строке Bascom.
Text00:
Data "Pinboard II Демо|Bascom AVR"
' |<- Строка1 ->||<Строка2>|
' Вывод на индикатор будет таким:
'
' +----------+
' |Pinboard II Демо|
' |Bascom AVR |
' +----------+
RusText:
Data "Россия навсегда!|Ура, друзья!"
implex писал(а):Всем привет. Подскажите, пожалуйста, как правильно организовать сброс таймера при изменении одной из ножек МК с 0 на 1 и наоборот?
uni писал(а):Копать тут: 10. Прерывания
Там есть примеры работы с прерываниями, в том числе с остановкой таймера, к примеру. Доработать под себя напильником.