Конференция VBStreets

**[LEV&n]** » 26.01.2008 (Сб) 23:35

Автор: Левинец Михаил (LEV&n)
Производитель: Main Key ™ 2008
Mail: LEV7n@mail.ru
Год выпуска 2007 - 2008
Название: Main Key Global Poll
Страница программы: http://www.mainkey.pp.net.ua/load/2-1-0-211
Язык: Microsoft Visual Basic
Упаковщик: WinRar Archiver (SFX archive)
Установка: Собственная инсталляционная система
Содержание:
PollMaker.exe (712 КБ) [version 1.0.0.0]
PollShell.exe (256 КБ) [version 1.0.0.1]
PollImporter.exe (24 КБ) [version 1.0.0.0]
WINICON.EXE (11,7 КБ)
Instruction.doc (1,62 МБ)
+ Data\
- 1.poll (6,30 КБ)
- 2.poll (8,42 КБ)
Описание:
Программа разработана по заказу
Мариупольского Высшего Металлургического
Профессионального Училища. Этот пример
демонстрирует работу с собственной БД, без
использования дополнительных контролов.
Программа разработана студентом 3-го курса и
служит для создания и использования опросов
или тестов (самостоятельных и тематических
работ) любых тематик. Программа может
осуществлять полную работу с
базой данных, а так же загрузку и сохранение их
в файлы опросов. Для сохранения труда, времени
и нервов так же разработана утилита Poll Importer,
задача которой заключается в захвате полученного из
вне файла, составленного на Poll Maker'e и
импотритовать его в общую библиотеку (даже
если имена файлов совпадают).
Поэтому не перемещайте файлы вручную!
Программа Poll Sheller служит для работы с
опросом или тематической работой учащимся т.е.
заменяет учителя, программа сама может
выставлять кол-во баллов за правильные ответы,
если не используется "свой вариант ответа". В
конце работы будет выведена таблица, с
Фамилией, Именем и Группой учащегося. В ней
будут сохранены все его варианты ответа, все
вопросы, которые были заданы ему и текст из
полей для своего варианта ответа (если таковые
будут).

Скачать прогамму можно по адресу:
http://www.mainkey.pp.net.ua/load/2-1-0-211

**jangle** » 27.01.2008 (Вс) 15:35

Исходники прилагаются?

**BION** » 27.01.2008 (Вс) 18:37

[LEV&n]Ну и...? Во имя чего базар то?

**Денис** » 27.01.2008 (Вс) 19:21

Во имя ЧСВ, прущего из всех... портов :lol:

**[LEV&n]** » 28.01.2008 (Пн) 1:02

jangle писал(а):Исходники прилагаются?

Ребята, полный исходник выложить не могу, т.к. раскрою весь секрет, могу лишь представить участок кода. Хочу так же услышать мнение админа. Мне очень по душе его филосовские, подобные моим выводы.

**jangle** » 28.01.2008 (Пн) 1:10

Ребята, полный исходник выложить не могу,

А собственно почему?

т.к. раскрою весь секрет, могу лишь представить участок кода. Хочу так же услышать мнение админа. Мне очень по душе его филосовские, подобные моим выводы

Админ может начать ругатся, т.к. такие длинные куски кода надо класть в аттач

**[LEV&n]** » 28.01.2008 (Пн) 1:15

А собственно почему?

Админ может начать ругатся, т.к. такие длинные куски кода надо класть в аттач

А собственно потому, что любой может присвоить это себе.

Я думаю админ, как рационально мыслящий человек простит мне это, внимательно просмотрев код.

**Viper** » 28.01.2008 (Пн) 8:42

За такие простынки кода, тем более выложенные совершенно не в том разделе как минимум замечания надо выписывать. :evil:

**[LEV&n]** » 28.01.2008 (Пн) 9:50

Viper писал(а):За такие просынки кода, тем более выложенные совершенно не в том разделе как минимум замечания надо выписывать.

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

**jangle** » 28.01.2008 (Пн) 11:14

А собственно потому, что любой может присвоить это себе.

Да вряд ли, судя по скриншотам это типичная студенческая поделка.

**[LEV&n]** » 28.01.2008 (Пн) 11:47

Да вряд ли, судя по скриншотам это типичная студенческая поделка.

Она уникальна, непохожая на поделки, мы вообще не занимаемся программированием на курсах образования. Я программирую с 1999 г.

**Proxy** » 28.01.2008 (Пн) 11:58

Автор, чего ты от нас то хочешь?
Оценки? Типичная прога для тестирования студентов.
Сделал? И молодец. Поздравляю.

**jangle** » 28.01.2008 (Пн) 12:24

[LEV&n] писал(а):Она уникальна, непохожая на поделки, мы вообще не занимаемся программированием на курсах образования. Я программирую с 1999 г.

Скачал программу. Первое впечатление - ужасно, интерфейс потрясающе ужасен. Не верю, что программируешь с 1999 года, неужели за это время, не смог понять основные принципы создания GUI для Windows? Масса грубейших ошибок, начиная от фона (это что игра написанная 13-летним школьником?), расположения кнопок, отсуствия меню. Оказывается если кликнуть на божью коровку, откроется настройки оформления опроса и т.д.

P.S. Возму свои слова обратно, это не поделка студента, эта поделка школьника

**[LEV&n]** » 28.01.2008 (Пн) 12:30

jangle писал(а):
[LEV&n] писал(а):Она уникальна, непохожая на поделки, мы вообще не занимаемся программированием на курсах образования. Я программирую с 1999 г.

Скачал программу. Первое впечатление - ужасно, интерфейс потрясающе ужасен. Не верю, что программируешь с 1999 года, неужели за это время, не смог понять основные принципы создания GUI для Windows? Масса грубейших ошибок, начиная от фона (это что игра написанная 13-летним школьником?), расположения кнопок, отсуствия меню. Оказывается если кликнуть на божью коровку, откроется настройки оформления опроса и т.д.

P.S. Возму свои слова обратно, это не поделка студента, эта поделка школьника

Вы просто лишены чувства честной критики, возможно это связано с завистью, возможно с желанием самому стать программистом, но отсутсвием возможности, в городе её почти признали лучшей. Идея хорошая, а вот, что можете вы - я ещё не видел. По мимо этого: если вас не устраивает цветовая гамма, вы можете изменить её, кликните на шестерню. Что такое GUI для Windows - не имею никакого понятия, я скороее не мог изучить по причине отсутсвия материалов, начал программировать я на Qbasic 5, и перейдя на VB прежде, чем я увидел хоть один учебный материал, то уже успел написать около 5 программ.

**alibek** » 28.01.2008 (Пн) 12:43

jangle, давай без перехода на личности.
[LEV&n], на нашем форуме правила применяются не по букве, а по духу. Завуалированное хамство будет наказываться. Так что давай без намеков на моральные качества оппонента.

**jangle** » 28.01.2008 (Пн) 12:46

[LEV&n] писал(а):Вы просто лишены чувства честной критике, возможно это связано с завистью, возможно с желанием самому стать программистом, но отсутсвием возможности, в городе её почти признали лучшей.

LEV&n - ты это серьезно или шутишь? Ты выкладываешь на форум, поделку уровня 13-14 летнего школьника, для 16-летного такое выкладывать уже стыдно. И требуешь критики професионалов? Или скорее восхваления? Дизайн пользовательского интерфейса твоей программы ужасен, неинтуитивен, примитивен. Кстати скажи, ты работаешь в софтверной компании?

**jangle** » 28.01.2008 (Пн) 12:48

alibek писал(а):jangle, давай без перехода на личности.

Да нет здесь перехода на личности

Без хорошей критики, программист никогда не станет совершенствоваться

**[LEV&n]** » 28.01.2008 (Пн) 12:49

jangle писал(а):
[LEV&n] писал(а):Вы просто лишены чувства честной критике, возможно это связано с завистью, возможно с желанием самому стать программистом, но отсутсвием возможности, в городе её почти признали лучшей.

LEV&n - ты это серьезно или шутишь? Ты выкладываешь на форум, поделку уровня 13-14 летнего школьника, для 16-летного такое выкладывать уже стыдно. И требуешь критики професионалов? Или скорее восхваления? Дизайн пользовательского интерфейса твоей программы ужасен, неинтуитивен, примитивен. Кстати скажи, ты работаешь в софтверной компании?

Какие будут советы по изменению программного кода и дизайна? За хамство прошу прощения.

**Viper** » 28.01.2008 (Пн) 12:51

Перенесли бы ужо в Проекты что ли.

**alibek** » 28.01.2008 (Пн) 12:51

jangle писал(а):Да нет здесь перехода на личности

Есть.
Критика может быть жесткой, но постоянное сравнение со школьником к критике никакого отношения не имеет.

**[LEV&n]** » 28.01.2008 (Пн) 12:57

jangle писал(а):
alibek писал(а):jangle, давай без перехода на личности.

Да нет здесь перехода на личности Без хорошей критики, программист никогда не станет совершенствоваться

Спасибо, я понял смысл, цель не унизить, а сделать лучше путём унижения. Если бы все ухали и ахали при виде моей программы, то я позамнил бы из себя совершенство, а таких факторов в природе не существует, ну или пока не существует, в телесном облике, человека, подверженному тлению.

**jangle** » 28.01.2008 (Пн) 13:03

alibek писал(а):
jangle писал(а):Да нет здесь перехода на личности

Есть.
Критика может быть жесткой, но постоянное сравнение со школьником к критике никакого отношения не имеет.

Когда я называл программу LEV&n - школьньной, то имел ввиду творчество начинающего программиста, без оценки личности самого LEV&n. Мы все писали такие программы, и я в том числе, на начальном этапе карьеры. И конечно они казались в том время, потрясающе красивыми и оригинальными

Кстати в крупной софтверной компании, даже одна криво поставленная кнопка на интерфейсе, вызовет неприятный разговор с менеджером проекта. А если выдать такую программу, то сразу вежливо попросят с вещами на выход, и без всяких сатисфакций.

**alibek** » 28.01.2008 (Пн) 13:09

Что же касается кода, то код очень слаб.
Уже после одного отсутствия Option Explicit можно дальше не смотреть. Но если все-таки посмотреть, то дальше ничем не лучше.

Код: Выделить всё: Private Sub A_thrname_Change() Lbl_cng = Lbl_cng + 1 txt_cr = A_thrname.SelStart A_thrname.SelStart = 0: A_thrname.SelLength = 1 10 If A_thrname.SelText = "," Then MsgBox "поле содержит недопустимый символ ','": A_thrname.SelText = "": sel = 0: GoTo 1 If A_thrname.SelText = "" Then sel = 0: tval = 0: A_thrname.SelStart = txt_cr: A_thrname.SelLength = 0: Exit Sub If sel = 1 And tval = 0 Then tval = 1 ' 1 A_thrname.SelStart = A_thrname.SelStart + tval: A_thrname.SelLength = 1: sel = 1: tval = 0 GoTo 10 End Sub

Коряво и плохо читаемо. Это если по форме.
А если по существу, то назначение этого кода вообще непонятно. Не допустить ввод запятых? Это делается намного проще.

Код: Выделить всё: Private fBusy As Boolean Private Const FldSep As String = "," ... Private Sub A_thrname_Change() Dim S As String, I As Long, P As Long, L As Long If fBusy Then Exit Sub Lbl_cng = Lbl_cng + 1 S = A_thrname.Text P = A_thrname.SelStart L = A_thrname.SelLength I = InStr(S, FldSep) If I > 0 Then Do While I > 0 S = Left$(S, I - 1) & Mid$(S, I + Len(FldSep)) I = InStr(S, FldSep) Loop fBusy = True A_thrname.Text = S A_thrname.SelStart = P fBusy = False MsgBox "Поле содержит недопустимый символ" Exit Sub End If End Sub

**[LEV&n]** » 28.01.2008 (Пн) 13:13

jangle писал(а):
alibek писал(а):
jangle писал(а):Да нет здесь перехода на личности

Есть.
Критика может быть жесткой, но постоянное сравнение со школьником к критике никакого отношения не имеет.

Когда я называл программу LEV&n'a - школьньной, то имел ввиду творчество начинающего программиста, без оценки личности самого LEV&n'a. Мы все писали такие программы, и я в том числе, на начальном этапе карьеры. И конечно они казались в том время, потрясающе красивыми и оригинальными

Кстати в крупной софтверной компании, даже одна криво поставленная кнопка на интерфейсе, вызовет неприятный разговор с менеджером проекта. А если выдать такую программу, то сразу вежливо попросят с вещами на выход, и без всяких сатисфакций.

Компания моя, я, как исполнительный директор. Мечта 9-ти летнего ребёнка, что может быть лучше её исполнения. Короче прогу можно убить. Но мне она нравится, выпадающие меню я ненавижу, хотя иногда ими пользуюсь.

**Viper** » 28.01.2008 (Пн) 13:14

Скачал, буду посмотреть. Однако скриншоты ... ндя...

**[LEV&n]** » 28.01.2008 (Пн) 13:17

alibek писал(а):Что же касается кода, то код очень слаб.
Уже после одного отсутствия Option Explicit можно дальше не смотреть. Но если все-таки посмотреть, то дальше ничем не лучше.
Код: Выделить всё
Private Sub A_thrname_Change() Lbl_cng = Lbl_cng + 1 txt_cr = A_thrname.SelStart A_thrname.SelStart = 0: A_thrname.SelLength = 1 10 If A_thrname.SelText = "," Then MsgBox "поле содержит недопустимый символ ','": A_thrname.SelText = "": sel = 0: GoTo 1 If A_thrname.SelText = "" Then sel = 0: tval = 0: A_thrname.SelStart = txt_cr: A_thrname.SelLength = 0: Exit Sub If sel = 1 And tval = 0 Then tval = 1 ' 1 A_thrname.SelStart = A_thrname.SelStart + tval: A_thrname.SelLength = 1: sel = 1: tval = 0 GoTo 10 End Sub

Коряво и плохо читаемо. Это если по форме.
А если по существу, то назначение этого кода вообще непонятно. Не допустить ввод запятых? Это делается намного проще.
Код: Выделить всё
Private fBusy As Boolean Private Const FldSep As String = "," ... Private Sub A_thrname_Change() Dim S As String, I As Long, P As Long, L As Long If fBusy Then Exit Sub Lbl_cng = Lbl_cng + 1 S = A_thrname.Text P = A_thrname.SelStart L = A_thrname.SelLength I = InStr(S, FldSep) If I > 0 Then Do While I > 0 S = Left$(S, I - 1) & Mid$(S, I + Len(FldSep)) I = InStr(S, FldSep) Loop fBusy = True A_thrname.Text = S A_thrname.SelStart = P fBusy = False MsgBox "Поле содержит недопустимый символ" Exit Sub End If End Sub

Проще? С точки зрения кого/чего? Я не хочу спорить, но струдом разобрал ваш вариант... По сути - это передача значения переменным, в которых выполняется поиск, для того, чтобы сам текстбокс не дёргался... спасибо, уяснил.

**jangle** » 28.01.2008 (Пн) 13:31

[LEV&n] писал(а): выпадающие меню я ненавижу, хотя иногда ими пользуюсь.

Можешь ненавидеть меню, это твое право. И твои клиенты тоже правы, если им нравится твоя программа. Однако существуют общие принципы проектирования GUI интерфейсов, и отход от этих принципов, карается провалом проекта, потерянными клиентами и деньгами. Неплохая статья для начала:

http://www.usability.ru/toader/articles/fly_off_ui.htm

**[LEV&n]** » 28.01.2008 (Пн) 13:39

jangle писал(а):
[LEV&n] писал(а): выпадающие меню я ненавижу, хотя иногда ими пользуюсь.

Можешь ненавидеть меню, это твое право. И твои клиенты тоже правы, если им нравится твоя программа. Однако существуют общие принципы проектирования GUI интерфейсов, и отход от этих принципов, карается провалом проекта, потерянными клиентами и деньгами. Неплохая статья для начала:

http://www.usability.ru/toader/articles/fly_off_ui.htm

Я думаю, мы с вами не надём консенсус до тех пор, пока вы не объясните, что такое GUI интерфейс в общем. Это что ли стандиртизированный интерсфейс всег программ под ОС Windows, утвержённый гостом??))))

**Viper** » 28.01.2008 (Пн) 13:45

Первые замечания:

1. Невозможность перехода к окну программы через Alt+Tab и другими традиционными способами это мягко говоря странно.
2. Странные и не логичные явления при переходе от одного поля ввода к другому через Tab
3. Почему я не вижу фокус ввода вообще как класс?

**Viper** » 28.01.2008 (Пн) 13:53

[LEV&n] писал(а):Я думаю, мы с вами не надём консенсус до тех пор, пока вы не объясните, что такое GUI интерфейс в общем. Это что ли стандиртизированный интерсфейс всег программ под ОС Windows, утвержённый гостом??))))

GUI - графический интерфейс пользователя. ГОСТ конечно нет, но основные принципы изложены во множестве статей, например в MSDN.

4. В страничке создания вопросов что есть собственный вариант ответа? Почему он должен быть наярду с правильным?
5. В Оформлении вопросов: Округленных прямоугольников не бывает, бывают скругленные. То же и с квадратами.
6. Почему в "диалоге" выбора цвета вызываемого из Настроек, нет кнопки отмены и вобще возможности отмены?

Конференция VBStreets

Зацените прогу!

Зацените прогу!

Кто сейчас на конференции