sipteronik

Кто с Улановки ходит в походы? В каких конкретно местах бываете? Отпишитесь куда путешествуете (в пределах нашей республики). То есть если отдыхаете на Байкале, то в каком месте? Либо там с Саяны ходите...тоже опишите место и то как добираетесь! Добавлено спустя 33 секунды: лично сам отдыхал в Энхалуке, на Байкале....очень понравилось, хочу ещё...

Уря все сделал, прога нормально работает! Всем спс!

Lucky Хорошо, спасибо!

научиться думать

Так, сейчас буду думать!) Спасибо за инфу! Я правда не все понял, но сейчас постараюсь разобраться...с делением на ноль я сделаю, а вот ввод символов с клавиатуры как...

Ребят подскажите нубу как сделать...короче делаю калькулятор в делфи, и нужно чтобы в форме (компонент edit) при запуске не вводились символы с клавиатуры, только цифры и знак запятой! Второе, как сделать чтобы знак запятой в калькуляторе, не выводился в форме edit больше одного раза. ( procedure TForm1.BitBtn11Click(Sender: TObject); begin if (new = false) then Edit1.Text := Edit1.Text + ',' else Edit1.Text := '0,'; new := false; end;) Третье - как сделать обработчик событий, если человек делит число на ноль.. Прошу прощения за тупые вопросы, логика в мозгах напрочь вынесена( Добавлено спустя 6 минут 22 секунды: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Math, jpeg, ExtCtrls, ActnList, XPMan; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn10: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; BitBtn14: TBitBtn; BitBtn15: TBitBtn; BitBtn16: TBitBtn; Edit1: TEdit; BitBtn17: TBitBtn; BitBtn27: TBitBtn; Image1: TImage; XPManifest1: TXPManifest; procedure BitBtn29Click(Sender: TObject); procedure BitBtn27Click(Sender: TObject); procedure BitBtn22Click(Sender: TObject); procedure BitBtn23Click(Sender: TObject); procedure BitBtn21Click(Sender: TObject); procedure BitBtn19Click(Sender: TObject); procedure BitBtn20Click(Sender: TObject); procedure BitBtn18Click(Sender: TObject); procedure BitBtn24Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn10Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn11Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BitBtn16Click(Sender: TObject); procedure BitBtn25Click(Sender: TObject); procedure BitBtn28Click(Sender: TObject); procedure BitBtn12Click(Sender: TObject); procedure BitBtn17Click(Sender: TObject); procedure BitBtn26Click(Sender: TObject); procedure BitBtn31Click(Sender: TObject); procedure BitBtn32Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x: real; memory: real; z: real; deistv: byte; new: boolean; implementation {$R *.dfm} procedure figure(s: string); begin if (new = true) or (Form1.Edit1.Text = '0') then Form1.Edit1.Text := s else Form1.Edit1.Text := Form1.Edit1.Text + s; new := false; end; procedure TForm1.BitBtn29Click(Sender: TObject); begin Close; end; procedure TForm1.BitBtn27Click(Sender: TObject); begin Edit1.Text := '0'; end; procedure TForm1.BitBtn22Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcSin(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn23Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcCos(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn21Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcTan(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn19Click(Sender: TObject); begin Edit1.Text := FloatToStr(Sin(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn20Click(Sender: TObject); begin Edit1.Text := FloatToStr(Cos(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn18Click(Sender: TObject); begin Edit1.Text := FloatToStr(Tan(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn24Click(Sender: TObject); begin memory := StrToFloat(Edit1.Text); new := true; end; procedure TForm1.FormCreate(Sender: TObject); begin new := false; deistv := 0; memory := 0; end; procedure TForm1.BitBtn10Click(Sender: TObject); begin figure('0'); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin figure('1'); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin figure('2'); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin figure('3'); end; procedure TForm1.BitBtn4Click(Sender: TObject); begin figure('4'); end; procedure TForm1.BitBtn5Click(Sender: TObject); begin figure('5'); end; procedure TForm1.BitBtn6Click(Sender: TObject); begin figure('6'); end; procedure TForm1.BitBtn7Click(Sender: TObject); begin figure('7'); end; procedure TForm1.BitBtn8Click(Sender: TObject); begin figure('8'); end; procedure TForm1.BitBtn9Click(Sender: TObject); begin figure('9'); end; procedure TForm1.BitBtn11Click(Sender: TObject); begin if (new = false) then Edit1.Text := Edit1.Text + ',' else Edit1.Text := '0,'; new := false; end; procedure TForm1.BitBtn13Click(Sender: TObject); begin new := true; deistv := 1; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn14Click(Sender: TObject); begin new := true; deistv := 2; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn15Click(Sender: TObject); begin new := true; deistv := 3; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn16Click(Sender: TObject); begin new := true; deistv := 4; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn25Click(Sender: TObject); begin new := true; deistv := 5; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn28Click(Sender: TObject); begin Edit1.Text := FloatToStr(memory); end; procedure TForm1.BitBtn12Click(Sender: TObject); begin x := StrToFloat(Edit1.Text); case deistv of 1: Edit1.Text := FloatToStr(z + x); 2: Edit1.Text := FloatToStr(z - x); 3: Edit1.Text := FloatToStr(z * x); 4: Edit1.Text := FloatToStr(z / x); 5: Edit1.Text := FloatToStr(Power(z, x)); end; new := true; end; procedure TForm1.BitBtn17Click(Sender: TObject); begin Edit1.Text := FloatToStr(Sqrt(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn26Click(Sender: TObject); begin Edit1.Text := FloatToStr(1 / (StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn31Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcCot(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn32Click(Sender: TObject); begin Edit1.Text := FloatToStr(Cot(StrToFloat(Edit1.Text))); new := true; end; end.

Там есть вебкамера с видом на склон? Дай ссылку плиз

В УУ трудно устроиться на работу программисту? А те кто уже устроились - чем занимаетесь?) Расскажите, всем будет очень интересно! Добавлено спустя 2 минуты 51 секунду: То есть хочется услышать какого рода программы разрабатываете! Работаете с базами данных, программы мультимедиа пишете? Буду очень рад любому ответу по теме!

Не понравился( маленький какой то(

Правда хожу даже не хожу а ходил... Добавлено спустя 1 минуту 27 секунд: Ладно не будем тут девушкам мешать общаться на их форуме Я щас танцами занимаюсь, отжим и тп. Пока норм вроде все.

ну я с 40-50 килограммовым рюкзаком в день по 30 километров в гору прохожу, не думаю что если на меня дунуть то улечу. А про кости вылезают это сто процентов вы правы, кости вылезать не должны нифига))

ЫЫ))

хаха))) ну классно) а вы, кто нибудь, через гугл пробейте препарат подавляющий действие алкоголя, сходите в аптеку, купите его и все - кубок чемпиона у вас в кармане! Добавлено спустя 2 минуты 2 секунды: меня за совет пивом потом угостите... З. Ы. алкоголизмом не увлекаюсь, и не люблю это дело, просто раз в месяу пива попить можно...

Car-Man Ого, ты сноубордист бывший? А почему забросил, не понравилось кататься? (если не секрет)

а дорого вообще день покататься?)Добавлено спустя 35 секунд: p s на внешку пока не давайте ссылки - интернет очень медленный...

Привет, кто занимается горнолыжным спортом в Байкальске? Отпишите о впечатлениях, цены там умеренные? Условия хорошие? Есть где ночевать?

Уря! И вас с Днем великой победы!

ищи лучше, в инете про это есть chdsk /? -help, /help и т.п. у каждой проги один или несколько способов вызова помощи зы неверно задан вопрос тебе для чьей ком. строки? дос, винда, (почти одно и тоже с досом), линуха? тебе нужны параметры программ или сама ком. строка? что-бы знать ВСЕ функции и параметры, тебе нужно будет перебрать и запомнить все программы, когда-либо выпущенные для выше-приведенных осей и других *05 осилишь? Пардон виноват, и вправду не уточнил. Мне команды конкретно на винду)Добавлено спустя 56 секунд: chkdsk - checkdisk одинаково работает. по крайней мере у меня. Добавлено спустя 2 минуты 25 секунд: UUF3 Да у меня на внешке в данный момент очень интернете медленный, и дорогой, так что погуглить не получится...ладно кто что знает - пишите! Если есть какая то книжка по функциям, либо таблица какая нибудь, выложите на форум плиз!

хорошей качественной одежды. Так, потом...хотелось бы больше спортивных товаров, а то нет нифига нормальных магазинов скажем для туризма (триал спорт ещё более менее нужны удовлетворяет..)

Да во мне блин гормоны бушевали по весне, вот тему и создал в порыве чувств. Сейчас по барабану что там девушкам нравится, что не нравится и тп. А форумчанам спасибо за советы, особенно некоторым продвинутым товарищам. Стал качать руки по особой методике, сразу стали толстеть мышцы *ликующий смех* все равно кому нибудь когда нибудь да понравлюсь)

скажите пожалуйста где достать все функции командной строки, возникла необходимость или точнее большой интерес разобраться в этом вопросе. То есть различные действия т к проверка диска "chdsk" и прочее. Через поисковики я ничего толком не нашел( Напишите или название книжки в которой все функции описаны, либо в интернете ссылочку дайте. Заранее благодарю!

ыы))

меня возьмите, я песни пою и танцую!

Так, запускаю процесс поиска хороший мест уу...обработка процесса...NOT FOUND! Блин, не находит

нужно сайт сделать на пхп или что?