Monday, 2 January 2017

Membuat Kalkulator menggunakan VB.Net

Hallo Sobat Coder, pada kesempatan kali ini kita akan membuat Kalkulator menggunakan VB.Net. Saya menggunakan Visual Studio 2013 Coumunity.

Microsoft sebagai perusahaan software terkemuka, Merilis Visual Studio 2013 Comunity edition Gratis Full Feature. Lebih baik dan lebih lengkap dari Visual Studio express edition.

Microsoft, sebagaimana kita ketahui adalah sebagai perusahaan software terkemuka pembuat dari Operasi System Windows. Sebagaimana kita ketahui, Operasi System terdapat Aplikasi di dalamnya yang membutuhkan sebuah tools untuk membuatnya. Untuk itulah Microsoft membuat Visual Studio. Visual Studio adalah sebuah Aplikasi berbentuk IDE (Intregrated Development Editor) yang terdiri dari editor dan beragam Compiler yang digunakan Developer dan Programming untuk coding aplikasi buatanya
untuk aplikasi Visual Studio ini, Microsoft membaginya kedalam 2 jenis yaitu Visual Studio berbayar dan versi gratis Visual Studio Express edition. Perbedaan dari yang berbayar dan juga Express edition adalah untuk Express mendapatkan banyak sunat dan keterbatasan, Diantaranya adalah tidak terdapat Complier 64 bit, Memiliki UI yang lebih simple (lebih ditunjukan kepada pengguna baru) serta untuk MSDN library memakai versi sunat bernama MSDN essential library.

Namun ada kabar baik, Microsoft belum lama ini, Meluncurkan Visual Studio Community edition. Visual Studio ini, Memiliki fitur lebih lengkap dibandingkan Visual Studio Express termasuk kita bisa mengakses sampai 5100 ektensi baru yang ada di Microsoft visual studio ecosystem. Bisa dibilang, Visual studio ini adalah versi full version dari visual studio, namun dengan memakai jalur free version.

Microsoft menyebutkan, langkah dari Microsoft ini, Dipakai untuk agar, memancing programer dan developer baru, terutama dari universitas agar mau untuk mengembangkan aplikasi dalam ruang lingkup windows, terutama aplikasi berbasis Metro/Moden UI yang ada di windows 8. hal ini diamini oleh Microsoft’s Executive Vice President of the Cloud and Enterprise group Scott Guthrie.

“The simple way to think about this is that we are broadening up access to Visual Studio,” “Visual studio is universally praised, but if you talk to a developer in college or straight out of college, they don’t want to pay,” Guthrie jokingly noted. “We want to eliminate that friction and enable more developers to use it on a day-to-day basis.”
Fitur di Visual Basic Comunity edition :
  • Professional-grade editing, code analysis, and debugging support
  • Support for open-source workflows (Git)
  • Compilers for managed languages, C++ and more
  • Cross-platform mobile development for your preferred device and platform, including the web, Android, iOS, and Windows Phone with the free Visual Studio Tools for Apache Cordova extension
  • Take advantage of cloud services with simplified Azure SDK integration, and incorporate modern app analytics and telemetry with Application Insights
  • Access to all the Visual Studio 2013 extensions on the Visual Studio Gallery
  • Visual Studio Community 2013 includes Update 4, which is a cumulative update of all previous Visual Studio 2013 updates
Microsoft tetap menyebutkan bahwa, Microsoft Visual Studio Essential tetap bisa di download, Namun ke depan akan di gantikan dengan Visual Studio Community edition ini.
 

Baik langsung saja design form seperti dibawah ini :
Komponen yang dibutuhkan antara lain:

Button = 16
TextBox = 1

Let's Coding..
Masukan Codingan seperti dibawah ini pada Public Class Form1:

    Public value_1 As Double
    Public value_2 As Double
    Public result As Double
    Public equal As String


Sebelum namespace masukan juga script seperti dibawah ini :
Imports System.Diagnostics
Imports System.Security.Principal
Lalu Pada Button silahkan copas Coding Berikut :

    Private Sub buttonPlus_Click(sender As Object, e As EventArgs) Handles buttonPlus.Click
        value_1 = Double.Parse(textBox1.Text)
        textBox1.Text = ""
        equal = "+"
    End Sub

    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        textBox1.Text = textBox1.Text + button1.Text
    End Sub

    Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click
        textBox1.Text = textBox1.Text + button2.Text
    End Sub

    Private Sub button3_Click(sender As Object, e As EventArgs) Handles button3.Click
        textBox1.Text = textBox1.Text + button3.Text
    End Sub

    Private Sub button4_Click(sender As Object, e As EventArgs) Handles button4.Click
        textBox1.Text = textBox1.Text + button4.Text
    End Sub

    Private Sub button5_Click(sender As Object, e As EventArgs) Handles button5.Click
        textBox1.Text = textBox1.Text + button5.Text
    End Sub

    Private Sub button6_Click(sender As Object, e As EventArgs) Handles button6.Click
        textBox1.Text = textBox1.Text + button6.Text
    End Sub

    Private Sub button7_Click(sender As Object, e As EventArgs) Handles button7.Click
        textBox1.Text = textBox1.Text + button7.Text
    End Sub

    Private Sub button8_Click(sender As Object, e As EventArgs) Handles button8.Click
        textBox1.Text = textBox1.Text + button8.Text
    End Sub

    Private Sub button9_Click(sender As Object, e As EventArgs) Handles button9.Click
        textBox1.Text = textBox1.Text + button9.Text
    End Sub

    Private Sub button10_Click(sender As Object, e As EventArgs) Handles button10.Click
        textBox1.Text = textBox1.Text + button10.Text
    End Sub

    Private Sub buttonMinuse_Click(sender As Object, e As EventArgs) Handles buttonMinuse.Click
        value_1 = Double.Parse(textBox1.Text)
        textBox1.Text = ""
        equal = "-"
    End Sub

    Private Sub buttonMultiple_Click(sender As Object, e As EventArgs) Handles buttonMultiple.Click
        value_1 = Double.Parse(textBox1.Text)
        textBox1.Text = ""
        equal = "*"
    End Sub

    Private Sub buttonDivide_Click(sender As Object, e As EventArgs) Handles buttonDivide.Click
        value_1 = Double.Parse(textBox1.Text)
        textBox1.Text = ""
        equal = "/"
    End Sub

    Private Sub buttonEqual_Click(sender As Object, e As EventArgs) Handles buttonEqual.Click
        Select Case equal
            Case ("+")
                value_2 = Double.Parse(textBox1.Text)
                result = value_1 + value_2
                textBox1.Text = result.ToString()
                Exit Select

            Case ("-")
                value_2 = Double.Parse(textBox1.Text)
                result = value_1 - value_2
                textBox1.Text = result.ToString()
                Exit Select

            Case ("*")
                value_2 = Double.Parse(textBox1.Text)
                result = value_1 * value_2
                textBox1.Text = result.ToString()
                Exit Select

            Case ("/")
                value_2 = Double.Parse(textBox1.Text)
                result = value_1 / value_2
                textBox1.Text = result.ToString()
                Exit Select
        End Select
    End Sub

    Private Sub buttonClear_Click(sender As Object, e As EventArgs) Handles buttonClear.Click
        textBox1.Text = ""
    End Sub


Codingan diatas saya sudah rubah penamaan Button terlebih dahulu..
Lalu jalankan program sobat Coder dan test. Maka terlihat seperti gambar berikut :
Semoga bermanfaat, Tetap bereksplorasi, semangat dan tentunya Coding Dong! ;)

Selamat berjumpa pada tutorial berikutnya :) 

No comments:

Post a Comment