,
13 Visual basic-те деректер массивтері
БІРӨЛШЕМДІК МАССИВТЕР
Массив –индекстелінген деректердін жиынтығы. Массивті, қолдану алдында, міндет ретінде хабарландыру қажет. Ол үшін Dim амалың қолданады.
Dim массив аты (өлшемі) as [тип]
Мысал:
Dim y(40) as single – 40 нақты саңдық типті элементтерден тұратың y массві хабарланды.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
y(0) y(1) … y(40)
1.1 Массивтін элементтерін енгізу
1. Сұрау терезесі арқылы енгізу
Массив аты(индекс)=val(InputBox(“Сұрау”))
Мысал:
For i = 1 To 20
x(i) = InputBox("Введите x(" & i & ")")
Next
1.2 Массивтін элементерінін мәндерін бағдарламада есептеу
Массив аты(индекс)=өрнек
1 мысал:
For i = 1 To 4
x(i) = 2 * i + 5
Next
2 мысал: Бұл мысалда массивтін элементтері 20-дан 70-ке деінгі кез келген сандардаң құрылады
For i = 1 To 20
x(i) = Math.Round(VBMath.Rnd() * 50) + 20
Next i
Массивтін элементтерін шығару
Массивтін элементтерін хабарландыру терезесінде шығару.
Элементтерді шығару алдында олардың мәндерінен тұратың бір айнымалыны құру қажет. Содан соң айнымалының мәні терезеде шығарылады.
1 Мысал:
a = ""
For i = 1 To 20
a = a & x(i) & " "
Next i
MsgBox(a)
Нәтиже:
2 Мысал:
a = ""
F
or
i = 1 To
20
a = a & x(i) & chr(13)
Next i
MsgBox(a)
Нәтиже:
AxFlexGrid тордың ұяшықтарына шығару
Тордың ұяшықтарына шығару үшін қажет:
а) ToolBox тақтаға AxFlexGrid компонент қосу қажет. Ол үшін бұл тақтада жанама мәзірді ашып Choose Items… амалың орынданыз.
Нәтижесінде Choose Toolbox Items терезе ашылады. Бұл терезеде COM Components салымына өтіп, компоненттер тізімінде Microsoft FlexGrid Control компоненттін жалауын орнату қажет.
Сәттік жағдайда Toolbox тақтасында жана басқару элементі пайда болады.
б) Form_Load (формаңы жүктеу) оқиғаға тордың параметрлерін жөндеу үшін арналған келесі процедураңы бекіту.
Бекітілген бағаналар мен жолдардың саның көрсету
AxMSFlexGrid1.FixedRows = 1
AxMSFlexGrid1.FixedCols = 0
Бағаналар мен жолдардың саның көрсету
AxMSFlexGrid1.Rows = 2
AxMSFlexGrid1.Cols = 20
Жолдың биіктігін аңықтау
For i = 0 To 1
AxMSFlexGrid1.set_RowHeight(i, 400)
Next i
Бағананың енің, бағанада тегістеу түрін аңықтау және жолдың бірінші жолында тақырып өрнектерін шығару
For i = 0 To 19
AxMSFlexGrid1.set_ColWidth(i, 500)
AxMSFlexGrid1.set_TextMatrix(0, i, "x(" & (i + 1) & ")")
Next i
в) Масситвін элементтерінін мәндерін есептеп торының ұяшықтарына шығару мысалы.
1 Мысал :
Dim x(20) As Integer
Dim i As Byte
VBMath.Randomize()
For i = 1 To 20
x(i) = Math.Round(VBMath.Rnd() * 200) - 100
AxMSFlexGrid1.set_TextMatrix(1, i - 1, x(i))
Next i
Н
әтиже: