кол-во элементов в массиве / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кол-во элементов в массиве

7 сообщений из 32, страница 2 из 2

все

кол-во элементов в массиве

#34335443

Х-men2

Гость

Проходящий X-men2А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?

Да вроде все просто:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Function Test_array()
Dim ar( 1 )
ar( 1 ) = "Here you are"
Test_array = ar
End Function

Sub test()
Dim my_array
my_array = Test_array
Debug.Print my_array( 1 )
End Sub

или я не понимаю что требуется...

AndrFВообще-то это дело в байтовый массив просится, насколько я понимаю, если это Hex-коды. Или вообще в Long, если это число: CLng(&H000EC000) или CLng("&H" & "000EC000").
Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

Согласен. Скорее всего можно простыми битовыми операциями решить задачу. но автор хочет так.

...

Рейтинг:

0 / 0

16.02.2007, 08:56

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34335508

Х-men2

Гость

Х-men2 Проходящий[quot X-men2]А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?

Да вроде все просто:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Function Test_array()
Dim ar( 1 )
ar( 1 ) = "Here you are"
Test_array = ar
End Function

Sub test()
Dim my_array
my_array = Test_array
Debug.Print my_array( 1 )
End Sub

...

Рейтинг:

0 / 0

16.02.2007, 09:33

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34335785

AndrF

Участник

Сообщения: 1 426

Рейтинг: 0 / 0

Х-men2Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

F1 и делее ищем ByRef .

...

Рейтинг:

0 / 0

16.02.2007, 11:00

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34336057

AndrF

Участник

Сообщения: 1 426

Рейтинг: 0 / 0

Держи пример - передача массива по ссылке и по значению:

Public Sub Main()
Dim m() As String, i As Long

ReDim m(2)

For i = 0 To UBound(m)
m(i) = "Тест " & i
Next i

Debug.Print "ByVal Before --------"
MyProcByVal m

Debug.Print "ByVal After --------"
For i = 0 To UBound(m)
Debug.Print m(i)
Next i

Debug.Print "ByRef Before --------"
MyProcByRef m

Debug.Print "ByRef After --------"
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
End Sub

Private Sub MyProcByVal(ByVal m As Variant)
Dim i As Long
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
m(1) = "Тестик ByVal"
End Sub

Private Sub MyProcByRef(ByRef m() As String)
Dim i As Long
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
m(1) = "Тестик ByRef 1"
End Sub

...

Рейтинг:

0 / 0

16.02.2007, 12:13

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34336650

X-men2

Гость

M.. спасиб. Будем разбираться.

...

Рейтинг:

0 / 0

16.02.2007, 14:35

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34346419

X-men2

Гость

AndrF Х-men2Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

F1 и делее ищем ByRef .
Нет, с этим беда, Basic не лицензионный(естественно), MSDNa нет...
А в инете никак не нарою внятных примеров использования директивы ByRef/

...

Рейтинг:

0 / 0

21.02.2007, 11:51

| Ответить | Цитировать | Написать

кол-во элементов в массиве

#34352586

blinow

Участник

Сообщения: 172

Рейтинг: 0 / 0

Парень заморочился. Это Basic, тут усе просто и иногда тупо.
По умолчанию все параметры передаются ByRef, т.е. получив параметр в процедуре, ты его меняешь и он меняется во всей проге, ежели написать ByVal, тогда передаешь значение и скока ты его не меняй в процедуре, в основной проге он не измениться.
С массивами не морочься, объви его Public и ковыряйся скока хочешь

...

Рейтинг:

0 / 0

24.02.2007, 04:36

| Ответить | Цитировать | Написать

7 сообщений из 32, страница 2 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кол-во элементов в массиве

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34335508&tid=2164451]:	0ms
get settings:	7ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	183ms
get topic data:	11ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	202ms

total:	464ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы