Свои проги

[neXeuse]

Выкидываем сюда свои проги для показу и дегустции.
Чтобы неграмотный народ учился,лучше с исходниками.
Надеюсь жадин нет

[ZVERb]

у меня их стока было....
а щас уже нечего не помню.... а найти тем-более не смогу

[BATMEN]

у меня их стока было....
а щас уже нечего не помню.... а найти тем-более не смогу

Он сказал: "Выкладвываем СВОИ проги". ЩАс еще немножко допишу, потом выложу, а то косяков дофига еще.

[BATMEN]

Выкидываем сюда свои проги для показу и дегустции.
Чтобы неграмотный народ учился,лучше с исходниками.
Надеюсь жадин нет

Пх, зачем же форм то столько, если нужно вывести какое-нибудь сообщение то пиши:

ShowMessage('текст сообщения');

[ZVERb]

у меня их стока было....
а щас уже нечего не помню.... а найти тем-более не смогу

Он сказал: "Выкладвываем СВОИ проги". ЩАс еще немножко допишу, потом выложу, а то косяков дофига еще.

логично!и Умно! конешно же, я имел ввиду, то что я выложу и найду ТВОИ проги!

[Jamal]

ааа ацкии вирус пажираит наш моск

[NatriXX]

ааа ацкии вирус пажираит наш моск

Угу... Удафффоффский вырь... Фффтопку, ффтопку!

[BATMEN]

Чего тут смешного я никак догнать не могу, или у меня с чувством юмора хреново.

[ZVERb]

Чего тут смешного я никак догнать не могу, или у меня с чувством юмора хреново.

хаааа-хаа! LOL!!

[BATMEN]

Зачем тебя флудера такого вообще модером поставили.

[RoM4a]

Зачем тебя флудера такого вообще модером поставили.

ты чО, ето крута чувак!

[DJ Пупкин]

это кулькулятор, единственое что я могу делать на делфи это кулькулятор делить так у меня и не получаеся.

[BATMEN]

Хы, делить там не двоеточие, а слеш ( / ), делай лучше уж так :

Код: Выделить всё

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Actions : byte;  // 1 - сложить. 2 - вычесть, 3 - умножить, 4 - делить
  Temp    : real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Actions <> 0) and (Edit1.Text <> '') then
 case Actions of
  1: begin
       Edit1.Text := FloatToStr( StrToFloat(Edit1.Text) + Temp);
       Actions := 0;
     end;
  2: begin
       Edit1.Text := FloatToStr( Temp - StrToFloat(Edit1.Text)  );
       Actions := 0;
     end;
  3: begin
       Edit1.Text := FloatToStr( StrToFloat(Edit1.Text) * Temp);
       Actions := 0;
     end;
  4: begin
       Edit1.Text := FloatToStr( Temp / StrToFloat(Edit1.Text) );
       Actions := 0;
     end;
 end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Edit1.Text <> '' then Temp := StrToFloat(Edit1.Text);
 begin
  Edit1.Clear;
  Actions := 1;
 end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if Edit1.Text <> '' then Temp := StrToFloat(Edit1.Text);
 begin
  Edit1.Clear;
  Actions := 2;
 end;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if Edit1.Text <> '' then Temp := StrToFloat(Edit1.Text);
 begin
  Edit1.Clear;
  Actions := 4;
 end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if Edit1.Text <> '' then Temp := StrToFloat(Edit1.Text);
 begin
  Edit1.Clear;
  Actions := 3;
 end;
end;

end.

[BATMEN]

Народ, попробуйте, работает у кого-нить, вчера вечером делал, все нормально работало, комп выключил, сегодня включил нихрена не коннектица, ваще понять не могу из-за чего.

ЗЫ: Сморите, чтобы фаервол не блокировал (или брандмауер). Если сетки нету, то можно на 127.0.0.1 тестить.

[Code(R)]

Да, телефонных справочников развелось...
Вот ещё один.

C исходниками!

[Wirel]

Народ, попробуйте, работает у кого-нить, вчера вечером делал, все нормально работало, комп выключил, сегодня включил нихрена не коннектица, ваще понять не могу из-за чего.

ЗЫ: Сморите, чтобы фаервол не блокировал (или брандмауер). Если сетки нету, то можно на 127.0.0.1 тестить.

не, у мня не работает, ошибка вылазит когда соединяшся с 127.0.0.1, там че-то про порт пишет.

[BATMEN]

Уф блин, сервер то забыл. Вот клиетн и сервер.

[BATMEN]

Щас еще попозже сделаю, чтобы можно было следить за клавиатурой и управлять клавой удаленного компа, надо еще как то сделать, чтобы в автозагрузку автоматически прописывалась, чтолько не в папку "автозагрузка" а в реестр, чтобы найти было сложнее.

Команды пока такие есть:

#close - зактыть прогу на удаленном компе.
#ellipse xxx yyy xxx yyy - рисует элипс (например #ellipse 000 000 200 200);
#send xx s - выполняет команду send message xx - раз с текстом s
ну и там еще несколько есть, в том числе управление мыши, вывод диалога

#dlgtype xxx - смена стиля выводимого окна, где

xxx = err - сообщение об ошибке
!!! - предупреждение
??? - вопросительное
iii - хз как называется.

Можно еще брать на себя упрвление курсором мыши.
По сетке в универе над ламерами жестко стегать

[RuleZzZ]

Здесь ещё пара моих прог, просто баловство с Canvas.
Здесь

[RuleZzZ]

И ещё вот вам интересная тема для размышления: как припомощи только двух переменных написать переход значения второй в первую а первой во вторую, тип integer;

[Wirel]

программа для рассчета мультивибратора, доделал наконец, вроде даже считает как надо хехе... вчера 50 герц натыкал там, резисторы на коллектор по килоому, на базу по 10к, и кандюки хз, толи 1 мкф толи скока... ну вобшем гудит так же как в програмке показало, там периоды даже есь.
а делить меня научили наконецто с горем пополам хехе...
о программе там тыкните, там картинка уматная... nano$oft

[h-jackal]

И ещё вот вам интересная тема для размышления: как припомощи только двух переменных написать переход значения второй в первую а первой во вторую, тип integer;

Мде... старая и простая задачка

Выполняем последовательно:
x:=-x+y
y:=x-y
y:=-y
x:=x+y

[BATMEN]

Я тут немножко оптимизировал:

Код: Выделить всё

 

X := -X + Y;
Y := -X + Y;
X :=  X + Y;

[BATMEN]

Сейчас проводил тестирование, какой код оптимальнее использовать, результаты:

Код: Выделить всё

repeat
//-------------------
 X := -X + Y;
 Y := -X + Y;
 X :=  X + Y;
//-------------------
inc(C);
until C = $5FFFFFFF;

Локальные переменные. Выолнилось за 4616 ms

//-----------------------------------------------

Код: Выделить всё

repeat
//-------------------
X:= -X + Y;
Y:=  X - Y;
Y:= -Y;
X:=  X+Y;
//-------------------
inc(C);
until C = $5FFFFFFF;

Локальные переменные. Выполнилось за 5357 ms

//-------------------------------------------------

Код: Выделить всё

repeat
//-------------------
Z := X;
X := Y;
Y := Z;
//-------------------
inc(C);
until C = $5FFFFFFF;

Локальные переменные. Выолнилось за 1713 ms


//-------------------------------------------------------------

Код: Выделить всё

repeat
//-------------------
Z := X;
X := Y;
Y := Z;
//-------------------
inc(C);
until C = $5FFFFFFF;

ГЛОБАЛЬНЫЕ переменные. Выолнилось за 4887 ms


А я до этого времени был уверен, что с глобальными переменными быстрее работать, т.к. не нужно им выделять каждый раз память, оказалось что далеко не так.....

Все результаты с учетом погрешности системного таймера, тестил несколько раз, результаты примерно одни и теже.

Вот интересно, будет ли разница в способах на разных процах Хотя вряд ли конечно. Кому интересно, тестите, выкладывайте, сравним

ЗЫ: С Выключенным винампом и нешевеля мышку во время тестирования.

Исходники и экзешка кому интересно:

[BATMEN]

Вот, все тоже, только скомпилировано Dlphi 2005

1 : (100 20) ---> 4727 ms

2 : (100 20) ---> 5488 ms

3 : (100 20) ---> 2664 ms

4 : (100 20) ---> 5107 ms

В том же порядке. Я то думал что у него компилятор лучше.

ЗЫ: Как много я всего не правильно думал.