TUTORIAL KALKULATOR
TUTORIAL ME – RE DESIGN PROGRAM KALKULATOR
Nb: Program dapat diunduh pada bagian bawah halaman
Pertama-tama bukalah program Visual
Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"
4. Setelah muncul halaman New Project pilih “Windows Forms Application”
5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form
7. Form diisi dengan berbagai komponen yang didapat melalui
"Toolbox"
8. Isi form
NO
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
1
|
Form 1
|
Name
|
Form 1
|
Background Image
|
System.Drawing.Bitmap
|
||
2
|
Label 1
|
Name
|
Label 1
|
Text
|
Untuk memulai, silahkan menekan tombol On
|
||
3
|
Button 0
|
Name
|
Button 0
|
Text
|
0
|
||
4
|
Button 1
|
Name
|
Button 1
|
Text
|
1
|
||
5
|
Button 2
|
Name
|
Button 2
|
Text
|
2
|
||
6
|
Button 3
|
Name
|
Button 3
|
Text
|
3
|
||
7
|
Button 4
|
Name
|
Button 4
|
Text
|
4
|
||
8
|
Button 5
|
Name
|
Button 5
|
Text
|
5
|
||
9
|
Button 6
|
Name
|
Button 6
|
Text
|
6
|
||
10
|
Button 7
|
Name
|
Button 7
|
Text
|
7
|
||
11
|
Button 8
|
Name
|
Button 8
|
Text
|
8
|
||
12
|
Button 9
|
Name
|
Button 9
|
Text
|
9
|
||
13
|
Button 10
|
Name
|
Button 10
|
Text
|
.
|
||
14
|
Button 11
|
Name
|
Button 11
|
Text
|
=
|
||
15
|
Button 12
|
Name
|
Button 12
|
Text
|
AC
|
||
16
|
Button 13
|
Name
|
Button 13
|
Text
|
+
|
||
17
|
Button 14
|
Name
|
Button 14
|
Text
|
-
|
||
18
|
Button 15
|
Name
|
Button 15
|
Text
|
x
|
||
19
|
Button 16
|
Name
|
Button 16
|
Text
|
÷
|
||
20
|
Button 17
|
Name
|
Button 17
|
Text
|
Cos
|
||
21
|
Button 18
|
Name
|
Button 18
|
Text
|
Sin
|
||
22
|
Button 19
|
Name
|
Button 19
|
Text
|
Tan
|
||
26
|
Button 20
|
Name
|
Button 20
|
Text
|
^
|
||
27
|
Button 21
|
Name
|
Button 21
|
Text
|
√
|
||
28
|
Button 22
|
Name
|
Button 22
|
Text
|
DEL
|
||
29
|
Button 23
|
Name
|
Button 23
|
Text
|
On
|
||
30
|
Button 24
|
Name
|
Button 24
|
Items
|
Off
|
||
31
|
Button 25
|
Name
|
Button 25
|
Text
|
Log
|
||
32
|
Button 26
|
Name
|
Button 26
|
Text
|
Close
|
||
33
|
Button 27
|
Name
|
Button 27
|
Text
|
%
|
||
34
|
Button 28
|
Name
|
Button 28
|
Text
|
n !
|
||
35
|
TextBox 1
|
Name
|
TextBox 1
|
Text Align
|
Right
|
||
36
|
TextBox 2
|
Name
|
TextBox 2
|
Text Align
|
Left
|
ANALISIS
LISTING
Langkah pertama yang dilakukan adalah menentukan
variabel-variabel dan jenis data-datanya, yaitu sebagai berikut:
PublicClassForm1
Dim Angka, Hasil AsDouble
Dim proses AsString
Dim a, b AsInteger
Const pi AsDouble =
3.14159265358979
Listing
ini digunakan agar pengguna aplikasi dapat menutup aplikasi
PrivateSub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button26.Click
Close()
MsgBox("Thanks
for using the application")
EndSub
Listing ini digunakan
untuk menyalakan kalkulator yaitu dengan mengaktifkan button dengan mengisikan
true, kecuali tombol close.
PrivateSub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button23.Click
Label1.Visible = True
button0.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
Button24.Enabled = True
Button25.Enabled = True
Button26.Enabled = False
Button27.Enabled = True
Button28.Enabled = True
EndSub
Listing
ini digunakan untuk mematikan kalkulator yaitu dengan menonaktifkan button
dengan mengisikan false, yaitu menggunakan properties bagian enabled. Selain
itu, juga agar membuat textbox menjadi kosong semua.
PrivateSub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button24.Click
TextBox1.Text = ""
Label1.Visible = False
TextBox2.Text = ""
button0.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
Button13.Enabled = False
Button14.Enabled = False
Button15.Enabled = False
Button16.Enabled = False
Button17.Enabled = False
Button18.Enabled = False
Button19.Enabled = False
Button20.Enabled = False
Button21.Enabled = False
Button22.Enabled = False
Button23.Enabled = True
Button24.Enabled = False
Button25.Enabled = False
Button26.Enabled = True
Button27.Enabled = False
Button28.Enabled = False
EndSub
Listing
ini digunakan agar dapat menghapus semua angka yang ada.
PrivateSub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button12.Click
TextBox1.Text = ""
TextBox2.Text = ""
proses = ""
Angka = 0
Hasil = 0
EndSub
List berikut digunakan untuk menginput
angka 1. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "1"
TextBox2.Text = "1"
Else
TextBox1.Text = TextBox1.Text &"1"
TextBox2.Text = TextBox2.Text &"1"
EndIf
EndSub
List berikut digunakan untuk menginput
angka 2. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "2"
TextBox2.Text = "2"
Else
TextBox1.Text = TextBox1.Text &"2"
TextBox2.Text = TextBox2.Text &"2"
EndIf
EndSub
List berikut digunakan untuk menginput
angka 3. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "3"
TextBox2.Text = "3"
Else
TextBox1.Text = TextBox1.Text &"3"
TextBox2.Text = TextBox2.Text &"3"
EndIf
EndSub
List
berikut digunakan untuk menginput angka 4. Jika tombol angka dipencet, maka
akan muncul di layar kalkulator.
PrivateSub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "4"
TextBox2.Text = "4"
Else
TextBox1.Text = TextBox1.Text &"4"
TextBox2.Text = TextBox2.Text &"4"
EndIf
EndSub
List
berikut digunakan untuk menginput angka 5. Jika tombol angka dipencet, maka
akan muncul di layar kalkulator.
PrivateSub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "5"
TextBox2.Text = "5"
Else
TextBox1.Text = TextBox1.Text &"5"
TextBox2.Text = TextBox2.Text &"5"
EndIf
EndSub
List berikut digunakan untuk menginput
angka 6. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "6"
TextBox2.Text = "6"
Else
TextBox1.Text = TextBox1.Text &"6"
TextBox2.Text = TextBox2.Text &"6"
EndIf
EndSub
List berikut digunakan untuk menginput
angka 7. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "7"
TextBox2.Text = "7"
Else
TextBox1.Text = TextBox1.Text &"7"
TextBox2.Text = TextBox2.Text &"7"
EndIf
EndSub
List berikut digunakan untuk menginput
angka 8. Jika tombol angka dipencet, maka akan muncul di layar kalkulator.
PrivateSub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "8"
TextBox2.Text = "8"
Else
TextBox1.Text = TextBox1.Text &"8"
TextBox2.Text = TextBox2.Text &"8"
EndIf
EndSub
List
berikut digunakan untuk menginput angka 9. Jika tombol angka dipencet, maka
akan muncul di layar kalkulator.
PrivateSub Button9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button9.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "9"
TextBox2.Text = "9"
Else
TextBox1.Text = TextBox1.Text &"9"
TextBox2.Text = TextBox2.Text &"9"
EndIf
EndSub
List
berikut digunakan untuk menginput angka 0. Jika tombol angka dipencet, maka
akan muncul di layar kalkulator.
PrivateSub button0_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
button0.Click
If TextBox1.Text = "0"Then
TextBox1.Text = "0"
TextBox2.Text = "0"
Else
TextBox1.Text = TextBox1.Text &"0"
TextBox2.Text = TextBox2.Text &"0"
EndIf
EndSub
Berikut
ini adalah listing pada operator penghitungan,yaitu berupa +,-,X,
dengan menggunakan perintah select case dan
call, yaitu menggunakan prinsip pemanggilan operator matematis itu sendiri jika
dibutuhkan sehingga dapat digunakan secara pararel.
dengan menggunakan perintah select case dan
call, yaitu menggunakan prinsip pemanggilan operator matematis itu sendiri jika
dibutuhkan sehingga dapat digunakan secara pararel.
Dengan
listing case dan call, maka dapat memunculkan operator penghitungan setiap saat
dipanggil atau dibutuhkan, yaitu memunculkan sin
PrivateSub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button18.Click
TextBox2.Text = "Sin"& TextBox2.Text
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call Sin()
EndIf
proses = "Sin"
TextBox1.Text = ""
EndSub
Listing
ini membuat private sin yang berisi rumus agar rumus sin dapat berfungsi
PrivateSub Sin()
Angka = Val(TextBox1.Text)
Angka = Math.Sin(Angka
* (pi / 180))
proses = "Sin"
TextBox1.Text = ""
EndSub
Dengan
listing case dan call, maka dapat memunculkan operator penghitungan setiap saat
dipanggil atau dibutuhkan, yaitu memunculkan dan memanggil cos
PrivateSub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button17.Click
TextBox2.Text = "Cos"& TextBox2.Text
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call Cos()
EndIf
proses = "Cos"
TextBox1.Text = ""
EndSub
Listing ini membuat
private cos yang berisi rumus agar rumus Cos dapat berfungsi
PrivateSub Cos()
Angka = Val(TextBox1.Text)
Angka = Math.Cos(Angka
* (pi / 180))
proses = "Cos"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan dan memanggil Tan
PrivateSub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button19.Click
TextBox2.Text = "Tan"& TextBox2.Text
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call Tan()
EndIf
proses = "Tan"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus sin dapat berfungsi
PrivateSub Tan()
Angka = Val(TextBox1.Text)
Angka = Math.Tan(Angka
* (pi / 180))
proses = "Tan"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memanggil operator pangkat
PrivateSub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button20.Click
TextBox2.Text = TextBox2.Text &"^"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call pangkat()
EndIf
proses = "^"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus pangkat dapat berfungsi
PrivateSub pangkat()
If Angka = "0"Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka ^ Val(TextBox1.Text)
EndIf
proses = "^"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan akar
PrivateSub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button21.Click
TextBox2.Text = "√"& TextBox2.Text
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call akar()
EndIf
proses = "√"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus akar dapat berfungsi
PrivateSub akar()
Angka = Val(TextBox1.Text)
Angka = Angka ^ 0.5
proses = "√"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
dengan memanggil dan memunculkan persen
PrivateSub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button27.Click
TextBox2.Text = TextBox2.Text &"%"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call persen()
EndIf
proses = "%"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus persen dapat berfungsi
PrivateSub persen()
If Angka = 0 Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka / 100
EndIf
proses = "%"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memanggil dan menampilkan faktorial
PrivateSub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button28.Click
TextBox2.Text = TextBox2.Text &"!"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call faktorial()
EndIf
proses = "N!"
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus faktorial dapat berfungsi
PrivateSub faktorial()
a = 1
For i = 1 To
Val(TextBox1.Text)
a = a * i
Next
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan tambah
PrivateSub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button13.Click
TextBox2.Text = TextBox2.Text &"+"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^1/2″"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call Tambah()
EndIf
proses = "+"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus faktorial dapat berfungsi
PrivateSub Tambah()
If Angka = "0"Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka + Val(TextBox1.Text)
EndIf
proses = "+"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan operator kurang
PrivateSub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button14.Click
TextBox2.Text = TextBox2.Text &"-"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call kurang()
EndIf
proses = "-"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus kurang dapat berfungsi
PrivateSub kurang()
If Angka = "0"Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka - Val(TextBox1.Text)
EndIf
proses = "-"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan operator kali
PrivateSub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button15.Click
TextBox2.Text = TextBox2.Text &"x"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call kali()
EndIf
proses = "x"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus perkalian dapat berfungsi
PrivateSub kali()
If Angka = "0"Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka * Val(TextBox1.Text)
EndIf
proses = "x"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan operator bagi
PrivateSub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button16.Click
TextBox2.Text = TextBox2.Text &"÷"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call bagi()
EndIf
proses = "÷"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus pembagian dapat berfungsi
PrivateSub bagi()
If Angka = "0"Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka / Val(TextBox1.Text)
EndIf
proses = "÷"
TextBox1.Text = ""
EndSub
Dengan listing case dan call, maka dapat
memunculkan operator penghitungan setiap saat dipanggil atau dibutuhkan, yaitu
memunculkan log
PrivateSub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button25.Click
TextBox2.Text = TextBox2.Text &"log"
If proses <>""Then
SelectCase proses
Case"+"
Call Tambah()
Case"-"
Call kurang()
Case"x"
Call kali()
Case"÷"
Call bagi()
Case"^"
Call pangkat()
Case"log"
Call Log()
Case"^0.5"
Call akar()
Case"N!"
Call faktorial()
Case"%"
Call persen()
Case"Sin"
Call Sin()
Case"Cos"
Call Cos()
Case"Tan"
Call Tan()
EndSelect
Else
Call Log()
EndIf
proses = "log10"
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus log dapat berfungsi
PrivateSub Log()
Angka = Val(TextBox1.Text)
Angka = Math.Log10(Angka)
proses = "log10"
TextBox1.Text = ""
EndSub
Listing ini membuat
private tan yang berisi rumus agar rumus log dapat berfungsi
PrivateSub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button10.Click
TextBox1.Text = TextBox1.Text &"."
TextBox2.Text = TextBox2.Text &"."
EndSub
Listing berikut digunakan agar dapat
menghapus angka yang diinput dalam kalkulator.
PrivateSub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button22.Click
If TextBox1.Text.Length <> 0 Then
TextBox2.Text =
TextBox2.Text.Remove(TextBox2.Text.Length - 1, 1)
TextBox1.Text =
TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
ElseIf TextBox2.Text.Length <> 0 Then
TextBox2.Text =
TextBox2.Text.Remove(TextBox2.Text.Length - 1, 1)
EndIf
EndSub
Listing di atas
digunakan untuk penampilan pertama pada form ketika program dijalankan. Semua
tombol dimatikan dengan properties enabled kecuali tombol on dan tombol close.
PrivateSub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) HandlesMyBase.Load
TextBox1.Enabled = True
TextBox2.Enabled = True
button0.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
Button13.Enabled = False
Button14.Enabled = False
Button15.Enabled = False
Button16.Enabled = False
Button17.Enabled = False
Button18.Enabled = False
Button19.Enabled = False
Button20.Enabled = False
Button21.Enabled = False
Button22.Enabled = False
Button23.Enabled = True
Button24.Enabled = False
Button25.Enabled = False
Button27.Enabled = False
Button28.Enabled = False
EndSub
Listing
di bawah ini digunakan dalam mencari hasi operator penghitungan matematis yang
dilakukan dari semua operator penghitungan, yaitu + , -, X,.
.
PrivateSub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button11.Click
If proses = "+"Then
Hasil = Angka + Val(TextBox2.Text)
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "-"Then
Hasil = Angka - Val(TextBox1.Text)
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "x"Then
Hasil = Angka * Val(TextBox1.Text)
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "÷"Then
Hasil = Angka / Val(TextBox1.Text)
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "^"Then
Hasil = Angka ^ Val(TextBox1.Text)
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "%"Then
Hasil = Angka / 100
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "√"Then
Hasil = Val(TextBox1.Text) ^ 0.5
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "Cos"Then
Hasil = Math.Cos(Val(TextBox1.Text)
* (pi / 180))
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "Sin"Then
Hasil = Math.Sin(Val(TextBox1.Text)
* (pi / 180))
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "Tan"Then
Hasil = Math.Tan(Val(TextBox1.Text)
* (pi / 180))
TextBox1.Text = Hasil
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "N!"Then
TextBox1.Text = Str(a)
TextBox2.Text = TextBox2.Text &" "&"="
ElseIf proses = "log10"Then
Hasil = Math.Log10(Val(TextBox1.Text))
TextBox2.Text = TextBox2.Text &" "&"="
EndIf
proses = ""
Angka = 0
EndSub
Listing program di bawah ini digunakan
agar textbox 2 tidak bisa diisi oleh data inputan secara ketikan, melainkan melalui
data dari mengeklik input data.
PrivateSub TextBox2_KeyPress(ByVal sender AsObject,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
e.Handled = True
EndSub
Listing
program di bawah ini digunakan agar textbox1 tidak bisa diisi oleh data inputan
secara ketikan, melainkan melalui data dari mengeklik input data.
PrivateSub TextBox1_KeyPress(ByVal sender AsObject,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = True
EndSub
EndClass
Untuk program dapat didownload di sini
Postingan
0 komentar:
Posting Komentar