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

 





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