Tugas Praktek 1

-->

TUGAS PRAKTIKUM VISUAL STUDIO 1

Nama : Eka Yunita H S

Kelas : TI 11 C

NIM : 11.11.2498

Pembuatan program Kalkulator dan Penghitung Berat Badan Ideal

Cara pembuatan program Kalkulator

1. Buka Visual Studio 2010
2. Jalankan Visual Studio dengan New Project
3. Pilih Recent Templates - Visual Basic – Windows – Windows Forms Application.
4. Kemudian buat Form dibawah ini :
   
   
   
   
   

-->

1. Buat Objek yang terdiri dari :
   • empat label ( Masukan Angka Pertama, Masukan Angka Kedua, Hasil dan Loading ).
   • Tiga textbox ( Inputan Angka Pertama dan kedua, serta Hasil )
   • Enam buttons (Kembali Ke Menu dan proses +, -, ÷, x )

• Untuk membuat aplikasi form Kalkulator tersebut, menggunakan cara :

OBJECT	PROPERTIES	VALUE
FORM	Text	Kalkulator
Textbox1	Name	Txt1
Textbox2	Name	Txt2
Textbox3	Name	Txthasil
Label1	Text	Masukan Angka Pertama
Label2	Text	Masukan Angka Kedua
Label3	Text	Hasil
Label4	Text	Loading
Buttons1	Name	BtX
Buttons2	Name	Bt÷
Buttons3	Name	Btx^
Buttons4	Name	Bt-
Buttons5	Name	Bt+
Buttons6 ProgressBar	Cancelbutton -	BtKembali ke Menu -

Masukan perintah untuk masing-masing tombol caranya : double click pada Tombol button. Masukan listing ini :

1. Proses Perkalian ( x ) : double click pada button x

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 * angka2

Txthasil.Text = hasil

EndSub

2. Proses Pembagian ( ÷ ) : double click pada button ÷

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 / angka2

Txthasil.Text = hasil

EndSub

3. Proses Pengurangan ( - ) : double click pada button -

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 - angka2

Txthasil.Text = hasil

EndSub

4. Proses Pemangkatan ( x^ ) : double click pada button x^

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 ^ angka2

Txthasil.Text = hasil

EndSub

5. Proses Penjumlahan ( + ) : double click pada button +

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 + angka2

Txthasil.Text = hasil

EndSub

-->

Contoh Output dari Proses Perpangkatan, Pembagian, dan Pengurangan. 

Cara pembuatan Program Pengukur Berat Badan Ideal

Buat Form seperti yang dibawah ini, dengan menggunakan Windows Forms Application.

-->

• Untuk membuat aplikasi form Pengukur Berat Badan Ideal, menggunakan cara :

OBJECT	PROPERTIES	VALUE
FORM	Name	Penghitung Berat Badan
Textbox1	Name	Txt1
Textbox2	Name	Txt2
Textbox3	Name	Txthasil
Label1	Text	Masukan Berat Badan Anda
Label2	Text	Masukan Tinggi Badan Anda
Label3	Text	Berat Badan Ideal Anda
Buttons1	Name	btHitung
Buttons2	Cancelbutton	Button2

double click pada Tombol button Hitung. Masukan listing ini :

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka2 - 110

Txthasil.Text = hasil

EndSub

Contoh Output dari Program Penghitung Berat Badan Ideal

Tampilan Menu Utama

  -->

• Pertama buatlah desain form seperti diatas, untuk tombol button1 ubah properties “text” menjadi (Kalkulator), Kemudian Button2 ubah properties “text” menjadi (Pengukur proposional berat_tinggi badan).
• Karena ini untuk 2 aplikasi buatlah 2 form lagi caranya : Klik kanan pada “windows Aplpication1” -> Add -> windows form -> Add
  

-->

Kemudian :

-->

Ulangi untuk membuat 2 Form, nantinya akan digunakan untuk aplikasi Kalkulator & pengukur berat badan.

1. Untuk memanggil form ”kalkulator” masukan perintah Pada tombol kalkulator (double click pada form pertama / halaman utama) masukan :

PrivateSub Bt2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Bt2.Click

Form2.ShowDialog()

EndSub

2. Untuk memanggil form ” Pengukur berat badan ideal ” masukan perintah Pada tombol Pengukur proposional berat_tinggi badan (double click pada form pertama / halaman utama) masukan :

PrivateSub Bt2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Bt2.Click

Form3.ShowDialog()

EndSub

Untuk Background Klik pada formnya kemudian ubah properties “BackgroundImage” Caranya :

Kemudian Pilih local resource -> import -> pilih foto atau gambar untuk background yang diinginkan -> OK

-->

NB : Background diisi sesuai keinginan Anda.