- 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;
guest 14.05.2016 19:33 # +14
FrontlineReporter 14.05.2016 19:43 # +13
Просто формошлепы в дизайнерах дельфи и винформс почему-то часто не задумываются о переименовывании контролов даже дойдя до Button17 и обращения к ним в коде.
И да, это не лаба и не за полчаса, не менее нескольких месяцев человек пилил проект.
guesto 15.05.2016 02:20 # +11
винформс, кстати, тоже (wpf, а то и jupiter)
FrontlineReporter 15.05.2016 10:13 # +15
guesto 15.05.2016 13:54 # +13
bormand 15.05.2016 13:59 # +11
inkanus-gray 15.05.2016 14:26 # +15
CHayT 15.05.2016 15:57 # +13
ежели электрической дугой, то можно и обоссать сначала для лучшей проводимости
3_14dar 15.05.2016 21:29 # +10
1024-- 15.05.2016 14:49 # +12
Привязка к конкретному языку для работы в какой-то области - бездумная дань идиотской традиции, противоречащая с мировой тенденцией разделения языков.
Для логичного решения вопроса следует либо отказаться от выбора некоторого одного случайного языка для работы в области и привести подобные моноязычные сферы в соответствие с остальными сферами жизни, либо ввести моноязычность во все сферы, то есть перейти на единый мировой язык.
Последнее является очевидно безумной идеей как по затратам на переход, так и с учётом развития средств автоматического перевода, требующих от авторов текста только лишь простого формулирования своих мыслей без неоднозначностей.
Соответственно, следует оставить мультиязычность во всех сферах, развивать простые способы изложения мыслей, а для переговоровиспользовать автоматические переводчики. Это позволит избавить людей от накладных расходов на самостоятельный перевод своих мыслей на незнакомый язык и обратно, а также накопить большой объём понятной литературы.
Или теперь, чтобы пойти в аптеку, будем учить латинский? А чтобы за свежим батончиком сбегать - французский?
bormand 15.05.2016 20:14 # +15
Чтобы пойти работать в аптеку? Но, внезапно, врачи, аптекари и фармацевты учат латынь...
Ты смешиваешь пользователей (тех, кто идёт в аптеку) и разрабов (тех, кто в ней работает).
3_14dar 15.05.2016 21:29 # +14
guesto 16.05.2016 00:40 # +11
и RFC
и manы
3_14dar 16.05.2016 03:10 # +11
Речь шла о том, что по сасцалю много хороших доков на русском.
kegdan 16.05.2016 09:59 # +10
guesto 16.05.2016 12:58 # +11
кто про что, а Сема про
Паскаль учили все 90е, и конечно по нему много книг, однако чтобы писать хорошо под винду нужно уметь читать MSDN
3_14dar 16.05.2016 18:28 # +10
guesto 16.05.2016 18:34 # +10
Из за .net, реестра, редиректора, установшика
3_14dar 16.05.2016 18:36 # +10
И что там читать? Про то что такое реестр?
>.net,
Я языки не упоминал, так-то да, официальная документация как бэ. С другой стороны, она доступна в IDE.
>редиректора, установшика
Што?
guesto 16.05.2016 19:04 # +10
Про значения ключей.
Например 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
Где ты про все это будешь читать?
3_14dar 16.05.2016 19:08 # +10
относительно сложные вещи можно в книжках или мануалах на русском почитать.
guesto 16.05.2016 19:11 # +10
3_14dar 16.05.2016 19:36 # +10
guesto 17.05.2016 02:17 # +10
Сем, ну прекрасти. Какое нахуй серьезное программирование под что либо без чтения официальной документации?
3_14dar 17.05.2016 03:34 # +10
3_14dar 16.05.2016 18:32 # +10
guesto 16.05.2016 00:39 # +11
Ежу понятно что никто специально не делал английский языком IT. Этот язык крайне неудобен, нелогичен, и малопригоден для изучения (тот же испанский в тысячу раз лучше). Но так сложилось. Английский говно, но его надо знать. На нем написана огромная часть документации, на нем проводят семенары и конфы, на нем пишут книги. Без него знания нельзя в современном мире быть ни админом, но программистом.
Пример с аптекой глуп, потому что для этого не нужно читать документацию на латыни.
1024-- 16.05.2016 05:25 # +10
Vasiliy 16.05.2016 09:34 # +10
Есть же такой 1С
dxd 16.05.2016 11:04 # +10
3_14dar 16.05.2016 18:28 # +10
TarasB 16.05.2016 11:03 # +10
kegdan 16.05.2016 12:53 # +12
Я к тому, что некоторых устраивает отставание в технологиях на 10 лет
guesto 16.05.2016 12:57 # +10
Курсы Дениса Попова -- они на русском
guesto 16.05.2016 12:57 # +10
Я не в восторге от того, что английский стал языком IT. Но факт в том, что он им стал
3_14dar 15.05.2016 17:15 # +11
А как же стертор?
TarasB 16.05.2016 11:00 # +10