Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Delphi для чайников, или как научиться программировать


Информационный Канал Subscribe.Ru

"Эверест" - Центр Практической Информатики

представляет вводный курс

"Delphi для чайников"

Здравствуйте, уважаемые подписчики!

Представляем вторую часть нашего курса "Создаем свою первую игру в Delphi".

Данный курс рассчитан на людей уже попробывавших свои силы в этой системе программирования и знакомого с простейшими операциями.

Тем же, кто еще не работал в Delphi или не пробовал писать игры, я рекомендую нашу рассылку, вернее ее первую часть по адресу: http://umnik.rikt.ru/everest/distant/delphi.htm

Наша задача: научиться использовать в своих программах циклы и массивы, научиться писать небольшие игрушки с использованием этих конструкций.

 

Урок 4. Бегущие огни.

Сегодня мы покажем, как используются массивы на примере программы "Бегущие огни".

Суть программы: На форме должны быть 4-ре лампочки, по которым будут пробегать разноцветные огни…

Программа в процессе…

1. На новую форму поместите 4 компонента Shape (страница Additional).
2. Свойство Shape в инспекторе объектов поставьте равным StCircle (окружность)

Откуда брать цвета? На помощь приходит Инспектор объектов.
3. Выделите компонент Shape1 (если он у Вас не выделен), и раскройте в Инспекторе Объектов Свойство Brush… Посмотрите подсвойство Color. Вон их сколько:


Эти цвета и будем использовать. Осталось определить, к какому типу данных относятся эти цвета. Если Вы не знаете, то помощь можно добиться и от самой Delphi.

4. В обработчик события кнопки запишите:

shape1.Brush и поставьте точку. Вы получите подсказку:

Из нее становиться ясно, что у свойства Brush есть свойство Color, которое имеет тип TColor.

А можно использовать и другой способ: выделить свойство Color и нажать F1. Появиться справка Delphi, из которой также можно узнать о типе данного свойства…


5. Теперь можно объявлять массив:

Const
cl: array [1..6] of TColor = (clred,clblue,clblack,clgreen,clYellow,clLime);

Далее дело техники…

Вот как у меня выглядит обработчик события кнопки:

procedure TForm1.Button1Click(Sender: TObject);
Const
cl: array [1..6] of TColor =
(clred,clblue,clblack,clgreen,clYellow,clLime);
var
n:integer;

begin
for n:=1 to 10 do
begin
shape1.Brush.Color:=cl[n];
sleep(200);
Application.ProcessMessages();
shape2.Brush.Color:=cl[n];
sleep(200);
Application.ProcessMessages();
shape3.Brush.Color:=cl[n];
sleep(200);
Application.ProcessMessages();
shape4.Brush.Color:=cl[n];
sleep(200);
Application.ProcessMessages();
end;

end;



Самостоятельно:

1. Обязательно сделайте каждую из предложенных задач, разберитесь, как работают массивы.
2. Измените третью программу таким образом, чтобы лампочки моргали хаотично и случайными цветами.
3. Попробуйте сами придумать и написать небольшие программы, использующие массивы.


На следующем уроке: приступаем к играм....


посмотреть архив данной рассылки, Вы сможете на нашем сайте по адресу:

http:// umnik.rikt.ru/everest/distant/delphi.htm

P.S.

Обращаю ваше внимание на то, что данный курс ознакомительный. Если Вы желаете действительно научиться программированию и получить в руки мощный инструмент для профессиональной работы, то приглашаем Вас на наш основной курс по Delphi.

Вся информация находится по адресу: http://umnik.rikt.ru/everest/distant/delphi_os.htm

Учиться у нас выгодно. Не верите?


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.delphieverest
Отписаться

В избранное