[Task 6] Membuat Program Kalkulator Sederhana Dengan Visual Basic (Vb.Net) + Lengkap Dengan Video Tutorial

Seperti biasa teman-teman pada postingan kali ini Mr. Comro bakalan bagiin tugas Mr. Comro nih buat teman-teman supaya kita bisa sama-sama belajar. Seperti judul pada postingan kali ini Mr. Comro pengen kasih tutorialnya buat temen-temen.

Sebelum membuat sebuah program kalkulator dengan menggunakan bahasa pemrograman Visual Basic hal yang perlu teman-teman perhatikan sebelumnya ialah harus ter-Install telebih dahulu Visual Studio pada Komputer/Pc teman-teman. Jika belum ter-Install bisa baca postingan yang satu ini.

Langkah –langkah membuat kalkulator :

Setelah teman-teman menginstall Visual studio pada Komputer/Pc teman-teman buka visual studio lalu pilih New project → Pilih visual basic → Windows → Windows form application → Lalu rubah name sesuai dengan nama project yan teman-teman inginkan → Lalu pilih OK lihat gambar berikut

Selanjutnya buka Tollbox  → lalu drag and drop Group Box  → lalu sesuaikan ukuran nya. Fungsi nya adalah untuk mengkelompokan object-object agar mudah saat menggesernya.

Lalu masih pada Toolbox drag and drop 1 TextBox → kemudian 17 Button dan sesuaikan ukuran nya. Taruh object Textbox dan Botton tepat di atas Group Box

Kemudian klik Sekali pada TextBox → buka properties → atur Font Style dan juga Size nya → lalu pilih OK. Kemudian masih pada properties cari TextAlign → lalu pilih Right agar saat di inputkan nilai pada Textbox muncul dari sebelah kiri seperti pada umumnya kalkulator.

Pada object Button klik sekali → lalu masuk ke properties → atur Font Style dan juga Size → kemudian oke → dan masih pada properties cari Text dan ganti menjadi angka 1 → Ulangi cara yang sama pada semua Button

Button1 = angka 1                           Button8 = angka 8                           Button15 = penjumlahan
Button2 = angka 2                           Button9 = angka 9                           Button16 = pembagian
Button3 = angka 3                           Button10 = koma                             Button17 = clear
Button4 = angka 4                           Button11 = angka 0
Button5 = angka 5                           Button12 = samadengan
Button6 = angka 6                           Button13 = perkalian
Button7 = angka 7                           Button14 = pengurangan

Hingga hasil nya seperti pada gambar di bawah ini → Kemudian atur warna Background → cara nya klik satu kali di luar area GroupBox → lalu pada properties lalu cari BackColor → lalu sesuaikan dengan keinginan.

Kemudian klik dua kali object botton 1 → maka akan terbuka Form1.vb* → kemudian buat Variabel → dan juga buat fungsi untuk Botton 1 agar dapat menginput nilai 1 pada TextBox saat di klik

Sama juga pada Button angka yang lainya berikan fungsi yang sama yaitu untuk menginputkan nilai pada TextBox bisa teman-teman lihat pada gambar berikut

Jika fungsi Botton untuk menginputkan angka sudah di atur semua → sekarang atur juga fungsi Botton untuk koma (',') dan juga operator matematik seperti ('+'  '-'  '/'  '*' )

Jika suda maka silahkan coba teman-teman jalankan dengan cara klik Play → lalu coba dari masing-masing Button apakah berfungsi dengan baik.

untuk lebih jelasnya berikut Source Code Form.vb* :

 Public Class Form1  
   
   Dim op As String  
   Dim num1, num2 As Double  
   
   Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter  
   
   End Sub  
   
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged  
   
   End Sub  
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
     TextBox1.Text = TextBox1.Text & 1  
   End Sub  
   
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
     TextBox1.Text = TextBox1.Text & 2  
   End Sub  
   
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  
     TextBox1.Text = TextBox1.Text & 3  
   End Sub  
   
   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click  
     TextBox1.Text = TextBox1.Text & 4  
   End Sub  
   
   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click  
     TextBox1.Text = TextBox1.Text & 5  
   End Sub  
   
   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click  
     TextBox1.Text = TextBox1.Text & 6  
   End Sub  
   
   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click  
     TextBox1.Text = TextBox1.Text & 7  
   End Sub  
   
   Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click  
     TextBox1.Text = TextBox1.Text & 8  
   End Sub  
   
   Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click  
     TextBox1.Text = TextBox1.Text & 9  
   End Sub  
   
   Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click  
     TextBox1.Text = TextBox1.Text & 0  
   End Sub  
   
   Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click  
     TextBox1.Text = TextBox1.Text & ","  
   End Sub  
   
   Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click  
     num1 = TextBox1.Text  
     TextBox1.Text = ""  
     op = "*"  
   End Sub  
   
   Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click  
     num1 = TextBox1.Text  
     TextBox1.Text = ""  
     op = "-"  
   End Sub  
   
   Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click  
     num1 = TextBox1.Text  
     TextBox1.Text = ""  
     op = "+"  
   End Sub  
   
   Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click  
     num1 = TextBox1.Text  
     TextBox1.Text = ""  
     op = "/"  
   End Sub  
   
   Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click  
     TextBox1.Text = ""  
   End Sub  
   
   Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click  
     num2 = TextBox1.Text  
     If op = "+" Then  
       TextBox1.Text = num1 + num2  
     ElseIf op = "-" Then  
       TextBox1.Text = num1 - num2  
     ElseIf op = "/" Then  
       TextBox1.Text = num1 / num2  
     ElseIf op = "*" Then  
       TextBox1.Text = num1 * num2  
     End If  
   End Sub  
 End Class  
   

Okelah mungkin cukup sekian info kali ini mudah-mudahan berguna dan bermanfaat, dan untuk Video Tutorialnya bisa teman-teman lihat di bawah ini oke ?

Untuk mendownload program di atas ada pada link di bawah ini, untuk izin akses silahkan comment saja pada kolom komentar di bawah oke  ??

sampai bertemu kembali di tugas kuliah Mr. Comro berikut nya. Dan jangan lupa comment and share ke teman-teman kalian jika postingan ini bermanfaat Terimakasih..

Share this post