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 !!!!
