Pertama bukalah program vb.net di PC kalian
Lalu klik File - New Project
Toolbox yang diperlukan =
1.Label1 = ubah menjadi = Nilai Pertama
2.label2 = ubah menjadi = Nilai Kedua
3.Label3 = ubah menjadi = Hasil
4.Textbox1 = kosongkan
5.Textbox2 = kosongkan
6.Textbox3 = kosongkan
7.Button1 = ubah menjadi = +
8.Button2 = ubah menjadi = -
9.Button3 = ubah menjadi = x
10.Button4 = ubah menjadi = /
11.Button5 = ubah menjadi = X^y
12.Button6 = ubah menjadi = Clear
Kreasikan tata letak yang kamu inginkan pada form, gambar diatas sebagai contohnya
Jika selesai
Klik pada Button1
If nilai1.Text = "" Or nilai2.Text = "" Then
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) + Val(nilai2.Text)
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) + Val(nilai2.Text)
Klik pada Button2
If nilai1.Text = "" Or nilai2.Text = "" Then
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) - Val(nilai2.Text)
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) - Val(nilai2.Text)
Klik pada Button3
If nilai1.Text = "" Or nilai2.Text = "" Then
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) * Val(nilai2.Text)
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) * Val(nilai2.Text)
Klik pada Button4
If nilai1.Text = "" Or nilai2.Text = "" Then
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) / Val(nilai2.Text)
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) / Val(nilai2.Text)
Klik pada Button5
If nilai1.Text = "" Or nilai2.Text = "" Then
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) ^ Val(nilai2.Text)
MsgBox("Maaf, nilai belum diinput")
Else
hasil.Text = Val(nilai1.Text) ^ Val(nilai2.Text)
Klik pada Button6
nilai1.Text = ""
nilai2.Text = ""
nilai2.Text = ""
hasil.Text = ""
Contohnya lihat pada gambar berikut :
Tentu Anda masih bisa mengembangkan nya jadi lebih bagus lagi..
Tidak ada komentar:
Posting Komentar