Можно задавать элементы массива в виде диапазона?

[kminas]

Можно ли элементы массива задавать в виде диапазона? Как напрмер, переменную в операторе Select Case

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

CASE 1 То 9

или в цикле For... Next

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

For n = 1 То 10

[Роман-вб]

kminas
Не очень красиво ты сформулировал свой вопрос. Ну а вообще, воспользуйся тем же For--Next.

[Крост]

kminas
Что имелось в виду?

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

Dim V(10) as Integer

Тоже самое что:

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

Dim V(0 to 10) as Integer

Можно диапазон задать и так:

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

Dim V(-4 To 10) As Integer

[Роман-вб]

задавать в виде диапазона

Задавать -- это одно, а резервировать память -- другое.

Всё равно, вопрос некорректен.

[kminas]

Я ж говорю, что массивы только начал изучать.
Приведу часть массива из моей существующей проги

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

Dim a(100) As Integer

        a(1) = 80
        a(2) = 100
        a(3) = 110
        a(4) = 125
        a(5) = 140
        a(6) = 160
        a(7) = 180
        a(8) = 200
        a(9) = 225
For i = 1 To 8
If a(i) <= D And D <= a(i + 1) Then
End If
Next i

Его не надо обсуждать. Он уже работает. А мне надо, чтобы вместо 80,100,125... был что-нибудь типа 140 to 280, 300 to 450, 400 to 500 и т.д. и чтобы переменная искалась внутри этих диапазонов, причем, в ряде случаев она может подойти к двум диапазонам

[Роман-вб]

kminas
проверка на принадлежность к диапазону такая же, как в математике, как то 140<=A(1)<=280

[kminas]

А почему тогда у меня не получается? Я с этого и начинал. Проверил. Пишет: Ошибка компил. Ждет лейбла или стетмента или конца стетмента.

[Роман-вб]

kminas
Ну приведи код.

[keks-n]

kminas
А что ты написал?

[Роман-вб]

keks-n
У нас совпадают мысли

[kminas]

Сначала было так, потом как сейчас, а потом добавил как Роман предложил

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

Private Sub Command1_Click()
Dim arr(100, 100) As Integer
Dim i As Integer
Dim d As Integer
n = txt1.Text
140<=arr(1)<=280

arr (3) >= 300 And arr(3) <= 440
arr (4) >= 400 And arr(4) <= 600
arr (5) >= 550 And arr(5) <= 780
arr (6) >= 600 And arr(6) <= 840
arr (7) >= 800 And arr(7) <= 1000

For i = 1 To 7
If arr(i) <= d And d <= arr(i + 1) Then
a (i)
txt1.Text = a(i + 1)
Next i
End Sub

[Роман-вб]

kminas
Каой-то бредовый код. Сложно понять, что тебе нужно

[kminas]

Это только проба возможностей массива.

[Роман-вб]

For i = 1 To 7
If arr(i) <= d And d <= arr(i + 1) Then
a (i)
txt1.Text = a(i + 1)
Next i

Здесь вообще смысла нет. И оператор if непонятно сделал.

[Amed]

Это не код вовсе. Нет такого синтаксиса.

Ничего не понятно, попробуй еще раз объяснить, что именно хочешь получить.

[kminas]

Это ни какая не программа. Она назывется Проба массива и форма также назыв. frmProbeMass. Я, для себя пробую как будет работать массив. Просто взял кусок из своей же проги и тренируюсь. Мне нужно, чтобы элементы были в определенном диапазоне от величина и до величина. А моя переменная, чтобы находила себя в одном, а, возможно, и в двух из этих диапазонов. Тогда и будет код.
Меня интересует не мой бред, а твой, Роман, код

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

140<=A(1)<=280

почему не идет. Я так тоже пробовал?
P.s. На мой бред компиллятор, посему-то не ругается?...

[Amed]

Все просто.

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

Option Explicit
Private Type MyType
    Left As Integer
    Right As Integer
End Type
Private mas(1 To 3) As MyType

Private Sub Form_Load()
SetBounds 1, 0, 20
SetBounds 2, 10, 20
SetBounds 3, 20, 30

CheckValue 15
End Sub

Public Sub SetBounds(Index As Integer, LeftBound As Integer, RightBound As Integer)
With mas(Index)
    .Left = LeftBound
    .Right = RightBound
End With
End Sub

Public Sub CheckValue(Number As Integer)
Dim i As Integer

For i = LBound(mas) To UBound(mas)
    If Number >= mas(i).Left And Number <= mas(i).Right Then MsgBox Number & " содержится в интервале №" & i & ": " & mas(i).Left & "..." & mas(i).Right
Next i
End Sub

Это ни какая не программа. Она назывется Проба массива и форма также назыв. frmProbeMass. Я, для себя пробую как будет работать массив. Просто взял кусок из своей же проги и тренируюсь. Мне нужно, чтобы элементы были в определенном диапазоне от величина и до величина. А моя переменная, чтобы находила себя в одном, а, возможно, и в двух из этих диапазонов. Тогда и будет код.
Меня интересует не мой бред, а твой, Роман, код

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

140<=A(1)<=280

почему не идет. Я так тоже пробовал?
P.s. На мой бред компиллятор, посему-то не ругается?...

Такого синтаксиса нет, я же сказал. Почему не ругается, не знаю. Но работать не будет.

[Wild VB Code for Food]

потомучто компилятор глупый
Наверное человек пытается применить логическое И?
Хотя странно что компилятор не ругался....странно

Такое чуство что человек немного не понимает чего-то и пытается спорить с другими....хм...

[GSerg]

Читаю ответы Роман-вб в этой теме, а на ум всё лезет и лезет анекдот про попугая, стюардессу и мужика... ничего не могу с этим поделать...

[Matew]

kminas, вариант Amed-а можно написать и так:

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

Option Explicit
Private mas(1 to 2, 1 To 3) As Long ' двухмерный массив

Private Sub Form_Load()
SetBounds 1, 0, 20
SetBounds 2, 10, 20
SetBounds 3, 20, 30

CheckValue 15
End Sub

Public Sub SetBounds(Index As Integer, LeftBound As Integer, RightBound As Integer)
mas(1,Index) = LeftBound
mas(2,Index) = RightBound
End Sub

Public Sub CheckValue(Number As Integer)
Dim i As Integer

For i = LBound(mas) To UBound(mas)
    If Number >= mas(1,i) And Number <= mas(2,i) Then MsgBox Number & " содержится в интервале №" & i & ": " & mas(1,i) & "..." & mas(2,i)
Next i
End Sub


Может тебе так будет понятней, но у Amed-а красивее и правильнее.

[uhm]

Для начала, kminas, будь ты компилятором, что бы ты сделал, если бы тебе попалась "команда"

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

140<=A(1)<=280

Ответил бы "Да, сэр?"

Для продолжения, после того, как ты, наконец, изучишь базовый синтаксис VB, тебе стоит также запомнить, что VB будет рассматривать вышеприведенное выражение совсем не так, как ты и Роман-вб себе это представляете, и что в этом случае обязательно использовать логический оператор AND.

[Nicky]

Я ж говорю, что массивы только начал изучать.
Приведу часть массива из моей существующей проги

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

Dim a(100) As Integer

        a(1) = 80
        a(2) = 100
        a(3) = 110
        a(4) = 125
        a(5) = 140
        a(6) = 160
        a(7) = 180
        a(8) = 200
        a(9) = 225
For i = 1 To 8
If a(i) <= D And D <= a(i + 1) Then
End If
Next i

Да легко!

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

  Dim v(0 To 2)
  v(0) = "140 to 280"
  v(1) = "300 to 450"
  v(2) = "400 to 500"


А потом анализируй на здоровье!

[Ramzes]

kminas
Что имелось в виду?

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

Dim V(10) as Integer

Тоже самое что:

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

Dim V(0 to 10) as Integer

Спорим что нет

[hCORe]

в VB6: если Option Base 0 - то да. если Option Base 0 - то нет.
в VB.NET: да.

[Viper]

в VB6: если Option Base 0 - то да. если Option Base 0 - то нет.

Наверно имелось ввиду все-таки:

в VB6: если Option Base 0 - то да. если Option Base 1 - то нет.

?

[keks-n]

В VB6 по дефоулту Option Base 0

[kminas]

Для начала, kminas, будь ты компилятором, что бы ты сделал, если бы тебе попалась "команда"

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

140<=A(1)<=280

Ответил бы "Да, сэр?"
Для продолжения, после того, как ты, наконец, изучишь базовый синтаксис VB, тебе стоит также запомнить, что VB будет рассматривать вышеприведенное выражение совсем не так, как ты и Роман-вб себе это представляете, и что в этом случае обязательно использовать логический оператор AND.

А я и использовал его см. мой пост от 26.04.2006 (Ср) 21:12

arr (3) >= 300 And arr(3) <= 440
arr (4) >= 400 And arr(4) <= 600
arr (5) >= 550 And arr(5) <= 780

но, говорят, что это тоже бред. Amed спасибо за помощь, но я говорил о бреде, который написан строчкой выше (с оператором AND), это на него не ругается компил., а на Романову строчку как раз и ругается. Ну в общем спасибо всем. Буду изучать, а то столько переворошил литературы и порыл инета. Там и про многоуровневые и про динамические все, а с использованием диапазона - нет. Вот и решил спросить: возможно ли в принципе такое. Поизучаю, а потом, скорее всего, обойду эту проблему, возможно решу тот же вопрос, но с другой стороны, где достаточно будет обычного, точнее штук 10-ти обычных массивов. Надо только посоветоваться со специалистами по оборудованию, а за дискуссию и науку БОЛЬШОЕ СПАСИБО!

[Amed]

kminas, я видел строчку с And

Не ругается по простой причине.
Скажем, arr(3) = 350. Тогда arr(3) >= 300 And Arr(3) <= 440 приводится компилятором к виду ((350 >= 300) And (350 <= 440)), далее к (True And True), то есть к True.

Но это получается не меньший бред.

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

Private Sub Command1_Click()
Dim arr(100, 100) As Integer
Dim i As Integer
Dim d As Integer
n = txt1.Text

True
True
True
True
True
True

For i = 1 To 7
If arr(i) <= d And d <= arr(i + 1) Then
a (i)
txt1.Text = a(i + 1)
Next i
End Sub

[Роман-вб]

140<=A(1)<=280

Ну здесь сознаю. Это что-то из прошлой жизни наверное вспомнилось.

[Kovu]

Ну здесь сознаю. Это что-то из прошлой жизни наверное вспомнилось.

Аааааааааааааааааааа, живой мертвец