Tugas 1 VB

Tugas Visual Studio (pertemuan pertama)

Nam : Ade Candra Fitrianto

Kelas : Ti 11 A

Nim : 11.11.2353

Cara membuat Aplikasi kalkulator sederhana dengan Visual basic 2010

Buatlah form seperti di atas, Caranya :

1. Buatlah Judul menggunakan “Label” kemudian rubah properties “text” menjadi judul Contoh Kalkulator, “Label” berfungsi sebaga judul…jadi ketika kita akan membuat text kita bias gunakan label..dan mengedit” propertis Text’a”
2. Menggunakan “text box” kemudian ganti propertis “(name)” menjadi “Txt1” . untuk “text box” yang (Masukan angka kedua) ubah menjadi “Txt2” dan untuk yang Hasil “text box” drubah menjadi txtHasil.
3. Untuk membuat tombol (X ,÷,^,+) menggunakan “button” ganti propertis ” name” menjadi tombol yg diinginkan

Kemudian :kita harus memasukan perintah untuk masing2 tombol caranya : klik double pada Tombol button yang tadi diganti menjadi (X) masukan listing ini :

Public Class Form1

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim angka1 As Double

Dim angka2 As Double

Dim hasil As Double

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex As Exception

End Try

Try

angka2 = Convert.ToDouble(Txt2.Text)

Catch ex As Exception

End Try

hasil = angka1 * angka2

TxtHasil.Text = hasil

End Sub

Klik Double tombol button (÷) masukan perintah :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim angka1 As Double

Dim angka2 As Double

Dim hasil As Double

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex As Exception

End Try

Try

angka2 = Convert.ToDouble(Txt2.Text)

Catch ex As Exception

End Try

hasil = angka1 / angka2

TxtHasil.Text = hasil

End Sub

Klik doble tombol button (^) kemudian Masukan :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim angka1 As Double

Dim angka2 As Double

Dim hasil As Double

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex As Exception

End Try

Try

angka2 = Convert.ToDouble(Txt2.Text)

Catch ex As Exception

End Try

hasil = angka1 ^ angka2

TxtHasil.Text = hasil

End Sub

Dan yang terakhir Untuk tombol (+) klik double dan masukan :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim angka1 As Double

Dim angka2 As Double

Dim hasil As Double

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex As Exception

End Try

Try

angka2 = Convert.ToDouble(Txt2.Text)

Catch ex As Exception

End Try

hasil = angka1 + angka2

TxtHasil.Text = hasil

End Sub

Untuk Backgroundnya : Klik “background Image” pada propertis….import dan pilih gambar yang akan dijadikan bacground

-------------------------------------------------------------------------------------------------------

Kemudian Jalankan…. Jika anda mengikuti langkah2 di atas maka anda akan berhasil….. ^_^ !!!

Ini hasilnya :

- perkalian

           -Pembagian

Demikian demo sekaligus saya mengerjakan Tugas dr dosen saya…hehe

Sangat sederhana Tapi semoga jg bias membantu temen2 yg masih newbie …. ^_^

Tweet