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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)