Кто помнит свою первую программу?

[Ramzes]

Хакер
+1

[1Steps]

Здравствуйте Все!!!
Совсем недавно изучаю ВБ-6.
Я тоже сделал свою первую прогу.
Делал я её не претендуя на уникальность или первооткрывательство.
Просто хотел понять как работает ВБ-6. Правда до конца так и не понял, почему она работает у меня на компе и не работает на другом (без ВБ-6).
Может что-то неправильно, а может всё неправильно. Учусь по книге
С.В. Глушаков * Програмирование в среде Виндовс*, а так же на Вашем форуме.
Очень хотелось бы увидеть Ваши Заключения или подсказки.
У меня программа лежит:
C:\Program Files\Microsoft Visual Studio\VB98\Reminder

[Viper]

1. Не все здорово с путем к базе данных. Убрал жестко заданный путь - заработало, но при попытке добавить запись, вылетело на несовпадении типов... Далше разбираться не хочется в принципе (см пункт 2 и 3).
2. Что за бред с отступами в коде? Он нечитаем в принципе
3. Стоило бы добавить побольше комментов по поводу назначения тех или иных переменных
4. Самое главное: сначало протесть проект сам, а потом выкладывай. Ибо разбираться в этом (см пункт 2 и 3) особо большого желания нет.

[Хакер]

Код: Выделить всё

                         Msg = "Did You Forget To Select A Date ?         "
                          SendMessage
              If Response = vbNo Then

Автор явно до изучения VB, лет 10 занимался asm-омо . Потому что вызов прерывания производится примерно таким же способом.

Хотя возможно, автор просто не знает, что такое функция.

Кстати

Код: Выделить всё

Public Sub SendMessage()

Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = " Reminder"
Response = MsgBox(Msg, Style, Title)

End Sub

какое отношение эта функция имеет к трею?

[1Steps]

!Viper!: писал(а)
2. Что за бред с отступами в коде? Он нечитаем в принципе

Из книги С.В. Глушаков * Програмирование в среде Виндовс*,
пишет, что код так лучше читается.
С этим понятно, исправлюсь.

!Viper!: писал(а)
...но при попытке добавить запись, вылетело на несовпадении типов... Далше разбираться не хочется в принципе (см пункт 2 и 3).

Я его тестировал. У меня все работало, поэтому я и выставил его, что
бы кто-то посмотрел, может что не так.

!Viper!: писал(а)
1. Не все здорово с путем к базе данных. Убрал жестко заданный путь - заработало

Покажите пример, как это?


Хакер писал(а)
Автор явно до изучения VB, лет 10 занимался asm-омо


Никогда и ничем связанным с програмированием не занимался.
Правда, пробовал что-то делать на ПК-01 Львов, лет 19-20 назад.
А ВБ-6 учу около 6 месяцев.


Огромное Вам спасибо за указание на ошибки, буду исправляться.

[Хакер]

!Viper!: писал(а)
2. Что за бред с отступами в коде? Он нечитаем в принципе

Из книги С.В. Глушаков * Програмирование в среде Виндовс*,
пишет, что код так лучше читается.
С этим понятно, исправлюсь.

Не верю. С древовидными отступами действительно легче читается, но надо ведь понимать где делать отсупы а не всюду их лепить?

Кстати заценни теги [quоte="Вася пупкин писал"]Всем привет.[/quоte]
Это будет выглядеть так:

Всем привет

[1Steps]

Это будет выглядеть так:

Заценил!

[Viper]

Пытаюсь разобрацца... походу вначале нужно найти бубен. Однако, уже щас видно, что автору незнакома разница между классом (формой) и экземпляром класса (формы). Это раз. Два - форма календаря, надо полагать, работает только с определенными настройками даты и времени, а ндо бы иметь универсальность. У меня например сие не работает. Кстати, в VB есть контрол - календарь.

Буду смореть дальше... Пока впечатление очень тяжкое... Подробности воспоследуют

[1Steps]

Однако, уже щас видно, что автору незнакома разница между классом (формой) и экземпляром класса (формы).

Это правда, а так же то, что мне неукого учится. Может Ваши заключения мне очень помогут.

Кстати, в VB есть контрол - календарь.

Я знаю, но познание этого контрола для меня ещё сложновато.

Пока впечатление очень тяжкое... Подробности воспоследуют

Очень ЖДУ. Если можно с объяснением.

[Viper]

Вы хотели подробностей... их есть у меня.

Итак, по порядку. Что такое класс? Если простыми словами, то класс является неким шаблоном. Этот шаблон содержит набор необходимых свойств и методов для работы с некоей сущностью. Однако работаем мы не с классом, а с экземпляром класса. Экземпляр класса также называется объектом класса. Экземпляров класса может быть много, тогда как класс остается единственным. Для того чтобы начать работать с объектом, его нужно создать. Делается это такой методой:

Код: Выделить всё

Set pClass = New CMyClass

Здесь pClass - переменная, содержащая ссылку на экземпляр класса, а CMyClass - имя класса.

По звершению работы с классом ставим ссылку на него в Nothing:

Код: Выделить всё

Set pClass = Nothing

Вообще стоит почитать какую-нить литературу по объектно-ориентированному программированию. Ссылок не приведу, ибо чтение такой литратуры у меня в далеком прошлом. На форуме все вполне можно найти.
Все вышесказанное относится и к формам, ибо форма есть разновидность класса. Но в VB6 есть одна фича, которая с моей точки зрения есть и не фича вовсе, а полнейшая гадость. Так вот, VB6 позволяет работать с экземпляром формы, не создавая самого экземпляра в явном виде. Т.е. вместо норамльного способа

Код: Выделить всё

Set frmMain = New FMain
frmMain.Show
...
Unload frmMain
Set frmMain = Nothing

можно написать

Код: Выделить всё

FMain.Show
...
Unload FMain

При этом неявным образом будет создан экземпляр класса FMain с именем FMain и вот с ним то и будет идти работа.

Легко понять, что кроме путаницы ничего хорошего из этого не получается. У автора, используется именно такой метод работы с формами, поэтому всюду куча кода, переустанавливающего начальные значения переменных, постоянное скрытие/отображение форм и (О, ужас!!!!) две абсолютно одинаковых формы с разными именами. Следствием всего этого является тот факт, что логику программы практически невозможно понять без бубна.

Идем далее. В коде полно переменных и контролов с совершенно непонятными именами, ну что вот например такое Private q As Byte или Private T As Integer? Автор сам забудет про назначение переменных через неделю. Применяй понятные имена. Далее, стоит избегать переменных типа Variant, они, конечно, имеют право на существование, но в данной проге, они явно не к месту. Их вполне можно заменить на переменные нужного типа. Всюду используется некие "магические числа". Например, все формы при загрузке перемещаются в правый нижний угол экрана и всюду фигурирует число 450, это вот что? высота панели задач? Но это ведь не есть постоянная величина, а даже если бы и была, то стоило бы сделать константу с понятным именем и везде пользоваться ею.

Далее, везде и всюду мы видим постоянную установку значений переменных и свойств контролов в значения по умолчанию, 90% этих установок можно сделать на этапе разработки и забыть про это, а то получается, что при каждом отображении или нажатии како-либо кнопки начинается установка свойств заново.

Почти в каждой процедуре можно видеть On Error Resume Next, то есть ошибки по сути игнорируются. Автор уверен в том, что ВСЕ ошибки надо игнорировать, что никаких побочных эффектов от этого не будет? Сильно сомневаюсь.

Часто встречается такой вот код:

Код: Выделить всё

If tmrDef.Enabled = True Then
    tmrDef.Enabled = False
End If

Вопрос, на кой надо булевое свойство сравнивать с True? Булевое свойство, оно уже либо True, либо False, зачем дополнительное сравнение? Вполне хватит кода вида:

Код: Выделить всё

If tmrDef.Enabled Then
    tmrDef.Enabled = False
End If

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

в нескольких местах имеется код:

Код: Выделить всё

If Data1.Recordset.AbsolutePosition + 1 <> 0 Then

Зачем надо прибавитьть 1, чтобы сравнить с 0, если можно сразу сравнить с -1?

Код: Выделить всё

If Data1.Recordset.AbsolutePosition <> -1 Then

и выглядит лучше, и работает быстрее.

А вот чем навеян сей перл (и аналогичные)?

Код: Выделить всё

Msg = "Would You Like Save Current Record ?     "
SendMessage
If Response = vbYes Then

По каким таким соображениям нельзя было вызвать MsgBox напрямую? Почему надо было упрятать вызов MsgBox в метод SendMessage (тем более, что название метода соответствует API функции совершенно другого назначения) и наплодить кучу глобальных переменных, да еще и типа Variant? Не лучше ли было написать:

If MsgBox("Would You Like Save Current Record ? ",vbYesNo + vbQuestion + vbDefaultButton2," Reminder") = vbYes

Then

А зачем тут лидирующие и замыкающие пробелы?

В процедурах обработки событий таймера встречается DoEvents, зачем он тут? Его место в циклах, в данном месте он только тормозить будет.

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

Но самый перл - это обработка прокрутки. Я так понимаю, что здесь устанавливается время напоминания? Честно говоря ничего не понял. Каие-то мудрствования с 15-минутными интервалами и сбор с миру по нитке в строковую переменную (АХТУНГ!) даты и времени. Автор, в VB есть специальный тип данных и куча функций для работы со временем и они (самое главное) учитывают текущие национальные настройки, а у тебя все повязано на конкретные настройки даты и времени (кстати, нерусские).

Далее, работа идет с базой данных (кстати, почему у тебя БД с нулевым количеством записей весит 21 МБ?). Но почему то используется двумерный массив для промежуточного хранения записей. Зачем? Во-первых, почему массив? Во-вторых, почему он типа Variant? Ибо массив вполне мог быть бы строковым, а еще лучше, если бы он был массивом UDT. Ну и, в-третьих, почему бы не работать напрямую с БД?


уффф... устал писать.

На мой взгляд прога перегружена ненужной графикой. И до кучи, зачем понадобилось в архив цеплять все картинки, если они и так лежат в frx-файлах? Кроме-того, выкладывать exe также не стоило. Размер архива из-за этого весьма здорово вырос.

Общее мнение. Задумка хорошая, реализация крайне плохая. Стоит пришибить проект, и начать его с нуля с учетом вышесказанного. И начинать с проектирования.

в прицепленном архиве, код с моими замечаниями.


[Viper нехороший, он так и не поправил строки фиксированной ширины в посте. Пришлось мне, эх... --GSerg]

[alibek]

Почти в каждой процедуре можно видеть On Error Resume Next, то есть ошибки по сути игнорируются. Автор уверен в том, что ВСЕ ошибки надо игнорировать, что никаких побочных эффектов от этого не будет? Сильно сомневаюсь.

Собственно, это правильно.
В релизных версиях хорошо использовать On Error GoTo ErrorHandler, который будет показывать внятное сообщение, а не непонятный эксепшн.

[1Steps]

Мнн... Да. Спаибо !Viper!.
Я, если честно, думал что у меня, что-то получается.
Ан-нет. Тяжело жить в тёмном царстве без единного лучика света.
Спасибо Вам за комент к моему коду. Я скачал его, буду изучать.
И немогли бы Вы ответить ёще на пару вопросов.
Я постараюсь не быть сильно дотошным.

Часто встречается такой вот код:

Код:
If tmrDef.Enabled = True Then
tmrDef.Enabled = False
End If

Вопрос, на кой надо булевое свойство сравнивать с True? Булевое свойство, оно уже либо True, либо False, зачем
дополнительное сравнение? Вполне хватит кода вида:

Код:
If tmrDef.Enabled Then
tmrDef.Enabled = False
End If

Не знал, а в книге показан в качестве примера мой вариант.

Так вот, VB6 позволяет работать с экземпляром формы, не

создавая самого экземпляра в явном виде. Т.е. вместо норамльного способа

Код:
Set frmMain = New FMain
frmMain.Show
...
Unload frmMain
Set frmMain = Nothing

можно написать

Код:
FMain.Show
...
Unload FMain


При этом неявным образом будет создан экземпляр класса FMain с именем FMain и вот с ним то и будет идти работа.

Хоть убейте непонимаю, зачем создавать экземпляр класса если есть готовая форма созданая специально для отображения чего-то?

1. Не все здорово с путем к базе данных. Убрал жестко заданный путь - заработало

Я так и не понял, как создавать путь к базе, что бы приложение работало на другом компе без ВБ.

На мой взгляд прога перегружена ненужной графикой. И до кучи, зачем понадобилось в архив цеплять все картинки, если
они и так лежат в frx-файлах? Кроме-того, выкладывать exe также не стоило. Размер архива из-за этого весьма здорово
вырос.

Спасибо, тоже не знал.
Ущё раз напомню, что ВБ изучаю около 6 месяцев по 2-3 часа в день после работы. Это у меня как хобби, очень нравится.
Да, у меня МСДН как-то неправильно работает. При написании кода, если выскакивает ошибка, я нажимаю ХЕЛР, но он в 90% случаев не находит путь к МСДН. (ВБ закачал с интернета).
Так-же у меня есть ВБ Експресс, но тоже без МСДН.
От этого наверно все мои проблемы.
Может кто знает ссылку на хороший ВБ или ВБ.нет
Без МСДН начинающему тяжело понять, что значит
Const NIM_MODIFY As Long = &H1
Const NIM_DELETE As Long = &H2


Private Type NOTIFYICONDATA
Я думаю Вы согласитесь со мной.


CПасибо Всем кто откликнулся!

GSerg-Может создадите топик по всем общим и не очень вопросам для Dummies таких как я?

[Viper]

Не знал, а в книге показан в качестве примера мой вариант.

Фтопку такие книги!

Хоть убейте непонимаю, зачем создавать экземпляр класса если есть готовая форма созданая специально для отображения чего-то?

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

Я так и не понял, как создавать путь к базе, что бы приложение работало на другом компе без ВБ.

Если предполагается, что БД будет всегда лежать в одной папке с приложением, то достаточно вместо полного пути вписать только имя файла. А для полного сервиса, если вдруг БД нет по этому адресу, предоставь пользователю самому указать путь к базе.

Да, у меня МСДН как-то неправильно работает. При написании кода, если выскакивает ошибка, я нажимаю ХЕЛР, но он в 90% случаев не находит путь к МСДН. (ВБ закачал с интернета).
Так-же у меня есть ВБ Експресс, но тоже без МСДН.
От этого наверно все мои проблемы.
Может кто знает ссылку на хороший ВБ или ВБ.нет

Ссылки на справочники по VB и API есть здесь на форуме в FAQ.

[1Steps]

Ok.
Thanks

[Mikle]

В 1985 году купил МК-54.
Первая прога - поиск факториала (на две инструкции короче, чем в учебнике к калькулятору, и при этом понимает факториал нуля!).
Потом крестики-нолики в диалоговом режиме.
Потом Atari.
Потом IBM (GWBasic, QBasic, TASM, VB5, VB6)

[Денис]

Моей первой программы нет уже в этом мире. Программа была написана на компьютере "Сура" и представляла из себя простой цикл с сортировкой массива

[Dmitriy2003]

Здравствуйте!

Я давно изучаю Visual Basic 6, но вчера я много выпил, и написал свою первую программу!

Просьба не пинаться, а кому делать нечего могут мне помочь - например есть у меня такие вопросы:

1. Как мне получить 100% текст кнопки пуск для любой локали.
2. Как бросить пить ? (особо важно).

Заранее всем спасибо.

p.s. А да может есть предложения по оптимизации, тоже-интересно.

[GSerg]

Dmitriy2003, в твоих последних постах регулярно упоминается либо курение травы, либо что-то ещё. Очень хочется длительной прогулки на свежем воздухе?

[zan]

но вчера я много выпил, и написал свою первую программу!

Выпил для храбрости?

[Dmitriy2003]

Dmitriy2003, в твоих последних постах регулярно упоминается либо курение травы, либо что-то ещё. Очень хочется длительной прогулки на свежем воздухе?

Выпил для храбрости?

Всем спасибо за конструктивный диалог.

[gjghjc]

Вот решил вставить и свои 5 копеек..
Первая осмысленная программа это построитель диаграмм направленности антенн писал на Парусе...
Потом обработчик ТВ программ...
База данных клиентов фирмы на которой работал (она же и первая и последняя программа за которую получил деньги АЖ 100 баксов)
Потом довольно большой (для одного) программный комплекс который тянул данные из экселя в дбф... сверял все это с эталонной базой.. вел логи, криптовал полученные файлы..... с кучей опций...
Сейчас живу тем что автоматизирую работу своего отдела... различные утилитки и прибамбасины в Экселе и Акцессе....

З.Ы. Кстати и ежедневник подобный Remider от 1Steps у меня тоже был... только я данные хранил в текстовом формате... Недавно глянул кот этой проги... УЖАСНУЛСЯ... ну не знал я тогда про оператор SPLIT

[onell]

Часто встречается такой вот код:

Код: Выделить всё

If tmrDef.Enabled = True Then
    tmrDef.Enabled = False
End If

Вопрос, на кой надо булевое свойство сравнивать с True? Булевое свойство, оно уже либо True, либо False, зачем дополнительное сравнение? Вполне хватит кода вида:

Код: Выделить всё

If tmrDef.Enabled Then
    tmrDef.Enabled = False
End If

Вполне хватит кода

Код: Выделить всё

tmrDef.Enabled=False


[t116]

Первая моя прога на ВБ - это был редактор уровней для игры Supaplex. Написал я его на VB3 под Win95. Использовать текстуры для меня в то время было очень сложно, по этому вместо них я пользовался разноцветными квадратиками, где каждый цвет - определенный объект в игре. Исходного кода неосталось, да и сам ЕХЕшник найти трудно... Но главное что оно осталось в моей памяти

Первая моя программа на ВБ 6 - это медиа-проигрыватель.
Писать я его начал еще когда был в 9-м классе, а закончил... ну уже и не помню. Наверное, когда понял что затея безсмысленна.

Вот он плеер:
http://files.myopera.com/tedirens/files ... 204.04.rar

[Хакер]

Вот он плеер:
http://files.myopera.com/tedirens/files ... 204.04.rar

Круто! Ты написал ошибку 403.

(Или в за этим скрытый смысл?)

ЗЫ. Фунция GetGerneString порадовала. Ты про Choose когда нибудь слышал? А про STRINGTABLE ?

ЗЫЫ. Функция WINTODOS тоже порадовала. Про CharToOem слышал?

[t116]

Естественно нет. Я тогда еще про мало что слышал.
Сам ржу с проги, но все с чего-то начинают.

[asharky]

1979год. Программа печати на АЦПУ визитных карточек. Машина: БЭСМ-6. Программировал лезвием для бритья непосредственно на перфокартах. Потому как доступа к машине в качестве программиста у меня не было на тот момент - в школе практику на ВЦ проходил летом.

[gjghjc]

asharky КЛАССС!!!

[Денис]

Если говорить о первой программе именно на VB, то у меня был макрос на vba для excel, при включении которого очищался от значений заданный диапазон ячеек, содержащий некую таблицу, создавались 12 (ну если точнее 11+4 кв + 1 полугодие + 1 год = 17) копий этого диапазона и копиям присваивались нужные заголовки, типа имен месяцев и периодов.

[Debugger]

У меня первая программа (самая первая) - четко помню, это было в VBA. По нажатию на кнопочку форма закрывается.
Из VB - Hello World (хотел наверстать упушенное).
Первая игра - карточная игрушка, названия которой я не впомню. Она где-то тут валялась.

[HKEY_SUPER_MASHINE]

Таймер. Много раз его переименовывал, но сейчас он - Time Control. Наверное звучит смешно, но я делал его весь 2007 год и в результате вышел не аймер, а неискореняемый деинсталлятором пакет глюков. Сейчас у меня версия 2.1.1 .