Семинар топтамасы



жүктеу 0,65 Mb.
Pdf просмотр
бет4/21
Дата31.05.2018
өлшемі0,65 Mb.
#18558
түріСеминар
1   2   3   4   5   6   7   8   9   ...   21

Жобада  қажеттілік  бойынша  шақырылатын  алты  пішін  қолданылады.  

Public k As Integer

   

Public n As Integer  Public m As Integer



Public c As Integer

  

Public b As Integer



1-пішін

   

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

2-пішін   Private Sub Command1_Click()

If Text1.Text = "" Then Text1.SetFocus

If Text1.Text = "5" Then k = 1

Form2.Visible = False

Form3.Show

End Sub


3-пішін  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-пішін  Private Sub Command1_Click()

If Text1.Text = "" Then Text1.SetFocus

If Text2.Text = "" Then Text2.SetFocus

If Text3.Text = "" Then Text3.SetFocus

If Text4.Text = "" Then Text4.SetFocus

If Text5.Text = "" Then Text5.SetFocus

If Text6.Text = "" Then Text6.SetFocus

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


5-пішін  Private Sub Command1_Click()

If Text1.Text = "" Then Text1.SetFocus

If Text2.Text = "" Then Text2.SetFocus

If Text3.Text = "" Then Text3.SetFocus

If Text4.Text = "" Then Text4.SetFocus

If Text5.Text = "" Then Text5.SetFocus

If Text6.Text = "" Then Text6.SetFocus

If Text7.Text = "" Then Text7.SetFocus

If Text1.Text = "3" Then c = c + 1

If Text2.Text = "5" Then c = c + 1

If Text3.Text = "1" Then c = c + 1

If Text4.Text = "4" Then c = c + 1

If Text5.Text = "5" Then c = c + 1

If Text6.Text = "3" Then c = c + 1

If Text7.Text = "2" Then c = c + 1

b = k + m + n + c

Form5.Hide

Form6.Show

End Sub

6-пішін  Private Sub Command1_Click()

End


End Sub

Private Sub Form_Load()

If b = 15 Then

Label1.Caption = "ЖАРАЙСЫҢ!!!"

9



Label2.Visible = False

End If


If b < 15 And b > 0 Then

Label1.Caption = "Мұқият"

Label2.Caption = "Бол!!!"

End If


End Sub

Бекіту (компьютерде  тапсырмалар  орындау)

№1  «Баланың қозғалысы» жобасы

Адамның жоғары-оңға, жоғары-солға, төмен-оңға, төмен-солға жылжитын жобасын жасайық.

Пішіндегі объектілер Left және Top  қасиеттерімен басқарылады.

Top – батырмадан  пішіннің жоғары жағына дейінгі ара қашықтығы

Left - батырмадан  пішіннің  сол жағына дейінгі ара қашықтығы

Пішінге  Image объектісін енгіземіз.  Stretch қасиетінен  True мәнін береміз. «Адам» пішініндегі  суретті 

таңдаймыз. 

Пішінге Command1 және  Command2 орналастырып Caption қасиетіне тиісінше «Жоғары және оңға қарай 

қозғалту» «Төменге және солға қарай қозғалту» мәтінін береміз, код терезесіне келесі процедурасын енгіземіз:

 Private Sub Command1_Click()

Dim I As Integer 

Dim left As Single

Dim top As Single

left = Image1.left

top = Image1.top

For I = 1 To 100 Step 1

left = left - 10

top = top - 10

Image1.Move left, top

Next I


End Sub

Private Sub Command2_Click()

Dim I As Integer 

Dim left As Single

Dim top As Single

left = Image1.left

top = Image1.top

For I = 1 To 100 Step 1

left = left + 10

top = top + 10

Image1.Move left, top

Next I


End Sub

Жобаны іске қосыңыз. 



Жобаны іске қосып, нәтиже шыққан соң  бағдарламалық кодты дәптерге жазамыз.

 №2  “Бағдаршам” программасының орындалуы:

Visual Basic ортасын ашып, жаңадан проект құрыңыз.



Формаға келесі элементтерді орналастырыңыз және қасиеттерін өзгертіңіз:

Объект

Қасиеті


Мәні

Form1


Caption

Светофор


Shape1 

Shape1


Rounded Rectangle 

Label1 


Caption

BackColor

Label1 мәнін өшіру

Қызыл


Label2 

Caption


BackColor

Label2 мәнін өшіру

Ақ

Label3 


Caption

BackColor

Label3 мәнін өшіру

Ақ 


Label4 

Caption


BackColor

Label4 мәнін өшіру

Ақ

Label5


Caption

Бағдаршамды тышқанмен шертіңіз

Shape2 (Label1-дің үстіне) 

Shape 


3-Circle

10



BorderColor

FillColor

FillStyle

Қызыл түс таңдау

Қызыл түс таңдау

0-Solid


Shape3  (Label2-дің үстіне)

Shape 


BorderColor

FillColor

FillStyle

3-Circle


Cары түс таңдау

Сары түс таңдау

0-Solid

Shape4 (Label3-дің үстіне)



Shape 

BorderColor

FillColor

FillStyle

3-Circle

Жасыл түс таңдау

Жасыл түс таңдау

0-Solid


3. Келесі кодтарды жазу:

- Label1 элементін екі рет шертіп, шылған код терезесіне келесі процедураны енгізіңіз:

Private Sub Label1_Click()

Label1.BackColor = vbRed

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

Label4.Caption = "Токтаныз!"

End Sub


- Label2 элементін екі рет шертіп, шылған код терезесіне келес процедураны енгізіңіз:

Private Sub Label2_Click()

Label1.BackColor = vbWhite

Label2.BackColor = vbYellow

Label3.BackColor = vbWhite

Label4.Caption = "Дайындал"

End SubLabel2 элементін екі рет шертіп, шылған код терезесіне келес процедураны енгізіңіз:

Private Sub Label3_Click()

Label1.BackColor = vbWhite

Label2.BackColor = vbWhite

Label3.BackColor = vbGreen

Label4.Caption = "Жур!"



   

End Sub


№3  Төбелерінің координаталары бойынша үшбұрыш шығаратын қосымша жасау

Форманың ScaleMode қасиетіне Pixel мәнін, Caption қасиетіне “Үшбұрыш шығару” мәнін жазыңыз 

Формаға Picture1 объектісін түсіріп, BackColor қасиетіне ақ түс орнатыңыз.

Формаға үшбұрыштың төбелерінің координаталарын енгізу үшін қызмет ететін Text1, Text2, Text3, Text4, Text5, 

Text6 объектілерін түсіріп, Text қасиеттерін тазалаңыз. Олардың жанына түсініктеме ретінде қызмет ететін 

Label1, Label2, Label3, Label4, Label5, Label6 объектілерін түсіріп,  Caption қасиеттеріне ретімен Х1=, Y1=, X2=, 

Y2=, X3=, Y3= мәндерін жазыңыз.

Формаға Command1 объектісін түсіріп, Caption қасиетіне ОК деп жазыңыз. 

Command1_Click() процедурасына өтіп, үшбұрыш шығару процедурасын жазыңыз. 

Private Sub Command1_Click()

' координаталарды меншіктеу

X1 = Val(Text1.Text)

Y1 = Val(Text2.Text)

X2 = Val(Text3.Text)

Y2 = Val(Text4.Text)

X3 = Val(Text5.Text)

Y3 = Val(Text6.Text)

'сетка шығару

Picture1.Cls

Picture1.DrawWidth = 1

For k = 10 To Picture1.Width Step 10

Picture1.Line (k, 0)-(k, Picture1.Height)

Next k

For i = 10 To Picture1.Height Step 10



Picture1.Line (0, i)-(Picture1.Width, i)

Next i


'Үшбұрышты шығару

Picture1.DrawWidth = 3

Picture1.Line (X1, Y1)-(X2, Y2), vbRed

11



жүктеу 0,65 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   ...   21




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

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