Ажыратып қосқыш батырмалары. Бағдаршам (Светофор) бағдарламасын құру

Ажыратып қосқыш батырмалары. Бағдаршам (Светофор) бағдарламасын құру

.

   Жоспар:

1. Программа баяндамасы.

2. Фигураларды орналастыру және түрлендіру.

3. Программалау және программаны іске қосу.

        Проектің баяндамасы.

        Маус көрсеткішінің үңіліуне жауап беретін үш лампалы светофордың суретін салайық. Программа терезесінің жуықтап көрінісі суретте келтірілген. Бұл программа үшін бізге бір Shape компоненты керек. Visual Basic жүйесін іске қосыңда Светофор проектын жасаң. Формада объекттерді-лампочкаларды жайластыру керек - Shape компонентасы. Бірінші фигураны форманың сол жоғарғы бұрышқа жайластырың. Жаңа фигура қара рамка көрінісінде бейнеленеді. Формаға тағы екі фигура қосамыз. Оларды біріншісінен төменде жайластырамыз. Width және Height қасиеттерін – 900 етіп аламыз. Лампочка жұмалақ болуы үшін қасиетіне 3 - Circle мәнін енгіземіз. Фигура контурдан және түрлі түсқа боялатын ішікі облыстан құрастырылған. Контур түсі BorderColor қасиетімен анықталады – Palette қызыл түсті алың. Фигураның ішкі облыст түсі FillColor қасиетімен белгіленеді. Оған шегере түсін таңдаң. Осы жолымен қалған  Shape2 және Shape3 фигураларды икемдейміз. Олар түстерімен ажыралады. Екінші лампочка үшін сарық түсті, ал үшіншісіне көк түсті аламыз. Қалаған лампочканы екі рет шертің. Код терезесіндегі ашылушы сол тізімден форманы алың. Оң тізімнен MouseMove оқиғасын алың, ол орындалады, егер маус көрсеткіші формаға яғни программа терезесіне үңілгенде. [pic 1]

        Түнық фигура үшін толтыру vbFSTranparent константамен беріледі, ал тұтас бояу – vbFSSolid константасымен. Біздің функция (оны OnShape деп атаймыз) осы мәндерін қайтарады. Қандай паремтрлерді функцияға беруімізді шешу қалды. Біріншіден қайсы фигура тексерілуін көрсету керек. Екіншіден функцияға маус көрсеткіш координаталарын узату керек. Функциядан алынған мәнін толтыру әдісін көрсететін қасиетке беру керек. Бірінші лампочканы қосу немесе узу мынадай орындаса болады: Shape1.FillStyle = OnShape (Shape1, X, Y) [pic 2]

        Үхсас операторларды қалған фигураларға да жазуға болады:

Shape2.FillStyle = OnShape(Shape2, X, Y): Shape3.FillStyle = OnShape(Shape3, X, Y). Осы операторлар Form_MouseMove процедураның мазмунына кіреді.

        OnShape процедурасын жасау үшін тікелей буйрық беру керек - Tools>Add procedure. Аттас диалогты терезе ашылады. Name өрісінде процедура атын жазың - OnShape. Туре панелінде Function қайтып қосқышты орнатың. Scope (Доступ) панелінде Private (Закрытая) қайтып қосқышты орнатың. ОК кнопкасын шертің. Код терезесінде мынадай операторлар жазылады: