roboforum.ru

Технический форум по робототехнике.

ATMega32 подружить МТ-12232А

Резисторы, транзисторы, конденсаторы, микросборки, чип компоненты ...
Вопросы согласования управляющих модулей с периферией.

Сообщение maktep » 08 май 2007, 14:16

Валерос писал(а):ТАК..., давай посмотрим твою программу для генерации кода.

Сделал запрос на програмку одногрупнику, ждем ответа :)
Аватара пользователя
maktep
Правохранитель
 
Сообщения: 197
Зарегистрирован: 23 фев 2007, 02:23
Откуда: Зеленоград

Сообщение Myp » 08 май 2007, 15:03

[off]стало вобще жутко завидно
особо после того как спалил дисплей
и заказал себе графический мэлт=)
скоро тоже буду козявки рисовать[/off]
Аватара пользователя
Myp
скрытый хозяин вселенной :)
 
Сообщения: 18018
Зарегистрирован: 18 сен 2006, 12:26
Откуда: Тверь по прозвищу Дверь
прог. языки: псевдокод =) сила в алгоритме!
ФИО: глубокоуважаемый Фёдор Анатольевич

Сообщение SSG » 08 май 2007, 15:18

Ваще круто!
Скока стоит такой дисплей? Как небольшой китайский телик?  :D
Аватара пользователя
SSG
 
Сообщения: 1058
Зарегистрирован: 15 янв 2007, 19:23
Откуда: Беларусь, Барановичи
прог. языки: С для МК, Delphi для ПК

Сообщение maktep » 08 май 2007, 18:53

SSG писал(а):Ваще круто!
Скока стоит такой дисплей? Как небольшой китайский телик?  :D


В чипдипе 580р, в остальных местах продажы вроде примерно такая же цена
Аватара пользователя
maktep
Правохранитель
 
Сообщения: 197
Зарегистрирован: 23 фев 2007, 02:23
Откуда: Зеленоград

Сообщение vip7 » 08 май 2007, 19:23

Вот процедура генерации шрифта цифр на Delphi :)  (на форме нужно разместить компоненты TImage и TButton)
Код: Выделить всёРазвернуть
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,j0: Integer;
 f1:textfile;
 bykva:char;
begin
 Image1.Height:=50;
 Image1.Width:=35;
 Image1.Canvas.Font.Color:=clBlack;
 Image1.Canvas.Font.Size:=50;
 Image1.Canvas.Font.Name:='ITC Zapf Chancery';
 assignfile(f1,'Font1.c');
 rewrite(f1);
 writeln(f1,'void write_numbers(int x, int y, char number){');
 writeln(f1,'  switch (number){');
 for bykva := '0' to '9' do
 begin
   for j := 0 to Image1.Width-1 do
     for i := 0 to Image1.Height-1 do Image1.Canvas.Pixels[j,i]:=clWhite;
   Image1.Canvas.TextOut(-3, -15, bykva);
   writeln(f1,'    case '+#039+bykva+#039+' :{');
   for i := 0 to Image1.Height-1 do
   begin
     j:=0;
     repeat
       if Image1.Canvas.Pixels[j,i]=clBlack then
{        if Image1.Canvas.Pixels[j+1,i]<>clBlack then
         begin
           writeln(f1,'      putpixel(x+'+inttostr(j)+',y+'+inttostr(i)+');');
           j:=j+1;
         end
       else
}         begin
           j0:=j;
           repeat
             j:=j+1;
           until Image1.Canvas.Pixels[j,i]<>clBlack;
           j:=j+1;
           writeln(f1,'      line(x+'+inttostr(j0)+',y+'+inttostr(i)+',x+'+
           inttostr(j)+',y+'+inttostr(i)+');');

         end
       else j:=j+1;
     until j>Image1.Width;
   end;
   writeln(f1,'      break;');
   writeln(f1,'    }');
 end;
 writeln(f1,'  }');
 writeln(f1,'}');
 closefile(f1);
end;
vip7
 

Сообщение Myp » 08 май 2007, 19:34

maktep писал(а):
SSG писал(а):Ваще круто!
Скока стоит такой дисплей? Как небольшой китайский телик?  :D


В чипдипе 580р, в остальных местах продажы вроде примерно такая же цена

учитывая что знакосинтезирующий  16х2 стоит не намного дешевле считаю что графические рулят=)
Аватара пользователя
Myp
скрытый хозяин вселенной :)
 
Сообщения: 18018
Зарегистрирован: 18 сен 2006, 12:26
Откуда: Тверь по прозвищу Дверь
прог. языки: псевдокод =) сила в алгоритме!
ФИО: глубокоуважаемый Фёдор Анатольевич

Сообщение Валерос » 08 май 2007, 23:39

vip7 писал(а):Вот процедура генерации шрифта цифр на Delphi :)  (на форме нужно разместить компоненты TImage и TButton)

vip7 - друг maktepa?
Аватара пользователя
Валерос
 
Сообщения: 364
Зарегистрирован: 30 сен 2006, 19:05
Откуда: Санкт-Петербург

Сообщение maktep » 08 май 2007, 23:58

Валерос, ага.
Мы вместе софт пишем.
Аватара пользователя
maktep
Правохранитель
 
Сообщения: 197
Зарегистрирован: 23 фев 2007, 02:23
Откуда: Зеленоград

Сообщение Валерос » 09 май 2007, 14:39

Вот, начинаю их дружить (не без помощи старших товарищей), пока получается плохо. Первый кристал перевернут, какие будут советы?
Вложения
DSC02054.JPG
Аватара пользователя
Валерос
 
Сообщения: 364
Зарегистрирован: 30 сен 2006, 19:05
Откуда: Санкт-Петербург

Сообщение maktep » 09 май 2007, 17:39

Валерос, было б не плохо посмотреть код вывода из буфера на жк, если стоит не моя, код ввода пиксела, если не моя, и вывод стоки и буквы
Аватара пользователя
maktep
Правохранитель
 
Сообщения: 197
Зарегистрирован: 23 фев 2007, 02:23
Откуда: Зеленоград

Сообщение Валерос » 10 май 2007, 11:53

maktep писал(а):Валерос, было б не плохо посмотреть код вывода из буфера на жк, если стоит не моя, код ввода пиксела, если не моя, и вывод стоки и буквы

Да, код не твой, щаз разобраться с программой нуно и выложу, а то она огромная какая-то, нужный кусок надо ещё поискать...
Бл..., опять Mega32 впала в "спячку" - не реагирует на программатор, надо Протеус осваивать!
Аватара пользователя
Валерос
 
Сообщения: 364
Зарегистрирован: 30 сен 2006, 19:05
Откуда: Санкт-Петербург

Сообщение avr123.nm.ru » 10 май 2007, 13:38

я как раз щас с протовцами борьбу веду за качество - http://kazus.ru/forum/topic_7245-0-asc-20.html
Аватара пользователя
avr123.nm.ru
отсылающий читать курс
 
Сообщения: 14195
Зарегистрирован: 06 ноя 2005, 04:18
Откуда: Москва
Предупреждения: -8

Сообщение Валерос » 21 май 2007, 12:36

Короче, подружил я их, не до конца правда. Не догоняю пока, как русскими буквами писать...
Тут видео: http://www.youtube.com/watch?v=Jiye5Z6WkbY
Кому нужен код, вышлю в личку, проект в IAR 4.21....
Аватара пользователя
Валерос
 
Сообщения: 364
Зарегистрирован: 30 сен 2006, 19:05
Откуда: Санкт-Петербург

Сообщение Валерос » 26 май 2007, 17:07

И по "русски" научился... кирилицу нужно было дописать в файле фонтов по ASCII кодировке, даже буква Ёё получилась!....
Аватара пользователя
Валерос
 
Сообщения: 364
Зарегистрирован: 30 сен 2006, 19:05
Откуда: Санкт-Петербург

Сообщение Myp » 26 май 2007, 19:59

тока с звуком беда какаята
сразу после начала шипение  ужасное
Аватара пользователя
Myp
скрытый хозяин вселенной :)
 
Сообщения: 18018
Зарегистрирован: 18 сен 2006, 12:26
Откуда: Тверь по прозвищу Дверь
прог. языки: псевдокод =) сила в алгоритме!
ФИО: глубокоуважаемый Фёдор Анатольевич

Пред.След.

Вернуться в Электроника, электротехника

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17