Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Проверка ячейки в массиве 
:(
    Опции темы
Spiker
Дата 5.5.2009, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 25.5.2005
Где: Спортзал

Репутация: нет
Всего: -2



есть массив - LettersGuessedArray(1 To 26)

Задача
когда пользователь вводит букву, эта буква будет добавляться в массив. Если буква уже присутствует то выдает ошибку.

застрял в проверке массива, как это осуществить.


Это сообщение отредактировал(а) Akina - 5.5.2009, 22:24


--------------------
Даваите жить дружно! (Леопольд.) :shy67:
PM MAIL MSN   Вверх
Keeper89
Дата 5.5.2009, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58



Вот вариант:
Код

Dim alreadyExists As Boolean

'N - Текущее кол-во элементов
'X - Новое число
alreadyExists = False
For i = 1 To N
  If LettersGuessedArray(i) = X Then
    alreadyExists = True
    Exit For
  End If
Next i

If Not (alreadyExists) Then
  N = N + 1
  LettersGuessedArray(N) = X
End If


Это сообщение отредактировал(а) Keeper89 - 5.5.2009, 21:45


--------------------
PM MAIL WWW   Вверх
Akina
Дата 5.5.2009, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(Spiker @  5.5.2009,  22:31 Найти цитируемый пост)
когда пользователь вводит букву, эта буква будет добавляться в массив. Если буква уже присутствует то выдает ошибку.

Я даже представить не могу, что надо написать, чтобы получить такой эффект.
Код в студию.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Spiker
Дата 5.5.2009, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 25.5.2005
Где: Спортзал

Репутация: нет
Всего: -2



Проверка происходит.
Как сделать так чтобы данные добавлялись в следующую пустую ячейку?


--------------------
Даваите жить дружно! (Леопольд.) :shy67:
PM MAIL MSN   Вверх
Keeper89
Дата 5.5.2009, 22:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58



Про букву недосмотрел, но если взять за X не число а символ, код должен быть рабочим.

Добавлено через 52 секунды
Цитата(Spiker @  5.5.2009,  22:57 Найти цитируемый пост)
чтобы данные добавлялись в следующую пустую ячейку

О каких ячейках пошла речь?


--------------------
PM MAIL WWW   Вверх
Akina
Дата 5.5.2009, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Spiker, ещё раз повторяю - код в студию. 
Цитата(Keeper89 @  5.5.2009,  23:58 Найти цитируемый пост)
О каких ячейках пошла речь? 

вот-вот...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Spiker
Дата 5.5.2009, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 25.5.2005
Где: Спортзал

Репутация: нет
Всего: -2



в массиве 26 ячеек, от 1 до 26

Добавлено через 1 минуту и 10 секунд
кода нет.. есть массив и все


--------------------
Даваите жить дружно! (Леопольд.) :shy67:
PM MAIL MSN   Вверх
neic
Дата 6.5.2009, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



Может ты про это говоришь?

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  1.rar 1,40 Kb
PM MAIL WWW ICQ Skype   Вверх
neic
Дата 6.5.2009, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



Если что размер массива просто в модуле уменьши.

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  1.rar 1,40 Kb
PM MAIL WWW ICQ Skype   Вверх
Naghual
Дата 6.5.2009, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Цитата(Spiker @  5.5.2009,  23:36 Найти цитируемый пост)
кода нет.. есть массив и все

Это как? Ты на листике пишешь что-ли?

А если серьезно, то пользуйся строкой фиксированной длины и работай со строковыми операциями.




--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Keeper89
Дата 6.5.2009, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58



Поди туда - не знаю куда, принеси то - не знаю что, короче говоря.  smile 


--------------------
PM MAIL WWW   Вверх
Akina
Дата 6.5.2009, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454




M
Akina
В VB есть функция определения массива (Dim), переопределения массива (ReDim, Split) и уничтожения массива (Erase). Есть присвоение значения элементу. Всё.
Добавления в массив - не существует.
Исходный вопрос лишён смысла.
Обсуждение смысла не добавило.
Тема закрыта.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0546 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.