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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> сортировка одномерного массива, сортирует не так как хочется( 
:(
    Опции темы
Lely
Дата 6.9.2007, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
я попыталась реализовать с помощью формул...и как всегда у меня работает правильно только первый раз smile  smile  smile ...подскажите что надо исправить?
Код

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
PM   Вверх
Akina
Дата 6.9.2007, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Цитата(Lely @  6.9.2007,  19:14 Найти цитируемый пост)
как всегда у меня работает правильно только первый раз 

Поставь точку прерывания и пройди по шагам, следя за изменение значений переменных и контента контролов формы.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Lely
Дата 6.9.2007, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Akina, а как поставить точку прерывания? smile 
и как с ней надо обращаться?
PM   Вверх
Lely
Дата 6.9.2007, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
я вот тут дописала  - хотела чтобы закрашивало столбец и строку максимального элемента синим цветом...а оно ничего не красит...даже в первый раз  smile ...подскажите пожалуйста что я не так написала?
Код

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
PM   Вверх
cardinal
Дата 6.9.2007, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(Lely @  6.9.2007,  17:28 Найти цитируемый пост)
Akina, а как поставить точку прерывания? 

Если не ошибаюсь то помоему кнопкой F9, посмотри насчет Set Breakpoint...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Akina
Дата 6.9.2007, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Цитата(Lely @  6.9.2007,  19:28 Найти цитируемый пост)
как поставить точку прерывания?  
и как с ней надо обращаться?

Быстренько пешком в справочку - и читаем. По слову Breakpoint, как правильно сказал предыдущий оратор.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Lely
Дата 6.9.2007, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
установить у меня получилось...я даж в меню нашла это...а вот извлечь из этого какую-нить пользу не получается smile ...что делать после установки?...я запускаю - оно в Breakpoint останавливается...а дальше?
PM   Вверх
cardinal
Дата 6.9.2007, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Lely
Дата 7.9.2007, 08:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

а вообще по ра бы книгу открыть... 

 smile было бы что открыть...ну или ссылочка где почитать...
PM   Вверх
Lely
Дата 7.9.2007, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
а я методом научного тыка всетки воспользовалась Breakpointами, нашла кучу глупейших ошибок...и теперь все у меня замечательно работает как надо smile  smile  smile ...спасибо cardinal и 
Akina огромное вам спасибо за помощь smile   smile   smile 
PM   Вверх
Akina
Дата 7.9.2007, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Цитата(Lely @  7.9.2007,  09:35 Найти цитируемый пост)
было бы что открыть...ну или ссылочка где почитать... 

Может, прежде чем вопросы задавать, стоило осмотреться?
http://forum.vingrad.ru/forum/topic-52984.html


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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