Guliston davlat universiteti axborot texnologiyalari kafedrasi



Download 5,64 Mb.
Pdf ko'rish
bet69/145
Sana02.12.2022
Hajmi5,64 Mb.
#876946
1   ...   65   66   67   68   69   70   71   72   ...   145
Bog'liq
portal.guldu.uz-Kompyuter ta`minoti

 
 Amaliy mashg‘ulotlar
1-amaliy mashg`ulot. Mavzu: Dasturlash texnologiyasi va algoritm. Yuqori 
va Quyi darajali dasturlash tillari va ularning turlari 


2-amaliy mashg`ulot. Mavzu: Delphi, C++, Visual Basic dasturlarida sodda 
masalalar bilan ishlash
Visual Basic dasturlash tili
 
Struktura boshqaruvchilari
Izoh: Biz struktura boshqaruvchilarini ham operator deb qaraymiz. 
Yuqorida ko’rilgan operatorlar ifodalarda ishlatiladi. Hozirgi ko’rayotgan 
operatorlar esa usha ifodalarni hisoblashni bajarishga mo’ljallanadi. Bu operatorlar 
o’rtasidagi farqni tushunish mumkin.
1.Shartli operator If...End If
Bu operator u yoki bu amalni bajarish kerekmi yoki yo’qligi haqida qaror qabul 
qilishda zarur. Boshqacha aytganda agar mantiqiy ifoda rost bo’lsa u holda 
operator bjariladi. Agar yolg’on bo’lsa operator bajarilmaydi.
If
mantiqiy ifoda 
Then
operator
Yoki murakkabi
If
mantiqiy ifoda 
Then operatorlar guruppasi 
End If
Birinchi holatda operator bitta keyingi holatda bir nechta operator.
Masalan:
If
(a = b) 
And
(c <> d) 
Then 
b = d a = 20
End If
2. Shartli operator Select Case...End Select
Select Case konstrukturasi bitta ifodaning qiymatini tahlil qilish asosida “qaror 
qabul” qiladi. Lekin bu ifoda Select Case satrida ko’rsatiladi:
Select Case
tahlil qilinadigan ifoda
Case
qiymat№1
Operatorlar guruhi
Case
qiymat№2
Operatorlar guruhi
Case
qiymat№N
Operatorlar guruhi 
Case Else 
operatorlar guruhi
End Select
3. For...Next sikl operatori
Bu sikl operatori hisoblagichning boshlang’ich va oxirgi qiymatlari oldindan 
ma’lum bo’lganda qo’llaniladi. Operator sintaksisi quyidagicha:


For sikl hisoblagichi
= start 
To
stop 
Step
qadam operatorlar guruhi
Next [sikl hisoblagichi]
Sikl hisoblagichi nomi oldindan e’lon qilingan butunsonli o’zgaruvchi bo’lishi 
mumkin. Qadam sikl hisoblagichiga har bir o’tishda orttirma beradi. Agar alohida 
ko’rsatilmasa qadam 1 ga teng deb oliadi.
Misol:
Ushbu misolda iArray massivning barcha elementlariga 5 qiymati beriladi.
Dim

As Integer 
Dim
iArray(10) 
As Integer 
For
c = 0 
To
10
iArray(c) = 5
Next
c
4.For Each...Next sikl operatori 
Operator sintaksisi:
For Each
ob’ekt nomi 
In
kolleksiya nomi
Ob’ektlarustida amallar
Next
ob’ekt nomi 
Misol:
Ushbu misolda formada yotuvchi barcha (Label) etiketlardagi BackColor 
xossalarni o’zgartirish ko’rsatilgan
Dim

As Object 
For Each

In
Me.Controls
If
TypeName(x) = "Label" 
Then
x.BackColor = 0
End If 
Next
x
4.
Do While...Loop / Do...Loop While sikl operatori 
While sikli sintaksisi:
Do While
chiqish sharti
Operatorlar guruhi
Loop
Do
operatorlar guruhi 
Loop While
chiqish 
sharti
5.
Do Until...Loop / Do...Loop Until sikl operatori 
Sintaksisi:
Dim

As 
Integer 
n = 
100 
Do
n = 
n – 1


Debug
.Print n
Loop Until
n < 11
6.
Siklda chiqish Exit For / Exit Do
Exit...operatori yordamida ixtiyoriy paytda sikldan chiqish mumkin.
Misol:
Dim

As 
Integer 
n = 10 
Do While
n > 
1 n = n – 1 
Debug
.Print n
If
n = 5 
Then Exit Do
' Agar hisoblagich = 5, u holda
'sikldan chiqamiz 
Loop
Misol. To`rtta sondan kattasini toppish 
dasturi. Private Sub Command1_Click()
Dim A, B, C, D, R1, R2, MAX, MIN As Single
A
= Val(Text1.Text)
B
= Val(Text2.Text)
C
= Val(Text3.Text)
D
= Val(Text4.Text)
If A > B Then
R1 = A
Else
R1 = B
End If
If C > D Then
R2 = C
Else
R2 = D
End If
If R1 > R2 Then
MAX = R1
Else
MAX = R2
End If
If A < B Then
R1 = A
Else
R1 = B


End If
If C < D Then
R2 = C
Else
R2 = D
End If
If R1 < R2 Then
MIN = R1
Else
MIN = R2
End If
Text5.Text = Str(MAX)
Text6.Text = Str(MIN)
End Sub
Misol. Kiritilgan to`rt xonali sonning raqamlari yig`indisini topish.
Private Sub Command1_Click()
Dim intN, intKE, intKD, intKS, intKT, intS 
As Integer a = Val(Text1.Text) intKE = intN 
Mod 10 a = intN \ 10 intKD = intN Mod 10
intN = intN \ 10 intKS = intN Mod 10 intKT 
= intN \ 10
intS = intKE + intKD + intKS + intKT
Text2.Text = Str(intS)
End Sub
Misol. 1 dan 10 gacha bo`lgan natural sonlar yig`inside.
Private Sub Command1_Click()
Dim a, s As 
Integer a = 1
Do While a 
<= 10 s = s + 
a a = a + 1
Loop
Label1.Caption = s
End Sub


Misol. 
ax
2
+bx+c=0
Kvadrat tenglama 
ildizlarini toppish. Private Sub 
CommandButton1_Click() a = Cells(1, 1) b = 
Cells(1, 2) c = Cells(1, 3)
If a = 0 Then
Cells(1, 4) = "Kvadrat tenglama emas"
Else d = b * b - 
4 * a * c
If d < 0 Then
Cells(1, 4) = "Yechim yo`q"
Else If d = 
0 Then x = 
-b / 2 * a 
Cells(1, 4) 
= x
Else If d > 0 Then 
x1 = -b + Sqr(d) / 
2 * a x2 = -b - 
Sqr(d) / 2 * a
Cells(1, 4) = x1
Cells(1, 5) = x2
End If
End If
End If
End If
End Sub

Download 5,64 Mb.

Do'stlaringiz bilan baham:
1   ...   65   66   67   68   69   70   71   72   ...   145




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish