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

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

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

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

Private Sub Command1_Click ()

Form5.Visible=False

Form6.Show

End Sub

Private Sub Form Load ()

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