roboforum.ru

Технический форум по робототехнике.
Текущее время: 04 дек 2024, 13:13

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 46 ]  На страницу Пред.  1, 2, 3, 4  След.
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 14:16 
Не в сети
Правохранитель
Аватара пользователя

Зарегистрирован: 23 фев 2007, 02:23
Сообщения: 197
Откуда: Зеленоград
Валерос писал(а):
ТАК..., давай посмотрим твою программу для генерации кода.

Сделал запрос на програмку одногрупнику, ждем ответа :)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 15:03 
Не в сети
скрытый хозяин вселенной :)
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 15:18 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 18:53 
Не в сети
Правохранитель
Аватара пользователя

Зарегистрирован: 23 фев 2007, 02:23
Сообщения: 197
Откуда: Зеленоград
SSG писал(а):
Ваще круто!
Скока стоит такой дисплей? Как небольшой китайский телик?  :D


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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 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;


Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 19:34 
Не в сети
скрытый хозяин вселенной :)
Аватара пользователя

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


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

учитывая что знакосинтезирующий  16х2 стоит не намного дешевле считаю что графические рулят=)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 23:39 
Не в сети
Аватара пользователя

Зарегистрирован: 30 сен 2006, 19:05
Сообщения: 364
Откуда: Санкт-Петербург
vip7 писал(а):
Вот процедура генерации шрифта цифр на Delphi :)  (на форме нужно разместить компоненты TImage и TButton)

vip7 - друг maktepa?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 08 май 2007, 23:58 
Не в сети
Правохранитель
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 09 май 2007, 14:39 
Не в сети
Аватара пользователя

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


Вложения:
DSC02054.JPG
DSC02054.JPG [ 20.11 КиБ | Просмотров: 2249 ]
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 09 май 2007, 17:39 
Не в сети
Правохранитель
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 10 май 2007, 11:53 
Не в сети
Аватара пользователя

Зарегистрирован: 30 сен 2006, 19:05
Сообщения: 364
Откуда: Санкт-Петербург
maktep писал(а):
Валерос, было б не плохо посмотреть код вывода из буфера на жк, если стоит не моя, код ввода пиксела, если не моя, и вывод стоки и буквы

Да, код не твой, щаз разобраться с программой нуно и выложу, а то она огромная какая-то, нужный кусок надо ещё поискать...
Бл..., опять Mega32 впала в "спячку" - не реагирует на программатор, надо Протеус осваивать!


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 10 май 2007, 13:38 
Не в сети
отсылающий читать курс
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 21 май 2007, 12:36 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 26 май 2007, 17:07 
Не в сети
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 26 май 2007, 19:59 
Не в сети
скрытый хозяин вселенной :)
Аватара пользователя

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


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 46 ]  На страницу Пред.  1, 2, 3, 4  След.

Часовой пояс: UTC + 4 часа


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

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


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
phpBB SEO