MEMBUAT PROGRAM PERHITUNGAN SEDERHANA MENGGUNAKAN VISUAL BASIC.NET

Artikel terkait : MEMBUAT PROGRAM PERHITUNGAN SEDERHANA MENGGUNAKAN VISUAL BASIC.NET

MEMBUAT PROGRAM PERHITUNGAN SEDERHANA MENGGUNAKAN VB.NET 2010

Pada kesempatan kali ini saya akan menulis sebuah postingan tentang membuat program perhitungan sederhana menggunakan software yang bernama Microsoft Visual Basic .NET yang merupakan sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini,para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line.

Itu sedikit pengertian tentang apa itu sebuah software yang dapat membuat suatu aplikasi baru bernama Visual Basic NET.

Di samping untuk share program perhitungan sederhana ini, juga merupakan salah satu tugas mata kuliah “Pemrograman Visual” di kampus saya untuk membuat sebuah program. ^_^

Pada program ini berisi tentang perhitungan ( prosesnya ) :

Penjumlahan
Pengurangan
Pembagian
Perkalian
Perpangkatan

Pada post ini akan sedikit di terangkan dalam tahapan-tahapan dalam dalam membuat program ini mulai dari membuka program VB.NET dan membuat form aplikasi VB.NET “windows form”.program ini simple , dan post ini juga di tujukan pada orang-orang awam yang memang lagi atau sedang belajar tentang membuat program sederhana menggunakan visual basic. Pada program yang saya buat menggunakan software visual basic.net 2010.

Untuk memulainya anda harus ada software visual basic di laptop/PC anda. Atau anda bisa coba download software masternya disini

Langkah pertama buka software VB.NET 2010

2. langkah kedua buat new project.
file => new => project .
kemudian pilih “windows forms application"

3. ini tampilan desain dari “windows forms apllication”

- Pada form desain di picture menggunakan toolbox ( Textbox,Label.Button,dan ListBox )

- Untuk merubah warna atau gambar pada toolbox/form aplication => Klik kanan kolom atau box=>pilih properties . maka akan muncul properties pada pojok kanan bawah desktop VB.NET...tinggal custom sendiri untuk mengganti . ( pasti bisa ! :D )

4. Ini untuk printscreen dari list code perhitungan sederhana yang saya buat.

Source List Code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Selamat Datang Di Program Perhitungan Sederhana," + " Klik OK untuk melanjutkan")

    End Sub




    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        If MsgBox("Mau Keluar Yah ?", vbYesNo + vbQuestion + vbDefaultButton1, "Keluar Aplikasi") = vbYes Then
            Me.Close()
        End If
    End Sub




    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.SelectedIndexChanged

    End Sub




    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.angka_pertama.Clear()
        Me.angka_kedua.Clear()
        Me.hasil.Clear()

    End Sub

    Private Sub Button1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Button1.DragEnter

    End Sub

    Private Sub Button1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Enter
        Dim penambahan,
            pengurangan,
            pembagian,
            perkalian,
            perpangkatan As String

        penambahan = Val(angka_pertama.Text) + Val(angka_kedua.Text)
        pengurangan = Val(angka_pertama.Text) - Val(angka_kedua.Text)
        pembagian = Val(angka_pertama.Text) / Val(angka_kedua.Text)
        perkalian = Val(angka_pertama.Text) * Val(angka_kedua.Text)
        perpangkatan = Val(angka_pertama.Text) ^ Val(angka_kedua.Text)

        If Me.hitung.Text = "+" Then
            hasil.Text = penambahan
        ElseIf Me.hitung.Text = "-" Then
            hasil.Text = pengurangan
        ElseIf Me.hitung.Text = "/" Then
            hasil.Text = pembagian
        ElseIf Me.hitung.Text = "^" Then
            hasil.Text = perpangkatan
        Else
            hasil.Text = perkalian
        End If
    End Sub

    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Dim penambahan,
            pengurangan,
            pembagian,
            perkalian,
            perpangkatan As String

        penambahan = Val(angka_pertama.Text) + Val(angka_kedua.Text)
        pengurangan = Val(angka_pertama.Text) - Val(angka_kedua.Text)
        pembagian = Val(angka_pertama.Text) / Val(angka_kedua.Text)
        perkalian = Val(angka_pertama.Text) * Val(angka_kedua.Text)
        perpangkatan = Val(angka_pertama.Text) ^ Val(angka_kedua.Text)

        If Me.hitung.Text = "+" Then
            hasil.Text = penambahan
        ElseIf Me.hitung.Text = "-" Then
            hasil.Text = pengurangan
        ElseIf Me.hitung.Text = "/" Then
            hasil.Text = pembagian
        ElseIf Me.hitung.Text = "^" Then
            hasil.Text = perpangkatan
        Else
            hasil.Text = perkalian
        End If
    End Sub

    Private Sub angka_kedua_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles angka_kedua.TextChanged

    End Sub

    Private Sub angka_pertama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles angka_pertama.TextChanged

    End Sub

End Class

5. Hasil output dari program perhitungan sederhana menggunakan vb net 2010 ... tekan f5 untuk menjalankan program ( Run ) .