- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 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;
Follow us!
Просто формошлепы в дизайнерах дельфи и винформс почему-то часто не задумываются о переименовывании контролов даже дойдя до Button17 и обращения к ним в коде.
И да, это не лаба и не за полчаса, не менее нескольких месяцев человек пилил проект.
винформс, кстати, тоже (wpf, а то и jupiter)
ежели электрической дугой, то можно и обоссать сначала для лучшей проводимости
Привязка к конкретному языку для работы в какой-то области - бездумная дань идиотской традиции, противоречащая с мировой тенденцией разделения языков.
Для логичного решения вопроса следует либо отказаться от выбора некоторого одного случайного языка для работы в области и привести подобные моноязычные сферы в соответствие с остальными сферами жизни, либо ввести моноязычность во все сферы, то есть перейти на единый мировой язык.
Последнее является очевидно безумной идеей как по затратам на переход, так и с учётом развития средств автоматического перевода, требующих от авторов текста только лишь простого формулирования своих мыслей без неоднозначностей.
Соответственно, следует оставить мультиязычность во всех сферах, развивать простые способы изложения мыслей, а для переговоровиспользовать автоматические переводчики. Это позволит избавить людей от накладных расходов на самостоятельный перевод своих мыслей на незнакомый язык и обратно, а также накопить большой объём понятной литературы.
Или теперь, чтобы пойти в аптеку, будем учить латинский? А чтобы за свежим батончиком сбегать - французский?
Чтобы пойти работать в аптеку? Но, внезапно, врачи, аптекари и фармацевты учат латынь...
Ты смешиваешь пользователей (тех, кто идёт в аптеку) и разрабов (тех, кто в ней работает).
и RFC
и manы
Речь шла о том, что по сасцалю много хороших доков на русском.
кто про что, а Сема про
Паскаль учили все 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
Где ты про все это будешь читать?
относительно сложные вещи можно в книжках или мануалах на русском почитать.
Сем, ну прекрасти. Какое нахуй серьезное программирование под что либо без чтения официальной документации?
Ежу понятно что никто специально не делал английский языком IT. Этот язык крайне неудобен, нелогичен, и малопригоден для изучения (тот же испанский в тысячу раз лучше). Но так сложилось. Английский говно, но его надо знать. На нем написана огромная часть документации, на нем проводят семенары и конфы, на нем пишут книги. Без него знания нельзя в современном мире быть ни админом, но программистом.
Пример с аптекой глуп, потому что для этого не нужно читать документацию на латыни.
Есть же такой 1С
Я к тому, что некоторых устраивает отставание в технологиях на 10 лет
Курсы Дениса Попова -- они на русском
Я не в восторге от того, что английский стал языком IT. Но факт в том, что он им стал
А как же стертор?