Program Pengurangan,Penjumlahan,Perkalian Dan Pembagian Dengan Vb.Net

MENGGUNAKAN OPERATOR 

VISUAL BASIC .NET

1. Operator Aritmetika

Operator Aritmetika digunakan untuk melakukam opearasi matematika  

Daftar Operator Aritmetika

Opertor Aritmetika	Operasi yang dilakukan
+	Penjumlahan
-	Pengurangan
*	Perkalian
/	Pembagian dengan Hasil Bulat
^	Pangkat
Mod	Menghitung sisa pembagian

2. Operator Penugasan

Operator Penugasan berfungsi untuk memasukan nilai dari suatu ekspresi ke ekspresi yang lain, operator penugasan digunakan dengan symbol (=)

3. Operator Pembanding

Operator pembanding berfungsi untuk membandingkan suatu nilai dengan nilai yang lain dimana hasilnya akan menghasilkan nilai logika TRUE dan FALSE

Daftar Operator Pembanding

Operator Pembanding	Keterangan
=	Sama dengan
>	Lebih Besar Dari
<	Lebih Kecil Dari
<>	Tidak Sama dengan
<=	Lebih Kecil atau sama dengan
>=	Lebih besar atau sama dengan
Between	Menentukan antara nilai
Like	Pencarian dengan pola
In	Mencari      data     dengan      nilai tertentu

 

4. Operator Logika

Oprator logika berfungsi untuk menentukan hasil berupa nilai Tru and False

Daftar Operator Logika

Operator Logika

And

Or

Xor

Not

Praktikum

Pada pembuatan aplikasi ini, objek-objek yang digunakan , namenya dirubah dengan nama yang di anjurkan, kemudian propertisnya diaturpula dengan criteria 

Buatlah Tampilan Berikut ini:

 Penyelesaian:

1. Atur Propertinya sbb:

No.	Objek	Properti	Nilai Properti
1.	Solution Explorer Form1	Name Name StartPosition	Latihan 2 Frlatihan2 CenterScreen
2.	GroupBox1 Label1 Label2 Label3 Textbox1 Textbox2 Textbox3	Text Dock Text Text Text Name Name Name	| Data Bilangan | Top Bilangan Kesatu Bilangan Kedua Hasil Perhitungan txtBil1 txtBil2 txtHasil
3.	GroupBox2 Button1	Text Dock Name Text	| Operator | Bottom btTambah +

 

Button2 Button3 Button4 Button5 Button6

TextAlign Name   Text TextAlign Name   Text TextAlign Name   Text TextAlign Name   Text TextAlign Name   Text TextAlign

MiddleCenter btKurang -MiddleCenter btKali x MiddleCenter btBagi / MiddleCenter btNew &New MiddleCenter btClose &Close MiddleCenter

Tambahkan kode program berikut

Public Class frLatihan2

Private Sub frAritmatika_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'--- mengisi properti objek Form

Me.Text = "Latihan Perhitungan Aritmatika"

End Sub

'--- mengisi event & method terhadap tombol proses Private Sub btTambah_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles btTambah.Click Dim b1, b2 As New Integer

Dim h As New Double

b1 = Val(txtBil1.Text)  

b2 = Val(txtBil2.Text) 

h = b1 + b2  

txtHasil.Text = h

End Sub

Private Sub btKurang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btKurang.Click

Dim b1, b2 As New Integer Dim h As New Double

b1 = Val(txtBil1.Text)  

b2 = Val(txtBil2.Text)  

h = b1 - b2 

txtHasil.Text = h

End Sub

Private Sub btKali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btKali.Click

Dim b1, b2 As New Integer Dim h As New Double

b1 = Val(txtBil1.Text)  

b2 = Val(txtBil2.Text)  

h = b1 * b2 

txtHasil.Text = h

End Sub 

 

Private Sub btBagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btBagi.Click

Dim b1, b2 As New Integer Dim h As New Double

b1 = Val(txtBil1.Text) 

b2 = Val(txtBil2.Text)  

h = b1 / b2 

txtHasil.Text = h

End Sub

Private Sub btNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btNew.Click

Me.txtBil1.Clear() Me.txtBil2.Clear() Me.txtHasil.Clear() Me.txtBil1.Focus()

End Sub

Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click

Me.Close() 

 End Sub

Private Sub txtBil1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBil1.KeyPress

If e.KeyChar = Chr(13) Then Me.txtBil2.Focus()

End If  

End Sub

Private Sub txtBil2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBil2.KeyPress

If e.KeyChar = Chr(13) Then Me.btNew.Focus()

End If  

End Sub

End Class

  

 Selamat Program Anda Telah Selesai.. ;-)

Selalu Gunakan Nama yang sama dengan yang ada di modul agar anda mudah dalam melakukan pengecekan kesalahan di dalam form

 Selamat Mencoba  !!!!