Laman

Rabu, 28 Maret 2012

Kategori Remaja

Tau ga ada 4 kategori Remaja??

1. Remaja Yang Seadanya.
Ini tipe remaja yang puasa dengan apa yang dialaminya, bukan apa yang diperolehnya. Remaja kaya gini bilasanya polos2 aza. Tapi jadi nggak punya keinginan untuk maju lebih maju.

2. Remaja Yang Mengada-ada.

Remaja kaya gini biasanya banyak ngelamun, banyak mimpi tapi jarang banget mewujudkan mimpinya itu ke dalam tindakan nyata. Biasanya suka menyendiri dan memiliki dunia yang unik minimal untuk dirinya sendiri.


3. Remaja Yang Ada-Ada Saja.

Ini tipe remaja yang asal beda, berpenampilan beda, sehingga baik secara sendiri maupun bareng2 jadi beda ama yang ada. Biasanya lucu, asyik, rame, dan serasa banget.



4. Remaja Yang Lebih Dari Adanya.

Nah, tipe ini yang paling OKE. Jadi remaja yang kaya gini gampng baget, gimana caranya bikin orang lain ngerasa beruntung pas kamu datang, dan ngerasa kehlilangan pas kamu pergi (jangan sampai kamu datang dan pergi, nggak ngaruh buat orang lain, kasihan khan kamu?). kamu jadi bermanfaat buat orang lain.


Kamu masuk kategori yang mana???




Rabu, 09 Juni 2010


CARA BIKIN PROGRAM KALKULATOR DENGAN DELPHI

Kalkulator

 

Source Code form 1 :

 

================================begin=================================

unit kalkulator;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, XPMan, StdCtrls, Menus, InFix;

 

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;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    Button17: TButton;

    Button18: TButton;

    Button19: TButton;

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    Exit1: TMenuItem;

    About1: TMenuItem;

    Author1: TMenuItem;

    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 Button13Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button15Click(Sender: TObject);

    procedure Button16Click(Sender: TObject);

    procedure Button18Click(Sender: TObject);

    procedure Button19Click(Sender: TObject);

    procedure Button17Click(Sender: TObject);

    procedure Exit1Click(Sender: TObject);

    procedure Author1Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

{$R *.dfm}

 

procedure TForm1.Button18Click(Sender: TObject);

begin

  edit1.Clear; {membersihkan edit1 yang berfungsi sebagai layar monitor}

end;

 

procedure TForm1.Button11Click(Sender: TObject);

var

nought : integer;

begin

  nought := 0;

  edit1.Text := edit1.Text + inttostr (nought); {mendefinisikan tombol}

end;

 

procedure TForm1.Button7Click(Sender: TObject);

var

one:integer;

begin

  one :=1;

  edit1.text := edit1.text + inttostr (one);

end;

 

procedure TForm1.Button8Click(Sender: TObject);

var

two : integer;

begin

 two :=2;

 edit1.Text := edit1.Text +inttostr (two);

end;

 

procedure TForm1.Button9Click(Sender: TObject);

var

  three: integer;

begin

  three := 3;

  edit1.Text := edit1.Text + inttostr(three);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

var

  four: integer;

begin

  four := 4;

  edit1.Text := edit1.Text + inttostr(four);

  end;

 

procedure TForm1.Button5Click(Sender: TObject);

var

  five: integer;

begin

  five := 5;

  edit1.Text := edit1.Text + inttostr(five);

end;

 

procedure TForm1.Button6Click(Sender: TObject);

var

  six: integer;

begin

  six := 6;

  edit1.Text := edit1.Text + inttostr(six);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  seven: integer;

begin

  seven := 7;

  edit1.Text := edit1.Text + inttostr(seven);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

  eight: integer;

begin

  eight := 8;

  edit1.Text := edit1.Text + inttostr(eight);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

  nine: integer;

begin

  nine := 9;

  edit1.Text := edit1.Text + inttostr(nine);

end;

 

procedure TForm1.Button13Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button13.caption;

end;

 

procedure EvaluateExp(Const MyExpr : string);  {mendefinisikan procedure EvaluateExp

var                                                                         untuk melakukan penghitungan}

MyErr  : Byte;

MyResult : Real;

begin

            MyErr := 0;

            MyResult := 0.0;

            InFix.RawCalculate(MyExpr, MyResult, MyErr);

            form1.Edit1.Clear;

            form1.Edit1.Text := floattostr(myresult);

end;

 

procedure TForm1.Button10Click(Sender: TObject);

begin

  EvaluateExp(edit1.text); {memanggil prosedur EvaluateExp ketika tombol 10 (=) di klik}

end;

 

procedure TForm1.Button15Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button15.caption;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button16.caption;

end;

 

procedure TForm1.Button14Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button14.caption;

end;

 

procedure TForm1.Button19Click(Sender: TObject);

begin

  edit1.Text := edit1.Text + button19.caption;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

edit1.Text:=floattostr(sqr(strtofloat(edit1.Text)));

end;

 

 

procedure TForm1.Exit1Click(Sender: TObject);

begin

     form1.Close; {menutup aplikasi ketika menu exit di klik}

end;

 

procedure TForm1.Author1Click(Sender: TObject);

begin


end;

 

end.

 

==================================end================================

Form 1:

Senin, 03 Mei 2010