1. Pascal / Говнокод #20008

    −41

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    TForm1 = class(TForm)
        Button2: TButton;
        Timer1: TTimer;
        Button5: TButton;
        Button6: TButton;
        Timer2: TTimer;
        Button7: TButton;
        Button8: TButton;
        Button9: TButton;
        Button10: TButton;
        Panel1: TPanel;
        Edit1: TEdit;
        Button1: TButton;
        Button4: TButton;
        Button11: TButton;
        Button12: TButton;
        Panel2: TPanel;
        Memo1: TMemo;
        Button13: TButton;
        Button14: TButton;
        Timer3: TTimer;
        Button15: TButton;
        Button16: TButton;
        Button3: TButton;
        Button17: TButton;
    
    procedure TForm1.Button13Click(Sender: TObject);
    begin
      Memo1.Lines.Clear;  //Очищаем компонент Memo1.
      Button14.Caption:='.......';
    end;
    
    procedure TForm1.Timer2Timer(Sender: TObject);   //перемещение переключателя в произвольном направлении для определения нужного полюса
    var Button_Tag: Integer;
    begin
        Button_Tag:= Button7.Tag+Button8.Tag+Button9.Tag+Button10.Tag;              //Button7.Tag+Button2.Tag
      case Button_Tag of
        1:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;           //очистить до пустого фона  !!!!!!!!!
             Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;             
        2:  begin
              var_integer[C_the_timer_counter]:= var_integer[C_the_timer_counter]+1;    //счетчик  Timer2
              var_integer[C_the_X_coordinate]:=-var_integer[C_the_timer_counter]; //координата X
              coordinates[2].X:=coordinates[2].X+var_integer[C_the_X_coordinate];//
              blank_backgroun;            //очистить до пустого фона  !!!!!!!!!
              Draw_a_picture30(coordinates[2],bmps[2]); //не более [bmp_cnt-1] Draw_a_picture30(coordinates[1],bmps[2]); выводит   img3 BITMAP 3.bmp
            end;
        3:  begin
           ...
        4:  begin
           ...
      else   Noop;
      end;
          Edit1.Text:=IntToStr(coordinates[2].X)+'*   '+IntToStr(coordinates[2].Y);
    end;

    Классика Дельфи.

    Запостил: FrontlineReporter, 14 Мая 2016

    Комментарии (37) RSS

    • Классика унылой лабы, накиданной мышью за полчаса перед зачётом. Что здесь есть, чего нельзя добиться в C#?
      Ответить
      • Ничего, можно и там конечно.
        Просто формошлепы в дизайнерах дельфи и винформс почему-то часто не задумываются о переименовывании контролов даже дойдя до Button17 и обращения к ним в коде.

        И да, это не лаба и не за полчаса, не менее нескольких месяцев человек пилил проект.
        Ответить
        • дельфи и формошлепов не существует уже лет 10 как
          винформс, кстати, тоже (wpf, а то и jupiter)
          Ответить
          • Смотря где. Среди молодых и ч0тких поцанов может и не существуют, а так на них все еще пишут не мало проектов. Особенно те люди, кто не могут читать на английском и черпают инфу 10-летней давности из рунета. Ну и легаси никуда не делось.
            Ответить
            • Люди, которые не могут читать на английском, должны быть обоссаны, сожжены, и выгнаны из профессии
              Ответить
              • Но лучше в обратном порядке - а то не факт, что загорятся. Да и выгонять из профессии будет некого.
                Ответить
                • А вдруг guesto — функциональщик? У них же (обоссать ∘ сжечь ∘ выгнать) x ≡ обоссать(сжечь(выгнать(x))), что выполняется в обратном порядке. То ли дело стековые языки, где порядок выполнения очевиден: (x) выгнать сжечь обоссать
                  Ответить
                • смотря как жечь
                  ежели электрической дугой, то можно и обоссать сначала для лучшей проводимости
                  Ответить
              • Гости должны быть обоссаны, сожжены, и выгнаны с говнокодика.

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

                Или теперь, чтобы пойти в аптеку, будем учить латинский? А чтобы за свежим батончиком сбегать - французский?
                Ответить
                • > чтобы пойти в аптеку, будем учить латинский
                  Чтобы пойти работать в аптеку? Но, внезапно, врачи, аптекари и фармацевты учат латынь...

                  Ты смешиваешь пользователей (тех, кто идёт в аптеку) и разрабов (тех, кто в ней работает).
                  Ответить
                  • Аптекари знают латинскую терминологию, а вот учатся они, внезапно, на русском.
                    Ответить
                    • программисты тоже учаца на русском, а MSDN читают на английском
                      и RFC
                      и manы
                      Ответить
                      • http://govnokod.ru/20008#comment327094

                        Речь шла о том, что по сасцалю много хороших доков на русском.
                        Ответить
                        • Док хороший, но нахуй не нужный
                          Ответить
                        • >>сасцалю
                          кто про что, а Сема про

                          Паскаль учили все 90е, и конечно по нему много книг, однако чтобы писать хорошо под винду нужно уметь читать MSDN
                          Ответить
                          • Наформошлепить что-то можно и без этого. МСДН ты прилепил из-за винапи?
                            Ответить
                            • Из за всего, чего угодно
                              Из за .net, реестра, редиректора, установшика
                              Ответить
                              • >реестра
                                И что там читать? Про то что такое реестр?

                                >.net,
                                Я языки не упоминал, так-то да, официальная документация как бэ. С другой стороны, она доступна в IDE.

                                >редиректора, установшика
                                Што?
                                Ответить
                                • >>И что там читать? Про то что такое реестр?
                                  Про значения ключей.
                                  Например https://msdn.microsoft.com/en-us/library/windows/desktop/ms693485(v=vs.85).aspx

                                  >>Я языки не упоминал, так-то да, официальная документация как бэ. С другой стороны, она доступна в IDE.

                                  .NET не язык. кроме того в IDE доступна версия того же MSDN, и угадай на каком языке?

                                  Кроме того там много всего:
                                  https://msdn.microsoft.com/en-us/library/6sa1z852(v=vs.110).aspx

                                  >>Што?

                                  редиректор: https://msdn.microsoft.com/en-us/library/windows/desktop/aa384187(v=vs.85).aspx

                                  установщик: https://msdn.microsoft.com/en-us/library/windows/desktop/cc185688(v=vs.85).aspx

                                  Где ты про все это будешь читать?
                                  Ответить
                                  • http://govnokod.ru/20008#comment327281
                                    относительно сложные вещи можно в книжках или мануалах на русском почитать.
                                    Ответить
                                    • К сожалению, книжки просто не успевают выходить.
                                      Ответить
                                      • Ну эт смотря про что. Через пару лет максимум выходят.
                                        Ответить
                                        • и охватывают 10%, ага

                                          Сем, ну прекрасти. Какое нахуй серьезное программирование под что либо без чтения официальной документации?
                                          Ответить
                                          • Мля, в книжках (обычно) никто и не перепечатывает апидоки. Ее и так никто не запрещает читать.
                                            Ответить
                    • Собсно, знать английский на уровне, чтобы прочесть ответ на СО или документацию нужно. Но как быть если нужно понять что-то сложное? ДА и учиться на английском формошлепить - не комильфо.
                      Ответить
                • Помещик Манилов! Какими судьбами?

                  Ежу понятно что никто специально не делал английский языком IT. Этот язык крайне неудобен, нелогичен, и малопригоден для изучения (тот же испанский в тысячу раз лучше). Но так сложилось. Английский говно, но его надо знать. На нем написана огромная часть документации, на нем проводят семенары и конфы, на нем пишут книги. Без него знания нельзя в современном мире быть ни админом, но программистом.

                  Пример с аптекой глуп, потому что для этого не нужно читать документацию на латыни.
                  Ответить
                  • Вот, над мостом думал, решил проветриться и зашёл к вам на сайт. Теперь над универсальным мультиязычным языком программирования думаю. Даже целый проект есть, только его проработать надо и на бумагу.
                    Ответить
                    • >Теперь над универсальным мультиязычным языком программирования думаю
                      Есть же такой 1С
                      Ответить
                    • Forth c поддержкой юникода?
                      Ответить
                    • Не над, а под. Под мостом.
                      Ответить
                  • Пример с аптекой как раз хорош. Фармацевтов не заставляют читать доки на латыни. А программистов заставляют.
                    Ответить
                    • Ну как заставляют... Всегда можно клепать сайтики на пхп по технологии 19 века и не париться
                      Я к тому, что некоторых устраивает отставание в технологиях на 10 лет
                      Ответить
                      • В общем да

                        Курсы Дениса Попова -- они на русском
                        Ответить
                    • Заставляют, но сделать с этим ничего нельзя.

                      Я не в восторге от того, что английский стал языком IT. Но факт в том, что он им стал
                      Ответить
            • >Среди молодых и ч0тких поцанов может и не существуют
              А как же стертор?
              Ответить
      • Независимость от сраных фреймворков.
        Ответить

    Добавить комментарий