Cara Membuat Kalkulator Sederhana di Visual Basic 6.0

0
309
Visual Basic

JalanTeknologi.comApakah kalian sedang mencari bagaimana cara membuat kalkulator di Visual Basic? kalian telah datang di tempat yang tepat. Pada kesempatan kali ini mimin akan menunjukkan bagaimana cara membuat kalkulator di Visual Basic.

Sebelum itu, kita harus tahu apa itu Visual Basic(VB). Menurut Wikipedia Visual Basic adalah sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Setelah kita mengetahui pengertian dari Visual Basic, selanjutnya mimin akan langsung saja akan menunjukkan bagaimana cara membuat kalkulator di Visual Basic:

Bahan:

Visual Basic 6.0 (link download)

Baca Juga: Laptop kamu lemot ? Segera ganti ke SSD

Langkah-Langkahnya:

1. Pertama kita harus masuk ke aplikasi Visual Basic terlebih dahulu. Karena kita akan membuat Kalkulator di VB.

visual basic

Jalanteknologi.com

2. Setelah berhasil masuk, kemudian kita memilih yang Standard EXE lalu klik Open.

visual basic

Jalanteknologi.com

3. Jika kita sudah membuka yang standard exe nya lalu akan terlihat from1 masih kosong/blank di sini kita diharuskan membuat desain nya terlebih dahulu.

KET:

, adalah Koma
= adalah Hasil
/ adalah Bagi
– adalah Kurang
+ adalah Tambah
x adalah Kali
AC untuk Membersihkan Layar
x2 untuk Pangkat
-/+ untuk Tanda
Akar untuk Akar

visual basic

Jalanteknologi.com

KET:

  • Merah adalah Label, kita gunakan untuk menuliskan nama KALKULATOR di form1.
  • Hitam. Lalu ada TextBox, gunanya untuk menampilkan hasil dari operasi yang kita jalankan di kalkulator.
  • Biru. Terakhir ada CommandButton, disini kita membutuhkan banyak commandbutton sampai 20, gunanya untuk memasukan nilai-nilai dari setiap button nya. Lalu untuk merubah namanya tinggal klik caption pada properties lalu kita ganti namanya jadilah seperti gambar di atas.

4. Selanjutnya kita akan mencoding gunanya untuk memberi kode pada setiap button. Caranya double klik kepada setiap button yang mau kita masukan codingannya.

  • Pertama, kita buat 1variabel string dan 2 variabel integer dengan kode seperti berikut:

Dim klk As StringDim num1 As Integer

Dim num2 As Integer

Kita buat variabel klk yang bertipe data string dan num1 dan num2 yang bertipe data integer.

  • Kedua, kita akan memberikan kode pada button 1 supaya ketika user click tombol 1 akan terlihat pada text1.text yaitu texbox hasil.

Private Sub Command1_Click()Text1.Text = Text1.Text & 1

End Sub

Lalu ulangi langkah ke 2 hingga tombol 0 , lalu rubah angka pada kode tersebut sesuai tombol angkanya.

  • Ketiga, kita akan memberi kode pada button hapus (commandbutton 13).

Private Sub Command13_Click()Text1.Text = “”

End Sub

Logikanya adalah Jika tombol AC di click maka textbox hasil akan kosong/membersihkan layar.

  • Keempat, kita akan memberikan kode pada button pangkat (CommandButton 17).

Private Sub Command17_Click()num1 = Text1.Text

Text1.Text = “”

klk = “^”   

End Sub

Logikanya adalah jika user memasukan nilai maka nilai tersebut akan tersimpan pada num1 dan variabel klik tersebut akan menjalankan perintah sesuai operator tersebut.

  • Kelima, kita akan memberi kode pada button operator tambah (commandbutton 14).

Private Sub Command14_Click()num1 = Text1.Text

Text1.Text = “”

klk = “+”

End Sub

  • Dan untuk operator kurang,kali,bagi lakukan seperti langkah pada pemberian kode tambah (caranya mirip), hanya saja pada variabel klk sesuikan pada operator yg kita ingin beri kode.
  • Keenam, Lalu pada button koma (commandbutton 11).

Private Sub Command11_Click()Text1.Text = Text1.Text & “.”

End Sub

Logikanya adalah jika user click button koma maka akan tercetak “.” Pada textbox hasil.

  • Ketujuh, Selanjutnya pada button tanda +/- (commandbutton 12).

Private Sub Command12_Click()If Text1.Text = “” Then Exit Sub

If Val(Text1.Text) > 0 Then

Text1.Text = Val(Text1.Text) * -1

Else

Text1.Text = Val(Text1.Text) * -1

End If

End Sub

Logikanya adalah jika terdapat sebuah bilangan  dan kita click button 1x maka bilangan tersebut bernilai negatif dan jika click2x maka menjadi positif.

  • Kedelapan, kita akan memberi kode pada button akar (commandbutton 16).

Private Sub Command16_Click()Text1.Text = Math.Sqr(Text1.Text)

End Sub

Logikanya adalah sqr tersebut menghitung atau mencari akar dari sebuah bilangan dan bilangan tidak boleh bernilai negative.

  • Terakhir, pada button hasil. Perlu kita ketahui bahwa perintah-perintah operator di atas masih belum selesai, dan akan di eksekusi oleh button hasil ini (commandbuttton 20).

Private Sub Command20_Click()num2 = Text1.Text

If klk = “+” Then

Text1.Text = num1 + num2

ElseIf klk = “/” Then

Text1.Text = num1 / num2

ElseIf klk = “-” Then

Text1.Text = num1 – num2

ElseIf klk = “*” Then

Text1.Text = num1 * num2

ElseIf klk = “^” Then

Text1.Text = num1 ^ num2

End If

End Sub

Jadi textbox hasil akan menampilkan hasil sesuai button apa yang user click.

5. Apabila kita sudah melakukan pengkodean seperti perintah di atas langkah selanjutnya kita di haruskan untuk me RUN program/menjalankan program seperti gambar di bawah ini.

visual basic

Jalanteknologi.com

6. Jika sudah bisa menjalankan nya maka kalian telah sukses membuatnya, apabila belum bisa menjalankannya kemungkinan kalian masih ada beberapa kesalahan pada saat pengcodean/codingannya.

visual basic

Jalanteknologi.com

SELAMAT MENCOBA 😀

Apabila dari kalian terdapat pertanyaan atau masukan dapat dikirimkan pada kolom komentar! Terima Kasih.

Baca Juga: Merasa Telah Disadap? Cara Ini Untuk Menghentikannya

Author F
0 0 vote
Article Rating
Subscribe
Notify of
guest
0 Komentar
Inline Feedbacks
View all comments