Доклад - Музикален диск - Информатика, програмиране
Вмъкване на етикети. Извличане на текущата дата от компютъра. Управление на приложението от клавиатурата. Приложение с няколко прозореца.
Създайте папка Lesson31. Поставете файла за поддръжка на медиен обект Mci.vbx в него. Стартирайте Visual Basic. Оцветете прозореца Form1, например, в тъмно сиво. Добавете файла Mci.vbx към вашия проект за приложение. За да направите това, в менюто Файл (Файл) изберете командата Добавяне на файл ... (Добавяне на файл ...) и през прозореца, който се показва, заредете поддържащия файл Mci.vbx. Иконата Медийни обекти се появява в прозореца Обекти. Щракнете върху бутона с тази икона и поставете обекта MMControl1 върху формата на вашето приложение. В прозореца със свойства на обекта MMControl1 задайте свойствата BackVisible, StepVisible, RecordVisible на False, тъй като тези бутони няма да се използват в плейъра. В процедурата Form_Load, която се извиква веднага след зареждане на приложението, въведете програмния код:
Първият ред от програмния код активира CD устройството, следващият ред отваря първата музикална песен, а последният ред кара песните на диска да се възпроизвеждат по ред.
Поставете музикален компактдиск в CD устройството. Стартирайте приложението. Плейърът ще започне да възпроизвежда първата песен от компактдиска. Ако това не се случи, извикайте стандартния панел за управление на звука на Windows Volume Control и менюто "Options", изберете командата "Properties", където включете CD Audio. Сега трябва да се появи звук, в противен случай проверете правописа на програмния код.
Докато приложението работи, проверете предназначението на всеки ключ на новосъздадения плейър. За да направите това, последователно щракнете върху клавишите на играча с мишката.
През прозорецаПриложенията могат да поставят снимка по ваш избор.
В прозореца със свойства за Form1 изберете свойството Caption и променете стойността му на Music CD Player. За да спрете напълно плейъра и да излезете от приложението, създайте команден бутон Command1. В процедурата за прекъсване Command1_Click напишете програмния код:
Първият ред спира възпроизвеждането на всеки CD запис, следващият ред затваря файла с мелодията за обекта MMControl1, а последният ред прекратява изцяло приложението. Променете надписа на командния бутон на надписа "Изход". Ако искате мелодиите да продължат да звучат и след като приложението приключи, монтирайте още един бутон Command2 и за него в процедурата за прекъсване на Command2_Click въведете само последния ред от процедурата Command1_Click, като пропуснете първите два реда. Ако след известно време все пак трябва да спрете възпроизвеждането на музикален диск, можете да го направите ръчно, като натиснете бутона "Изваждане на диск" на устройството за възпроизвеждане на оптични дискове.
За обекта MMControl1 проверете сами свойството Orientation, което може да приема две стойности: 0-хоризонтално (хоризонтално) и 1-вертикално (вертикално).
Сега разгледайте операцията за поставяне на етикети в приложението. В панела Обекти щракнете върху иконата Label и поставете обекта Label1 (Label First) върху формуляра за кандидатстване. В прозореца Properties за този обект променете стойността на свойството Caption (Title) на произволен надпис, например „Светът на мелодиите също е неизчерпаем, като самата вселена“. Експериментирайте сами със свойствата на етикета. Не забравяйте да видите как работи свойството labelBackStyle (фонов стил). След това създайте втори етикет - Label2. Задайте свойството Caption на днешна дата. За да направите това, добавете следния ред към процедурата Form_Load:
Label2.Caption = Дата ' показване на дата
Сега, когато стартирате приложението, ще намерите днешната дата в неговия прозорец.
Ако не харесвате "суета с мишката", опитайте се да управлявате това приложение само от клавиатурата. Visual Basic автоматично присвоява най-често срещаните клавиши за управление на Windows приложения. Това са клавишите - "Enter", "Cursors", "Space", "Tab", "Esc" и други. Преместете мишката до далечния край на работния плот, стартирайте приложението от клавиатурата и работете с него. След това, все още без да използвате мишката, затворете приложението. В Урок 4 ще научите как можете да присвоите който и да е ключ на реакцията на приложението към действията на потребителя.
Form2.Show ‘ показва втората форма
За да избегнете объркване, когато създавате приложение с много прозорци, трябва да предшествате името на обекта с името на формуляра, към който принадлежи този или онзи обект. Например ред от кода за приложението Music CD Player сега ще изглежда така:
Form1.Label2.Caption = Date ‘ показва датата
А за втория етикет на втората форма можете да напишете например:
Form2.Label2.Caption = “Омск 2000 България”
Ако искате да скриете втория формуляр Form2 на който и да е етап от вашето приложение, включете реда в необходимата процедура за прекъсване:
Form2.Hide ‘ скриване на втората форма
Можете да поставите този програмен оператор, например, в процедурата за прекъсване на втория формуляр Form_Deactivate. Тази процедура ще се задейства при възникване на събитие като пасивното състояние на втория прозорец.
За да качите формуляра впамет съществува Изявление за зареждане. Например, за втората форма се прилага така:
Load Form2 ' зареждане на втория формуляр в паметта
За да разтоварите формуляр, използвайте оператора Unload. За да премахнете втората форма от паметта, е необходим програмен оператор:
Unload Form2 ‘разтоварване на втория формуляр от паметта
Ако командата Покажи се приложи преди да се изпълни командата Зареждане, тогава командата Покажи автоматично ще зареди формуляра и след това ще го покаже. Често обаче е необходимо да се използва операторът Load, например, за предварително зареждане на формуляр, съдържащ голям брой обекти. Тогава неприятното спиране ще бъде скрито от погледа на потребителя. Понякога, докато дадено приложение работи, е полезно да разтоварите формуляри от паметта, които в момента не се показват на екрана. Така ще се справите с претоварването на паметта.
1. В едно от приложенията на първия или втория урок добавете два нови прозореца. Първият от тези прозорци трябва да съдържа информация за текущата дата и час, а вторият да се превърне в музикален CD плейър.
3. Разгледайте сами обекта от тип Frame (Frame) и неговите свойства. Използвайте този обект, за да украсите вашите програми.
И по-нататък. Не забравяйте да проучите всички оптични дискове, които имате (дори с програми за игри), като ги стартирате от създадения от вас плейър. Понякога съвсем неочаквано започват да звучат мелодии от програми, в които трябва да се възпроизвеждат само докато тези програми работят.