| Вопрос: Есть слайдер - ползунок. В нем даны значения от 0 | Добавлено: 22.07.10 12:26 |
Автор вопроса:  Юрий
|
| Ответы | Всего ответов: 27 |
|
Номер ответа: 16 Автор ответа: Юрий Вопросов: 3 Ответов: 30 |
Профиль | | #16 | Добавлено: 22.07.10 17:07 |
|
Мне нужно что бы старые значения сохранялись, а не затирались текущими данными. Может какие то процедуры для этого есть? Вот как должно быть - информация не теряется а накапливается http://www.7image.ru/pics/0710/52217462.gif
Вот что сейчас http://www.7image.ru/pics/0710/52218223.gif видно что значения затираются следующими значениями |
||
|
Номер ответа: 17 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #17 | Добавлено: 22.07.10 18:20 |
| Ну в Dictionary как раз можно накапливать данные | ||
|
Номер ответа: 18 Автор ответа: ЮрийВопросов: 3 Ответов: 30 |
Профиль | | #18 | Добавлено: 22.07.10 18:22 |
| А как это сделать, если после выхода из процедуры переменные теряют свои значения? | ||
|
Номер ответа: 19 Автор ответа: ЮрийВопросов: 3 Ответов: 30 |
Профиль | | #19 | Добавлено: 22.07.10 18:26 |
| Может нужно сделать какой то цикл, которые подхватывает и передает значение в массив? Гуглил, ни одно похожего примера не нашел вашпе | ||
|
Номер ответа: 20 Автор ответа: s12 Вопросов: 24 Ответов: 363 |
Профиль | | #20 | Добавлено: 22.07.10 22:30 |
|
Юрий
О снова точки. Все мучаемся. Почему-то мне кажется что задача не очень сложная. Юрий выложите тех. задание, или отправте мне на мыло, у меня завтра будет часа 3-4 свободных, я посмотрю. До Артема мне, конечно, далеко, но кое-что тоже могу. |
||
|
Номер ответа: 21 Автор ответа: ЮрийВопросов: 3 Ответов: 30 |
Профиль | | #21 | Добавлено: 23.07.10 11:55 |
|
Во общем никакого тех задания нет, все что мог написал в этом топике. Тут видимо дело в том что я оперирую функцией как черным ящиком - известны только ее значения. В программировании не должно возникать таких моментов, Артем показал очевидную вещь
# Dim data As New Dictionary (Of Integer, Integer) # # For I = 0 To 100 # data(I) = MyFunction (I) # Next I Нужно просто разложить MyFunction(i) и засунуть в цикл от общего параметра (i). Видимо та идея которую я пытался до нести нестандартна и не используется программистами ))) |
||
|
Номер ответа: 22 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #22 | Добавлено: 23.07.10 13:39 |
|
Юрий пишет:
А как это сделать, если после выхода из процедуры переменные теряют свои значения? Делаешь этот Dictionary глобальным, я ж писал в другом топике уже. И значения будут накапливаться |
||
|
Номер ответа: 23 Автор ответа: ЮрийВопросов: 3 Ответов: 30 |
Профиль | | #23 | Добавлено: 27.07.10 12:39 |
|
Глобально объявить вот так нужно?
Public Class IntializableDictionary Inherits Dictionary(Of Int32, String) |
||
|
Номер ответа: 24 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #24 | Добавлено: 27.07.10 14:07 |
| public module | ||
|
Номер ответа: 25 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #25 | Добавлено: 27.07.10 14:30 |
Почему String взял если у тебя были чилсовые значения? |
||
|
Номер ответа: 26 Автор ответа: ЮрийВопросов: 3 Ответов: 30 |
Профиль | | #26 | Добавлено: 27.07.10 14:55 |
|
"Почему String взял если у тебя были чилсовые значения" Я хз, иначе ошибку дает. Там же не только числа могут быть, буквы например. В общем ничего не поменялось. Public я засунул после процедуры внизу, иначе никак нельзя, смотри скрин: http://www.7image.ru/v.php?id=53444
Накопления не происходит. Связать функцию со счетчиком я не смог. Private Sub RunScript(ByVal x As Integer, ByVal y As Integer, ByRef A As Object)  im dictionary As New Dictionary(Of String, Integer)
' y - текущее значение слайдера, x - соотвествующи значению слайдера номер dictionary.Add(y, x) im pair As KeyValuePair(Of String, Integer)
For Each pair In dictionary ' получаем пару чисел, задача получить список пар для всех значений слайдера Print("{0}, {1}", pair.Key, pair.Value) A = dictionary Next pair End Sub '<Custom additional code> Public Class Hel Public Shared dictionary As New Dictionary (Of String, Integer) End Class А что если сделать что то вроде лога, только дату не печатать, см. гифку http://www.7image.ru/v.php?id=53447 |
||
|
Номер ответа: 27 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #27 | Добавлено: 27.07.10 18:27 |
|
Во-первых у тебя каша с типами - в Dictionary (Of String, Integer) ты добавшяешь два Integer'а.
Во-вторых, зачем нужен аргумент A As Object? Во-первых, там нужен не Object, во-вторых, он вообще не нужен. В-третьих, ты не используешь глобальный словарь. Доступ к нему происходит через Hel.dictionary, та же в методе каждый раз создашеь новый Dictionary, и в него добавляшеь данные. |
||