Operasi Matematika pada VB2010

Komputer dapat melakukan perhitungan matematika lebih cepat dibandingkan dengan manusia. Meskipun begitu,  computer tidak dapat melakukan tugasnya tersebut tanpa instruksi dari manusia. Pada VB2010 kita bias menuliskan code instruksi perhitungan matematika seperti: penjumlahan, pengurangan, perkalian, pembagia, dan lain sebagianya. Adapaun beberapa contoh perhitungan matematika yang dapat dilakukan pada VB2010 antara lain:

Tabel Operator Aritmatika:

Operator	Mathematical function	Example
+	Addition	1+2=3
--	Subtraction	4-1=3
^	Exponential	2^4=16
*	Multiplication	4*3=12,   (5*6))2=60
/	Division	12/4=3
Mod	Modulus (return the remainder from an integer division)	15 Mod 4=3     255 mod 10=5
\	Integer Division (discards the decimal places)	19\4=4

Contoh 1:

            Pada program ini, kamu harus memasukkan 2 textbox, 4 label dan 1 button. Klik button 2 kali dan masukkan kode berikut:

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

Dim num1, num2, difference, sum, product, quotient AsSingle

        num1 = TextBox1.Text

        num2 = TextBox2.Text

sum = num1 + num2

difference = num1 - num2

product = num1 * num2

quotient = num1 / num2

        Label1.Text = sum

        Label2.Text = difference

        Label3.Text = product

        Label4.Text = quotient

EndSub

Contoh 2:

            Program dapat menggunakan teorema Pythagoras untuk menghitung nilai C dari 2 bilangan A dan B. Pada program ini, kamu harus memasukkan 2 textbox, 1 label dan 1 button. Klik button 2 kali dan masukkan kode berikut:

 

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

Dim a, b, c AsSingle

        a = TextBox1.Text

        b = TextBox2.Text

        c = (a ^ 2 + b ^ 2) ^ (1 / 2)

        Label1.Text = c

EndSub

Contoh3: (Kalkulator BMI)

            Kalkulator BMI merupakan salah satu cara perhitungan keseimbangan berat badan. Untuk menentukan berat badan kita ideal atau tidak, dapat dilihat dari aturan berikut:

·         Underweight = <18.5

·         Normal weight = 18.5-24.9

·         Overweight = 25-29.9

·         Obesity = BMI of 30 or greater

Rumus untuk menghitung nilai BMI yaitu:  BMI = weight / height²

Pada program ini, kamu harus memasukkan 2 textbox, 1 label dan 1 button. Klik button 2 kali dan masukkan kode berikut:

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

Dim height, weight, bmiAsSingle

height = TextBox1.Text

weight = TextBox2.Text

bmi = (weight) / ((height) ^ 2)

        Label1.Text = bmi

EndSub

 Untuk mendapatkan file pdf nya klik download

Bekerja dengan Control Object pada VB2010

Controls di VB 2010 merupakan berbagai macam tools yang bias diletakkan pada form. Tools befungsi untuk membuat berbagai macam jenis aplikasi windows. Ada beberapa kategori dalam Tools yaitu: Common Controls, Containers, Menus, Toolbars, Data, Components, Printings dan Dialogs. Pada kesempatan ini, kita akan focus untuk membahas Common Controls. Adapun beberapa bagian dari Common controls antara lain: Button, Label, ComboBox, ListBox, PictureBox, TextxBox, dll. Untuk memasukkan control object ke dalam form, kita cukup meng-drag salah satu control object dan drop ke dalam form. Anda bias mengubah letak control objek dan mengubah ukurannya sesuai kebutuhan.

Menggunakan TextBox

Pada program berikut, anda akan memasukkan 2 TextBox, 3 Labels dan 1 Button. 2 textbox berfungsi untuk memasukkan 2 nomor, 1 label berfungsi untuk menampilkan operator matematika dan label lainnya untuk menampilkan tanda sama dengan (=). Label terakhir untuk menampilkan hasil.

Source code:

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

Dim num1, num2, product As Single

        num1 = TextBox1.Text

        num2 = TextBox2.Text

product = num1 * num2

        Label3.Text = product

EndSub

Menggunakan ListBox

Pada program ini akan ditambahkan 1 item yang ada pada textbox ke dalam listbox dengan cara meng-klik button.

Source code:

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

Dim item AsString

item = TextBox1.Text

'untuk menambahkan item kedalam listbox

ListBox1.Items.Add(item)

        TextBox1.Text = ""

EndSub

Menggunakan Picture Box

            Pada program ini, kita akan memasukkan picturebox dan button ke dalam form. Pastikan untuk mengubah setting picturebox pada SizeMode di properties menjadi StretchImage.

 

Source code:

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

'untukmeloadgambarkedalampicturebox

        PictureBox1.Image = Image.FromFile("c:\Users\Public\Pictures\Sample Pictures\Koala.jpg")

End Sub

Untuk mendapatkan file pdf nya, silahkan klik  download

Pengantar Ms. Visual Basic 2010 (VB 2010)

Ms. Visual Basic 2010 (VB 2010) adalah versi terakhir yang dirirlis oleh Microsoft pada tahun 2010 (akhir 2009). Secara umum fungsinya sama dengan VB 2005, tetapi ada beberapa fitur yang ditambahkan. VB 2010 sangat berorientasi dengan objek atau dengan kata lain lebih dikenal dengan bahasa pemrograman berorientasi objek (OOP/Object Oriented Programming) seperti C++, Java, C# dan lainnya. Faktanya kebanyakan orang lebih familiar dengan VB 6, tetapi kita tetap bisa menggunakan Vb 2010 karena syntax dan tampilannya secara umum sama.

Untuk memulai pembuatan aplikasi kamu yang pertama, kamu harus meng-klik New Project yang ada pada Start Page atau melalui menu File dan kemudian pilih New Project. Kemudian akan muncul kotak dialog seperti berikut:

 Untuk Project Name-nya bisa kita ganti, seperti: program1 kemudian klik OK. Secara umum tampilannya tidak jauh berbeda dengan VB6. Di dalam VB2010 juga terdapat Form, Toolbox, Solution Explorer dan juga Properties.

 Sekarang kita akan coba membuat program pertama menggunakan VB 2010. Langkah pertama, drag satu buah Button yang ada pada Toolbox ke delam Form. Ganti nama Button tersebut menjadi “Hitung”.
 

Sekarang klik tombol “hitung” dua kali dan ketikkan code berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim angka1, angka2, jumlah As Single

        angka1 = 100

        angka2 = 200

        jumlah = angka1 + angka2

        MsgBox(" Penjumlahan " & angka1 & " dan " & angka2 & " adalah " & jumlah)

End Sub

    Sekarang kita bisa menjalankan program ini dengan menekan tombol F5. Kita bisa melihat Message Box yang menjumlahkan dua nomor.

 Untuk mendapatkan file pdf nya silahkan klik download