| Вопрос: Исходники. Замена mspaint и Анализатор vb6 кода. | Добавлено: 10.06.10 18:51 |
Автор вопроса:  AWP | Web-сайт: xawp.narod.ru | ICQ: 345685652 |
|
В соответствии со своей традицией, выкладываю исходные коды.
Paint Pro Замена стандартному mspaint выполненная в виде кода на vb6. Сделано -Масштабирование -Основное инструменты рисования -Удобный интерфейс -Буфер отмены -Буфер картинок -Настройки буфера -Copy/Cut/Past -Эффекты инверсии/замены цвета -Отразить/Повернуть/Растянуть -Автосохранение/резервное копирование -И куча мелких штук... Не сделано -Сохранение -Печать -Twain -Поддержка форматов -Некоторые инструменты: заливка/фигурное выделение/текст/произвольные фигуры Ошибки и минусы -Иногда буфер вылетает, если картинка очень большая. Не понял еще как исправить. -При больших картинках есть небольшая задержка. -Работа только 24-битном режиме -Нет окна выбора цветов -Есть несколько мелких ошибок/недочетов Отличия от MsPaint -Интерфейс. Дает примерно на 5% больше рабочего пространства. -Добавлены важные функции: Замена цвета, вырезка, поворот на произвольный угол -Добавлен буфер картинок -Буфер отмены ограничен только настройками -Палитра вертикальная, добавлены промежуточные цвета -Не доработан до конца Делал для себя, т.к. в пэинте не хватаем много нужных мне функций Ссылка: http://www.vbcode.h1.ru/download/paintpro.zip VB Code Analiser Программа анализируем код vb6. Выдает отчет о кол-ве лишних деклораций, неиспользуемых функций, типов, констант, переменных. В программе есть куча недостатков, но её я сделал за 2 часа, разработка будет продолжаться. Код рабочий, но результаты проверяйте, бездумно не удаляйте куски. Для анализа нужно перетащить на окно все файлы проекта(frm, bas, cls, ctl) Ссылка: http://www.vbcode.h1.ru/download/vbcodea.zip Специально для vbnet.ru AWP, vbcode.h1.ru |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 10.06.10 19:50 |
| Круто))) | ||
|
Номер ответа: 2 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 11.06.10 01:48 |
|
Обновил VB Code Analiser. Теперь достаточно перетащить файл проекта vbp.
Если Администраторам не трудно/не влом и исходники им понравяться  , то можно залить их в примеры.
|
||
|
Номер ответа: 3 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 12.06.10 16:36 |
|
Хотелось бы услышать ваши предложения на счет кола пэинта.
Чего добавить, может инструментов каких, может приблуд каких, типо горячих клавишь. +Если у кого есть классы для сохранения в разные форматы - буду рад. |
||
|
Номер ответа: 4 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 19.06.10 16:20 |
| Неиспользуемыефункции, Неиспользуемыепроцедур, НеиспользуемыеТипы, НеиспользуемыеEmun, НеиспользуемыеКонстанты, Локальныепеременные. енто всё в проекте самого анализатора?! | ||
|
Номер ответа: 5 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 19.06.10 16:27 |
| Чет не работает анализатор нифига толком. Надо поискать свой код. | ||
|
Номер ответа: 6 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 19.06.10 21:33 |
|
VbStarterбез комментариев
Executioner Если ничего лишнего нету, то он ничего и не найдет. Да и, как я сказал, он далек от совершенства, но в больших проектах может немного помочь. Сейчас делаю более разумную версию. Если есть какие-то мысли по нахождению "кракозябр" в коде, жду. |
||
|
Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 20.06.10 18:30 |
| Специально создал проект с кучей неиспользуемых переменных и функция. Ничего не нашел. Странно, наверное. | ||
|
Номер ответа: 8 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 20.06.10 22:05 |
| можешь код скинуть, буду смотреть | ||
|
Номер ответа: 9 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 20.06.10 22:59 |
|
сделал вот такую штуку Private Sub Command1_Click()
 im N As Long
End Sub Function GETDC() im PHJ As Long
For N = 0 To 99 G = G + 1 Next End Function программа показала, что GETDC и PHJ - лишнии. А переменная N используется в цикле, это она еще не может разобрать. |
||
|
Номер ответа: 10 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 21.06.10 03:21 |
|
я вот нашел такую штуку "Axtools codesmart"
Там приличный анализатор кода есть. |
||
|
Номер ответа: 11 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 21.06.10 13:15 |
| О да. Всю жизнь пользуюсь AxTools. Это просто мегапроект. Последняя версия мне понравилась еще больше, чем древняя, которую я юзал до этого. Пунктирные линии выделяют циклы и условия, в концах условий пишет, что ж это было за уловие и т.д. Темплейты, автозамена. Короче, сказка. Всем рекомендую. Могу дать линк на тулзу и таблэтку. | ||
|
Номер ответа: 12 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #12 | Добавлено: 21.06.10 14:59 |
|
ну, я брал от сюда
http://thepiratebay.org/torrent/4918997/Axtools_CodeSMART_2009_for_VB6 качалось день, т.к. сидеров маловато, но, как минимум, на одного стало больше))) А что за темплейты, автозамена и как их едят? |
||
|
Номер ответа: 13 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | Цитата | #13 | Добавлено: 21.06.10 17:34 |
|
Дай
|
||
|
Номер ответа: 14 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #14 | Добавлено: 21.06.10 18:13 |
| http://93.100.7.118/CodeSmart%202009%20for%20VB6.rar | ||
|
Номер ответа: 15 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #15 | Добавлено: 21.06.10 22:56 |
| сенькс | ||
Страница: 1 |