Cara Membuat Kalkulator Sederhana Menggunakan Visual Studio 2010 (VB.Net) + Free Script

Cara Membuat Kalkulator Sederhana Menggunakan Visual Studio 2010 (VB.Net)

Gambar : Kalkulator Sederhana

Assalamualaikum Wr.Wb

Apa Kabar teman-teman semua? Pada Kesempatan kali ini saya ingin membagikan Tutorial Cara Membuat Kalkulator Sederhana Menggunakan Visual Studio 2010 (VB.Net).

Oke,Langsung saja ke tutorialnya ya

LANGKAH-LANGKAH :

1. Langkah awal,silahkan anda buka Visual Studio 2010 (VB.Net) di Laptop/Pc anda.
2. Setelah itu,Klik New Project/Ctrl+Shift+N
3. Kemudian Anda tentukan Nama Project anda,Solusi Name akan mengikuti Nama Project yang telah kita tentukan tadi,dan jangan lupa tentukan Lokasi Penyimpanannya juga.
4. Jika sudah masuk ke lembar kerja,tentukan Variable-Variable yang diperlukan dan jangan lupa Klik Save.
5. Lalu Copy Pastekan Code berikut ke dalam Codingan anda.
   
           Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
           System.EventArgs) Handles MyBase.Load

           '---mengisi properti Objek Form

           Me.Text = "Kalkulator Sederhana"

           Me.StartPosition = FormStartPosition.CenterScreen

           End Sub

   
   

           Private Sub btTambah_Click(ByVal sender As System.Object, ByVal e As

           System.EventArgs) Handles btTambah.Click

           Dim a, b As New Integer

           Dim h As New Double

           a = Val(txtBil1.Text)

           b = Val(txtBil2.Text)

           h = a + b

           txtHasil.Text = h

           End Sub

   
   

           Private Sub btKurang_Click(ByVal sender As System.Object, ByVal e As

           System.EventArgs) Handles btKurang.Click

           Dim a, b As New Integer

           Dim h As New Double

           a = Val(txtBil1.Text)

           b = Val(txtBil2.Text)

           h = a - b

           txtHasil.Text = h

           End Sub

   
   

           Private Sub btKali_Click(ByVal sender As System.Object, ByVal e As

           System.EventArgs) Handles btKali.Click

           Dim a, b As New Integer

           Dim h As New Double

           a = Val(txtBil1.Text)

           b = Val(txtBil2.Text)

           h = a * b

           txtHasil.Text = h

           End Sub
   
           Private Sub btBagi_Click(ByVal sender As System.Object, ByVal e As
           System.EventArgs) Handles btBagi.Click
           Dim a, b As New Integer
           Dim h As New Double
           a = Val(txtBil1.Text)
           b = Val(txtBil2.Text)
           h = a / b
           txtHasil.Text = h
           End Sub
   
           Private Sub btDelete_Click(ByVal sender As System.Object, ByVal e As
           System.EventArgs) Handles btDelete.Click
           Me.txtBil1.Clear()
           Me.txtBil2.Clear()
           Me.txtHasil.Clear()
           Me.txtBil1.Focus()
           End Sub
   
           Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As
           System.EventArgs) Handles btClose.Click
           Me.Close()
           End Sub
   
           Private Sub txtBil1_KeyPress(ByVal sender As Object, ByVal e As 
           System.Windows.Forms.KeyPressEventArgs) Handles txtBil1.KeyPress
           If e.KeyChar = Chr(13) Then
           Me.txtBil2.Focus()
           End If
           End Sub
   
           Private Sub txtBil2_KeyPress(ByVal sender As Object, ByVal e As
           System.Windows.Forms.KeyPressEventArgs) Handles txtBil2.KeyPress
           If e.KeyChar = Chr(13) Then
           Me.btDelete.Focus()
           End If
           End Sub
           End Class
   
   
6. Kemudian,Klik Run untuk melihat hasilnya.
7. Cara lainnya tanpa menggunakan KeyPress agar kursor otomatis berpindah dari textbox 1 ke textbox lainnya,anda dapat menggunakan Format Coding Berikut :
   
   Private Sub txtBil1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBil1.TextChanged
Me.txtBil2.Focus()
End Sub


8. Jika masih ada yang kurang jelas,anda bisa menyimak Video Penjelasan Berikut!

Jangan lupa follow Blog ku ini agar anda selalu Update serta tidak ketinggalan jika saya meng upload Postingan terbaru dan jika anda ingin melihat Postingan yang telah saya Upload sebelumnya,berikut link nya :

1. Cara menguji Rangkaian IC OP-AMP Sebagai Comparator 
2. Cara Menginstall Aplikasi Delphi 6 Borland di windows 7,8,10 + Gambar 
3. Cara membuat Usb Bootable menggunakan Rufus
   
4. Makalah PTI-1
5. Cara Menginstall Vmware Workstation 12 Pro + Gambar (Lengkap)
6. Cara Menginstall Proteus 8.12 Profesional 100% Work
7. Cara Menginstall Wampserver 3.2.0 x64 Bit di Windows 10 anti Error 100% Berhasil
8. Cyber Crime-2
9. Cyber Crime-1
10. UTS Komunikasi Data dan Jaringan-1
11. Cara Menginstall Ubuntu Server 16.04.4 di Vmware Workstation 12 Pro + Penjelasan secara lengkap
12. Cara Menginstall Visual Basic 2010/VB.Net+Lengkap dengan gambar dan Penjelasan
13. Cara Menginstall OBS Studio Versi Terbaru 26.1.1-2021
14. Cara Membuat Program Aplikasi Sewa Hotel + Free Script Part-1
15. Cara Menginstall Netbeans IDE 7.3.1 di WIndows 10 + Gambar (lengkap)
16. Cara Mengatasi "Activation Failed" Pada MS Office 2016 100% Work
17. Cara Menginstall FileZilla untuk Konfigurasi FTP Server + Lengkap dengan gambar 
18. Cara menginstall Aplikasi CBT-ANAExamBrowserInstaller di Windows 7,8,10 + Penjelasan Gambar Lengkap

Atau anda bisa melihatnya pada halaman sebelah pojok kanan disitu sudah saya kelompokkan menurut jenisnya masing-masing.

-----Terimakasih dan Selamat Mencoba-----