Minggu, 17 April 2011

TUGAS BORLAND DHELFI


KETENTUAN SOAL
Kode Obat                  Nama Obat                            Harga                    Satuan 
AMX                           Amoxilin                                 5000                     Botol
FLV                             Folvit                                      1000                     Kapsul
FNF                                        Fornafit                                              10000                           Botol




 LISTINGNYA

unit Program_linaaa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Enama: TEdit;
    Eharga: TEdit;
    Esatuan: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Ejumbel: TEdit;
    Etotal: TEdit;
    Ebay: TEdit;
    Ekem: TEdit;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    BKeluar: TButton;
    Cbkode: TComboBox;
    procedure CbkodeClick(Sender: TObject);
    procedure EjumbelKeyPress(Sender: TObject; var Key: Char);
    procedure EbayKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure BKeluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CbkodeClick(Sender: TObject);
begin
if cbkode.Text='AMX'then
begin
enama.Text:='Amoxilin';
eharga.Text:='5000';
esatuan.Text:='Botol';
end
else
if cbkode.Text='FLV'then
begin
enama.Text:='Folvit';
eharga.Text:='1000';
esatuan.Text:='Kapsul';
end
else
if cbkode.Text='FNF'then
begin
enama.Text:='Fornafit';
eharga.Text:='10000';
esatuan.Text:='Botol';
end
end;

procedure TForm1.EjumbelKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
etotal.Text:=floattostr(strtofloat(eharga.Text)*(strtofloat(ejumbel.Text)));

end;

procedure TForm1.EbayKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
ekem.Text:=floattostr(strtofloat(ebay.Text)-(strtofloat(etotal.Text)));

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
enama.Text:=' ';
eharga.Text:=' ';
esatuan.Text:=' ';
ejumbel.Text:='0';
etotal.Text:='0';
ebay.Text:='0';
ekem.Text:='0';
end;

procedure TForm1.BKeluarClick(Sender: TObject);
begin
if(application.MessageBox('Anda Yakin Keluar Akan Keluar','Informasi',MB_YESNO+mb_iconwarning)=IDYES)then
close
end;

end.






     

Sabtu, 02 April 2011

Tentang Saya


Saya bernama Linawati. dan saya lahir di Tangerang 23 Juni 1988.saya tinggal didesa Pekayon Rt.001/006 Kec. Sukadiri Kab.Tangerang. sekarang saya menjadi seorang karyawati disebuah perusahaan swasta dikota Tangerang. saya bekerja sambil kuliah. kegiatan saya setiap hari pagi saya berangkat bekerja, pulang kerja saya langsung pergi kuliah. itu saya lakukan semata-mata saya ingin merubah kehidupan saya menjadi lebih baik. saya ingin hidup bermanfaat bagi orang-orang yang sayang sama saya maupun orang-orang yang dekat saya. "buat apa hidup jika tidak berguna paling tidak bergunalah bagi orang-orang yang sayang kita".

Danau Toba



Dongeng dan cerita rakyat tentang legenda asal usul danau toba sepertinya menjadi cerita yang menarik untuk dibicarakan. Karena pada dasarnya sejarah tentang terbentuknya danau toba ini cukup unik. So, gak adanya kan utk sedikit menyinggung proses pembentukan danau toba dari sisi cerita rakyat atau biasa disebut Legenda. Untuk membaca legenda sejarah terjadinya danau toba , silakan baca saja artikel singkat dibawah ini. Semoga Bermanfaat. Oh ya, nanti beberapa gambar tentang Danau toba yang ada juga akan ditampilkan dibawah setelah legenda asal usul danau toba ini ditulis.

Tersebutlah seorang pemuda yatim piatu yang miskin. Ia tinggal seorang diri di bagian Utara Pulau Sumatra yang sangat kering. Ia hidup dengan bertani dan memancing ikan.
Suatu hari, ia memancing dan mendapatkan ikan tangkapan yang aneh. Ikan itu besar dan sangat indah. Warnanya keemasan. Ia lalu melepas pancingnya dan memegangi ikan itu. Tetapi saat tersentuh tangannya, ikan itu berubah menjadi seorang putri yang cantik! Ternyata ia adalah ikan yang sedang dikutuk para dewa karena telah melanggar suatu larangan. Telah disuratkan, jika ia tersentuh tangan, ia akan berubah bentuk menjadi seperti makhluk apa yang menyentuhnya. Karena ia disentuh manusia, maka ia juga berubah menjadi manusia.
Pemuda itu lalu meminang putri ikan itu. Putri ikan itu menganggukan kepalanya tanda bersedia.
“Namun aku punya satu permintaan, kakanda.” katanya.
“Aku bersedia menjadi istri kakanda, asalkan kakanda mau menjaga rahasiaku bahwa aku berasal dari seekor ikan.”
“Baiklah, Adinda. Aku akan menjaga rahasia itu.” kata pemuda itu.
Akhirnya mereka menikah dan dikaruniai seorang bayi laki-laki yang lucu. Namun ketika beranjak besar, si Anak ini selalu merasa lapar. Walapun sudah banyak makan-makanan yang masuk kemulutnya, ia tak pernah merasa kenyang.
Suatu hari, karena begitu laparnya, ia makan semua makanan yang ada di meja, termasuk jatah makan kedua orang tuanya. Sepulang dari ladang, bapaknya yang lapar mendapati meja yang kosong tak ada makanan, marahlah hatinya. Karena lapar dan tak bisa menguasai diri, keluarlah kata-katanya yang kasar.
“Dasar anak keturunan ikan!”
Ia tak menyadari, dengan ucapannya itu, berarti ia sudah membuka rahasia istrinya.
Seketika itu juga sang anak sambil menangis pergi menemui ibunya dan menanyakan apakah benar dirinya adalah anak keturunan ikan.
Mendengar hal tersebut, sang ibu pun terkejut karena suaminya telah melanggar sumpah mereka terdahulu.
Setelah itu si ibu memutuskan untuk kembali ke alamnya. Lalu tiba tiba langit berubah gelap dan petir menyambar kemudian turunlah hujan dengan derasnya.
Sang ayah menjadi sedih dan sangat menyesal atas perbuatannya. Namun nasi sudah menjadi bubur. Ia tak pernah bisa bertemu kembali dengan istri dan maupun anaknya yang disayanginya itu.
Di tanah bekas pijakan istri dan anaknya itu, tiba-tiba ada mata air menyembur. Airnya makin lama makin besar. Lama-lama menjadi danau. Danau inilah yang kemudian kita kenal sampai sekarang sebagai Danau Toba.
Sumber Referensi :
Dea Rosa, 2007, Seri Mengenal Indonesia – Cerita Rakyat 33 Provinsi dari Aceh sampai Papua, Indonesiatera
Jangan Lupa juga untuk membaca Artikel legenda danau toba bahasa Inggris di artikel saya yang lain. Atau kunjungi www.tobastory.co.cc untuk cerita lain dalam bahasa Inggris.
Cerita diatas hanya versi singkatnya saja. Untuk versi yang asli, mungkin kawan bisa cari di perpustakaan lokal, buku dongeng lain, dan kalau bisa dicari juga di perpustakaan kebudayaan atau sejenisnya.  ;)