second story : part 2

ini adalah lanjutan dari 'second story'.

DERET dengan PROGRAM DELPHI

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    Edit4: TEdit;
    Button3: TButton;
    BitBtn1: TBitBtn;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
n,a,b,i,c,d:integer;
hasil,sum1 : real;
implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.ItemIndex=0 then
label3.Caption:='Nilai Beda'
else label3.Caption:='Nilai Rasio';
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
n:= strtoint(edit1.text);
a:=strtoint(edit2.text);
b:=strtoint(edit3.text);
case combobox1.ItemIndex of
0: begin
   c:=0;
   sum1:=0;
   for i:=1 to n do
   begin
   hasil:=a+(c*b);
   c:=c+1;
   listbox1.items.add(floattostr(hasil));
   end;
   end;
1: begin
   c:=0;
   for i:=1 to n do
   begin
   hasil:=a*(exp(c*ln(b)));
   c:=c+1;
   listbox1.items.add(floattostr(hasil));
   end;
   end;
end;
    end;
procedure TForm1.Button2Click(Sender: TObject);
begin
n:= strtoint(edit1.text);
a:=strtoint(edit2.text);
b:=strtoint(edit3.text);
case combobox1.ItemIndex of
0: begin
   c:=0;
   sum1:=0;
   for i:=1 to n do
   begin
   hasil:=a+(c*b);
   c:=c+1;
   sum1:=sum1+hasil;
   end;
   edit4.Text:=floattostr(sum1);
   end;
1: begin
   c:=0;
   sum1:=0;
   for i:=1 to n do
   begin
   hasil:=a*(exp(c*ln(b)));
   c:=c+1;
  sum1:=sum1+hasil;
   end;
   edit4.Text:=floattostr(sum1);
   end;

end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
listbox1.items.Clear;
end;

end.

just share

hallo :D

senang rasanya. akhirnya, selesai tugas gw untuk buat essay :) yah, meskipun essay gw bisa dibilang super duper aneh. but, I'm so proud of myself :P gimapaun juga, ntu essay made in sendiri :D hahaha

yang buat gw lebih bahagia lagi adalah berita comebacknya my fav actress, moon geun young :D yeah!
setelah nunggu 2 tahun, akhirnya ini berita muncul juga. cheongdamdong alice, itu judul dramanya. yang bikin lebih wow, kabarnya lawan main si moonie adalah park shi hoo. double WOW!
tapi, entah kenapa sedikit takut ajja. ntar jangan* nih drama ratingnya jelek. maklum ajja, ada trauma sama Marry. yah, kita liat ajja nanti. semoga engga mengecewakan.

detik-detik

3 hari lagii..

rasanya, ingin waktu berjalan lebih lambat.

 kenapa? 

karena aku engga pengen cepet* balik ke surabaya. tapi, mau gimana lagi. mau engga mau, ya harus mau. because this is my decision.yah, melanjutkan kuliah. 

so, aku gag boleh sedih. dan harus semangatt.

for reaching my DREAM. aku harus mengHAPUS seluruh rasa TAKUT, SEDIH, dan rasa lain yang dapat mengHAMBAT dalam menCAPAI CITA-CITA. 

selalu berbuat BAIK untuk menjadi yang TERBAIK.

wanna make my mom proud of me :)

SEMANGAATT !!! 

second story

annyong :D ini adalah cerita fiksi ku yang kedua. Tapi, ini masih belum selesai. So, silakan dibaca :)

new coming :D

Halloo semuanyaaa :D

ini adalah kali pertama aku menulis di blog, setelah lebih dari setahun lamanya blog ini enggak pernah aku buka. :p

*awalnya aku pikir emang udah gabisa dibuka*

emmm, enaknya nulis apose yaa --"

kita mulai dari status baruku aja yaa :) dari status pelajar menjadi mahasiswi *berasa sama ajja*

hemm, menjadi mahasiswi. ya, sekarang ini, aku adalah mahasiswi salah satu perguruan tinggi negeri terbaik di indonesia, yaitu ITS. gag pernah kebayang kalo aku akan menuntut ilmu di kampus perjuangan. karena pada awalnya, kampus impianku adalah UGM. tapi, yasudahlah. disyukuri saja. toh, ini adalah yang terbaik untuk saya. 

Di ITS, tepatnya di Fakultas MIPA jurusan STATISTIKA. Di sinilah, aku akan menuntut ilmu selama 4 tahun ke depan. *syukur-syukur bisa lulus 3,5 tahun*

Sempat merasa takut. Tapi, untuk menggapai cita-cita, rasa takut harus kita buang jauh-jauh! Memang, pada awalnya, ketika diterima di ITS, tidak ada rasa yang luar biasa. Tapi, entah kenapa, ketika mendengar lagu hymne kampus perjuangan itu, hatiku berdebar-debar. Merasa ikut memiliki kampus yang diidam-idamkan oleh semua orang. Dari situ, aku mulai bersyukur bisa menjadi bagian dari ITS. Karena aku tahu, di luar sana, banyak sekali orang yang ingin menjadi bagian dari kampus perjuangan ini. Semoga dari sini, aku bisa menggapai kesuksesan :D aamiin

thanks .

moonie for basic house summer

this is it,, moon geun young for Basic House Summer..

moon and wonbin