ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / лёгкий вопрос
25 сообщений из 28, страница 1 из 2
  1  все
лёгкий вопрос
    #37413153
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
у меня в проге условие: если А равно 1 или 4 или 7 или 10... и тд несколько сотен чисел то ...
как можно удобнее это записать? сейчас использую Case 1, 4, 7, 10, 13, ... всё работает, проблем в быстродействии нет, просто подозреваю, что такие цепочки записываются как-то по-другому
...
Рейтинг: 0 / 0
26.08.2011, 11:34
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413251
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Так и записываются, select case в этом случае самый быстродействующий вариант.
...
Рейтинг: 0 / 0
26.08.2011, 12:02
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413255
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Antonariy,

просто лень писать в строчку несколько сотен чисел...
...
Рейтинг: 0 / 0
26.08.2011, 12:03
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413360
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZeroпросто лень писать в строчку несколько сотен чисел
не пиши раз лень
...
Рейтинг: 0 / 0
26.08.2011, 12:44
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413377
`dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
`dmitry
Участник
один раз написать :)
...
Рейтинг: 0 / 0
26.08.2011, 12:50
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413384
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
Select Case N
Case Is > 15 
Case Is > 7 
Case Is > 3 
...
ещё вот так можно и тд и тп, см справку
...
Рейтинг: 0 / 0
26.08.2011, 12:51
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413492
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
как вариант создать 1 раз коллекцию или массив (правда его тоже нужно заполнять но если между вашими числами есть связь то это упростит задачу или можно заполнять из файла например txt) ну и затем проверять вхождение вашего значения в массив и если оно входит выставлять Entry=True
...
Рейтинг: 0 / 0
26.08.2011, 13:33
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37413541
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
А можно еще проще через алгоритм:

Если (заданное число-1)/3=целое число то
Подходит = Истина
Иначе
Подходит = Ложь
Конец если
...
Рейтинг: 0 / 0
26.08.2011, 13:51
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414306
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
BelowZeroу меня в проге условие: если А равно 1 или 4 или 7 или 10... и тд несколько сотен чисел то ...
как можно удобнее это записать? сейчас использую Case 1, 4, 7, 10, 13, ... всё работает, проблем в быстродействии нет, просто подозреваю, что такие цепочки записываются как-то по-другому
Код: plaintext
IF (A> 0 ) AND (A< 1000 ) AND ((A MOD  3 )= 1 ) THEN
...
Рейтинг: 0 / 0
26.08.2011, 21:53
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414314
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
TpaBka, Akina,
пасяп, то что нуно
...
Рейтинг: 0 / 0
26.08.2011, 22:06
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414347
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
ещё один простой вопрос... как удалить сразу все элементы коллекции? пытался просто remove+цикл, но удаляю я не по ключу, а по порядковому номеру, поэтому бейсик ругается
...
Рейтинг: 0 / 0
26.08.2011, 22:54
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414368
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
просто пересоздать ее
...
Рейтинг: 0 / 0
26.08.2011, 23:25
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414371
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

ок, спс
...
Рейтинг: 0 / 0
26.08.2011, 23:32
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414487
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
эм... а как удалить коллекцию?)
...
Рейтинг: 0 / 0
27.08.2011, 10:15
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414504
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero, она как швабра, стоит в углу мешается???
...
Рейтинг: 0 / 0
27.08.2011, 10:44
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414505
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Ципихович Эндрю,

ЦЭ, мне нужно очистить коллекцию от данных, чтобы заполнить её снова другими. с удалением по циклу возникают трудности. можно, конечно, но не без бубна. парой смс выше предложен вариант пересоздать коллекцию. вот, сижу, пытаюсь
...
Рейтинг: 0 / 0
27.08.2011, 10:49
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414507
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero,
> пересоздать коллекцию. вот, сижу, пытаюсь
если дословно просто пересоздать и Вы пытаетесь, чего там пытаться
была
Dim col As New Collection
плюнули и сделали
Dim ЦЭ As New Collection
...
Рейтинг: 0 / 0
27.08.2011, 11:00
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414509
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Ципихович Эндрю,

... коллекция заполняется и очищается по циклу данными несколько тысяч раз. лень создавать несколько тысяц коллекций)
...
Рейтинг: 0 / 0
27.08.2011, 11:04
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414521
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero, ну и размаз ...
следующая попытка
Код: plaintext
1.
2.
3.
4.
5.
6.
Размер_коллекции1 = col.Count
'метод Remove удаляет элемент из коллекции
'объект для удаления можно задать либо с помощью индекса, либо с помощью имени
col.Remove  2 
col.Remove "K2"
'при удалении элемента коллекции VBA, так сказать, "заполняет дыры" - номера всех эле-ментов, следующих за удалённым, уменьшатся на 1
Размер_коллекции1 = col.Count
...
Рейтинг: 0 / 0
27.08.2011, 11:16
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414525
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Ципихович Эндрю,

это я знаю) как вариант можно удалять 1 элемент коллекции в цикле от 1 до col.Count... наверно, сделаю так
...
Рейтинг: 0 / 0
27.08.2011, 11:24
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414530
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero, несколько тысяч раз циклом удалять не лень, а лень создавать несколько тысяц коллекций, так это же будет 1000 умножить на 1000, разве не так
...
Рейтинг: 0 / 0
27.08.2011, 11:35
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414534
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Ципихович Эндрю,

коллекция заполняется несколько тысяч раз по несколько значений(не больше 10), а затем очищается. создавать 1000 коллекций мне даже с непрофессиональной точки зрения кажется... странно
...
Рейтинг: 0 / 0
27.08.2011, 11:38
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414538
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero,
>несколько значений(не больше 10), а затем очищается. создавать 1000 коллекций
Что имеем создать 1000 коллекций - это 1000 движений
очистить 1000 коллекций в которой 10 значений - это 10000 умножить на 10, разве не так??
И что больше??
Создаваться то они будут в цикле
...
Рейтинг: 0 / 0
27.08.2011, 11:44
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414539
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Ципихович Эндрю,

и всё же коллекция как тарелка, данные как еда. я привык несколько раз есть из 1 тарелки, а затем мыть её, а не покупать новую тарелку каждый раз, когда испачкается предыдущая
...
Рейтинг: 0 / 0
27.08.2011, 11:47
| Ответить | Цитировать | Написать  
лёгкий вопрос
    #37414542
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
BelowZero, сделайте два варианта
создать 1000 коллекций - это 1000 движений
очистить 1000 коллекций в которой 10 значений - это 10000 умножить на 10
и на таймер, сравните цифры и думайте
...
Рейтинг: 0 / 0
27.08.2011, 11:49
| Ответить | Цитировать | Написать  
25 сообщений из 28, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / лёгкий вопрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=95&tid=2158467]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 109ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 10ms
total:  223ms
созд. / загр.: 223ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]