• Label1 Caption a qator(son) Label2
  • Label3 Caption С qator Label4
  • Label5 Caption a va b sonlarining yig‘indisi Label6
  • Label7 Caption Probellarni olib tashlash Label8
  • Label9 Caption Qism qatorni qidirish Label10
  • Label11 Caption Tartibi Command1
  • Command2 Caption Tugatish Text1, Text2
  • 10.15. Massivlar Massiv
  • Dim ( , ,... )As
  • Dim Arrayl(9) as integer
  • -misol: Qator turidagi funksiyalarni ishlatish




    Download 5,61 Mb.
    bet130/143
    Sana15.03.2021
    Hajmi5,61 Mb.
    #13226
    1   ...   126   127   128   129   130   131   132   133   ...   143

    7-misol: Qator turidagi funksiyalarni ishlatish


    10.16-rasm




    Ob’yekt

    Xossa

    O‘rnatilgan qiymatlari

    Form1

    Caption

    Qatorli funksiyalarni ishlatishga misol

    Label1

    Caption

    a qator(son)

    Label2

    Caption

    b qator (son)

    Label3

    Caption

    С qator

    Label4

    Caption

    a va b ning konkatenatsiyasi

    Label5

    Caption

    a va b sonlarining yig‘indisi

    Label6

    Caption

    C qatorining uzunligi

    Label7

    Caption

    Probellarni olib tashlash

    Label8

    Caption

    Yuqori registr

    Label9

    Caption

    Qism qatorni qidirish

    Label10

    Caption

    Qism qator boshidan

    Label11

    Caption

    Tartibi

    Command1

    Caption

    Bajartirish

    Command2

    Caption

    Tugatish

    Text1, Text2,

    Text3, Text4,

    Text5, Text6,

    Text7, Text8,

    Text9, Text10,

    Text11

    Text

    Text xossasi maydonini tozalash











    10.17-rasm



    Dastur kodi

    Option Explicit

    Private Sub Command1_Click()

    Dim stra, strb As String

    Dim inta, intb As Integer

    Dim strC


    stra = Text1.Text

    strb = Text2.Text

    strC = Text3.Text

    Text4.Text = stra & strb

    inta = Val(stra)

    intb = Val(strb)

    Text5.Text = Str(inta + intb)

    Text6.Text = Len(strC)

    Text7.Text = Trim(strC)

    Text8.Text = UCase$(strC)

    Text9.Text = InStr(strC, stra)

    Text10.Text = Left(strC, 10)

    Text11.Text = StrReverse(strC)

    End Sub


    Private Sub Command2_Click()

    End


    End Sub

    10.18-rasm



    10.19-rasm



    10.15. Massivlar
    Massiv - bu o‘zgaruvchi, unda bir vaqtda bir tipdagi bir necha qiymatlar saqlanadi. U o‘zini bir tipdagi indeksi o‘zgaruvchilar yig‘indisi hisoblanadi. Massivning qo‘llaniladigan indeksi soni xar xil bo‘lishi mumkin. Ko‘pinchalik bir yoki ikki indeksli massivlar qo‘llaniladi, ba’zan -uch indeksli, undan ko‘p sonli indekslar kam uchraydi. VB 60tagacha indekslar qo‘llashi mumkin. Massivning indekslar soni massivning razmerini belgilaydi. Bir indeksli massiv bir o‘lchovli massiv deyiladi. Ikki indeksli –ikki o‘lchovli va hokazo.

    Katta sonli massivlar katta xotirani egallaydi, shuning uchun ularni qo‘llashda ehtiyot bo‘lish kerak. Massiv qo‘llashdan avval uni operator Dim yordamida e’lon qilish lozim va unda massivda qiymatlar qaysi tip da saqlanishini ko‘rsatish kerak. Hamma qiymatlar massivda bir tipdagi ma’lumotlar turiga qarashli bo‘lishi majburiy. Bu chegaralashni amaliyotda chetlab o‘tish mumkin, buning uchun massiv e’lon qilinganda Variant tipidan foydalanish mumkin, bunda massiv elementlari xar xil tipdagi qiymatga ega bo‘lishi mumkin.

    Quyida massivni e’lon qilish operatorining sintaksisi:
    Dim(, ,... )As
    Bunda qavsda ko‘rsatilgan kattaliklar , va hokazolar massiv kattaligini - indekslar soni shu indeks uchun maksimal mumkin bo‘lgan qiymatni beradi. Bunda massivning elementlar indeksatsiyasi o‘rnatilgan bo‘yicha noldan boshlanadi. Shunda Dim Arrayl(9) as integer ni e’lon qilinishi butun tipdagi o‘zgaruvchi bo‘lgan 10 elementdan iborat bir o‘lchovli massivni aniqlaydi.


    Download 5,61 Mb.
    1   ...   126   127   128   129   130   131   132   133   ...   143




    Download 5,61 Mb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    -misol: Qator turidagi funksiyalarni ishlatish

    Download 5,61 Mb.