Помогите сделать двумерный массив

[R@MS]

Проблема в следующем: есть массив написаный на паскале:

Код: Выделить всё

BTabD : array [1..16,1..4] of real =
              ((1.5, 1.7, 2,   2.2),     (1.2, 1.4, 1.6, 1.8),
               (0.8, 1,   1.2, 1.4),     (1.1, 1.3, 1.5, 1.7),
               (1.5, 1.7, 1.9, 2.1),     (1.8, 2,   2.2, 2.4),
               (2.1, 2.3, 2.5, 2.7),     (2.5, 2.7, 2.9, 3.1),
               (2.8, 3,   3.2, 3.4),     (3.1, 3.3, 3.5, 3.7),
               (3.4, 3.6, 3.8, 4),       (3.5, 3.9, 4.2, 4.5),
               (3.6, 4,   4.2, 4.5),     (4.2, 4.5, 4.8, 5),
               (4.5, 5,   5.2, 5.5),     (5,   6,   6.5, 7));

Подскажите, пожалуйста как этот масив реализовать на VB 6.0. Заранее благодарен.

[Хакер]

Код: Выделить всё

Dim BTabD (1 to 16, 1 to 4) as single



Public Sub InitBTabDArray()
       BTabD(1,1) = 1.5
       BTabD(1,2) = 1.7
       BTabD(1,3) = 2
       BTabD(1,4) = 2.2

       BTabD(2,1) = 0.8
       BTabD(2,2) = 1
       BTabD(2,3) = 1.2
       BTabD(2,4) = 1.4

       BTabD(3,1) = 1.5
       BTabD(3,2) = 1.7
       BTabD(3,3) = 2
       BTabD(3,4) = 2.2

       '     .... принцип понятен?
       ' мне лень за тебя делать всё остальное....

       BTabD(16,1) = 5
       BTabD(16,2) = 6
       BTabD(16,3) = 6.5
       BTabD(16,4) = 7     
End SUb


[R@MS]

Этот вариант мне известен, но он очень громоздок. У меня таких масивов более 10 штук. Нельзя ли сделать это как то компактнее? Например что то типа как в VB.net

Код: Выделить всё

Dim b(,) As String = {{"аа", "аб"}, {"ба", "бб"}}

[/code]

[Хакер]

R@MS
В VB6 - нельзя.

Добавлено:
Нет, ну можно конечно использовать Variant-массивы, и сделать это так:

Код: Выделить всё

    Dim e()
    e = Array(Array(1, 2, 3), Array(4, 5, 6))
    MsgBox e(1)(1)
    MsgBox e(1)(2)

Но:
1) Это будет медленнее и ресурсоёмко.
2) Это будет неприемлемо, если планировались какие-то работы с памятью напрямую.
3) Обращаться к элементу массива надо будет не как el(x,y,z) а как el(x)(y)(z). Т.е по сути это будет не двухмерный массив, а массив массивов.

[R@MS]

Тогда немного офтопа: На сколько VB.net сильно отличаеться от VB6? Если я куплю себе VB.net я легко смогу в нём разобраться или прийдёться ещё один учебник покупать?

[Хакер]

R@MS
Правильнее спросить: насколько VB.NET похож на VB6 ?

В техническом плане между ними нет вообще ничего общего.
В синтаксическом плане: общее есть.
В плане внутренней объектной модели и логики построения приложения на базе каждого из языков - отличия огромные.

[t116]

А если использовать следующий принцип:

Код: Выделить всё

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Dim M(1 To 4, 1 To 3) As Single

Public Sub InitBTabDArray()

    Dim N(1 To 12) As Single

    Dim i As Single
   
    For i = 1 To 12
        N(i) = Choose(i, 1.5, 1.7, 2, 2.2, _
                         0.8, 1, 1.2, 1.4, _
                         1.5, 1.7, 2, 2.2)
    Next i
   
    Call CopyMemory(M(1, 1), N(1), Len(N(1)) * 12)
     
    MsgBox M(1, 1)
    MsgBox M(1, 2)
   
   
End Sub

[Хакер]

t116
Ну и чем он лучше моего способа? Тем, что тратится лишнее время на вызов Choose ? Тем, что тратится лишнее время на вызов CopyMemory ?

[Bonesnapper]

ну если массив всегда один и тот же можно его из файла доставать

[R@MS]

ну если массив всегда один и тот же можно его из файла доставать

В принципе можно. Не подскажешь как именно

[Хакер]

R@MS
Ну, э..мм... - что "как именно"? Как именно читать из файла?

[R@MS]

Да как именно считать из файла элементы в двумерный массив.