Tutorial Cara Membuat Kalkulator Untuk Menentukan Akar (Pembuat Nol) Pada Persamaan Kuadrat dengan Visual Basic

Semangat pagi.

Pada kesempatan ini, saya akan membahas mengenai cara membuat kalkulator untuk menentukan akar- akar/ pembuat nol/ solusi dari suatu persamaan kuadrat dengan Visual Basic.

Langkah- langkah pembuatannya adalah sebagai berikut.

  1. Membuka program Ms.Office Excel (versi 2007).(Start→All Programs→Microsoft Office→Microsoft Office Excel 2007).
  2. Memilih tab ribbon menu Deveoper (jika belum ada maka memilih Office Button→Excel Options→memberi tanda centang pada kotak sebelah kiri tulisan Show Developer tab in the Ribbon).
  3. Memilih menu Insert pada grup Controls. Maka akan muncul tampilan seperti berikut ini.1c
  4. Memilih Button (Form Control).2c
  5. Men-drag pada worksheet lalu melepaskan sehingga button- pun sudah terbuat. Pada saat drag dilepaskan maka button terbentuk dan secara otomatis akan muncul kotak dialog Assign Macro.3c
  6. Pada kotak dialog Assign Macro memilih New. Maka secara otomatis akan muncul kotak dialog Microsoft Visual Basic dan Module1(Code) seperti tampilan berikut ini.4c
  7. Mengetikkan tulisan UserForm1.Show pada bagian bawah tulisan Sub Button1_Click( ) → Enter.5c.png
  8. Kembali ke worksheet Ms.Office Excel awal. Meng-klik kanan pada Button→ Assign Macro. Muncul kotak dialog Assign Macro→ memilih Button1_Click→OK.6c.png7c
  9. Kembali ke kotak dialog Microsoft Visual Basic. Memilih tab ribbon menu Insert → Userform.8c.png
  10. Muncul tampilan seperti dibawah ini.10c
  11. Membuat format isian pada kotak userForm1 dengan menggunakan Label, TextBox, dan CommandButton yang tersedia di kotak dialog Toolbox.9c

Keterangan:

Yang dilingkari warna hijau    : Label

Yang dilingkari warna merah  : TextBox

Yang dilingkari warna biru     : CommandButton

  • Hasil penerapan Label, TextBox, dan CommandButton adalah sebagai berikut.11c
  •  Format isian.12c
  1. Memasukkan isian format tersebut sehingga menjadi seperti berikut.13c

Catatan:

Penggantian tulisan/text pada Label dan Command Button dapat dilakukan dengan mengganti isian pada Caption dan apabila akan mengganti jenis dan ukuran huruf pada Label, TextBox, CommandBitton dapat dilakukan dengan mengganti isian pada Font.14c

  1. Double-click pada Cek Button. Akan muncul tampilan seperti berikut ini.15c
  2. Mengetikkan tulisan pada bagian bawah tulisan Private Sub CommandButton1_Click( ) seperti berikut.16c
  3. Kembali ke worksheet Ms.Excel. Meng- klik Button 1. Maka akan muncul secara otomatis kotak dialog UserForm1 seperti dibawah ini.17c
  4. Mencoba memasukkan sebarang persamaan kuadrat (mencoba untuk 3 kemungkinan) lalu mengklik tombol CEK. Hasilnya adalah sebagai berikut.
  • Kemungkinan ke-1: b^2 – 4ac >= 018c
  • Kemungkinan ke-2: b^2- 4ac < 019c
  • Kemunkinan ke-3: a=0 (menjadi persamaan linear).

20c

Selesai

Semoga bermanfaat. Stay hungry, stay foolish.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s