Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > сортировка одномерного массива

Автор: Lely 5.9.2007, 20:04

Всем привет...  ...я тута тока начинаю...вторую лабу в жизни на VB пишу)...подскажите плиз что поделать с проблемкой :нужно отсортировать одномерный массив, вписаный в TextBoxы и окрасить минимум - зеленым, а максимум красным...ну так вот...я все отсортировала, покрасила как надо...и все работает прекрасно , но тока один раз(((...еси второй раз нажимаешь - появляются уже два максимума и 2 минимума((((...я уже чего тока ни попробовала...и никак не получается  ...вообщем ооочень прошу наставить меня на путь истинный  ... вот кусок моего творения: Код Dim md(15) As Integer For i = 0 To 15 md(i) = Rnd * (80 - 20) + 20  m1(i).Text = md(i)  Next max_d = md(0)        max_i = 0           For i = 1 To 15     If md(i) > max_d Then            max_d = md(i)               max_i = i                End If Next m1(max_i).BackColor = RGB(255, 0, 0)         min_d = md(0)           min_i = 0          For i = 1 To 15     If md(i) < min_d Then            min_d = md(i)              min_i = i                End If Next m1(min_i).BackColor = RGB(0, 255, 0)         End Sub заранее спасибки)

Автор: Akina 5.9.2007, 21:11

А что Вы хотите? Кто за Вас будет перед повторным запуском восстанавливать BackColor окрашенных на первом проходе текстбоксов?

Автор: Lely 5.9.2007, 21:28

Akina, извините...а как "перед повторным запуском восстанавливать BackColor окрашенных на первом проходе текстбоксов"?...я просто незнаю такой...точнее сказать вообще почти ничего не знаю  ...единственное что мне по этому поводу в голову приходило это вставить где-то во второй строке Код For i = 0 To 15 m1(i).Text = чему-нить типа "  " Next но так естественно не работает       может надо написать чтот типа Код For i = 0 To 15 m1(i).BackColor = RGB(255, 255, 255) Next

Автор: Akina 5.9.2007, 22:11

Цитата(Lely @  5.9.2007,  22:28 ) может надо написать чтот типа Да, можно и так. Но можно и проще - просто между строками 5 и 6 первого кода вставьте строку Код m1(i).BackColor = vbWhite Добавлено через 1 минуту и 37 секунд Кстати, вместо RGB(255, 0, 0) можно написАть vbRed, а вместо RGB(0, 255, 0) соответственно... сами догадаетесь?

Автор: Lely 6.9.2007, 08:16

спасибо большое за подсказки  ...все работает как надо   ... но вот тока рождается еще вопрос...вот мы очищали Backcolor текстбоксов - это понятно как сделать...а вот как надо написать чтобы при повторной генерации данных очищать текстбоксы, предназначенные для вывода отсортированных данных (ну если сортировать по возрастанию)?   Код For i = 0 To 15 m2(i).Text = 0 Next не так?

Автор: Akina 6.9.2007, 09:23

Цитата(Lely @  6.9.2007,  09:16 ) как надо написать чтобы при повторной генерации данных очищать текстбоксы, предназначенные для вывода отсортированных данных  Для вывода сортированных данных заведен другой массив контролов? Ну нормально, нолики ему... только какой в том смысл, если через полсекунды поверх этих нулей лягут отсортированные данные?

Автор: cardinal 6.9.2007, 10:57

Lely, и не забывай, что все что ты пишешь в TextBox это текст!

Автор: Lely 6.9.2007, 12:56

Akina, смысла я тоже не вижу....просто так в задании написано "по команде «Отсортировать значения массива в порядке возрастания»  вывести на форме упорядоченные в порядке возрастания значения одномерного массива; при повторном выполнении генерации данных очищать текстовые поля, предназначенные для вывода отсортированных данных" ...а значит должно быть...а я не знаю как сделать((( может под очисткой подразумевается возвращение им белого цвета?...хотя наврятли....потому что в задании еще есть такая фраза "при повторном выполнении генерации данных восстановить белый цвет текстовых полей и очистить текстовые поля"....

Автор: Akina 6.9.2007, 13:41

Цитата(Lely @  6.9.2007,  13:56 ) при повторном выполнении генерации данных очищать текстовые поля, предназначенные для вывода отсортированных данных Цитата(Lely @  6.9.2007,  13:56 ) в задании еще есть такая фраза "при повторном выполнении генерации данных восстановить белый цвет текстовых полей и очистить текстовые поля"....  Я бы добавил на форму кнопку "Очистить", и в ней все это забабахал. По крайней мере, это логично.

Автор: Lely 6.9.2007, 14:05

Akina, просто вопрос в том как "забабахать" очистку текстовых полей?

Автор: Akina 6.9.2007, 14:21

Код, который приведен тобой в постинге от 5.9.2007, 22:28

Автор: Lely 6.9.2007, 14:22

а еще вопрос мона?  ...вот условие может вот так выглядеть? Код If 0 <= max_i <= 3 Then a = 1: b = max_i + 1 If 4 <= max_i <= 7 Then a = 2: b = max_i - 3 If 8 <= max_i <= 11 Then a = 3: b = max_i - 7 If 12 <= max_i <= 15 Then a = 4: b = max_i - 11 или может так? Код If 0 <= max_i <= 3 Then a = 1: b = max_i + 1 ElseIf 4 <= max_i <= 7 Then a = 2: b = max_i - 3 ElseIf 8 <= max_i <= 11 Then a = 3: b = max_i - 7 ElseIf 12 <= max_i <= 15 Then a = 4: b = max_i - 11 End If как надо писать?   Добавлено @ 14:25 Цитата Код, который приведен тобой в постинге от 5.9.2007, 22:28  но там же очистка Backcolorа...а с меня требуют очистить текстовые поля

Автор: Lely 6.9.2007, 15:30

уррра  ...я поняла для чего эта очистка нужна и сделала все как надо...получилось через так Код For i = 0 To 15 m1(i).Text = "  " Next теперь вот тока разобраться надо...почему у меня вот тут Код Private Sub Cmd4_Click() For i = 1 To 15     If m3(i).Text > max_d Then           max_d = m3(i).Text               max_i = i                End If Next m3(max_i).BackColor = RGB(255, 0, 0)         m4(2).Text = max_d     a = max_idiv4 + 1     b = max_imod4 + 1       m4(0).Text = a m4(1).Text = b End Sub выводит все время a=1, b=1...вместо того чтоб выводить значения a и b по формулам?

Автор: Akina 6.9.2007, 16:33

Цитата(Lely @  6.9.2007,  15:22 ) как надо писать?  Код Select Case max_i     Case 0 To 3         a = 1         b = max_i + 1     Case 4 To 7         a = 2         b = max_i - 3 ' ........ End Select

Автор: Lely 6.9.2007, 16:51

ух ты....работает  ...спасибо Akina...только вот мне похоже не так надо...мне наверна надо с  формулами чтоб работало...это я пока до формулы не допетрила условие написала...а в задании сказано типа формулу придумывать...там просто надо наверно чтоб у всех элементов одномерного массива, который выглядит двумерным вычислились индексы, чтоб потом по индексам без лишних действий закрасить столбец и строку максимального элемента...   или может нужно тока к максимальному индексы найти, а закрашивать и без индексов удобно?

Автор: Lely 6.9.2007, 18:14

я попыталась реализовать с помощью формул...и как всегда у меня работает правильно только первый раз      ...подскажите что надо исправить? Код Private Sub Cmd4_Click() Static MatrixA(3, 3) As Integer For i = 1 To 15     If m3(i).Text > max_d Then            max_d = m3(i).Text               max_i = i             End If Next m3(max_i).BackColor = RGB(255, 0, 0)         m4(2).Text = max_d    For i = 0 To 15    For m = 0 To 3       For n = 0 To 3          MatrixA(m, n) = m1(i).Text       Next ' i    Next ' m Next ' n For m = 0 To 3    For n = 0 To 3       If m = max_idiv4 & n = max_imod4 Then       m4(0).Text = m + 1       m4(1).Text = n + 1       End If    Next ' m Next  ' n End Sub

Автор: Akina 6.9.2007, 18:22

Цитата(Lely @  6.9.2007,  19:14 ) как всегда у меня работает правильно только первый раз  Поставь точку прерывания и пройди по шагам, следя за изменение значений переменных и контента контролов формы.

Автор: Lely 6.9.2007, 18:28

Akina, а как поставить точку прерывания?   и как с ней надо обращаться?

Автор: Lely 6.9.2007, 18:47

я вот тут дописала  - хотела чтобы закрашивало столбец и строку максимального элемента синим цветом...а оно ничего не красит...даже в первый раз   ...подскажите пожалуйста что я не так написала? Код Private Sub Cmd4_Click() Static MatrixA(3, 3) As Integer For i = 1 To 15     If m3(i).Text > max_d Then            max_d = m3(i).Text               max_i = i             End If Next m3(max_i).BackColor = RGB(255, 0, 0)         m4(2).Text = max_d    For i = 0 To 15    For m = 0 To 3       For n = 0 To 3          MatrixA(m, n) = m1(i).Text       Next ' i    Next ' m Next ' n For m = 0 To 3    For n = 0 To 3       If m = max_idiv4 & n = max_imod4 Then       m4(0).Text = m + 1       m4(1).Text = n + 1       End If    Next ' m Next  ' n m_n = m + 1 n_n = n + 1 For m = 0 To 3    For n = 0 To 3       If m = m_n Or n = n_n Then       i = 4 * (m - 1) + (n - 1)       m3(i).BackColor = vbBlue       End If    Next Next

Автор: cardinal 6.9.2007, 20:43

Цитата(Lely @  6.9.2007,  17:28 ) Akina, а как поставить точку прерывания?  Если не ошибаюсь то помоему кнопкой F9, посмотри насчет Set Breakpoint...

Автор: Akina 6.9.2007, 20:51

Цитата(Lely @  6.9.2007,  19:28 ) как поставить точку прерывания?   и как с ней надо обращаться? Быстренько пешком в справочку - и читаем. По слову Breakpoint, как правильно сказал предыдущий оратор.

Автор: Lely 6.9.2007, 21:06

установить у меня получилось...я даж в меню нашла это...а вот извлечь из этого какую-нить пользу не получается  ...что делать после установки?...я запускаю - оно в Breakpoint останавливается...а дальше?

Автор: cardinal 6.9.2007, 22:14

А дальше пошаговое исполнение (step forward или что-то подобное), а вообще по ра бы книгу открыть...

Автор: Lely 7.9.2007, 08:35

Цитата а вообще по ра бы книгу открыть...    было бы что открыть...ну или ссылочка где почитать...

Автор: Lely 7.9.2007, 09:44

а я методом научного тыка всетки воспользовалась Breakpointами, нашла кучу глупейших ошибок...и теперь все у меня замечательно работает как надо      ...спасибо cardinal и  Akina огромное вам спасибо за помощь

Автор: Akina 7.9.2007, 12:15

Цитата(Lely @  7.9.2007,  09:35 ) было бы что открыть...ну или ссылочка где почитать...  Может, прежде чем вопросы задавать, стоило осмотреться? http://forum.vingrad.ru/forum/topic-52984.html

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)