Tutorial Membuat Kalkulator Sederhana - Bahasa Visual Basic 2010

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

Author : Dodywidjanarko

Share this

Related Posts