Label

Selasa, 31 Januari 2012

Monkeyboot - Sederhana Dengan Banyak Cinta


Keras hidup kujalani ku hadapi dengan pasti...., 
Walaupun terkadang ku terjatuh ku akan berdiri lagi..., 
Ku memang tak pernah rasakan hidup dalam kemewahan..., 
Sederhana saja berteman kerasnya hidup di jalanan..., 

Kerja keras setiap hari demi keluarga.. 
Tak perduli panas, hujan, badai datang menghampiri ku tetap berlari,..., 
Tapi satu hal yang pasti ku tetap bersyukur pada hidup ini.. 
Jalani saja semuanya, karena ku hanya ingin hidup.. 

SEDERHANA , BAHAGIA, DGN BANYAK CINTA.....

SEDERHANA , BAHAGIA, DGN BANYAK CINTA.....

wahh...ni lagu bener bener nyentuh banget gan,,
Kalo mau download lagunya lansung saja sedot DISINI gan..

thank,,,semoga menghibur
Diposting oleh di 07:21 0 komentar
Label:

Sabtu, 28 Januari 2012

Rumus Bangun Ruang Dan Bangun Datar Dengan Lazarus

 
Scrip programnya:
unit setyo09;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Hasilnya: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Hasil: TLabel;
    Image1: TImage;
    Image10: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label3: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label4: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    RadioButton1: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Sisi: TLabel;
    VOLUME: TRadioButton;
    LUAS: TRadioButton;
    Tinggi: TLabel;
    Lebar: TLabel;
    Panajang: TLabel;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    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 Edit23Change(Sender: TObject);
    procedure HasilnyaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem12Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
    procedure VOLUMEChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Visible:=False;
  Panel2.Visible:=False;
  Panel3.Visible:=False;
end;

procedure TForm1.Image10Click(Sender: TObject);
begin

end;

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

procedure TForm1.Label8Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem10Click(Sender: TObject);
begin
  Panel4.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel1.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem11Click(Sender: TObject);
begin
  Panel5.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem12Click(Sender: TObject);
begin

  Panel11.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel5.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.HasilnyaClick(Sender: TObject);
begin
  //try
     if VOLUME.Checked = true then
        Edit4.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text))
      else if LUAS.Checked = True then
        Edit4.Text:=FloatToStr((2*StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text))+(2*StrToFloat(Edit1.Text)*StrToFloat(Edit3.Text))+(2*StrToFloat(Edit2.Text)*StrToFloat(Edit3.Text)))
      else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek dulu');
    // end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //try
     if RadioButton1.Checked = true then
        Edit6.Text:=FloatToStr(StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text))
      else if RadioButton2.Checked = True then
        Edit6.Text:=FloatToStr(6*(StrToFloat(Edit5.Text)*StrToFloat(Edit5.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 //try
     if RadioButton3.Checked = true then
        Edit10.Text:=FloatToStr(1/3*3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit8.Text)*StrToFloat(Edit9.Text))
      else if RadioButton4.Checked = True then
        Edit10.Text:=FloatToStr((3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit7.Text))+(3.14*StrToFloat(Edit8.Text)*StrToFloat(Edit8.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   //try
     if RadioButton5.Checked = true then
        Edit12.Text:=FloatToStr(4/3*3.14*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text))
      else if RadioButton6.Checked = True then
        Edit12.Text:=FloatToStr(4*3.14*StrToFloat(Edit11.Text)*StrToFloat(Edit11.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //try
     if RadioButton7.Checked = true then
        Edit15.Text:=FloatToStr(3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit13.Text)*StrToFloat(Edit14.Text))
      else if RadioButton8.Checked = True then
        Edit15.Text:=FloatToStr((2*3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit14.Text))+(2*3.14*StrToFloat(Edit13.Text)*StrToFloat(Edit13.Text)))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  //try
     if RadioButton9.Checked = true then
        Edit17.Text:=FloatToStr(StrToFloat(Edit16.Text)*StrToFloat(Edit16.Text))
      else if RadioButton10.Checked = True then
        Edit17.Text:=FloatToStr(4*StrToFloat(Edit16.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  //try
     if RadioButton11.Checked = true then
        Edit20.Text:=FloatToStr(StrToFloat(Edit18.Text)*StrToFloat(Edit19.Text))
      else if RadioButton12.Checked = True then
        Edit20.Text:=FloatToStr(2*(StrToFloat(Edit18.Text)+(StrToFloat(Edit19.Text))))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  //try
     if RadioButton13.Checked = true then
        Edit23.Text:=FloatToStr(1/2*StrToFloat(Edit21.Text)*StrToFloat(Edit22.Text))
      else if RadioButton14.Checked = True then
        Edit23.Text:=FloatToStr(StrToFloat(Edit21.Text)+(StrToFloat(Edit22.Text)+(StrToFloat(Edit24.Text))))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  //try
     if RadioButton15.Checked = true then
        Edit26.Text:=FloatToStr(3.14*StrToFloat(Edit25.Text)*StrToFloat(Edit25.Text))
      else if RadioButton16.Checked = True then
        Edit26.Text:=FloatToStr(2*3.14*StrToFloat(Edit25.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  //try
     if RadioButton17.Checked = true then
        Edit31.Text:=FloatToStr(1/2*((StrToFloat(Edit27.Text)+StrToFloat(Edit28.Text))*StrToFloat(Edit30.Text)))
      else if RadioButton18.Checked = True then
        Edit31.Text:=FloatToStr(StrToFloat(Edit27.Text)+StrToFloat(Edit28.Text)+StrToFloat(Edit29.Text)+StrToFloat(Edit30.Text))
     else
     ShowMessage('Pilih salah satu operasi');
    // Except
     //  ShowMessage('cek nilai dulu');
    // end;
end;

procedure TForm1.Edit23Change(Sender: TObject);
begin

end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  Panel1.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  Panel3.Visible:=True;
  Panel2.Visible:=False;
  Panel1.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  Panel2.Visible:=True;
  Panel3.Visible:=False;
  Panel1.Visible:=False;
  Panel4.Visible:=False;
  Panel5.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem5Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  Panel6.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel5.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  Panel7.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel5.Visible:=False;
  Panel9.Visible:=False;
  Panel10.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem8Click(Sender: TObject);
begin
  Panel9.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel5.Visible:=False;
  Panel11.Visible:=False;
  Panel10.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
begin
  Panel10.Visible:=True;
  Panel3.Visible:=False;
  Panel2.Visible:=False;
  Panel4.Visible:=False;
  Panel1.Visible:=False;
  Panel6.Visible:=False;
  Panel7.Visible:=False;
  Panel9.Visible:=False;
  Panel5.Visible:=False;
  Panel11.Visible:=False;
  Panel12.Visible:=False;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin

end;

procedure TForm1.Panel3Click(Sender: TObject);
begin

end;

procedure TForm1.Panel4Click(Sender: TObject);
begin

end;

procedure TForm1.Panel5Click(Sender: TObject);
begin

end;

procedure TForm1.Panel7Click(Sender: TObject);
begin

end;

procedure TForm1.VOLUMEChange(Sender: TObject);
begin

end;

end.

Menyisipkan Gambar
- Klik menu Additional, kemudian pilih TImage . seperti pada gambar diatas.
-Pilih gambar dan sisipkan


==========> SELAMAT MENCOBA <==========
Diposting oleh di 18:47 0 komentar

Jumat, 20 Januari 2012

latihan soal SBDL

 tabel soal
Diposting oleh di 06:51 0 komentar
Label:
Langganan: Postingan (Atom)