A A A A Автор Тема: Народное творчество на Delphi  (Прочитано 3749 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Народное творчество на Delphi
« : 20 Авг 2011 [20:42:30] »
Потихоньку осваиваю Дельфи7, и начинаю писать простенькие и абсолютно никому не нужные программы.
Но тем не менее место всегда найдётся и для полезных программ, к примеру: расчёт параметров телескопа

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #1 : 22 Авг 2011 [16:02:25] »
Программа доработанна.
Блеск туманного объекта указан если смотреть в упор.

Оффлайн argrento

  • ****
  • Сообщений: 376
  • Благодарностей: 24
  • I want to believe
    • Instagram: argrento
    • Сообщения от argrento
Re: Народное творчество на Delphi
« Ответ #2 : 23 Авг 2011 [16:49:30] »
Программа хорошая, но почему именно дельфи? И без исходников?
Не забыть: на следующем Астрофесте вернуть 2 рубля в буфет!

Synta Sky-Watcher BKP2001EQ5
Окуляры: 20 мм, 10 мм, 6.5 мм
Барлоу 2х, 3x. QHY5.

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #3 : 23 Авг 2011 [20:50:01] »
Программа хорошая, но почему именно дельфи? И без исходников?
Потому что дельфи намного удобен...
С радостью выслушал бы ваше предложение
Без исходников, потому что они каждый день дорабатываются, выложу когда всё будет готово.

Оффлайн argrento

  • ****
  • Сообщений: 376
  • Благодарностей: 24
  • I want to believe
    • Instagram: argrento
    • Сообщения от argrento
Re: Народное творчество на Delphi
« Ответ #4 : 23 Авг 2011 [21:15:58] »
С радостью выслушал бы ваше предложение

Я бы посоветовал использовать среду разработки на С++ Qt. Она кроссплатформенная, соответсвенно и программа ваша будет такая же. В интернете есть куча примеров, сам Qt имеет неплохое количество компонентов, помещаемых на форму.
Лично я уже год использкю только Qt.

Не забыть: на следующем Астрофесте вернуть 2 рубля в буфет!

Synta Sky-Watcher BKP2001EQ5
Окуляры: 20 мм, 10 мм, 6.5 мм
Барлоу 2х, 3x. QHY5.

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #5 : 23 Авг 2011 [21:19:37] »
С радостью выслушал бы ваше предложение

Я бы посоветовал использовать среду разработки на С++ Qt. Она кроссплатформенная, соответсвенно и программа ваша будет такая же. В интернете есть куча примеров, сам Qt имеет неплохое количество компонентов, помещаемых на форму.
Лично я уже год использкю только Qt.
Спасибо, приму во внимание

Оффлайн IceTechno

  • *****
  • Сообщений: 837
  • Благодарностей: 9
    • Сообщения от IceTechno
Re: Народное творчество на Delphi
« Ответ #6 : 23 Авг 2011 [21:36:58] »
каждый кулик своё болото хвалит, я хвалю Python, если нада UI оболочка то тут Qt тоже можно использовать... а лучше такие программы писать сразу для вэб, я лично чужие экзешники нехочу запускать или исохдный код компилировать, а с Python и Django можно сделать вэб-приложение.

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #7 : 24 Авг 2011 [13:15:49] »
Улучшил интерфейс, добавил функционал, устранил баги.
Скачать Телескоп v0.25 можно здесь:http://astronomysatell.ucoz.ru/load/teleskop_v0_25/1-1-0-2

passer_by

  • Гость
Re: Народное творчество на Delphi
« Ответ #8 : 25 Авг 2011 [06:39:16] »
То же развлекаюсь на Delphi ;) Типа самообразования. В плане изучения работы СОМ-порта написал программку управление затвором. От известного DSLR Shutter отличается тем, что видит СОМ-порты с большими номерами и добавил инвертирование RTS сигнала, так как попадаются шнурки USB=>COM с инвертированным сигналом.

Оффлайн xd

  • *****
  • Сообщений: 17 982
  • Благодарностей: 378
    • Skype - deimos.belastro.net
  • Награды Открытие комет, астероидов, сверхновых звезд, научно значимые исследования.
    • Сообщения от xd
    • Белорусская любительская астрономическая сеть
Re: Народное творчество на Delphi
« Ответ #9 : 29 Авг 2011 [20:17:51] »
Делфи в плане вычислительных задач ой как неудобен... Жутко не хватает перегрузки операторов, нормальных контейнерных типов и жутко неприятно объявление переменных в отдельном блоке в функции или в программе. Да и синтаксис не способствует написанию аккуратного кода, так всегда и хочется отойти от гайдлайов. Имхо.
Хотя набор компонентов довольно богат, и это на самом деле большое достоинство данного инструмента.
У природы нет плохой погоды, у неё просто на нас аллергия.

Учение без размышления бесполезно, но и размышление без учения опасно /Конфуций/
Слово есть поступок. /Л. Толстой/

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #10 : 31 Авг 2011 [18:11:40] »

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #11 : 03 Янв 2012 [20:06:26] »
На досуге написал программу Eclipse Simulator, которая симулирует солнечные затмения.
Подробнее:http://astrokot.ru/astrosoft/calculate/74-eclipse-simulator.html
Вы тоже можете помочь развитию программы.

Оффлайн Февраль

  • **
  • Забанен!
  • Сообщений: 54
  • Благодарностей: 0
  • Дуют ветры в феврале...
    • Сообщения от Февраль
Re: Народное творчество на Delphi
« Ответ #12 : 04 Янв 2012 [08:27:39] »
На досуге написал программу Eclipse Simulator, которая симулирует солнечные затмения.
Подробнее:http://astrokot.ru/astrosoft/calculate/74-eclipse-simulator.html
Вы тоже можете помочь развитию программы.
А это что?

Оффлайн Wilis

  • *****
  • Сообщений: 1 047
  • Благодарностей: 51
    • Сообщения от Wilis
Re: Народное творчество на Delphi
« Ответ #13 : 04 Янв 2012 [11:40:34] »
Предупреждение системы безопасности.
Windows не знает издателя программы. Мало ли откуда к Вам попала эта программа. Вот и спрашивает доверяете ли Вы этому издателю (Lord Katler Bekket). Но этому издателю, я думаю, можно довериться.  ;)
Мы мечтали искать и бороться, Мы чертили мелками законы.
А звезда, по имени Солнце Поднималась над микрорайоном.
Джанни Родари

Оффлайн xd

  • *****
  • Сообщений: 17 982
  • Благодарностей: 378
    • Skype - deimos.belastro.net
  • Награды Открытие комет, астероидов, сверхновых звезд, научно значимые исследования.
    • Сообщения от xd
    • Белорусская любительская астрономическая сеть
Re: Народное творчество на Delphi
« Ответ #14 : 04 Янв 2012 [11:52:31] »
Это нормальное предупреждение WindowsXP о попытке запустить неподписанный исполняемый файл, скачанный из сети.
Ничего страшного, хотя обычно стоит пройтись по нему антивирусом.
Есть такой расширенные атрибуты на файловой системе NTFS, которые управляют такими вещами.
У природы нет плохой погоды, у неё просто на нас аллергия.

Учение без размышления бесполезно, но и размышление без учения опасно /Конфуций/
Слово есть поступок. /Л. Толстой/

Оффлайн Звездочёт

  • *****
  • Забанен!
  • Сообщений: 4 612
  • Благодарностей: 16
  • Trollface рулит.
    • Сообщения от Звездочёт
    • Астрономический сайт "Омега"
Re: Народное творчество на Delphi
« Ответ #15 : 04 Янв 2012 [12:25:15] »
А это что?
Хм ....   :-\  когда я скачивал,  такой штуки не было ...
Рефрактор Сelestron 70/700
Окуляры: 20 мм–35х; 4 мм–175х; 3X Barlow lens (1,25")
Добро пожаловать на Астрофорум "Омега" 8) и Астрономический сайт "Омега" - http://astronom97.narod.ru/ .

Оффлайн argrento

  • ****
  • Сообщений: 376
  • Благодарностей: 24
  • I want to believe
    • Instagram: argrento
    • Сообщения от argrento
Re: Народное творчество на Delphi
« Ответ #16 : 04 Янв 2012 [13:25:15] »
Lord Katler Bekket, извините, но ваш код ужасен.
1. var a,b,c,d,f,m,b1,t,t2,k,rt,min,m2,m3,h2,h,s:Extended; - кошмар.
Давайте переменным осмысленные названия.
2. И не только переменным, но и компонентам на форме.
Если у вас на форме есть ввод максимальной фазы затмения, то не поленитесь, назовите поле ввода не Edit1, а, к примеру, MaximumPhaseEdit.
Если выполните эти два условия, то строчка
a:=StrToFloat(Edit1.Text);превратится в более удобную для понимания
MaximumPhase := StrToFloat(MaximumPhaseEdit.Text)3. Избегайте "магических" чисел. Тогда не будет вот такого:t:=Abs((Shape1.Top+108)-(Shape2.Top+d/2));4. Не забывайте комментировать код. Помните, что комментарии на только для тех, кто скачает исходники, но и для автора.
Не забыть: на следующем Астрофесте вернуть 2 рубля в буфет!

Synta Sky-Watcher BKP2001EQ5
Окуляры: 20 мм, 10 мм, 6.5 мм
Барлоу 2х, 3x. QHY5.

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #17 : 04 Янв 2012 [14:38:14] »
Lord Katler Bekket, извините, но ваш код ужасен.
1. var a,b,c,d,f,m,b1,t,t2,k,rt,min,m2,m3,h2,h,s:Extended; - кошмар.
Давайте переменным осмысленные названия.
2. И не только переменным, но и компонентам на форме.
Если у вас на форме есть ввод максимальной фазы затмения, то не поленитесь, назовите поле ввода не Edit1, а, к примеру, MaximumPhaseEdit.
Если выполните эти два условия, то строчка
a:=StrToFloat(Edit1.Text);превратится в более удобную для понимания
MaximumPhase := StrToFloat(MaximumPhaseEdit.Text)3. Избегайте "магических" чисел. Тогда не будет вот такого:t:=Abs((Shape1.Top+108)-(Shape2.Top+d/2));4. Не забывайте комментировать код. Помните, что комментарии на только для тех, кто скачает исходники, но и для автора.

Ещё на персональной страничке писал что пока комментарии в исходниках нет и как только будет минута свободного времени  я постараюсь их написать....

Оффлайн Февраль

  • **
  • Забанен!
  • Сообщений: 54
  • Благодарностей: 0
  • Дуют ветры в феврале...
    • Сообщения от Февраль
Re: Народное творчество на Delphi
« Ответ #18 : 04 Янв 2012 [14:57:18] »
Ещё на персональной страничке писал что пока комментарии в исходниках нет и как только будет минута свободного времени  я постараюсь их написать....
  Не выйдет. Сто раз проверено - писать надо только сразу...
А кстати, на Дельфи есть инкапсуляция и наследование?

Оффлайн Kirill GrishinАвтор темы

  • *****
  • Сообщений: 2 670
  • Благодарностей: 68
    • Сообщения от Kirill Grishin
Re: Народное творчество на Delphi
« Ответ #19 : 04 Янв 2012 [19:49:48] »
Ещё на персональной страничке писал что пока комментарии в исходниках нет и как только будет минута свободного времени  я постараюсь их написать....
  Не выйдет. Сто раз проверено - писать надо только сразу...
А кстати, на Дельфи есть инкапсуляция и наследование?
Конечно у меня есть исходники с комментариями, я их уже разместил на сайте, но боюсь комментарии будут немного не  понятны, т к имеет место огромная мат часть