Object Control dan Fungsinya VB.Net

Hallo dear...

Buat kalian yang malas untuk searching Object Control gak dapat2, ini nih aku udah scan dan upload ini buat kalian. 

Semoga tulisan jelekku bisa kalian baca yah haha 

Dan semoga membantu juga :D

Bahagia:)

  
Hei hei apa kabar kawan
Siapkah kau untuk melangkahi masalahmu hadapi esok pagi
Hei hei apa kabar kawan
Siapkah kau untuk melangkah kemasa depan menantikan pelangi
 
Percayalah kawan esok kan berbeda
Pasti kan engkau mencoba
Buat mimpimu jadi nyata oh nyata

Kita semua pasti bisa asalkan kita melangkah
Sambut hari yang indah
 
Marilah kita mensyukuri semua berkat dalam hidup ini
Kita bahagia kita bahagia
Bersama hangatnya mentari nikmati dan lukiskan memori
Kita bahagia kita bahagia
Bahagia iya
Bahagia iyaiya
Bahagia hoyeee
 
Hei hei bagaimana kawan
Apakah kau merangkai semua citamu bebaskan harapanmu
Hei hei bagaimana kawan
Apakah Kau menapaki babak baru pancarkan semangatmu
 
Percayalah kawan esok kan berbeda
Pasti kan engkau mencoba
Buat mimpimu jadi nyata oh nyata
Kita semua pasti bisa asalkan kita melangkah
Sambut hari yang indah
 
Marilah kita mensyukuri semua berkat dalam hidup ini
Kita bahagia kita bahagia
Bersama hangatnya mentari nikmati dan lukiskan memori
Kita bahagia kita bahagia
Bahagia iya
Bahagia iyaiya
Bahagia hoyeee
 
Go clap your hands if you're gonna make your turn
Gonna clap my hands, y'all know 
I'm gon' make it burn, Imma
Bahagia iya iya
Bahagia iya iya 
Bet you gon' like this, baby yeah I'm sure
Better make it right, watch GAC and you'll learn, 
Kita bahagia iya iya
Bahagia iya iya
 
Marilah kita mensyukuri nikmati dan lukiskan memori
Kita bahagia kita bahagia
Bahagia iya
Bahagia iyaiya
Bahagia hoyeee
Jalani hidup ini
Bahagia iya
Bahagia iyaiya
Bahagia hoyeee
Jalani hidup ini

Cara membuat kalkulator sederhana! Bilangan Pecahan Menggunakan Delphi7

Cara membuat kalkulator sederhana, bilangan Pecahan!!!

Procedure TForm1.Button1Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a+b;

edit3.Text:=floattoStr(c);

 end;

Procedure TForm1.Button2Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a/b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button3Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a-b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button4Click(Sender: TObject);

Var a,b,c:real;

begin

a:= strtofloat(edit1.Text);

b:= strtofloat(edit2.Text);

c:=a*b;

edit3.Text:=floattoStr(c);

end;

Procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='  ';

Edit2.Text:='  ';

Edit3.Text:='  ';

end;

end.

Hai...

Kalian hanya perlu meng-Copy tulisan yang ada di bawah setiap gambar diatas lalu mem-Pastekannya ke lembar kerja kalian *Unit1.pas* yang akan muncul setelah kalian men-double klik tombol '+' , '/' , '-' dan '*'.

Ingat!! Jangan salah copy yah, lihat di tombol apa yang kalian double klik maka disitulah kalian pastekan tulisan diatas.

Saya pikir, kalau kalian teliti, kalian pasti sudah mengerti!

Semoga membantu!

Jangan lupa tinggalkan komentar dan +G

Byeeee :)