Sabtu, 23 Juli 2011

Membuat Program Kalkulator (Visual Basic)

Sebelum masuk ke pembuatan program kalkulator kita akan mempelajari dulu Variabel, Nama dan Tipe Variabel
Variabel
Semua program computer bekerja dengan menggunakan dan mengolah informasiyang berupa angka,teks,gambar dll. Program Komputer membutuhkan tempat untuk menyimpan informasi tersebut tempat tersebut dinamakan Variabel.

Nama & Tipe Variabel
Nama Variabel harus dicantumkan dengan syarat maximal 40 characters, hanya dapat menggunakan huruf,angka, dan underscore( _ ). Tipe Variabel harus ditentukan sesuai dengan tipe data / informasi yang disimpan oleh variabel tersebut.
Tipe Data, Pemakaian dan Storange:
Deklarasi Variabels
Setelah variabel diberi nama dan tipe, variabel tersebut perlu dideklarasikan agar Visual Basic dapat mengenalinya. Statement untuk mendeklarasikan variabel:
Dim NamaVariabel As Tipe
Untuk mendeklarasikan supaya dapat digunakan dalam setiap prosedur, fungsi dalam form,
pendeklarasian harus dilakukan pada daerah General. Statement :
Option Explicit
Dim NamaVariabel As Tipe

Struktur Pemrograman Visual Basic
1. Sequential : eksekusi program dilakukan dengan cara berurutan dari statement awal
sampai akhir, dan menjalankan operasi aritmatika.
2. Selection : Menentukan pilihan eksekusi statement berdasarkan kriteria yang
ditentukan sebelumnya.
3. Repetition : Mengeksekusi satu/lebih statement berulang kali, sampai kondisi
tertentu terpenuhi.

Operator
Operator adalah suatu simbol atau tanda untuk menyatakan suatu operasi atau proses. Pada dasarnya komputer dengan ALUnya (Aritmethic Logical Unit), mempunyai dua macam operator yaitu operator Aritmatika dan operator logika (perbandingan). Operator-operator di dalam Visual Basic antara lain:


 Memasukan Penerapan struktur pemrograman Sequential Pada Program Kalkulator
Buatlah Rancangan Form beserta objek-objeknya seperti pada gambar di bawah ini :


Setelah itu rubah nama caption dari setiap objek seperti berikut :


Kita bisa merancang tampilannya sebagus mungkin sesuai selera kita sendiri, seperti ini :



Masukan sorcecode programnya pada setiap objek dengan cara doubleklik pada objek yang ingin dimasukan kode..masukan satu persatu kodenya. Source codenya dibawah ini

Dim a, b, c As Single 'DEKLARASI BERLAKU UNTUK SATU FORM

Private Sub Command1_Click() ‘TOMBOL TAMBAH
'cara1
'Dim a, b, c As Single
'a = CSng(Text1.Text)
'b = CSng(Text2.Text)
'c = a + b
'Text3.Text = CStr(c)
'cara2
Text3.Text = CStr(CSng(Text1.Text) + CSng(Text2.Text))
End Sub

Private Sub Command2_Click() 'TOMBOL KALI
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a * b
Text3.Text = CStr(c)
End Sub

Private Sub Command3_Click() 'TOMBOL PANGKAT
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a ^ b
Text3.Text = CStr(c)
End Sub

Private Sub Command4_Click() 'TOMBOL KURANG
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a - b
Text3.Text = CStr(c)
End Sub

Private Sub Command5_Click() 'TOMBOL BAGI
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a / b
Text3.Text = CStr(c)
End Sub

Private Sub Command6_Click() 'TOMBOL MODULUS
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = a Mod b
Text3.Text = CStr(c)
End Sub

Private Sub Command7_Click() 'TOMBOL RUMUS 1
Dim d As Single
a = CSng(Text1.Text)
b = CSng(Text2.Text)
d = a + b ^ 2
c = d - 2 * b + a ^ 2 + 10 / 2
Text3.Text = CStr(c)
End Sub

Private Sub Command8_Click() 'RUMUS 2
Dim d As Single
a = CSng(Text1.Text)
b = CSng(Text2.Text)
d = (a + b) ^ 2
c = (d - 2) * (b + a) ^ 2 + (10 / 2)
Text3.Text = CStr(c)
End Sub

Private Sub Command9_Click() 'RUMUS 3
Dim d As Single
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = Sqr(((a + b) ^ 4 - (10 / 2)) / ((a ^ 2) - (8 / 4) + 10))
Text3.Text = CStr(c)
End Sub

Private Sub Command10_Click() 'TOMBOL SINCOS
Const pi As Single = 22 / 7
Dim derajat, rad As Single
derajat = CSng(Text1.Text)
rad = derajat * (pi / 180)
Text2.Text = Sin(rad)
Text3.Text = Cos(rad)
End Sub

Private Sub Command11_Click() 'TOMBOL CLEAR
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command12_Click() 'TOMBOL QUIT
Unload Me
End Sub

Download project dan program jadinya disini
Kalo sudah selesai memasukan code nya pada tiap-tiap objek sekarang coba run dengan menekan F5 pada keyboard anda.Hasilnya seperti ini :

Kita tinggal menginputkan 2 buah bilangan saja dan bisa memilih operasi perhitungan yang kita inginkan.
Materi Pembelajaran visual basic lengkap lainnya silahkan pilih dibawah ini :
1. Belajar Visual Basic Dengan Cepat dan Mudah
2. Pengenalan Visual Basic
3. Menggunakan Even dan Property(Visual Basic)
4. Menggunakan Even dan Method(Visual Basic)
5. Penggunaan Data dan Variabe(Visual Basic)
6. Penggunaan Operator (Visual Basic)
7. Membuat Program Kalkulator (Visual Basic)
8. Membuat Program Toko Alat Tulis Sederhana (Visual Basic)

0 komentar:

Poskan Komentar