Tutorial
Program Aplikasi Kalkulator
Visual Basic merupakan bahasa
pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Berikut
adalah contoh langkah-langkah penggunaan visual basic 2010 dalam membuat
program kalkulator.
Langkah-Langkah:
1. Membuka
Aplikasi Visual Basic 2010
2. Klik Windows Form Application untuk
memunculkan tampilan seperti berikut
3. Klik menu bar-view-other
windows-tollbox untuk memunculkan toolbox yang akan digunakan
Berikut adalah komponen ToolBox yang digunakan dalam Form kalkulator ini
Kalkulator
No.
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Textbox
1
|
Name
text
|
Textbox
1
|
2.
|
Textbox
2
|
Name
text
|
Textbox
2
|
3.
|
Button
1
|
Name
text
|
Button
1
7
|
4.
|
Button
2
|
Name
text
|
Button
2
8
|
5.
|
Button
3
|
Name
text
|
Button
3
9
|
6.
|
Button
4
|
Name
text
|
Button
4
4
|
7.
|
Button
5
|
Name
text
|
Button
5
5
|
8.
|
Button
6
|
Name
text
|
Button
6
6
|
9.
|
Button
7
|
Name
text
|
Button
7
1
|
10.
|
Button
8
|
Name
text
|
Button
8
2
|
11.
|
Button
9
|
Name
text
|
Button
9
3
|
12.
|
Button
10
|
Name
text
|
Button
10
.
|
13.
|
Button
11
|
Name
text
|
Button
11
0
|
14.
|
Button
12
|
Name
text
|
Button
12
+
|
15.
|
Button
13
|
Name
text
|
Button
13
-
|
16.
|
Button
14
|
Name
text
|
Button
14
X
|
17.
|
Button
15
|
Name
text
|
Button
15
:
|
18.
|
Button
16
|
Name
text
|
Button
16
√
|
19.
|
Button
17
|
Name
text
|
Button
17
Sin
|
20.
|
Button
18
|
Name
text
|
Button
18
Tan
|
21.
|
Button
19
|
Name
text
|
Button
19
Cos
|
22.
|
Button
20
|
Name
text
|
Button
20
=
|
23.
|
Button
21
|
Name
text
|
Button
21
Del
|
24.
|
Button
22
|
Name
text
|
Button
22
Log
X
|
25.
|
Button
23
|
Name
text
|
Button
23
n!
|
26.
|
Button
24
|
Name
text
|
Button 24
|
27.
|
Button
25
|
Name
text
|
Button
25
Mod
|
28.
|
Button
26
|
Name
text
|
Button
26
C
|
29.
|
Button
27
|
Name
text
|
Button
27
^
|
30.
|
Button
28
|
Name
text
|
Button
28
|
31.
|
Button
29
|
Name
text
|
Button
29
Off
|
32.
|
Button
30
|
Name
text
|
Button
30
On
|
Agar program berjalan, buatlah listing sebagai berikut:
1. Double click pada design form
2. Menentukan
deklarasi variabel pada Form1 dengan listing
Public Class
form1
Dim Angka, Hasil As Double
Dim proses As String
Dim a, b As Integer
Dim tombolON As Boolean
Const pi As Double =
3.14159265358979
3. Membuat TextBox1 dan TextBox2 sebagai tempat memunculkan
angka dan perhitungan
Private Sub
TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
End
Sub
Private Sub
TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox2.TextChanged
End
Sub
Sebagai tambahan agar setiap TextBox hanya dapat
diinput dengan angka, tambahkan listing berikut pada TextBox1 dan TextBox2
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress
If Asc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57 Then
e.Handled = False
ElseIf Asc(e.KeyChar) = 43 Or
Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or
Asc(e.KeyChar) = 46 Then
e.Handled = False
ElseIf e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End
Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox2.KeyPress
If Asc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57 Then
e.Handled = False
ElseIf Asc(e.KeyChar) = 43 Or
Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or
Asc(e.KeyChar) = 46 Then
e.Handled = False
ElseIf e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End
Sub
4. Membuat tombol angka 0-9
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "1"
TextBox2.Text = "1"
Else
TextBox1.Text = TextBox1.Text &
"1"
TextBox2.Text = TextBox2.Text &
"1"
End If
End Sub
Private Sub Button8_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button8.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "2"
TextBox2.Text = "2"
Else
TextBox1.Text = TextBox1.Text &
"2"
TextBox2.Text = TextBox2.Text &
"2"
End If
End Sub
Private Sub Button9_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button9.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "3"
TextBox2.Text = "3"
Else
TextBox1.Text = TextBox1.Text &
"3"
TextBox2.Text = TextBox2.Text &
"3"
End If
End Sub
Private Sub 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"
End If
End Sub
Private Sub 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"
End If
End Sub
Private Sub 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"
End If
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "7"
TextBox2.Text = "7"
Else
TextBox1.Text = TextBox1.Text &
"7"
TextBox2.Text = TextBox2.Text &
"7"
End If
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "8"
TextBox2.Text = "8"
Else
TextBox1.Text = TextBox1.Text &
"8"
TextBox2.Text = TextBox2.Text &
"8"
End If
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button3.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "9"
TextBox2.Text = "9"
Else
TextBox1.Text = TextBox1.Text &
"9"
TextBox2.Text = TextBox2.Text &
"9"
End If
End Sub
Private Sub Button10_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button10.Click
TextBox1.Text = TextBox1.Text & "."
TextBox2.Text = TextBox2.Text & "."
End Sub
Private Sub Button11_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button11.Click
If
TextBox1.Text = "0" Then
TextBox1.Text = "0"
TextBox2.Text = "0"
Else
TextBox1.Text = TextBox1.Text &
"0"
TextBox2.Text = TextBox2.Text &
"0"
End If
5. Membuat tombol (.)
sebagai koma dalam perhitungan
Private Sub Button10_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button10.Click
TextBox1.Text =
TextBox1.Text & "."
TextBox2.Text =
TextBox2.Text & "."
End Sub
6. Membuat tombol operator
aritmatika seperti pertambahan (+), pengurangan (-), perkalian (*), pembagian (/), mod (mod)
Private Sub Button12_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button12.Click
TextBox2.Text =
TextBox2.Text & "+"
If proses <> ""
Then
Select Case 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
"Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call Tambah()
End If
proses = "+"
TextBox1.Text = ""
End
Sub
Private
Sub Tambah()
If Angka = "0" Then
Angka =
Val(TextBox1.Text)
Else
Angka = Angka +
Val(TextBox1.Text)
End If
proses = "+"
TextBox1.Text = ""
End
Sub
Private Sub Button13_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button13.Click
TextBox2.Text =
TextBox2.Text & "-"
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call kurang()
End If
proses = "-"
TextBox1.Text = ""
End
Sub
Private Sub
kurang()
If
Angka = "0" Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka - Val(TextBox1.Text)
End If
proses = "-"
TextBox1.Text = ""
End Sub
Private Sub
Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button14.Click
TextBox2.Text = TextBox2.Text & "x"
If
proses <> "" Then
Select
Case 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
"Sin"
Call
Sin()
Case
"Cos"
Call
Cos()
Case
"Tan"
Call
Tan()
Case
"mod"
Call
m()
End
Select
Else
Call
kali()
End If
proses = "x"
TextBox1.Text = ""
End Sub
Private Sub
kali()
If
Angka = "0" Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka * Val(TextBox1.Text)
End If
proses = "x"
TextBox1.Text = ""
End Sub
Private Sub
Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button15.Click
TextBox2.Text = TextBox2.Text & "/"
If
proses <> "" Then
Select
Case 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
"Sin"
Call
Sin()
Case
"Cos"
Call
Cos()
Case
"Tan"
Call
Tan()
Case
"mod"
Call
m()
End
Select
Else
Call
bagi()
End If
proses = "/"
TextBox1.Text = ""
End Sub
Private Sub
bagi()
If
Angka = "0" Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka / Val(TextBox1.Text)
End If
proses = "/"
TextBox1.Text = ""
End Sub
Private Sub
Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button25.Click
TextBox2.Text = TextBox2.Text & "mod"
If
proses <> "" Then
Select
Case 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
"Sin"
Call
Sin()
Case
"Cos"
Call
Cos()
Case
"Tan"
Call
Tan()
Case
"mod"
Call
m()
End
Select
Else
Call
m()
End If
End Sub
Private Sub
m()
If
Angka = "0" Then
Angka = Val(TextBox1.Text)
Else
Angka = Angka Mod Val(TextBox1.Text)
End If
proses = "mod"
TextBox1.Text = ""
End Sub
7. Membuat tombol akar (√)
Private Sub Button16_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button16.Click
TextBox2.Text = "√" & TextBox2.Text
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
End Select
Else
Call akar()
End If
proses = "√"
TextBox1.Text = ""
End
Sub
Private
Sub akar()
Angka = Val(TextBox1.Text)
Angka = Angka ^ 0.5
proses = "√"
TextBox1.Text = ""
End
Sub
8. Membuat tombol pangkat (^)
Private Sub Button27_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button27.Click
TextBox2.Text =
TextBox2.Text & "^"
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
End Select
Else
Call pangkat()
End If
proses = "^"
TextBox1.Text = ""
End
Sub
Private
Sub pangkat()
If Angka = "0" Then
Angka =
Val(TextBox1.Text)
Else
Angka = Angka ^ Val(TextBox1.Text)
End If
proses = "^"
TextBox1.Text = ""
End
Sub
9. Membuat tombol log (logx)
Private Sub Button22_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button22.Click
TextBox2.Text =
TextBox2.Text & "log"
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
End Select
Else
Call Log()
End If
proses = "log10"
End
Sub
Private
Sub Log()
Angka =
Val(TextBox1.Text)
Angka = Math.Log10(Angka)
proses = "log10"
TextBox1.Text = ""
End
Sub
10.Membuat
tombol n faktorial (n!)
Private Sub Button23_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button23.Click
TextBox2.Text =
TextBox2.Text & "!"
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call faktorial()
End If
proses = "N!"
End
Sub
Private
Sub faktorial()
a = 1
For i = 1 To Val(TextBox1.Text)
a = a * i
Next
End
Sub
11.Membuat
tombol Sin, Cos, dan Tan
Private Sub Button17_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button17.Click
TextBox2.Text = "Sin" & TextBox2.Text
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call Sin()
End If
proses = "Sin"
TextBox1.Text = ""
End
Sub
Private
Sub Sin()
Angka =
Val(TextBox1.Text)
Angka = Math.Sin(Angka * (pi / 180))
proses = "Sin"
TextBox1.Text = ""
End
Sub
Private Sub Button19_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button19.Click
TextBox2.Text = "Cos" & TextBox2.Text
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call Cos()
End If
proses = "Cos"
End
Sub
Private
Sub Cos()
Angka =
Val(TextBox1.Text)
Angka = Math.Cos(Angka * (pi / 180))
proses = "Cos"
TextBox1.Text = ""
End
Sub
Private Sub Button18_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button18.Click
TextBox2.Text =
TextBox2.Text & "Tan"
If proses <> ""
Then
Select Case 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 "Sin"
Call Sin()
Case "Cos"
Call Cos()
Case "Tan"
Call Tan()
Case "mod"
Call m()
End Select
Else
Call Tan()
End If
proses = "Tan"
TextBox1.Text = ""
End
Sub
Private
Sub Tan()
Angka =
Val(TextBox1.Text)
Angka = Math.Tan(Angka * (pi / 180))
proses = "Tan"
TextBox1.Text = ""
End
Sub
12.Membuat
tombol (C) untuk menghapus dan memulai perhitungan kembali
Private Sub Button26_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button26.Click
TextBox2.Text = ""
TextBox1.Text = ""
End Sub
13.Membuat
tombol (del) untuk menghapus angka atau perhitungan yang telah diinput
Private Sub Button21_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button21.Click
If TextBox1.Text.Length > 0 Then
TextBox1.Text =
TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
End If
If TextBox2.Text.Length > 0 Then
TextBox2.Text =
TextBox2.Text.Remove(TextBox2.Text.Length - 1, 1)
End If
End Sub
14.Membuat
tombol sama dengan (=) sebagai hasil perhitungan
Private Sub Button20_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button20.Click
If proses = "+" Then
Hasil = Angka +
Val(TextBox1.Text)
TextBox1.Text =
Hasil
ElseIf proses = "-" Then
Hasil = Angka -
Val(TextBox1.Text)
TextBox1.Text =
Hasil
ElseIf proses = "x" Then
Hasil = Angka *
Val(TextBox1.Text)
TextBox1.Text =
Hasil
ElseIf proses = "/" Then
Hasil = Angka /
Val(TextBox1.Text)
TextBox1.Text =
Hasil
ElseIf proses = "^" Then
Hasil = Angka ^ Val(TextBox1.Text)
TextBox1.Text =
Hasil
ElseIf proses = "√" Then
Hasil =
Val(TextBox1.Text) ^ 0.5
TextBox1.Text =
Hasil
ElseIf proses = "Cos"
Then
Hasil = Math.Cos(Val(TextBox1.Text) * (pi / 180))
TextBox1.Text =
Hasil
ElseIf proses = "Sin"
Then
Hasil = Math.Sin(Val(TextBox1.Text) * (pi / 180))
TextBox1.Text =
Hasil
ElseIf proses = "Tan"
Then
Hasil = Math.Tan(Val(TextBox1.Text) * (pi / 180))
TextBox1.Text =
Hasil
ElseIf proses = "N!" Then
TextBox1.Text =
Str(a)
ElseIf proses = "log10"
Then
Hasil = Math.Log10(Val(TextBox1.Text))
TextBox1.Text =
Hasil
ElseIf proses = "mod"
Then
TextBox1.Text =
Angka Mod Angka
End If
proses = ""
Angka = 0
End
Sub
15.Menjalankan fungsi tombol ON dan OFF
Private Sub Button30_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button30.Click
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
Button25.Enabled = True
Button27.Enabled = True
Button23.Enabled = True
Button26.Enabled = True
Button29.Enabled = True
End
Sub
Private
Sub Button29_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button29.Click
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 = False
Button25.Enabled = False
Button27.Enabled = False
Button26.Enabled = False
Button29.Enabled = False
TextBox2.Text = ""
TextBox1.Text = ""
End
Sub
Konsep
Program Aplikasi Kalkulator
Deskripsi
Program
aplikasi kalkulator ini dibuat dengan visual basic 2010 yang didalamnya
terdapat bermacam-macam operator aritmatika seperti, operator penjumlahan (+),
pengurangan (-), perkalian (*), pembagian (/), dan mod (mod). Juga terdapat
fitur-fitur fungsi seperti akar (√), log (logx), pangkat (^), n faktorial (n!),
dan fungsi trigonometri Sin, Cos, dan Tan.
Tujuan
Tujuan
dibuatnya program aplikasi kalkulator ini adalah sebagai latihan dan pengajaran
untuk membuat kalkulator sederhana dari software visual basic 2010.
Manfaat
Manfaat
dari pembuatan kalkulator sederhana ini tentu sebagaimana dengan kalkulator
pada umumnya adalah untuk memudahkan perhitungan. Jadi, pengguna tidak perlu
menghitung secara manual.
Sasaran
user
Kalkulator
ini dapat digunakan oleh semua pelajar dari berbagai tingkat.
0 komentar:
Posting Komentar