Tutorial Membuat Kakulator Lengkap Dengan Visual Basic 6.0

Assalam'mualaikum, kali ini saya akan membagikan tutorial mengenai membuat kakulator lengkap, mungkin di artikel sebelumnya saya udah membagikan Tutorial Membuat kakulaor Sederhana dan kali ini saya akan membuat tutorial membuat kakulator yang lengkapnya.

Langkah Pertama

Buka aplikasi Microsoft Visual Basic 6.0 dan pilih new project EXE. Maka tampilan akan seperti gambar di bawah.

 

Langkah Kedua

Selanjutnya buat lah tampilan kakulator seperti gambar di bawah.

Setelah tampilan atau kerangka kakulator telah di buat langkah selanjutnya adalah memasukan code icon yang akan di gunakana dalam perintah menghitung.

Langkah Ketiga

Doubel Klik pada tombol 1 lalu akan muncul tampilan seperti gambar di bawah.

Masukan code pada kolom yang di tunjukan gampar panah di atas.  

Copy Code Tombol di Bawah :

Tombol 1 : Text1.Text = Text1.Text & 1

Tombol 2 : Text1.Text = Text1.Text & 2

Tombol 1 : Text1.Text = Text1.Text & 3

Tombol 1 : Text1.Text = Text1.Text & 4

Tombol 1 : Text1.Text = Text1.Text & 5

Tombol 1 : Text1.Text = Text1.Text & 6

Tombol 1 : Text1.Text = Text1.Text & 7

Tombol 1 : Text1.Text = Text1.Text & 8

Tombol 1 : Text1.Text = Text1.Text & 9

Tombol 1 : Text1.Text = Text1.Text & 0

Code Tombol : X, -, /, +

Tombol X : num1 = Text1.Text

                Text1.Text = ""

                Op = "*" 

Tombol - : num1 = Text1.Text

               Text1.Text = ""

               Op = "-" 

Tombol / : num1 = Text1.Text

               Text1.Text = ""

               Op = "/" 

Tombol + : num1 = Text1.Text

                Text1.Text = ""

                Op = "+"

Code Tombol : Hapus

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

Text1.Text = ""

End Sub

Code Sama dengan : (=)

num2 = Text1.Text

If Op = "+" Then

Text1.Text = num1 + num2

ElseIf Op = "-" Then

Text1.Text = num1 - num2

ElseIf Op = "*" Then

Text1.Text = num1 * num2

ElseIf Op = "/" Then

Text1.Text = num1 / num2

End If

Code Keluar: Unload Me

Setelah semua code sudah di masukan sesuai icon perintah, masih ada kode yang harus di masukan.

Kode di atas wajid di masukan, di letakan di bagian atas.

Code: Dim Op String

Dim num1 As Integer

Dim num2 As Integer

Langkah selanjutnya jalankan Kakulator yang telah di masukan code.

Dan hasilnya akan seperti gambar di bawah. 

Itulah tutorial membuat kakulator lengkapdengan visual basic 6.0. Saran saya ada baiknya anda sudah memiliki basic di dalam pengoprasian aplikasi visual basic agar dapat mengikuti tutorial diatas dengan baik dan benar. Semoga artikel ini dapat membantu dan bermanfaat bagi pembaca, Terimakasih.

Gratis Berlangganan Untuk Mendapatkan Info Artikel Terbaru