CARA MEMBUAT KALKULATOR
1.buka vb.net,lalu buat program baru dengan cara KLIK - NEW-PROJECT
Maka tampilan awal akan seperti gambar dibawah ini:
2. Pada jendela tampilan diatas pilih Windows Form Application,dan
pada Nama,ganti dengan nama project yang kita inginkan. pada Location pilih
folder untuk menyimpan project lalu KLIK OK.maka akan tampil seprti gmbr
dibawah ini.
Tool yang digunakan:
· 6 Label
· 3 Textbox
· 7 Button
Label 1 ubah properties text menjadi nilai 1
Label 2 ubah properties text menjadi nilai 2
Label 3 ubah properties text menjadi hasil
Textbox text=(kosongkan)
Button1 ubah properties text menjadi
+
Button2 ubah properties text menjadi
-
Button3 ubah properties text menjadi
x
Button4 ubah properties text menjadi
:
Button5 ubah properties text menjadi
^
Button6 ubah properties text menjadi bersihkan
Button7 ubah properties text menjadi
keluar
3. Masukan tool2 diatas (ubah nama textnya)dan buat menjadi seperti
gambar di bawah.(untuk Letak dapat diatur seperti yang kita inginkan)
3. Setelah membuat desain,selanjutnya mulai membuat script kodenya.
-Double Klik pada button ( +) maka form baru akan tampil.lalu masukan
kode script dibawah ini
Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button1.Click
TextBox3.Text =
Val(TextBox1.Text) + Val(TextBox2.Text)
End sub
-Double Klik pada button ( -) maka form baru akan tampil.lalu masukan
kode script dibawah ini
Private Sub Button2_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button2.Click
TextBox3.Text =
Val(TextBox1.Text) - Val(TextBox2.Text)
End sub
-lakukan seperti diatas pada Button ( X).
Private Sub Button3_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button3.Click
TextBox3.Text =
Val(TextBox1.Text) * Val(TextBox2.Text)
End sub
-lakukan seperti diatas pada Button ( : ).
Private Sub Button4_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button4.Click
TextBox3.Text =
Val(TextBox1.Text) / Val(TextBox2.Text)
End sub
-lakukan seperti diatas pada Button ( ^ ).
Private Sub Button5_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button5.Click
TextBox3.Text =
Val(TextBox1.Text) ^ Val(TextBox2.Text)
-lakukan seperti diatas pada Button7 ( bersihkan ).
Private Sub Button6_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button6.Click
TextBox1.Text=
""
TextBox2.Text
=""
TextBox3.Text
=""
End sub
-lakukan seperti diatas pada Button ( keluar ).
Private Sub Button7_Click( ByVal sender As System. Object , ByVal e As
System. EventArgs ) Handles Button7.Click
If
MsgBox("Apakah anda ingin keluar ?", vbYesNo + vbQuestion +
vbDefaultButton2, "Konfirmasi exit") = vbYes Then Me.Close()
End sub
4. Setelah selesai lalu di RUN
atau tekan F5 pada keyboard.
Bila nilai pertama dan nilai kedua telah diisi klik tombol yang kita inginkan,maka
hasilnya dapat dilihat pada textbox
Hasilnya seperti gambar dibawah
ini.
