Biograph about me&hans

Hello class, Hello ladies and gentleman, and Hello world......actually I’m shy to introduce and describe my own self. Uhm...Okay I’ll do that only for my softskill assignment. Sure? Yes! Ready !  My name’s Sukma Wijayanti.  Just call me Sukma or tyan, everybody does. But several people usually call me Jeny. It’s just my name when I was a child. Maybe because I was born on 11 june 1994, in Kendal. Exactly in Indonesia B).  Do you know where is kendal? Eehmm..it’s in center of java, around semarang city. But now I live in Pondok Cina, Depok. It’s close from Jakarta, except by foot ckckckck. Where I continue my study after graduated  from SMAN 1 Rowosari,  It’s the one of senior high school in kecamatan Rowosari Kabupaten Kendal.  I am a college student at Gunadarma University. I take majored IT, now I am in the second year. I’m also take course at LPBB LIA DEPOK for improve and develop my english skill.  My hobby is singing or just listen to music, although everybody says that my voice is enough....bad. like Mr.Joko widodo said that “I don’t care about that” khkhkhkhkh. Sometimes I reading book in my free time or I enjoy to swim on weekends or holidays twice a mounth. I love reading about psikology books, I know it’s not my majored. But no problem... I enjoy it.  One more, I’m crazy about  chatting with my foreign friends almost everyday when I feel bored at my dorm. I have a dream to be an engeener.  I’m sure I can reach goals first !!!  about sort of movies that I like, I love horor movies. (not Indonesia movies). Kind of sport that I like is swimming and jogging. My height is 162 cm and my weight is 50 kg. Sometime my weight changes, it depends on something :P. I have long black wavy hair, I really love it (up to me). I have l flat nose (oh...so sad) and I have thick eyebrows and lips (whatever it’s sexy or not). Okey...leave it, sort of music that really I love is pop. I’m also like rock, but it depends on singer. Talking about singer, I’m crazy about Avril Lavigne, Tiffany Alvord, and One Direction.

I wanna introduce my classmate this one. His name is Muhammad Subhan Sulaiman. You can call him Hans. Hey....It’s the coolest name that I ever heard. He’s my best partner to finished about softskill assignment together. He was born on 4 February 1994. His weight is 50 kg and has height is 160 cm. Actually all of my friends from 2IA07 are so cute and kind person. Buuut...He’s the only one who so cute and so weird in the class (Gesit07). He came from Lombok, NTB. Now he also live in Pondok Cina, Depok. Same with me at the dorm (in a different dorm). What does he do for fun? Uuhmm... I know he often hunting on weekends or every his free time. Actually I little feel annoy with him, you know why? Because “hans...you never invite me to join with you to take pictures. Don’t tell others that I really wanna be your model” jajajaja  #JK.  The photograph is like his breath, his world, his life, his girlfriend too and his everything. He’s a smart and tidy student. Hans is a simple and funny boy.  I’m so glad to have a friend like him :D thank you. Hope you like this one ;)

Membuat Kalkulator sederhana dengan Delphi 7

Listing Program

Berikut merupakan langkah-langkah membuat program penilaian:

1.      Buka aplikasi Delphi 7 pada desktop  atau melalui tombol star

2.      Mulai memasukkan gambar melalui drag & drop sehingga menjadi seperti ini:

Menghapus dan mengubah perintah edit 1, 2, 3 dan button 1, 2, 3, 4, 5 agar saat di Run, perintah edit kosong dan bisa memasukkan angka sembarang, sedangkan perintah button diganti captionnya untuk perintah +, -, *, / dan tombol EXIT disesuaikan dengan source code masing-masing.

3.      Kemudian klik simbol “+” untuk membuat source code mengenai penjumlahan, kemudian masukkan souce codenya:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

4.      Kemudian klik simbol “-“ untuk membuat source code mengenai pengurangan:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

          Kemudian klik simbol “*” untuk membuat source code mengenai perkalian:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

6.      Kemudian klik lambang “/” untuk membuat source code mengenai pembagian:

Saya menggunakkan a sebagai integer dan b sebagai integer dan memakai fungsi StrToInt untuk mengubah string menjadi integer dan fungsi IntToStr untuk mengubah integer menjadi string.

     Lalu diakhir ada sebuah button dengan tulisan “Exit” yang juga harus diberi source code seperti ini:

Saya menggunakan application.terminate untuk mengclose program ketika dirun dan kembali ke form awal.

Setelah semua ini dilakukan semua source code yang telah ditulis akan otomatis menjadi satu seperti ini:

unit LA1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a+b);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a-b);

end;

procedure TForm1.Button3Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(a*b);

end;

procedure TForm1.Button4Click(Sender: TObject);

var a,b:real;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

Edit3.Text:=FloatToStr(a/b);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

application.terminate;

end;

end.

Setelah source code berhasil dibuat, program baru bisa dijalankan dengan mengklik “Play” , maka akan keluar tampilan seperti ini: 

Ini merupakan contoh dari tampilan program tersebut:

·         Penjumlahan

·         Pengurangan

·         Perkalian

·         Pembagian