ПоәК 042-14 07 20. 130/03-2012 03. 09. 2012ж. №1 басылым



жүктеу 4,7 Mb.
бет17/20
Дата24.12.2017
өлшемі4,7 Mb.
#5719
1   ...   12   13   14   15   16   17   18   19   20
Үшінші пішін үшін:

Private Sub Form Load ()

Form3.Left=10

Form3.Top=10

Form3.Height=Screen. Height

Form3.Width=Screen. Width

Form3.Caption=’5 саны’

x= Form3.Height

y= Form3.Width

Command1. Left=x-20

Command1.Top=y-4500

End Sub
Private Sub Command1_Click ()

If Text1.Text=””Then Text1.SetFocus

If Text1.Text=”5” Then n=1

Form3.Visible=False

Form4.Show



End Sub


  1. 4-пішін. Picture қасиетінде сурет файлына жол сілтейміз. Пішінге келесі объектілерді орналастырамыз: Picture қасиеті батырмасына сурет файлынан жол көрсетіледі, Style қасиетіне - Graphical орналастырамыз. Caption қасиетті 1-белгіге-Қосындыны есепте деп тағайындаймыз. Caption қасиетінің екіншісін бос шаршылармен толтырамыз.

Алты мәтіндік өріс, Text қасиетіндегі мәтіндік өрісті тазалаңдар, Back Color қасиетінде сары түсті таңдаңдар. Пішіннің қажетті қасиеттері мен батырмаларын пішінді жүктеу барысында бағдарламалық жолмен өзгертеміз. Пішіннің келбеті суретте ұсынылған.




Төртінші пішіннің коды:

Private Sub Form Load ()

Form4.Left=10

Form4.Top=10

Form4.Height=Screen. Height

Form4.Width=Screen. Width

Form4.Caption=’5 саны’

x= Form4.Height

y= Form4.Width

Command1. Left=x-50

Command1.Top=y-4500

End Sub
Private Sub Command1_Click ()

If Text1.Text=””Then Text1.SetFocus

If Text2.Text=””Then Text2.Set Focus

If Text3.Text=””Then Text3.Set Focus

If Text4.Text=””Then Text4.Set Focus

If Text5.Text=””Then Text5.Set Focus

If Text6.Text=””Then Text6.Set Focus

If Text1.Text=”4” Then m=m+1

If Text2.Text=”1” Then m=m+1

If Text3.Text=”5” Then m=m+1

If Text4.Text=”3” Then m=m+1

If Text5.Text=”2” Then m=m+1

If Text6.Text=”5”Then m=m+1

Form4.Visible=False

Form5.Show



End Sub
6. 5-пішін. Picture қасиетінде сурет файлына жол сілтейміз. Пішінге келесі объектілерді орналастырамыз: Picture қасиеті батырмасына сурет файлынан жол көрсетіледі, Style қасиетіне - Graphical орналастырамыз. Пішіннің қажетті қасиеттері мен батырмаларын пішінді жүктеу барысында бағдарламалық жолмен өзгертеміз. Пішіннің келбеті суретте ұсынылған.




Бесінші пішіннің коды:

Private Sub Command1_Click ()

Form5.Visible=False

Form6.Show

End Sub

Private Sub Form Load ()


Form5.Left=10

Form5.Top=10

Form5.Height=Screen. Height

Form5.Width=Screen. Width

Form5.Caption=’5 саны’

x= Form5.Height

y= Form5.Width

Command1. Left=x-50

Command1.Top=y-4500

End Sub



2. ЗЕРТХАНАЛЫҚ САБАҚТАР

(Барлық зертханалық жұмыстар 4 сағатқа арналған)

Зертханалық жұмыс №1

жүктеу 4,7 Mb.

Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   20




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау