Ўзбекистон республикаси олий ва ўрта махсус таълим вазирлиги низомий номидаги тошкент давлат

Элементы управления (бошқариш элементлари) бандидаги тугмаларини 
кўринг. (Одатда бу бўлим меню сатрида кўринмайди, уни рўйхатга кўшиш учун 
файл менюсидан "Параметры" тугмаси босилади ва очилган мулокот ойнани чап 
тарафидан "Настройка ленты" (созлаш бўлими) танланади. Шунда ўнг томонда 
менюдаги бўлимлар кўрсатилади. Ушбу ойнадан "Разработчик" (Яратувчи) 
бўлими танланган холда "Ок" тугмаси босилади. Натижада менюлар каторида 
"Разработчик" бўлим хосил бўлади).
3. Элементы управления бўлимидан флажок 
тугмаси танлаб слайдда устун 
килиб 6та флажокларни жойлаштиринг. Уларга javob1, javob2, javob3, javob4, 
javob5, javob6 деб ном беринг. Буларнинг хар бири учун Caption хусусиятини 
танлаб номлари киритинг “and, or”, “not, nop”, “nand, xor”, “shr, xor”, “imp, 
ekv”, va “or, xor” (курулма номи олдидан 2 пробел кўшинг). Хар бир флажок 
учун Font хусусиятини танлаб Arial шрифтга ва 20 пункт билан йитти шрифтга 
ўтказинг.
4. Бошкариш панелидан кнопка танланг, слайдда дастурий тугмани 
жойлаштиринг. Унга текшириш деб ном беринг ва хусусиятларини ўзгартиринг: 
Caption – tekshirish; 
Font – Arial шрифтини устида сичкончани босиб, ўнг тарафда пайдо бўлган 
тугмачани босиб 16 пункт ва йитти шрифтни танланг.
5. Бошкарув панелидан Поле тугмасини танлаб, слайдда яратилган тугма 
ёнида матн киргизиш майдонини жойлаштиринг ва унга javobi деб ном беринг.
6. Яратилган дастурий тугма устида сичкончани икки марта босиб кодлар 
ойнасига кейингги сатрларни киритинг : 
Private Sub baho_Click() 
baho1 = javob1.Value 
baho2 = javob2.Value 
baho3 = javob3.Value 

---

204 
baho4 = javob4.Value 
baho5 = javob5.Value 
baho6 = javob6.Value 
tuliq = baho1 And baho4 And baho5 And baho6 
xato = baho2 Or baho3 
yarim = baho1 Or baho4 Or baho5 Or baho6 
If xato Or (Not yarim And Not xato) Then javobi.Text = "Natoʻg`ri javob" 
If Not xato And yarim Then javobi.Text = "Toʻliq javob emas" 
If tuliq And Not xato Then javobi.Text = "Toʻg`ri javob" 
End Sub 
Янги яратилган флажокларнинг хохлаган бири танлаган пайтимиз бахо чикариш 
майдонини тозалаш учун хар бир флажок устида сичкончани икки марта босиб 
дастурли кодларни киритамиз : 
Private Sub javob1_Click() 
javobi.Text = "" 
End Sub 
Private Sub javob2_Click() 
javobi.Text = "" 
End Sub 
Private Sub javob3_Click() 
javobi.Text = "" 
End Sub 
Private Sub javob4_Click() 
javobi.Text = "" 
End Sub 
Private Sub javob5_Click() 
javobi.Text = "" 
End Sub 
Private Sub javob6_Click() 
javobi.Text = "" 
End Sub 
7. Жорий слайддан бошлаб, ўзгартиришлар киритилган такдимотни саклаб 
кўриш учун ишга тушуринг. Флажоклар хар хил комбинatsiяларини танлаб, 
tekshirish тугмасини сичконча билан босиб тест топшириклари натижаларини 
текшириш механизмини ишлашини текшириб кўринг: хеч бир флажок 
белгиланмаган бўлса - " Notoʻg`ri javob" деб сўзли бахо чикиши керак; тўгри 
флажоклар хаммаси белгиланмаган, лекин нотўг`ри дегандан биттаси хам 
белгиланмаган - "Toʻliq javob emas" деган сўзли бахо чикариши керак; тўгри 
флажоклар хаммаси белгиланган, лекин нотўг`ри дегандан биттаси хам 
белгиланмаган - "Toʻg`ri javob" деган сўзли бахо чикариши керак. Бундай 
тақтимотлар орқали дарс ўтилса макрослар билан ишлаш яхши натижа беради.