roboforum.ru

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

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

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

Вот процедура генерации шрифта цифр на 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 писал(а):Вот процедура генерации шрифта цифр на Delphi  (на форме нужно разместить компоненты TImage и TButton)

vip7 - друг maktepa?

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

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

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

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

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