BASCOM-AVR 1.11.7.4

[lsa]

Как на бейсике сдвинуть биты? Мне нужно сделать PDW(шим),для этого нужно записать в 16 битовый регистр OCR1A величину генерируемого шим сигнал.
Я работаю на Си, поэтому не сильно знаком с Бейсиком, но хочется перейти на BASCOM AVR.На Си я делаю так:

unsigned int PWM //Объявляю переменную PWM(16 битовая)
PWM=350;
OCR1AH = (char)(PWM››;//Привожу к типу char(8битовая) со сдвигом битов в право, записываю полученный результат в старший регистр OCR1AH;
OCR1AL = (char)PWM;//То же самое но без сдвига

Как такую запись сделать на Бейсике???

И ещё один вопрос по поводу вывода русского шрифта на ЛСД, Я делал на Си (CodeVisionAVR) так:
flash unsigned char Mes0[]={8,66,174,160,79,80,123,168,65,80,65,77,69,84,80, 65,0};Массив кодов букв созданный специальной программой
lcd_putsf(Mes0);Вывод надписи Меs0 на ЛСД

Как сделать подобное в BascomAVR на бейсике???

Есть сдвиги ROTATE и SHIFT.(есть в примерах)
Можно ассемблером.
Здесь лучше применять функции LOW и HIGH.

Dim PWM As Integer
PWM = 350
OCR1AH = HIGH(PWM)
OCR1AL = LOW(PWM)

[lsa]

На вторую часть вопроса:
(не самый лучший вариант)

Dim Mas0 As String * 20 'определяем не как массив а как строку

Mas0 = Chr(8) + Chr(66) + Chr(174) + Chr(160) + Chr(79) + Chr(80) + Chr(123) + Chr(168) + Chr(65) + Chr(80) + Chr(65) + Chr(77) + Chr(69) + Chr(84) + Chr(80) + Chr(65) + Chr(0)' вводим символы в строке и преобразовываем

Lcd Mas0 ' так в нужном месте выводим на печать

Другой вариант
Определяем как массив и в цикле выводим на печать

Dim Mas(17) As Byte

Mas(1) = 8
Mas(2) = 66
Mas(3) = 174
'.....
Mas(16) = 65
Mas(17) = 0


For I = 1 To 17
Lcd Chr(Мas(i))
Next I

[Zemlyanov]

А другие варианты с выводом русского текста есть? А то эти варианты слишком сложные для большого объема текста

[Rubashka]

Для того, чтобы выводить большие фрагменты текста на русском языке, необходимо составить таблицу перекодировки символов. При каждом выводе текста вначале программный код заменяет русские буквы на их
Chr() - значения согласно таблицы, а затем уже их выводит на ЖКИ.Преимущества очевидны - раз пишем подпрограмму, зато потом все сообщения можно писать на русском языке, не перекодируя их в Chr.

http://bascomavr.3bb.ru

[karavan]

А другие варианты с выводом русского текста есть?

В прикреплённом файле конвертер:

Прикрепленный файл: 664839.rar

[Rubashka]

NEW! Русифицированный BASCOM. Поместите скачанный файл в папку с программой и запускайте русифицированный эксешник. При желании запускайте старый, англоязычный. Но одновременно их запустить не удастся. Подходит к 1.11.8.1 и 1.11.8.3. Русифицировал В.Н.Рубашка.
http://ledeffects.net/data/bascavr_rus.exe

[Ostile]

вот "дисцилировано" до 32 Мб !
http://bascom-avr.narod.ru

+ прекрасные Апноуты на Бэйсике для AVR !

Помогите разобраться. Не могу скачать с Рапиды всё время пишет,что IP такой-то и закачка не доступна так как весь лимит исчерпаню Уже месяца три как.

[hubble]

Так и будет если ты, допустим, подключен к сети, в которой сотни или тысячи пользователей. У меня - то же самое. Единственный выход - это качать ночью, тогде меньше всего закачек. И тогда повезет. Мне пока что помогало. Ну и второй вариант - наверное получить статический IP. Как еще один вариант. Есть программы, которые подменяют твой IP. Ни первым, ни вторым вариантом не пользовался.

[avr123-nm-ru]

Сообщение от avr123-nm-ru

вот "дисцилировано" до 32 Мб ! http://bascom-avr.narod.ru + прекрасные Апноуты на Бэйсике для AVR !

Помогите разобраться. Не могу скачать с Рапиды .

Вот вам
http://roboforum.ru/viewtopic.php?f=2&t=3385

[Rubashka]

Здесь можно заработать лицензионный BASCOM - http://bascomavr.3bb.ru/viewtopic.php?pid=1236#p1236