Пішіннің түрі үлгісі суретте ұсынылған

жүктеу/скачать 0,78 Mb.

бет	2/2
Дата	13.06.2020
өлшемі	0,78 Mb.
	#73357

1 2

Байланысты:
Бағдаршам

Мысал бағдаршам

Жұмысты орындау реті:

1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

2. Пішінге келесі басқару элементтерін орнатып, қасиеттерін кестеге сәйкес өзгертіңдер:

Объект	Қасиеттері
Объект	Index	Shape	Backcolor	Backstyle	Caption	Interval
Shape1	0	Circle	Қызыл	1-Opaque
Shape1	1	Circle	Жасыл	1-Opaque
Shape1	2	Circle	Сары	1-Opaque
Shape1	3	Circle	Қара	1-Opaque
Shape1	4	Circle	Қара	1-Opaque
Shape1	5	Circle	Қара	1-Opaque
Shape1	6	Rectangle	Қоңыр	1-Opaque
Timer1						100
Form1					Бағдаршам

3. Пішінді екі рет басып, келесі процедураны толтырыңдар:

Dim k, i As Integer

Private Sub Form_Load()

Timer1.Enabled = True

k = 0

For i = 0 To 2

Shape1(i).Visible = False

End Sub

4. Timer1 объектісі үшін келесі процедураны жазамыз:

Private Sub Timer1_Timer()

k = k + 1

If k >= 10 And k < 20 Then

Shape1(0).Visible = True

Else

Shape1(0).Visible = False

End If

If k >= 20 And k < 30 Then

Shape1(1).Visible = True

Else

Shape1(1).Visible = False

End If

If k >= 30 And k < 40 Then

Shape1(2).Visible = True

Else

Shape1(2).Visible = False

End If

If k = 40 Then k = 0

End Sub

5. Қосымшаны іске қосып, нәтижесін алыңдар.

Тапсырма 1: Екі санды енгізгенде таңдалған амалдар бойынша есептеу әрекеті (при «+», «-», «*», «/» батырмаларын таңдау арқылы) орындалып, әрекет нәтижесін көрінуі керек. Егер сан-ды 0-ге бөлген жағдайда MsgBox процедурасы хабарлама шығартындай «/» батырмасының әрекетін толықтыру.
Сұрақтар:
1. Пішінде қандай нысандар( элементтер) қажет болады (мүмкін жауаптары: мәтіндік өріс, жазу)
2. Пайдаланушы программада қандай әрекет жасауы тиіс? (сандар енгізеді)
3. Программа қандай әрекеттер жасауы тиіс? (енгізілген мәтінді оқып, санға айналдырып, таңдалған амалды орындап, нәтижесін жазу)

4. Амалды орындайтын қандай нысанды(элемент) программалаймыз? (батырма)
5. Батырманың программалық коды қалай болады?
Private Sub CommandButton1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label4.Caption = "+"
End Sub
Private Sub CommandButton2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label4.Caption = "-"
End Sub
Private Sub CommandButton3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label4.Caption = "*"
End Sub
Private Sub CommandButton4_Click()
If Val(Text2.Text) 0 Then
Text3.Text = Val(Text.Text) / Val(Text2.Text)
Label4.Caption = "/"
Else
MsgBox ("деление на ноль")
End If
End Sub

6. Мәтіндік өрістегі сандар өшірілетіндей батырма дайындап, әрекетін жазу.
Private Sub CommandButton5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
End Sub
7. Шығу батырмасын программадан шығуды орындайтындай етіп дайындау
Private Sub CommandButton6_Click()
End
End Sub

Тапсырма 2. a,b,x бүтін сандары берілген. Меншіктеу қажет:

Тапсырма 3. Фирма қызметкерді жұмысқа қабылдауда. Қабылдау шарты жұмыс стажының 3 жылдан кем болмауын және жасы 35-тен үлкен болмауын талап етеді. Үміткердің осы талапты қанағаттандыратынын тексеретін бағдарлама жаз.

Тапсырма 4. Берілген сан х нақты саны х>0 – ден болса, онда х - ті екіге арттыр, әйтпесе х - ті екі еселе.
Тапсырма 5. IF, THEN, ELSE операторларын қолданып, функцияның мәнін тап:

Тапсырма 5. Адам денесінің температурасына қарай мына төмендегі деректер бойынша программа құрыңдар:

температурасы жоғары:

температурасы жоғары емес;

жүктеу/скачать 0,78 Mb.

Достарыңызбен бөлісу:

1 2