Gästebuch von highner1

Rollt den Kopf über die Tastatur und schickts ab! :-D
bisher 499 Besucher

Eintragen

Eingetragen am Donnerstag, 09.07.2009 um 20:46 Uhr von Heiner

gtsxsrjkö-ä'äölkjhgfdsayx dcvbnm,.-hrdcgfxd

Eingetragen am Mittwoch, 06.05.2009 um 17:13 Uhr von SweetestGuy

defr tz6h gtvzztvfgrzjmn nj mk,n vbnnhjnhj mnk,jn hnjmkkknhj nkmm,knj bv

Eingetragen am Dienstag, 10.02.2009 um 18:48 Uhr von Pls net löschen

OK, kannst löschen

Eingetragen am Dienstag, 10.02.2009 um 13:02 Uhr von PLS net löschen 2

object Form1: TForm1
Left = 187
Top = 104
Width = 146
Height = 185
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 8
Top = 8
Width = 121
Height = 21
ReadOnly = True
TabOrder = 0
Text = '0'
end
object Button1: TButton
Left = 104
Top = 32
Width = 25
Height = 25
Caption = '+'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 104
Top = 64
Width = 25
Height = 25
Caption = '-'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 104
Top = 96
Width = 25
Height = 25
Caption = '*'
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 104
Top = 128
Width = 25
Height = 25
Caption = '/'
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Tag = 1
Left = 8
Top = 32
Width = 25
Height = 25
Caption = '1'
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Tag = 5
Left = 40
Top = 64
Width = 25
Height = 25
Caption = '5'
TabOrder = 6
OnClick = Button5Click
end
object Button7: TButton
Tag = 7
Left = 8
Top = 96
Width = 25
Height = 25
Caption = '7'
TabOrder = 7
OnClick = Button5Click
end
object Button8: TButton
Tag = 8
Left = 40
Top = 96
Width = 25
Height = 25
Caption = '8'
TabOrder = 8
OnClick = Button5Click
end
object Button9: TButton
Tag = 6
Left = 72
Top = 64
Width = 25
Height = 25
Caption = '6'
TabOrder = 9
OnClick = Button5Click
end
object Button10: TButton
Tag = 3
Left = 72
Top = 32
Width = 25
Height = 25
Caption = '3'
TabOrder = 10
OnClick = Button5Click
end
object Button11: TButton
Left = 40
Top = 128
Width = 25
Height = 25
Caption = '0'
TabOrder = 11
OnClick = Button5Click
end
object Button12: TButton
Tag = 4
Left = 8
Top = 64
Width = 25
Height = 25
Caption = '4'
TabOrder = 12
OnClick = Button5Click
end
object Button13: TButton
Tag = 2
Left = 40
Top = 32
Width = 25
Height = 25
Caption = '2'
TabOrder = 13
OnClick = Button5Click
end
object Button14: TButton
Tag = 9
Left = 72
Top = 96
Width = 25
Height = 25
Caption = '9'
TabOrder = 14
OnClick = Button5Click
end
object Button15: TButton
Left = 8
Top = 128
Width = 25
Height = 25
Caption = 'C'
TabOrder = 15
OnClick = Button15Click
end
object Button16: TButton
Left = 72
Top = 128
Width = 25
Height = 25
Caption = '='
TabOrder = 16
OnClick = Button16Click
end
end

Eingetragen am Dienstag, 10.02.2009 um 13:02 Uhr von PLS nicht löschen :D

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
procedure Button5Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
Nummer,Nummer2:real;
last:Byte;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button5Click(Sender: TObject);
begin
if Nummer=0 then Nummer:=Nummer+TButton(Sender).Tag
else Nummer:=(Nummer*10)+TButton(Sender).Tag;
edit1.Text:=floattoStr(Nummer);
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Nummer:=0;
Nummer2:=0;
Edit1.Text:='0';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
case last of
1: Nummer2:=Nummer2+Nummer;
2: Nummer2:=Nummer2-Nummer;
3: Nummer2:=Nummer2*Nummer;
4: Nummer2:=Nummer2/Nummer;
end;

Nummer:=0;
Edit1.Text:=floatToStr(Nummer2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='+';
if Nummer<>0 then
if Nummer2=0 then Nummer2:=Nummer else Nummer2:=Nummer2+Nummer;
Nummer:=0;
last:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='-';
if Nummer<>0 then
if Nummer2=0 then Nummer2:=Nummer else Nummer2:=Nummer2-Nummer;
Nummer:=0;
last:=2;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='*';
if Nummer<>0 then
if Nummer2=0 then Nummer2:=Nummer else Nummer2:=Nummer2*Nummer;
Nummer:=0;
last:=3;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='/';
if Nummer<>0 then
if Nummer2=0 then Nummer2:=Nummer else Nummer2:=Nummer2/Nummer;
Nummer:=0;
last:=4;
end;

end.

Eingetragen am Donnerstag, 05.02.2009 um 20:33 Uhr von Brenda

ghuz7jjjjjjjjjjjjj.pö-ä

Eingetragen am Donnerstag, 05.02.2009 um 18:32 Uhr von dennis

der mit abstand wärmste roller ;)

ctguj.ctguj.edrtkgz+
rtziu79+ou8jo456pä3

Eingetragen am Sonntag, 01.02.2009 um 18:38 Uhr von :cheesy:

http://de.youtube.com/watch?v=wDODP F0zwyk

Eingetragen am Samstag, 31.01.2009 um 18:26 Uhr von :cheesy:

:O
H1ner,
dein Bruder kann aber geil den Kopf rollen lassen :D

ok und jetzt roll roll:
<<QHYADEHDGUZKHJOÖ:

Eingetragen am Samstag, 31.01.2009 um 17:21 Uhr von Maddis un Ikke

swx3cfi8h bgfqwsdrftzfggggå¥≤k,,mcv df

^^ kombo von mattis und heiner

[1] [2] [3]

Einträge 1 bis 10 von 25

Eintragen