Assallamuallaikum Wr.Wb
Selamat pagi Sobat setia saya , dalam kesempatan kali ini
saya akan membagikan tentang , Gimana sih membuat kalkulator di visual basic ,
berikut ulasanaya;
Sebelum ke tutorialnya , saya akan jelaskan apa sih itu Bahasa visual basic 2010 ? dan ada apa aja sih di dalam visual basic?
Jadi visual basic merupakan sebuah bahasa pemrograman yang
menawarkan Integrated Development Envioronment (IDE) visual untuk membuat
program perangkat lunak atau aplikasi berbasis sistem operasi microsoft windows
yang berbasis GUI (Grapical User Interface).
Kemampuan Visual Basic (VB)
Beberapa kemampuan atau manfaat dari
Visual Basic 2010, diantaranya:
1. Untuk membuat program aplikasi berbasi
Windows.
2. Untuk membuat ActiveX, Aplikasi Internet dan lain sebagainya.
3. Menguji program (debungging) dan menghasilkan program akhir berakhiran EXE
yang bersifat executable atau dapat langsung dijalankan.
2. Control Menu
Control menu adalah menu yang digunakan
terutama untuk memanipulasi jendela microsoft visual basic. Dari menu kita bisa
mengubah ukuran, memindahkan, atau menutup jendela microsoft visual basic atau
jendela windows lainnya. Control menu tersebut terdiri dari Restore, Move,
Size, Minimize, Maximize, dan Close. Restore berfungsi untuk mengatur ukuran
jendela visual basic, Move untuk memindahkan jendela pada visual basic, Size
untuk merubah ukuran pada visual basic, Minimize untuk mengubah ukuran jendela
visual basic ke ukuran minimal, Maximize untuk memaksimalkan ukuran jendela
visual basic sehingga tanpilannya memenuhi layar
3. Menu
Menu adalah batang menu yang terletak di
bawah title bar yang berfungsi untuk menampilkan pilihan menu / perintah untuk
mengoperasikan program visual basic
4. Toolbar
Toolbar merupakan batang yang berisi
kumpulan menu yang terletak dibagian bawah menu berfungsi untuk menjalankan
suatu perintah pada kondisi default. Cara mengunakannya klik kanan pada toolbar
dan pilih salah satu menu yang ingin digunakan
5. Form Window
Form window atau jendela window adalah
daerah kerja utama, dimana kita dapat membuat program-program aplikasi visual
basic. Pada form ini kita merancang teks, gambar, tombol-tombol perintah,
scrollbar, dan sebagainya. Jendela form ini pada awalnya kelihatan kecil,
tetapi ukurannya bisa diubah-ubah sesuai dengan kebutuhan aplikasi yang kita
buat.
6. Toolbox
Toolbox adalah sebuah kotak piranti yang
mengandung semua objek atau control yang dibutuhkan untuk membuat sebuah
program aplikasi.
7. Project Explorer
Project Explorer berfungsi berbagai
saran pengakses bagian-bagian pembentuk project. Pada windows ini terdapat tiga
tombol pengaktif untuk Windows Code, Windows Object dan Toggle Folder.
Juga terdapat diagram yang menampilkan susunan folder penyimpanan file-file
project
8. Jendela Properties
Jendela properties adalah jendela yang
mengandung semua informasi mengenai objek yang terdapat pada aplikasi microsoft
visual basic. Properti adalah sifat sebuah objek, misalnya seperti namanya,
warna, ukuran, posisi, dan sebagainya
9. Form Layout Window
Form layout window adalah jendela yang
menggambarkan posisi dari form yang ditampilkan pada layar monitor. Posisi form
pada form layout window inilah yang merupakan petunjuk dimana aplikasi yang
dibuat akan ditampilkan
10. Jendela Code
Jendela code adalah salah satu jendela
yang penting di dalam microsoft visual basic 2010. Jendela ini berisi kode-kode
program yang merupakan instruksi-instruksi untuk aplikasi visual basic yang
dibuat. Setiap objek pada visual basic 2010 dapat ditambahkan dengan kode-kode
program untuk melakukan tugas-tugas tertentu seperti menutup aplikasi,
membatalkan perintah, dan sebagainya.
Nah , itu sedikit pengetahuan tentang
Visual Basic .
Kembali di awal nih guys , dalam
kesempatan ini saya akan membuat kalkulator menggunakan bahasa visual basic
Alat dan bahan ;
1. Aplikasi Microsoft visual studio2010
Prosedur Kerja
1. Buka aplikasi Microsoft visual
studio2010 – setelah terbuka akan tampil di layar komputer anda seperti gambar
berikut
2. Kemudian klik New Projek pada kiri layar
anda – kemudian klik Windows form application lalu klik OK , akan tampil
seperti gambar berikut;
3. Kemudian komponen untuk membuat kalkulator sederhana ada pada toolbos
yang berada di samping kiri layar komputer anda.
4. Setelah kalian klik maka akan muncul
dimana semua komponen yang akan anda perlukan untuk membuat sebuah kalkulator
sederhana , komponen yang di gunakan antara lain; TextBox dan Button. Susun
komponen sebagai gambar berikut;
5. Kemudian atur text setiap button menjadi
kalkulator pada umumnya , untuk mengganti text bisa di lakukan di bagian
properties , kemudian buat seperti gambar berikut;
6. Setelah Tata letak komponen sudah
selesai , Berikut untuk pengkodingan agar aplikasi yang kalian buat bisa
berjalan dengan semestinya . Klik form1.vb , kemudian koding seperti berikut;
2. Public Class
Form1
3.
4. Dim
Firstnum As Decimal
5. Dim
Secondnum As Decimal
6. Dim
Operation As Integer
7. Dim
Operator_Selector As Boolean
= False
8.
9.
10. Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
11. If
TextBox1.Text <> "0" Then
12. TextBox1.Text += "2"
13. Else
14. TextBox1.Text = "2"
15. End If
16.
17.
18. End Sub
19.
20. Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
21.
22. End Sub
23.
24. Private Sub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
25. If
TextBox1.Text <> "0" Then
26. TextBox1.Text += "1"
27. Else
28. TextBox1.Text = "1"
29. End If
30. End Sub
31.
32. Private Sub Button10_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button10.Click
33. If
TextBox1.Text <> "0" Then
34. TextBox1.Text += "0"
35. Else
36. TextBox1.Text = "0"
37. End If
38.
39. End Sub
40.
41. Private Sub Button9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button9.Click
42. If
TextBox1.Text <> "0" Then
43. TextBox1.Text += "3"
44. Else
45. TextBox1.Text = "3"
46. End If
47.
48. End Sub
49.
50. Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
51. If
TextBox1.Text <> "0" Then
52. TextBox1.Text += "4"
53. Else
54. TextBox1.Text = "4"
55. End If
56.
57. End Sub
58.
59. Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
60. If
TextBox1.Text <> "0" Then
61. TextBox1.Text += "5"
62. Else
63. TextBox1.Text = "5"
64. End If
65.
66. End Sub
67.
68. Private Sub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
69. If
TextBox1.Text <> "0" Then
70. TextBox1.Text += "6"
71. Else
72. TextBox1.Text = "6"
73. End If
74.
75. End Sub
76.
77. Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
78. If
TextBox1.Text <> "0" Then
79. TextBox1.Text += "7"
80. Else
81.
82. TextBox1.Text = "7"
83. End If
84.
85. End Sub
86.
87. Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
88. If
TextBox1.Text <> "0" Then
89. TextBox1.Text += "8"
90. Else
91. TextBox1.Text = "8"
92. End If
93.
94. End Sub
95.
96. Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
97. If
TextBox1.Text <> "0" Then
98. TextBox1.Text += "9"
99. Else
100.
TextBox1.Text = "9"
101.
End If
102.
103.
End Sub
104.
105.
Private Sub Button11_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button11.Click
106.
If Not (TextBox1.Text.Contains("."))
Then
107.
TextBox1.Text += "."
108.
End If
109.
110.
End Sub
111.
112.
Private Sub Button12_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button12.Click
113.
Firstnum = TextBox1.Text
114.
TextBox1.Text = "0"
115.
Operator_Selector = True
116.
Operation = 1 '
= +
117.
118.
End Sub
119.
120.
Private Sub Button13_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button13.Click
121.
Firstnum = TextBox1.Text
122.
TextBox1.Text = "0"
123.
Operator_Selector = True
124.
Operation = 2 '
= -
125.
126.
End Sub
127.
128.
Private Sub Button14_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button14.Click
129.
Firstnum = TextBox1.Text
130.
TextBox1.Text = "0"
131.
Operator_Selector = True
132.
Operation = 3 '
= *
133.
134.
End Sub
135.
136.
Private Sub Button18_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button18.Click
137.
Firstnum = TextBox1.Text
138.
TextBox1.Text = "0"
139.
Operator_Selector = True
140.
Operation = 4 '
= /
141.
142.
End Sub
143.
144.
Private Sub Button15_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button15.Click
145.
If
Operator_Selector = True Then
146.
Secondnum = TextBox1.Text
147.
If
Operation = 1 Then
148.
TextBox1.Text = Firstnum +
Secondnum
149.
ElseIf
Operation = 2 Then
150.
TextBox1.Text = Firstnum -
Secondnum
151.
ElseIf
Operation = 3 Then
152.
TextBox1.Text = Firstnum *
Secondnum
153.
Else
154.
If
Secondnum = 0 Then
155.
TextBox1.Text = "Error!"
156.
Else
157.
TextBox1.Text = Firstnum /
Secondnum
158.
End
If
159.
Operator_Selector = False
160.
End
If
161.
End If
162.
163.
End Sub
164.
165.
Private Sub Button17_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button17.Click
166.
TextBox1.Text = "0"
167.
End Sub
168.
End Class
169.
7. Setelah
pengkodingan selesai , klik Run untuk menjalan kan aplikasi yang anda buat.
Jika terjadi eror maka teliti lagi koding yang kalian buat .
Selamat Mencoba , Semoga Berhasil