Langsung ke konten utama

perhitungan hambatan total

 ini perhitungannya, saya ga tau euy cara ngapture gambarnya pake apa ?? :D :D
MySpace

MySpace
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ER1: TEdit;
    ER2: TEdit;
    ER3: TEdit;
    Ehasil: TEdit;
    Button1: TButton;
    Button2: TButton;
    exit: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure exitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  R1,R2,R3,RS,RP:real;
begin
  R1:=strtofloat(ER1.text) ;
  R2:=strtofloat(ER2.Text) ;
  R3:=strtofloat(ER3.Text) ;
  RS:=R1+R2+R3 ;
  Ehasil.Text:=floattostr(RS)
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  R1,R2,R3,RS,RP:real;
begin
R1:=strtofloat(ER1.text) ;
  R2:=strtofloat(ER2.Text) ;
  R3:=strtofloat(ER3.Text) ;
  RS:=R1*R2*R3/R1*R2+R1*R3+R2*R3 ;
  Ehasil.text:=floattostr(RP) ;
end;

procedure TForm1.exitClick(Sender: TObject);
begin
close;
end;

end.
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

latian silat

hari ini saya sangat senang bisa latian silat lagi dan bisa berkumpul bersama temen" seangkatan saya yang dulu berjuang bersama :).. saya pikir hari ini latian seperti biasanya kaya latian fisik, teknik, sparing, dan jatuhan. eh ternyata saya tertipu.. ternyata hari ini latiannya teh latian jurus jurus 1 saya berhasil jurus 2 saya berhasil jurus 3 berhasil lagi jurus 4 berhasil jurus 5 berhasil jurus 6 berhasil lagi jurus 7 rada-rada berhasil jurus 8 rada-rada lupa jurus 9 - 10 rada-rada berhasil jurus 11-12 (jurusnya sabuk merah) lupaaaaaaaaaaaaaaaaaaaaaaa alhasil saya kena push up sama pelatih saya ... -_- dapet pesen sama guru besar juga, "jar latian yang rajin di bandung juga, buat persiapan pertandingan bulan april ntar".. jawaban saya, iya pak :)
2 komentar
Baca selengkapnya

odiq kecil

Mungkin, banyak diantara kita menganggap hidup itu membosankan, banyak masalah karena berbagai alas an yang mendasarinya seperti kaga punya uang, tampang ga keren atau bukan orang tajir yang di incer banyak cewe-cewe cantik n ++. Sampai saya pun mengalaminya sendiri . Tapi seiring berjalannya waktu, semua itu ternyata ga ada apa-apanya loh. Saya jadi menganggap hidup itu penuh warna dan penuh teka-teki . contohnya :: kita ga punya uang, bukan berarti kalo ga punya uang itu kita akan mati kelaperan kan. Makanya sob, kita sebagai manusia harus bisa bergaul dan terbuka apa adanya kepada orang-orang disekitar kita. Jangan sok keren lah, sok kaya lah, dan sok-sok yang lain. Padahal keren ga menjamin orang itu baik, kaya ?? kan kita belum bekerja dan paling-paling punya orang tuanya. Emang bangga make barang-barang bagus dan mewah tapi bukan hasil keringat kita sendiri ???? ogah dehh . . . . Sabagai seorang perantau yang hidup di kota besar, saya berusaha mendapatkan keluarga kecil untuk h...
3 komentar
Baca selengkapnya

tampil apa adanya, bukan tampil ada apanya

sepertinya banyak diantara kita senang atau asik memakai nama diluar nama kita untuk menampilkan apa yang tidak kita punya untuk mendapatkan perhatian dari orang lain.. yah khususnya di social media, banyak nama-nama aneh berseliweran contohnya saja : aqyu tsi ceue unyu, yondaime ssi super saiya, ceuwe moengil butuh kasih caiangs, dan nama-nama aneh lainnya.  hmmm, saya ga tau apa motivasi mereka menampilkan nama-nama tersebut pada social network seperti facebook, dkk. mungkin aja karena mereka merasa tidak PD dengan apa yang mereka miliki karena jika mereka menampilkan identitas mereka apa adanya, mereka tidak bisa mendapatkan teman. Ataukah bisa juga mereka ingin mencari perhatian orang lain dengan menampilkan nama tersebut beserta foto-foto yang menurut saya engga banget lah -.- sebenernya kalo banyak diantara kita sadar akan pentingnya identitas di dunia maya seperti facebook, twitter, yahoo messenger, dan social networking lainnya. kita akan merasa rugi karena kita ...
2 komentar
Baca selengkapnya