What I think and what i see. Yes it these!

Thursday, April 4, 2013

program sederhana vb.net 2010

4:23 PM Posted by Ismatul Maula , No comments

KALKULATOR SEDERHANA VB.NET 2010

Tulisan ini masih berlanjut dari tulisan yg sebelum nya yakni tentang VB.Net 2010. Kali ini saya akan membagi ilmu bagaimana cara membuat kalkulator sederhana dengan menggunakan aplikasi buatan microsoft yakni VB.Net 2010. Langsung aja yuh!

1. Langkah pertama anda membuka VB.Net 2010 yg sudah diinstall, lalu membuat sebuah project baru. Klik File-New Project-Windows Forms Application. Isikan nama sesuai kehendak anda, disini saya namai kalkulator. Jika sudah OK.



2. Pada Form1.vb[Design] tampilan akan otomatis kosong. Buatlah kalkulator seperti pada gambar dibawah ini.


Gunakan atribut-atribut yg ada di ToolBox. Saya menggunakan 4 Label, 3 TextBox dan 5 Button. Pada Windows Properties ubah nama Text nya sesuai keinginan anda.

3. Jika sudah mendesign tampilan nya, ubah kodingan tiap button. Untuk button Exit, klik double lalu tuliskan script dibawah ini pada tiap-tiap button.
- Button Exit
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub

NOTE!!!
Jika anda klik double button maka kata
"Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 

End Sub"
akan otomatis muncul tanpa harus ditulis.

Jadi anda hanya menulis codingan diantara kata itu. Lanjut, ini script tiap-tiap button:

- Button +
        Dim bil1, bil2, jumlah As Integer
        bil1 = CSng(TextBox1.Text)
        bil2 = CSng(TextBox2.Text)
        jumlah = bil1 + bil2
        TextBox3.Text = CStr(jumlah)
- Button -
        Dim bil1, bil2, kurang As Decimal
        bil1 = CSng(TextBox1.Text)
        bil2 = CSng(TextBox2.Text)
        kurang = bil1 - bil2
        TextBox3.Text = CStr(kurang)
- Button *
    Dim bil1, bil2, kali As Decimal
        bil1 = CSng(TextBox1.Text)
        bil2 = CSng(TextBox2.Text)
        kurang = bil1*bil2
        TextBox3.Text = CStr(kali)
- Button /
    Dim bil1, bil2, bagi As Decimal
        bil1 = CSng(TextBox1.Text)
        bil2 = CSng(TextBox2.Text)
        kurang = bil1/bil2
        TextBox3.Text = CStr(bagi)

4. Setelah megoding semua nya, Run aplikasi yg sudah kita buat dgn mengklik gambar segitiga warna ijo seperti gambar dibawah, letak nya ada di atas.




atau tombol simple nya tekan F5. Jika ada kesalahan pada Error List, lihat script apakah sudah benar atau belum. Semoga bermanfaat~

0 comments:

Post a Comment