Перейти к содержанию

ZyXEL12m94*41

Пользователи
  • Постов

    554
  • Зарегистрирован

  • Посещение

Весь контент ZyXEL12m94*41

  1. Круто=) Постараюсь придти. Возрастные ограничения есть?
  2. D_Master +1, ибо бывают моменты когда голосовать неохото/нет подходящих вариантов, а рузультаты увидеть хоца.
  3. А мне понравилось=)
  4. Нет Человек ниже в курсе какого лешего мой винт на 720Гб временами так пртивненько похрустывает?
  5. Все, оно заработало=) Вот так это выглядит: interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Panel1: TPanel; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,p,r:real; mode:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'1' end; procedure TForm1.Button2Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'2' end; procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'3' end; procedure TForm1.Button4Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'4' end; procedure TForm1.Button5Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'5' end; procedure TForm1.Button6Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'6' end; procedure TForm1.Button7Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'7' end; procedure TForm1.Button8Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'8' end; procedure TForm1.Button9Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'9' end; procedure TForm1.Button10Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'0' end; procedure TForm1.Button12Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=2; Panel1.Caption:=''; end; procedure TForm1.Button13Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=3; Panel1.Caption:=''; end; procedure TForm1.Button14Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=4; Panel1.Caption:=''; end; procedure TForm1.Button11Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=1; Panel1.Caption:=''; end; procedure TForm1.Button15Click(Sender: TObject); begin case mode of 1:begin p:=StrToFloat(Panel1.Caption); r:=i+p; Panel1.Caption:=FloatToStr(r); end; 2:begin p:=StrToFloat(Panel1.Caption); r:=i-p; Panel1.Caption:=FloatToStr(r); end; 3:begin p:=StrToFloat(Panel1.Caption); r:=i/p; Panel1.Caption:=FloatToStr(r); end; 4:begin p:=StrToFloat(Panel1.Caption); r:=i*p; Panel1.Caption:=FloatToStr(r); end; end; end; end. unit Unit1;
  6. Innk, в программировании я как Санёк во всем остальном. Мне желательно все по полочкам разложить. Как я понимаю процедура "FloatToStr" переводит числовое значение в строковое т.е '231' в просто 231? А процедура "StrToFloat" делает все с точностью до наоборот?
  7. stalker_romich96 семерка. Как я понимаю это проблема?
  8. Для начала он мне говорит что нет диска в приводе(тот который физический), я его отпилил, но он теперь ругается- "ошибка 1327. Недействительный диск Е:\" (тот который физический). Но хрен с ней, самая главная это- "Ошибка 1324.Путь к папке Program files содержит недопустимый символ", вот что с этим делать?
  9. Проблем у установкой ни у кого не возникало? Я что то не могу
  10. Я второй раз в жизни пользуюсь, ни черта не умею, мне бы с объяснениями Innk как бы пытался обработать событие "OnClick".
  11. Маты начинаются сразу со строчки procedure TForm1.Button1Click(Sender: TObject); причина понятия не имею что это значит, с Delphi работаю второй раз в своей жизни, качал отсюда. Меня терзают смутные сомененья что у меня в коде косяк на косяке сидит, и косяком погоняет. Помогите исправить пожалуйста. interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Panel1: TPanel; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,p,r:real; mode:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+1 end; procedure TForm1.Button2Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+2 end; procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+3 end; procedure TForm1.Button4Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+4 end; procedure TForm1.Button5Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+5 end; procedure TForm1.Button6Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+6 end; procedure TForm1.Button7Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+7 end; procedure TForm1.Button8Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+8 end; procedure TForm1.Button9Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+9 end; procedure TForm1.Button10Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+0 end; procedure TForm1.Button12Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=2; Panel1.Caption:=''; end; procedure TForm1.ButtonD13Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=3; Panel1.Caption:=''; end; procedure TForm1.Button14Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=4; Panel1.Caption:=''; procedure TForm1.Button11Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=1; Panel1.Caption:=''; end; procedure TForm1.ButtonClick(Sender: TObject); begin case mode of 1:begin p:=StrToFloat(Panel1.Caption); r:=i+p; Panel1.Caption:=FloatToStr(r); end; 2:begin p:=StrToFloat(Panel1.Caption); r:=i-p; Panel1.Caption:=FloatToStr(r); end; 3:begin p:=StrToFloat(Panel1.Caption); r:=i/p; Panel1.Caption:=FloatToStr(r); end; 4:begin p:=StrToFloat(Panel1.Caption); r:=i*p; Panel1.Caption:=FloatToStr(r); end; end.unit Unit1;
  12. ZyXEL12m94*41

    L-MOБ

    Запишите FM 1294=) 100, 50, 10 рублей (и на 5 рублях, в кол-ве 20 штук, гвоздем нацарапано 1294)))
  13. Приму в дар, или куплю гарантийные наклейки магазина Снежный Барс
  14. Еще у кого нить кроме меня, есть проблемы с выходом на внешние ресурсы сети?
  15. "Молодец директор бля" хД "Директор, не нервничай, не нервничай")))
  16. dibar мне бы начало, там где конкурсы и прочее, а то я проспал сей момент=) Проснулся только к 11:00pm)))
  17. Markus плевать=) Много это сколько? Гигов 15? Качество не айс же, пожатое до ужаса, соответственно размер меньше(наверное)
  18. У меня вопрос- можно ли будет скачать потом запись праздника?
×
×
  • Создать...