Шеф на больничном. Делать нечего.

← →
SergeN (2003-02-25 10:32) [0]

И вот дурью маюсь.

procedure TForm1.FormCreate(Sender: TObject);
{Начальные установки}
begin
timer1.Enabled:=true;
i:=1;
p1:=150;
p2:=50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with im.canvas do
begin
brush.Color:=clgray;
rectangle(0,0,im.clientwidth,im.clientheight);

//system block
//передняя крышка
pen.Width:=0;
brush.Color:=clwhite;
polygon([point(p1,p2),point(p1+100,p2),point(p1+100,p2+200),point(p1,p2+200)]);

//верхняя крышка
brush.Color:=$fffff1;
polygon([point(p1,p2),
point(p1+100,p2),
point(p1+100+round(80*(cos(degtorad(20)))),p2-round(80*(sin(degtorad(20))))),
point(p1+round(80*(cos(degtorad(20)))),p2-round(80*(sin(degtorad(20)))))]);

brush.Color:=$f0f0f0;
polygon([point(p1,p2),
point(p1+100,p2),
point(p1+100+round(5*(cos(degtorad(20)))),p2-round(5*(sin(degtorad(20))))),
point(p1+round(5*(cos(degtorad(20)))),p2-round(5*(sin(degtorad(20)))))]);

//боковая крышка
brush.Color:=$fffff1;
polygon([point(p1+100,p2),
point(p1+100,p2+200),
point(p1+100+round(80*(cos(degtorad(20)))),p2+200-round(80*(sin(degtorad(20))))),
point(p1+100+round(80*(cos(degtorad(20)))),p2-round(80*(sin(degtorad(20)))))]);

moveto(p1+105,p2+3);
lineto(p1+105+round(75*(cos(degtorad(20)))),p2+3-round(75*(sin(degtorad(20)))));

brush.Color:=$f0f0f0;
polygon([point(p1+100,p2),
point(p1+100,p2+200),
point(p1+100+round(5*(cos(degtorad(20)))),p2+200-round(5*(sin(degtorad(20))))),
point(p1+100+round(5*(cos(degtorad(20)))),p2-round(5*(sin(degtorad(20)))))]);

//CD-Rom
//отсек
rectangle(p1+5,p2+5,p1+95,p2+35);

brush.Color:=0;
polygon([point(p1+10,p2+22),
point(p1+90,p2+22),
point(p1+90,p2+10),
point(p1+10,p2+10)]);

//гнездо наушников
brush.Color:=clgray;
ellipse(p1+10,p2+27,p1+15,p2+32);

//кнопки
brush.Color:=clwhite;
ellipse(p1+20,p2+28,p1+28,p2+32);
ellipse(p1+30,p2+28,p1+38,p2+32);

//лоток
brush.Color:=clgray;
polygon([point(p1+15,p2+15),
point(p1+85,p2+15),
point(p1+85-round(a*(cos(degtorad(20)))),p2+15+round(a*(sin(degtorad(20))))),
point(p1+15-round(a*(cos(degtorad(20)))),p2+15+round(a*(sin(degtorad(20)))))]);

brush.Color:=clgray;
polygon([point(p1+85,p2+15),
point(p1+85,p2+20),
point(p1+85-round(a*(cos(degtorad(20)))),p2+20+round(a*(sin(degtorad(20))))),
point(p1+85-round(a*(cos(degtorad(20)))),p2+15+round(a*(sin(degtorad(20)))))]);

//крышка лотка
brush.Color:=$f0f0f0;
polygon([point(p1+10-round(a*(cos(degtorad(20)))),p2+22+round(a*(sin(degtorad(20))))),
point(p1+90-round(a*(cos(degtorad(20)))),p2+22+round(a*(sin(degtorad(20))))),
point(p1+90-round(a*(cos(degtorad(20)))),p2+10+round(a*(sin(degtorad(20))))),
point(p1+10-round(a*(cos(degtorad(20)))),p2+10+round(a*(sin(degtorad(20)))))]);
a:=a+i;
if a=50 then i:=-1;
if a=0 then i:=1;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timer1.Enabled:=false;
end;

Пояснения: im- это Image;
рекомендуемые размеры im: height=120,width=400;
Timer1.Interval=30;

Просьба: 1.кому делать нечего пожалуйста запустите код и дайте рецензию;
2.может кто подскажет как сделать вращающийся диск на лотке.

← →
Думкин © (2003-02-25 10:42) [1]

Тебе тоже о больничном подумать надо.... %-)

← →
SergeN (2003-02-25 10:52) [2]

2 Думкин
Да, пожалуй. Наверное у меня гриппер. А как насчёт рецензии...

← →
Думкин © (2003-02-25 10:54) [3]

работает. Только про a ничего не сказано и ессно моргает. А так - куда расти есть.

← →
SergeN (2003-02-25 11:06) [4]

Исправляюся.

private
{ Private declarations }
a,i,p1,p2:integer;

Как моргает??? А если Timer1.Interval:=10;

← →
SergeN (2003-02-25 11:09) [5]

Неужели у меня зрение как у насекомого?
Точно наверное грипп.

← →
Delirium^.Tremens © (2003-02-25 11:10) [6]

> Неужели у меня зрение как у насекомого?
> Точно наверное грипп.

Якорь на проц повесь, и у тебя заморгает :-)

← →
Думкин © (2003-02-25 11:11) [7]

a := ?????????

> Как моргает??? А если Timer1.Interval:=10;

Да хоть 5 - не в этом дело.

← →
Думкин © (2003-02-25 11:15) [8]

Хотя бы двойной буфер где повесить. Я не из догадливых.

← →
SergeN (2003-02-25 11:16) [9]

> А так - куда расти есть.

Ну хоть за это спасибо! И за то что не опустили тоже. :))

← →
Думкин © (2003-02-25 11:18) [10]

> SergeN (25.02.03 11:16)
> Ну хоть за это спасибо! И за то что не опустили тоже. :))

Не ну, как это - здесь что урки что-ли? :-)

← →
SergeN (2003-02-25 11:20) [11]

> Хотя бы двойной буфер где повесить. Я не из догадливых.

Туда где не участвует пер. а (если я правильно понял)
Но у меня и без всяких буферов не моргает, хотя и проц-р слабенький.

← →
Ketmar © (2003-02-25 11:25) [12]

>SergeN (25.02.03 10:32)
пива попей. а то тебя как-то не по детски погребло...

Satanas Nobiscum! 25-Feb-XXXVIII A.S.

← →
Думкин © (2003-02-25 11:25) [13]

> SergeN (25.02.03 11:20)
> Но у меня и без всяких буферов не моргает, хотя и проц-р
> слабенький

Не от слабости зависит. С графикой во многих вещах от мощности проца мало что зависит. Многие неприятности идут с равным успехом как на Пне166 так и на Пне4. Причем если рисуется хорошо в одном, то как правило и в другом. И наоборот - глючная на 166 графика - глючит и на 4-м. Конечно известные ограничения на фразу наложить надо, но не в приведенном коде.
А пинать - так оно можно - для начала - я бы объект сделал, и вс него бы все сунул - форма только для вывода. И имена бы человеческие дал, ну и... для затравки в общем.

← →
SergeN (2003-02-25 11:37) [14]

2 Ketmar
пиво после работы

И вообще,я то думал что Вы меня из-за цветов пинать будете

← →
Ketmar © (2003-02-25 11:46) [15]

>SergeN (25.02.03 11:37)
нет, зачем пинать. меня с утра повеселило даже...

Satanas Nobiscum! 25-Feb-XXXVIII A.S.

← →
SergeN (2003-02-25 11:47) [16]

Какой прок в человеческих именах если это всё полетит в корзину часа через два. Вот только поиграюсь пока, монитор нарисую, себя любимого...

← →
igorr © (2003-02-25 11:50) [17]

Нормально ездит!
Только interval меньше 55 не бывает.

← →
Думкин © (2003-02-25 11:54) [18]

> igorr © (25.02.03 11:50)
> Нормально ездит!
> Только interval меньше 55 не бывает.

54 например. Атормозить - никто и не говорил, что тормозит. Моргать и тормозить несколько разные вещи.

← →
SergeN (2003-02-25 12:01) [19]

Ну дык я же не волшебник.
Не тормозит и ладно.

← →
Думкин © (2003-02-25 12:03) [20]

> SergeN (25.02.03 12:01)
> Ну дык я же не волшебник.

А надо бы... Я и говорю, что куда расти есть.... :-)
Я когда в 88-м начал - у меня корабль ракетами плевался. А недавно...

← →
SergeN (2003-02-25 12:18) [21]

Так ведь я с Delphi работаю всего два месяца. И начинал с треугольных кнопок. Это я так, к слову. НЕ хвастаясь :))
Ем "Растишку" и расту, и ещё во сне летаю.

← →
Сатир © (2003-02-25 14:10) [22]

мля, так твоя прога рисует серый квадрат и потом его непроизвольно моргает?! так шо ж ты раньше молчал??!!

← →
SergeN (2003-02-25 14:21) [23]

Вообщето там ещё что то "моргает" помимо квадрата

← →
Труп Васи Доброго (2003-02-25 14:48) [24]

А мне понравилось! Там какой-то квадратный мужик нарисован, и язык то вытащит, то засунет назад. Я эту картину как ScreenSaver во всём предприятии использовать буду, можно???

← →
SergeN (2003-02-25 15:30) [25]

Могу предоставить и квадратную бабу :))))))))))

← →
MC TOL © (2003-02-25 15:32) [26]

Привет всем!
Ничего у меня не моргает, Нормально ездит лоток туда-сюда.
Правда, несколлько примитивно все это. Может, в GLScene стоит все сваять? Объем появится, и камерой вокруг операционника покрутить можно будет ;-)...

← →
Danilka © (2003-02-25 15:47) [27]

SergeN (25.02.03 15:30)
а баба еще зачем?
чтоб мужику жизнь медом не казалась?
или чтоб было куда ему свой язык совать?

← →
igorr © (2003-02-25 15:53) [28]

>Думкин © (25.02.03 11:54)
>> igorr © (25.02.03 11:50)
>> Нормально ездит!
>> Только interval меньше 55 не бывает.
>54 например.

54 не катит.
Событие от таймера возникает 18,2 раза в секунду.

to Труп Васи Доброго (25.02.03 14:48)
Дык этож крутой скрин сейвер!!!
SergeN - Нахаляву юзать никому не давай!
Кто не согласен - того в орешник!

← →
SergeN (2003-02-25 16:17) [29]

Кстати на счёт GLScen это интересно. Завтра попробую если шефф не выйдет.

> igorr © (25.02.03 15:53)
> >Думкин © (25.02.03 11:54)
> 54 не катит.
> Событие от таймера возникает 18,2 раза в секунду.

Это вы о чем? В 98-й или в 2000-й? Или как?

> Думкин © (27.02.03 08:20)

действительно, лажа какая-то..., ДОС умер нафиг

но чаще чем 50-60 - не получается таймер юзать, асм можно вставить, но через одно место тогда все пойдет...

Ниже 10-ти не опускал, но работает.

Кто? Я лог вел - там все прописано.

> Думкин © (27.02.03 08:40)

как и на заборе :)

ничего не говорю - РС говорит все у тя, парень, нормально, и вот я работаю как ты сказал, но обманывает, гад...

Шутишь?

А мультимедиа таймер?

Шеф на больничном. Делать нечего. Найти похожие ветки