Tutorial Belajar Coding

Tempat Belajar Coding Untuk Pemula | Contoh Program | Belajar Pemrograman | Algoritma | Source Code

Friday, October 12, 2018

Contoh Program Visual Basic Kalkulator Ilmiah


Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ??
Hari ini saya akan membagikan contoh program yang baru yaitu contoh program visual basic kalkulator ilmiah, ya kali ini kita akan belajar visual basic buat yang sudah kesal dengan tampilan full biru pascal atau tampilan putih-putih Dev C++ yang ini akan lebih berwarna.
Jujur saja dulu pas awal-awal belajar pemrograman saya diajari pascal dan Dev C++ saya kesal dengan tampilan keduanya, yang satu biru full yang satu putih rasanya mata gak bisa tahan lama-lama ngeliatinnya, agak girang juga pas pertama belajar visual basic akhirnya lebih berwarna itu yang ada di pikiran saya dulu.
Oke stop disitu saja ceritanya, saya disini menggunakan visual studio 2010 tidak ada alasan khusus sih cuma emang sudah familiar aja dengan yang ini, kalau kalian menggunakan versi yang lain tidak akan jauh berbeda kok, kecuali kalau versi yang dipakainya jauh lebih tua seperti seperti vb 6.
Ini gambaran kalkulator yang akan kita buat

program visual basic kalkulator ilmiah


Untuk warna, background, jenis font, ukuran, tata letak bisa disesuaikan lah ya sesuai selera tinggal diatur saja dibagian properties disebelah kanan.
Backcolor = mengganti warna latar
Backgroundimage = untuk mengganti gambar latar
Backgroundumagelayout = untuk mengatur posisi gambar latar
Font = untuk mengatur jenis dan ukuran huruf
Forecolor = untuk mengatur warna huruf


tutorial visual studio 2010


belajar visual basic membuat kalkulator


Cari textbox dan button di toolbox sebelah kiri, seperti yang tertera gambar diatas dan mulai buat item-itemnya.
Oke bagian ini yang harus diatur sama(bisa beda tapi nanti beda lagi codingnya), salah satu saran dosen saya dulu name itemnya diganti biar ingat posisinya kita sedang ngoding yang mana, disini saya juga mengganti name dari tiap itemnya jadi nggak button1, button2, textbox1 dll lagi.

             Jenis
              Text
              Name
          Form1
          Kalkulator
               kalku
         Textbox

               layar
          Button
              Cos
              klikcos
          Button
              Sin
              kliksin
          Button
              Tan
              kliktan
          Button
                1
                 A1
          Button
                2
                 A2
          Button
                3
                 A3
          Button
                4
                 A4
          Button
                5
                 A5
          Button
                6
                 A6
          Button
                7
                 A7
           Button
                8
                 A8
           Button
                9
                 A9
           Button
                0
                 A0
           Button 
                ,
            klikkoma
           Button
            Hapus
            klikhapus
           Button
                =
            klikhasil
           Button
                 +
            kliktambah
           Button
                 ─
            klikkurang
           Button
                 %
            klikpersen
           Button
                 X
            klikkali
           Button
                 ÷
            klikbagi
           Button
                 ^
            klikpangkat
           Button
                 √
            klikakar
           Button
                 C
            klikclear
           Button
              Log x
            kliklog
           Button
              EXIT
            klikexit

Setelah semua diatur kita lanjut ke codingnya tekan F7 lalu mulai masukan codingnya dibawah Public Class kalku, disini kita akan mendeklarasikan variabelnya, supaya bisa dipakai oleh semua fungsi/sub yang lain.
  Dim angka As Double
    Dim hasil As Double
    Dim operasi As String
    Const Phi As Double = 3.14159265358979
Seperti gambar dibawah ini

visual studio 2010 program kalkulator



Double klik di button/tombol angka 1

membuat program kalkulator ilmiah dengan visual basic

Lalu masukan code dibawah ini.
If layar.Text = "0" Then
            layar.Text = "1"
        Else
            layar.Text = layar.Text & "1"
        End If
Seperti gambar dibawah ini

source code kalkulator ilmiah


Double klik di button/tombol angka 2, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "2"
        Else
            layar.Text = layar.Text & "2"
        End If
Lakukan seperti di button/tombol angka 1

Double klik di button/tombol angka 3, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "3"
        Else
            layar.Text = layar.Text & "3"
        End If

Double klik di button/tombol angka 4, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "4"
        Else
            layar.Text = layar.Text & "4"
        End If

Double klik di button/tombol angka 5, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "5"
        Else
            layar.Text = layar.Text & "5"
        End If

Double klik di button/tombol angka 6, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "6"
        Else
            layar.Text = layar.Text & "6"
        End If

Double klik di button/tombol angka 7, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "7"
        Else
            layar.Text = layar.Text & "7"
        End If

Double klik di button/tombol angka 8, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "8"
        Else
            layar.Text = layar.Text & "8"
        End If

Double klik di button/tombol angka 9, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "9"
        Else
            layar.Text = layar.Text & "9"
        End If

Double klik di button/tombol angka 0, lalu masukan code dibawah ini.
 If layar.Text = "0" Then
            layar.Text = "0"
        Else
            layar.Text = layar.Text & "0"
        End If

Double klik di button/tombol koma, lalu masukan code dibawah ini.
If layar.Text = "0" Then
            layar.Text = layar.Text + "."
        Else
            layar.Text = layar.Text + "."
        End If

Kita lanjut ke bagian operasi perhitungannya, untuk yang pertama double klik button/tombol + seperti gambar dibawah ini.

cara membuat kalkulator ilmiah dengan visual basic


Lalu masukan kode dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka + Val(layar.Text)
        End If
        operasi = "+"
        layar.Text = ""
seperti gambar dibawah ini

tutorial visual studio 2010 program kalkulator

Double klik di button/tombol  ─ (kurang), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka - Val(layar.Text)
        End If
        operasi = "-"
        layar.Text = ""
lakukan seperti di butto/tombol +

Double klik di button/tombol  % (persen), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka / 100
        End If
        operasi = "%"
        layar.Text = ""


Double klik di button/tombol  X (kali), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka * Val(layar.Text)
        End If
        operasi = "X"
        layar.Text = ""

Double klik di button/tombol  ÷ (bagi), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka / Val(layar.Text)
        End If
        operasi = "÷"
        layar.Text = ""


Double klik di button/tombol  ^ (pangkat), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka ^ Val(layar.Text)
        End If
        operasi = "^"
        layar.Text = ""

Double klik di button/tombol  √ (akar), lalu masukan code dibawah ini.
If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka ^ (1 / 2)
        End If
        operasi = "√"
        layar.Text = ""

Double klik di button/tombol Cos, lalu masukan code dibawah ini.
 layar.Text = Math.Cos(layar.Text * (Phi / 180))
seperti dgambar dibawah

belajar visual studio 2010 program kalkulator ilmiah

Double klik di button/tombol Sin, lalu masukan code dibawah ini.
 layar.Text = Math.Sin(layar.Text * (Phi / 180))

Double klik di button/tombol Tan, lalu masukan code dibawah ini.
 layar.Text = Math.Tan(layar.Text * (Phi / 180))

Double klik di button/tombol log x, lalu masukan code dibawah ini.
 layar.Text = Math.log(layar.Text)

Double klik di button/tombol = (sama dengan), lalu masukan code dibawah ini.
  Select Case operasi
            Case "+"
                hasil = angka + Val(layar.Text)
                layar.Text = hasil
            Case "-"
                hasil = angka - Val(layar.Text)
                layar.Text = hasil
            Case "%"
                hasil = angka / 100
                layar.Text = hasil
            Case "X"
                hasil = angka * Val(layar.Text)
                layar.Text = hasil
            Case "÷"
                hasil = angka / Val(layar.Text)
                layar.Text = hasil
            Case "^"
                hasil = angka ^ Val(layar.Text)
                layar.Text = hasil
            Case "√"
                hasil = angka ^ 0.5
                layar.Text = hasil
        End Select
Seperti gambar dibawah

program visual basic kalkulator ilmiah

Double klik di button/tombol hapus, lalu masukan code dibawah ini.
If layar.Text.Length <> 0 Then
            layar.Text = layar.Text.Remove(layar.TextLength - 1, 1)
        End If
Untuk yang belum tahu ini berfungsi untuk menghapus angka dilayar satu persatu, tidak seperti C atau clear screen yang menghapus semua sekaligus.

Double klik di button/tombol C, lalu masukan code dibawah ini.
layar.Text = "0"
angka = 0
hasil = 0
operasi = ""

Double klik di button/tombol EXIT, lalu masukan code dibawah ini.
  End


Oke semua beres tinggal kalian coba debugging kalau semuanya benar harusnya bisa jalan karena ini sudah dites dulu tadi, dibawah ini ada source code lengkapnya.
Seperti biasanya saya lebih menyarankan kalian menulis manual source code nya tidak asal copas supaya terbiasa, salah-salah sedikit wajar lah ya disitulah letak belajar dan latihannya.

Public Class kalku
    Dim angka As Double
    Dim hasil As Double
    Dim operasi As String
    Const Phi As Double = 3.14159265358979

    Private Sub A1_Click(sender As System.Object, e As System.EventArgs) Handles A1.Click
        If layar.Text = "0" Then
            layar.Text = "1"
        Else
            layar.Text = layar.Text & "1"
        End If
    End Sub

    Private Sub A2_Click(sender As System.Object, e As System.EventArgs) Handles A2.Click
        If layar.Text = "0" Then
            layar.Text = "2"
        Else
            layar.Text = layar.Text & "2"
        End If
    End Sub

    Private Sub A3_Click(sender As System.Object, e As System.EventArgs) Handles A3.Click
        If layar.Text = "0" Then
            layar.Text = "3"
        Else
            layar.Text = layar.Text & "3"
        End If
    End Sub

    Private Sub A4_Click(sender As System.Object, e As System.EventArgs) Handles A4.Click
        If layar.Text = "0" Then
            layar.Text = "4"
        Else
            layar.Text = layar.Text & "4"
        End If
    End Sub

    Private Sub A5_Click(sender As System.Object, e As System.EventArgs) Handles A5.Click
        If layar.Text = "0" Then
            layar.Text = "5"
        Else
            layar.Text = layar.Text & "5"
        End If
    End Sub

    Private Sub A6_Click(sender As System.Object, e As System.EventArgs) Handles A6.Click
        If layar.Text = "0" Then
            layar.Text = "6"
        Else
            layar.Text = layar.Text & "6"
        End If
    End Sub

    Private Sub A7_Click(sender As System.Object, e As System.EventArgs) Handles A7.Click
        If layar.Text = "0" Then
            layar.Text = "7"
        Else
            layar.Text = layar.Text & "7"
        End If
    End Sub

    Private Sub A8_Click(sender As System.Object, e As System.EventArgs) Handles A8.Click
        If layar.Text = "0" Then
            layar.Text = "8"
        Else
            layar.Text = layar.Text & "8"
        End If
    End Sub

    Private Sub A9_Click(sender As System.Object, e As System.EventArgs) Handles A9.Click
        If layar.Text = "0" Then
            layar.Text = "9"
        Else
            layar.Text = layar.Text & "9"
        End If
    End Sub

    Private Sub A0_Click(sender As System.Object, e As System.EventArgs) Handles A0.Click
        If layar.Text = "0" Then
            layar.Text = "0"
        Else
            layar.Text = layar.Text & "0"
        End If
    End Sub

    Private Sub klikkoma_Click(sender As System.Object, e As System.EventArgs) Handles klikkoma.Click
        If layar.Text = "0" Then
            layar.Text = layar.Text + "."
        Else
            layar.Text = layar.Text + "."
        End If
    End Sub

    Private Sub kliktambah_Click(sender As System.Object, e As System.EventArgs) Handles kliktambah.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka + Val(layar.Text)
        End If
        operasi = "+"
        layar.Text = ""
    End Sub

    Private Sub klikkurang_Click(sender As System.Object, e As System.EventArgs) Handles klikkurang.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka - Val(layar.Text)
        End If
        operasi = "-"
        layar.Text = ""
    End Sub

    Private Sub klikpersen_Click(sender As System.Object, e As System.EventArgs) Handles klikpersen.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka / 100
        End If
        operasi = "%"
        layar.Text = ""
    End Sub

    Private Sub klikkali_Click(sender As System.Object, e As System.EventArgs) Handles klikkali.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka * Val(layar.Text)
        End If
        operasi = "X"
        layar.Text = ""
    End Sub

    Private Sub klikbagi_Click(sender As System.Object, e As System.EventArgs) Handles klikbagi.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka / Val(layar.Text)
        End If
        operasi = "÷"
        layar.Text = ""
    End Sub

    Private Sub klikpangkat_Click(sender As System.Object, e As System.EventArgs) Handles klikpangkat.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka ^ Val(layar.Text)
        End If
        operasi = "^"
        layar.Text = ""
    End Sub

    Private Sub klikakar_Click(sender As System.Object, e As System.EventArgs) Handles klikakar.Click
        If angka = "0" Then
            angka = Val(layar.Text)
        Else
            angka = angka ^ (1 / 2)
        End If
        operasi = "√"
        layar.Text = ""
    End Sub

    Private Sub klikcos_Click(sender As System.Object, e As System.EventArgs) Handles klikcos.Click
        layar.Text = Math.Cos(layar.Text * (Phi / 180))
    End Sub

    Private Sub kliksin_Click(sender As System.Object, e As System.EventArgs) Handles kliksin.Click
        layar.Text = Math.Sin(layar.Text * (Phi / 180))
    End Sub

    Private Sub kilktan_Click(sender As System.Object, e As System.EventArgs) Handles kilktan.Click
        layar.Text = Math.Tan(layar.Text * (Phi / 180))
    End Sub

    Private Sub kliklog_Click(sender As System.Object, e As System.EventArgs) Handles kliklog.Click
        layar.Text = Math.Log(layar.Text)
    End Sub

    Private Sub klikhasil_Click(sender As System.Object, e As System.EventArgs) Handles klikhasil.Click
        Select Case operasi
            Case "+"
                hasil = angka + Val(layar.Text)
                layar.Text = hasil
            Case "-"
                hasil = angka - Val(layar.Text)
                layar.Text = hasil
            Case "%"
                hasil = angka / 100
                layar.Text = hasil
            Case "X"
                hasil = angka * Val(layar.Text)
                layar.Text = hasil
            Case "÷"
                hasil = angka / Val(layar.Text)
                layar.Text = hasil
            Case "^"
                hasil = angka ^ Val(layar.Text)
                layar.Text = hasil
            Case "√"
                hasil = angka ^ 0.5
                layar.Text = hasil
        End Select
    End Sub

    Private Sub klikhapus_Click(sender As System.Object, e As System.EventArgs) Handles klikhapus.Click
        If layar.Text.Length <> 0 Then
            layar.Text = layar.Text.Remove(layar.TextLength - 1, 1)
        End If
    End Sub

    Private Sub klikclear_Click(sender As System.Object, e As System.EventArgs) Handles klikclear.Click
        layar.Text = "0"
        angka = 0
        hasil = 0
        operasi = ""
    End Sub

    Private Sub klikexit_Click(sender As System.Object, e As System.EventArgs) Handles klikexit.Click
        End
    End Sub
End Class

Dan ini adalah gambar ketika program dijalankan, disini saya memilih operasi perkalian

source code kalkulator ilmiah

program visual studio 2010 kalkulator ilmiah


tutorial visual basic program kalkulator ilmiah

Saya mencoba menjelaskannya sejelas-jelasnya jadi ini mungkin sedikit terlalu panjang, tapi saya harap ini akan lebih memudahkan kalian.
Semoga postingan kali ini bermanfaat silahkan tuliskan komentar kalian dibawah, disini kita sama-sama belajar jadi jangan sungkan berkomentar jika ada yang salah atau kurang jelas.
seperti motto blog ini “Dari newbie oleh newbie dan untuk newbie”


Baca Juga
Tutorial Visual Basic Program Menu Restoran
Program C++ Kalkulator Sederhana

11 comments:

  1. ayuApril 9, 2019 at 4:08 PM

    nggak bisa dijalankan

    ReplyDelete
    Replies
    1. Mad AriefJanuary 31, 2020 at 3:24 AM

      vb enggak bisa asal di copas plek plekan, codingannya harus juga dimasukan sesuai itemnya...
      kemungkinan ada kesalahan disitu, jadi error pas dirunning

      Delete
  2. santosoJuly 5, 2019 at 6:53 AM

    https://sabarsan.blogspot.com/2015/10/kalkulator-sederhana-menggunakan-visual.html

    Semoga bermanfaat

    ReplyDelete
  3. Shikamaru NaraSeptember 28, 2019 at 4:36 PM

    yuhuu, bermanfaat gan
    Lampu servis hp

    ReplyDelete
  4. UnknownJanuary 20, 2021 at 3:25 AM

    MAKASIH BANYAK GANN

    ReplyDelete
  5. UnknownOctober 7, 2021 at 11:54 AM

    OKE...

    ReplyDelete
  6. BulianOctober 31, 2021 at 8:58 PM

    angka is not declared. gimana ngatasinya

    ReplyDelete
  7. M. Galuh Sulthan NaufalMay 15, 2022 at 5:10 PM

    Bermanfaat, terima kasih gan

    ReplyDelete
  8. Nutibers ( NTBS )November 19, 2022 at 2:36 PM

    This comment has been removed by the author.

    ReplyDelete
  9. Nutibers ( NTBS )November 19, 2022 at 2:39 PM

    This comment has been removed by the author.

    ReplyDelete

Subscribe to: Post Comments (Atom)
Powered by Blogger.

Author

My photo
"life is only once, so don't choose to be mediocre, do whatever you need to do and die without regret" -Mad Arief-

Postingan Terbaru

Total Pageviews

Copyright © Tutorial Belajar Coding | Powered by Blogger
Design by ThemePix.com | Blogger Theme by Lasantha - Premium Blogger Templates