Дістемелік нұсқаулар

Циклдік бағдарламалар.

Visual Basic процедураларында ќайталану процестерін ұйымдастыру үшін келесі циклдік операторлар ќолданылады:

1. For K=m To n Step p

Цикл денесі

Next K

Цикл параметрі алғашќы мәні мен соңғы мәнінің арасында жаса цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

2. While K<n

Цикл денесі

Wend

While операторындағы шарт орындалғанша цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

3.Do While K<n

цикл денесі

Loop

Do While операторындағы шарт орындалғанша цикл денесі орындалады, әйтпесе цикл тоќтап, басќару циклден кейінгі операторға беріледі.

4.Do Until K<n

цикл денесі

Loop

Do Until операторындағы шат орындалмаса цикл денесі орындалады, орындалса цикл тоќтап, басќару циклден кейінгі операторға беріледі.

Сондай-аќ бағдарламалаушы Visual Basic процедураларында цикл операторларын ќолданып цикл ішіндегі цикл ұйымдастыруына болады. Оларды ұйымдастыру және орындалу ережелері Бейсиктегі сияќты.

Тапсырма мақсаты: 1 санынан бастап 500-ге дейінгі таңдалған бүтін сандардың жалпы қосындысын беретін программа жасау.

“Қосынды” программасының орындалуы:

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

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

Объект	Қасиеті	Мәні
Form1	Name Caption	FrmSum Программа «Сумма»
CommandButton	Name Caption	CmdExit &Выход
TextBox	Name Alignment Text Multiline Enabled	TxtResult 2-center - 1-True 0-False
VscrollBar	Name Max Min Value	VsbNum
CommandButton	Name Caption	CmdSumlt &Суммировать
Label	Name Caption	LblNum Выбранное число: 1

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

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

Private Sub CmdExit_Click()

End

End Sub

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

Private Sub CmdSumlt_Click()

Dim i

Dim r

For i=1 To VSbNum.Value Step 1

R=r+i

Next

TxtRezult.text =Str(r)

End Sub

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

Private Sub VsbNum_Change()

LblNum=«Выбранное число:»+Str(VsbNum.Value)

End Sub

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

Private Sub VsbNum_Scroll()

VsbNum_Change

End Sub

Өз бетімен орындауға арналған тапсырмалар:

Циклдық операторларды пайдаланып, бағдарлама құру.

Лабораториялық жұмыс №15 (1 сағат)

Тақырыбы: «Амалдық жүйелердің негізгі элементтері»

Жұмыстың мақсаты: Амалдық жүйелердің (АЖ) негізгі концепцияларын, АЖ функционалдануын, АЖ декомпозициясының әдістерін оқып-үйрену

Тапсырма:

1. Амалдық жүйелердің негізгі концепцияларын қарастыру

2. Windows АЖ мүмкіндіктерін, АЖ функционалдануын оқып-үйрену

3. Амалдық жүйенің декомпозиция әдістерімен танысу

4. Процестермен басқару. Жоспарлау және диспетчеризация

5. Есеп беруді құру