roboforum.ru

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

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

[off]стало вобще жутко завидно
особо после того как спалил дисплей
и заказал себе графический мэлт=)
скоро тоже буду козявки рисовать[/off]

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

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

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

Вот процедура генерации шрифта цифр на 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;

maktep писал(а):

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

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

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

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

vip7 - друг maktepa?

Валерос, ага.
Мы вместе софт пишем.

Вот, начинаю их дружить (не без помощи старших товарищей), пока получается плохо. Первый кристал перевернут, какие будут советы?

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

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

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

я как раз щас с протовцами борьбу веду за качество - http://kazus.ru/forum/topic_7245-0-asc-20.html

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

И по "русски" научился... кирилицу нужно было дописать в файле фонтов по ASCII кодировке, даже буква Ёё получилась!....

тока с звуком беда какаята
сразу после начала шипение  ужасное