IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
 Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
  Ответить  Открыть новую тему 
> Дорожный знак
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +

Нужно нарисовать дорожный знак мойка автомобиля на paintbox. Как это сделать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +

А как этот знак выглядит? Нарисуй в чем-нить, выложи - набросаю код.
Пока что просто не представляю...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость
Цитата(мисс_граффити @ 13.07.2009 9:57) *
Пока что просто не представляю...

blink.gif http://www.vodish.ru/theory/sign/7/7.5/
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +

Мдя... Надо ПДД повторять.
Чем пользуюсь постоянно - то помню. А таких на дорогах ни разу не видела...

SSEAL, вопрос еще актуален?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость
Цитата(мисс_граффити @ 14.07.2009 11:00) *
Чем пользуюсь постоянно - то помню
Немытенькая ездишь? smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +

Машину мыть сам не умеешь?


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость
Цитата(Unconnected @ 14.07.2009 13:44) *
Машину мыть сам не умеешь?
Нарушать??
Правила для кого придуманы? Выходит, знаки не нужны, так?
Мыться надо, где знак. А умеешь-неумеешь - никого не волнует.
Знаки соблюдать надо!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +

Только вставляй, уважаемый SSEAL, сотрудник ГИБДД:
 
Uses crt,graph;

const
     x0=170;
     y0=20;
     Hight_blue=420;
     Wide_blue=300;
     Wide_White=270;
     Wide_Leika=60;

var a,b:integer;

procedure init;
var GDriver,GMode:integer;
begin
     GDriver:=Detect;
     InitGraph(GDriver,GMode,'');
end;

begin
     Init;
     (*obsii fon*)
     SetBkColor(Black);
     (*fon vnutrennii sinii*)
     SetFillStyle(SolidFill,Blue);
     bar(x0,y0,x0+Wide_blue,y0+Hight_blue);
     (*fon vnutrennii belii*)
     SetFillStyle(SolidFill,White);
     bar(x0+round((Wide_Blue-Wide_White)/2),y0+40,x0+Wide_Blue-round((Wide_Blue-Wide_White)/2),y0+40+Wide_White);
     (*leika*)
     SetFillStyle(SolidFill,Black);
     bar(x0+round((Wide_blue-10)/2),y0+40+10,x0+round((Wide_blue+10)/2),y0+40+20);
     bar(x0+round((Wide_blue-Wide_Leika)/2),y0+40+20,x0+round((Wide_blue+Wide_Leika)/2),y0+40+30);
     (*strui*)
     SetColor(Black);
     setlinestyle(SolidLn,0,ThickWidth);
     line(x0+round((Wide_blue-Wide_Leika)/2),y0+40+35,x0+round((Wide_blue-Wide_White)/2)+10,y0+40+Wide_White-10);
     line(x0+round((Wide_blue+Wide_Leika)/2),y0+40+35,x0+round((Wide_blue+Wide_White)/2)-10,y0+40+Wide_White-10);
     line(x0+round((Wide_blue-Wide_Leika)/2)+round((Wide_Leika)/4),y0+40+35,x0+round((Wide_blue-Wide_Leika)/2),y0+40+30+40);
     line(x0+round((Wide_blue+Wide_Leika)/2)-round((Wide_Leika)/4),y0+40+35,x0+round((Wide_blue+Wide_Leika)/2),y0+40+30+40);
     line(x0+round((Wide_blue)/2),y0+40+35,x0+round((Wide_blue)/2),y0+40+30+40);
     (*SSEAL & Sotrudnik GIBDD*)
     SetColor({Light}Green);
     setlinestyle(SolidLn,0,NormWidth);
     (*tulovise*)
     line(x0+round((Wide_blue)/2),y0+40+140,x0+round((Wide_blue)/2),y0+40+200);
     (*levaya ruka*)
     line(x0+round((Wide_blue)/2),y0+40+170,x0+round((Wide_blue)/2)-40,y0+40+170-15);
     line(x0+round((Wide_blue)/2)-35,y0+40+145,x0+round((Wide_blue)/2)-40,y0+40+170-15);
     (*pravaya ruka*)
     line(x0+round((Wide_blue)/2),y0+40+170,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+10,y0+40+170+25,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+10,y0+40+170+30,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+15,y0+40+170+35,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+20,y0+40+170+37,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+25,y0+40+170+35,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     (*levaya noga*)
     line(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45,x0+round((Wide_blue)/2)-20,y0+40+Wide_White-15);
     line(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45,x0+round((Wide_blue)/2),y0+40+200);
     (*pravaya noga*)
     line(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45,x0+round((Wide_blue)/2)+20,y0+40+Wide_White-15);
     line(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45,x0+round((Wide_blue)/2),y0+40+200);
     (*golova*)
     SetColor(LightRed);
     SetFillStyle(SolidFill,LightRed);
     PiesLice(x0+round((Wide_blue)/2),y0+40+110,0,360,30);
     (*schetka*)
     SetColor(Black);
     setlinestyle(SolidLn,0,ThickWidth);
     line(x0+round((Wide_blue)/2)-15,y0+40+155,
     x0+round((Wide_blue)/2)-15-round(45*cos(26/180*pi)),y0+40+155-round(45*sin(26/180*pi)));
     setlinestyle(SolidLn,0,NormWidth);
     for b:=0 to 15 do
     begin
          a:=3*b;
          line(x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi)),y0+40+155-round(a*sin(26/180*pi)),
          x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi))+round(10*cos((90-26)/180*pi)),
          y0+40+155-round(a*sin(26/180*pi))-round(10*sin((90-26)/180*pi)));
     end;
     readkey;
     CloseGraph;
end.


Добавлено через 2 мин.
Ой, извините, недочитал тему, это же на Делфи просили... а я так старался...sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость
Цитата
это же на Делфи просили...
Эту же картинку совсем не сложно отрисовать на Canvas (код очень незначительно изменится).
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость
Тема еще актуальна,если что
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +

Мне надо чтоб именно на canvas было нарисовано
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +

Ладно, раз тебе это делать лень, буду учить графику в делфи. smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  + 

 procedure TForm1.FormPaint(Sender: TObject);
const
     x0=50;
     y0=50;
     Hight_blue=420;
     Wide_blue=300;
     Wide_White=270;
     Wide_Leika=60;
var a,b:integer;
begin
  With Form1.Canvas do // ê êàæäîé ïîñëåäóþùåé ñòðîêå äîáàâëÿòü Form1.Canvas.
  Begin
    (*obsii fon*)
     Form1.Color:=clBlack;
     (*fon vnutrennii sinii*)
     Pen.Color:=clBlue;
     Brush.Color:=clBlue; //óñòàíîâêà öâåòà çàëèâêè);
     FillRect(Rect(x0,y0,x0+Wide_blue,y0+Hight_blue));
     (*fon vnutrennii belii*)
     Pen.Color:=clWhite;
     Brush.Color:=clWhite;
     FillRect(Rect(x0+round((Wide_Blue-Wide_White)/2),y0+40,x0+Wide_Blue-round((Wide_Blue-Wide_White)/2),y0+40+Wide_White));
     (*leika*)
     Brush.Color:=clBlack;
     FillRect(Rect(x0+round((Wide_blue-10)/2),y0+40+10,x0+round((Wide_blue+10)/2),y0+40+20));
     FillRect(Rect(x0+round((Wide_blue-Wide_Leika)/2),y0+40+20,x0+round((Wide_blue+Wide_Leika)/2),y0+40+30));
     (*strui*)
     Pen.Color:=clBlack; //óñòàíîâêà öâåòà ïåðà
     Pen.Width:=3; //óñòàíîâêà ïîëùèíû ïåðà
     PolyLine([Point(x0+round((Wide_blue-Wide_Leika)/2),y0+40+35),Point(x0+round((Wide_blue-Wide_White)/2)+10,y0+40+Wide_White-10)]);
     PolyLine([Point(x0+round((Wide_blue+Wide_Leika)/2),y0+40+35),Point(x0+round((Wide_blue+Wide_White)/2)-10,y0+40+Wide_White-10)]);
     PolyLine([Point(x0+round((Wide_blue-Wide_Leika)/2)+round((Wide_Leika)/4),y0+40+35),Point(x0+round((Wide_blue-Wide_Leika)/2),y0+40+30+40)]);
     PolyLine([Point(x0+round((Wide_blue+Wide_Leika)/2)-round((Wide_Leika)/4),y0+40+35),Point(x0+round((Wide_blue+Wide_Leika)/2),y0+40+30+40)]);
     PolyLine([Point(x0+round((Wide_blue)/2),y0+40+35),Point(x0+round((Wide_blue)/2),y0+40+30+40)]);
     (*SSEAL & Sotrudnik GIBDD*)
     Pen.Color:=clGreen;
     Pen.Width:=1;
     (*tulovise*)
     PolyLine([Point(x0+round((Wide_blue)/2),y0+40+140),Point(x0+round((Wide_blue)/2),y0+40+200)]);
     (*levaya ruka*)
     PolyLine([Point(x0+round((Wide_blue)/2),y0+40+170),Point(x0+round((Wide_blue)/2)-40,y0+40+170-15)]);
     PolyLine([Point(x0+round((Wide_blue)/2)-35,y0+40+145),Point(x0+round((Wide_blue)/2)-40,y0+40+170-15)]);
     (*pravaya ruka*)
     PolyLine([Point(x0+round((Wide_blue)/2),y0+40+170),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+10,y0+40+170+25),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+10,y0+40+170+30),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+15,y0+40+170+35),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+20,y0+40+170+37),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+25,y0+40+170+35),Point(x0+round((Wide_blue)/2)+20,y0+40+170+30)]);
     (*levaya noga*)
     PolyLine([Point(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45),Point(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-15)]);
     PolyLine([Point(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45),Point(x0+round((Wide_blue)/2),y0+40+200)]);
     (*pravaya noga*)
     PolyLine([Point(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45),Point(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-15)]);
     PolyLine([Point(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45),Point(x0+round((Wide_blue)/2),y0+40+200)]);
     (*golova*)
     Pen.Color:=clRed;
     Brush.Color:=clRed;
     Pen.Width:=1;
     Pie(x0+round((Wide_blue)/2)-30,y0+40+110-30,x0+round((Wide_blue)/2)+30,y0+40+110+30,0,0,0,0);
     (*schetka*)
     Pen.Color:=clBlack;
     Pen.Width:=2;
     PolyLine([Point(x0+round((Wide_blue)/2)-15,y0+40+155),Point(x0+round((Wide_blue)/2)-15-round(45*cos(26/180*pi)),y0+40+155-round(45*sin(26/180*pi)))]);
     Pen.Width:=1;
     for b:=0 to 15 do
     begin
          a:=3*b;
          PolyLine([Point(x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi)),y0+40+155-round(a*sin(26/180*pi))),
          Point(x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi))+round(10*cos((90-26)/180*pi)),
          y0+40+155-round(a*sin(26/180*pi))-round(10*sin((90-26)/180*pi)))]);
     end;
  end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +

Цитата(сотрудник ГИБДД @ 15.07.2009 2:14) *

Нарушать??
Правила для кого придуманы? Выходит, знаки не нужны, так?
Мыться надо, где знак. А умеешь-неумеешь - никого не волнует.
Знаки соблюдать надо!

Почему нарушать?
Это ж не запрещающий знак. И я его на дорогах просто ни разу не видела. Не вешают у нас.
Заправки, например, тоже далеко не все обозначены. И кафешки...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +

Цитата(мисс_граффити @ 16.07.2009 0:08) *
Почему нарушать?
Это ж не запрещающий знак. И я его на дорогах просто ни разу не видела. Не вешают у нас.
Заправки, например, тоже далеко не все обозначены. И кафешки...

smile.gif. Sorry. Шутка была)).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Делфи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



- Текстовая версия 10.06.2026 17:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name