Үшінші пішін үшін:
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
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
Достарыңызбен бөлісу: |