Бешеная блинница

Спецвыпуск Хакер, номер #004, стр. 004-122-3

Кодинг во всей красе

Вот мы и доковыляли до самого интересного, до кодинга :). Все знают, что если кодер - настоящий кодер, то ему нравится кодить :). Приступим... Для начала двойной клик по Label'у. Появилось окошко Form1 и две менюшки - Object: Label1, Proc: Click. Это нам не нужно. В первой менюшке выбираем Form1, во второй - Load. Появилась процедура Form_Load(), которая будет вызываться при загрузке программы :). Для написания самого кода процы надо решить, что будет делать наша прога. Для начала представим, что нашО файлО называется BLIN.EXE. Ок? Если не нравится, то можешь изменить. Сама идея нашей программулины какая? Правильно, играть с подставкой для кофЭ. Что бы все это работало, нужно инициализировать MMControl1, ответственный за все. Добавь вот эти строчки:

MMControl1.UpdateInterval = 0 ' интервал между проверками наличия одноглазого %)

MMControl1.DeviceType= "CDAudio" ' - а что вам нужно? - CDAudio!

MMControl1.Command= "Open" ' за работу!

Ввел? Отлично. Теперь разберемся, что же ЭТО тако было :). Первой строкой мы установили интервал между проверками наличия компакта, равный 0, что значит - без задержки, т.е. проверил, еще раз проверил, потом еще раз... и т.д. Второй строкой мы вежливо дали понять твоему железному другу, что якобы собираемся прослушивать музыкальные компакты, что само по себе не так :). Хотя ты вполне можешь это реализовать :). Последней строкой мы заставили комп начать работу с одноглазыми (работать!? нееее... :)). Теперь осталось закодить еще одну процедуру, ответственную за показ окна и выдвигание подставочки. Лезь в Object: Timer1, Proc : Timer. Появилась проца Timer1_Timer(). Будем писать ее... Опять добавим три строчки:

If Not Form1.Visible Then Form1.Visible = True Else Form1.Visible = False ' есть... нету... :)

MMControl1.Command = "Open"

MMControl1.Command = "Eject" ' поиграем, гы-гы-гы.

Я думаю, первая строка тебе понятна. Для тех кто в танке: если окно показано, то убираем, если не показано, то показываем. Дошло? Ну слава Богу :). Со второй строкой ты уже встречался, так что объяснять нет смысла, ну нету смысла и все тут... :) Ну а что же это за заветная третья строка? О, этой строкой мы делаем самое главное - заставляем нервничать юзверя ушастого или просто выдвигаем\задвигаем подставку для кофе. Все. Можешь смело запускать и радоваться своему творению. Только тут есть один баг - если в цэдероме нету блина, то подставка не выезжает. Но это не сильно важно, смею тебя заверить.

Назад на стр. 004-122-2  Содержание  Вперед на стр. 004-122-4

загрузка...
Cпец Хакер #075Cпец Хакер #074Cпец Хакер #073Cпец Хакер #072Cпец Хакер #071Cпец Хакер #070Cпец Хакер #069Cпец Хакер #068Cпец Хакер #067Cпец Хакер #066Cпец Хакер #065Cпец Хакер #064Cпец Хакер #063Cпец Хакер #062Cпец Хакер #061Cпец Хакер #060Cпец Хакер #059Cпец Хакер #058Cпец Хакер #057Cпец Хакер #056Cпец Хакер #055Cпец Хакер #054Cпец Хакер #053Cпец Хакер #052Cпец Хакер #051Cпец Хакер #050Cпец Хакер #049Cпец Хакер #048Cпец Хакер #047Cпец Хакер #046Cпец Хакер #045Cпец Хакер #044Cпец Хакер #043Cпец Хакер #042Cпец Хакер #041Cпец Хакер #040Cпец Хакер #039Cпец Хакер #038Cпец Хакер #037Cпец Хакер #036Cпец Хакер #035Cпец Хакер #034Cпец Хакер #033Cпец Хакер #032Cпец Хакер #031Cпец Хакер #030Cпец Хакер #029Cпец Хакер #028Cпец Хакер #027Cпец Хакер #026Cпец Хакер #025Cпец Хакер #024Cпец Хакер #023Cпец Хакер #022Cпец Хакер #021Cпец Хакер #020Cпец Хакер #019Cпец Хакер #018Cпец Хакер #017Cпец Хакер #016Cпец Хакер #015Cпец Хакер #014Cпец Хакер #013Cпец Хакер #012Cпец Хакер #011Cпец Хакер #010Cпец Хакер #009Cпец Хакер #008Cпец Хакер #007Cпец Хакер #006Cпец Хакер #005Cпец Хакер #004Cпец Хакер #003Cпец Хакер #002Cпец Хакер #001