Saturday, May 7, 2011 Operator dan tipe data pada VB.NET

TIPE DATA, VARIABEL & OPERATOR

Variabel

Variabel adalah lokasi di memori yang diberi nama. Variabel digunakan untuk memasukkan data berupa nilai sementara ke dalam memori selama menghitung, memberi informasi dan sebagainya. Anda dapat memberi nama pada lokasi memori dengan mendeklarasikan variabel dan menentukan tipe data.

Deklarasi Variabel

Deklarasi variabel adalah proses untuk menyebutkan karakteristik variabel seperti nama, tipe data, jangkauan, masa hidup, dan nilai awal. Contoh deklarasi variabel adalah ebagai berikut:

Dim Jawab As String

Dim I as Integer = 13

Dim Panjang, Lebar, Tinggi As Integer

Konstanta

Konstanta mirip dengan variabel tetapi nilainya tidak berubah selam program berjalan. Konstanta dideklarasikan dengan kata kunci Const. Sintaks lengkapnya sebagai berikut:

Const namakonstanta As tipe = nilai

Deklarasi konstanta dapat juga berisi konstanta lainnya seperti pada contoh berikut ini:

Public Const pi As Double = 3.14159285

Public Const pi2 As Double = 2 * p

Tipe Data dan Structure

Tipe data dalam variabel menentukan tipe data yang bisa disimpan di dalamnya, format data yang disimpan dan berapa banyak memori yang dialokasikan untuk menyimpan data. VB.NET memiliki beberapa tipe data built-in/terpasang yang ditentukan dalam CLR (Common Language Runtime).Structure adalah tipe data buatan sendiri.

Operator

Operator adalah simbol (karakter atau kata kunci) yang secara spesifik mengoperasikan satu atau dua operan. Operator yang menangani satu operan disebut operator unary. Oprator ini menggunakan notasi prefik/awalan, (contoh – dari -9). Operator yang menangani dua operan disebut operator binary (contoh + dari 3 + 2).

Operator Aritmatika

Operator aritmatika melakukan operasi matematika standar pada nilai numerik. Jenisnya sebagai berikut:

Operator Logika

Operator relasi akan membandingkan di antara dua operan dan nilai kembaliannya berupa boolean sebagai hasil pembandingan. Jenisnya sebagai berikut:

Operator Bitwise

Guna dari operator bitwise adalah memanipulasi bit secara individual untuk membuat nilai dari tipe integer (Byte, Short, Integer, dan Long). Berikut adalah jenis dari operator Bitwise.

Operator Logika

Opeator Logika adalah operator yang membandingkan ekspresi Boolean. Jenisnya adalah sebagai berikut:

PRAKTIKUM II

Tipe Data, Variabel & Operator

Tujuan :

Mengerti dan memahami pemakaian variabel, tipe data dan penggunaan operator pada visual basic 2005

Materi

Tipe data, Variabel, dan Operator

Yang Harus Anda Siapkan

• Mengerti dan memahami penulisan dan penggunaan variabel
• Mengerti dan memahami jenis – jenis dari data dan penggunaannya
• Mengerti dan memahami fungsi dan pemakaian operator

Langkah – Langkah Praktikum

Case Base I

1. Buat Sebuah Project Baru : Create Project dan namakan sesuai dengan NIM masing – masing diikuti project keberapa.

Contoh : 060010001-4

2. Buat Desain seperti gambar di bawah ini

Object	Properti	Nilai
Form1	Text	Operator
GroupBox1	Text	Operator
TextBox1	Name	TxtA
	TextAlign	Right
TextBox2	Name	TxtB
	TextAlign	Right
TextBox3	Name	TxtC
	TextAlign	Right
RadioButton1	Name	RdbPlus
	Text	Tambah (+)
	TabStop	False
RadioButton2	Name	RdbMin
	Text	Kurang (+)
	TabStop	False
RadioButton3	Name	RdbKali
	Text	Kali (*)
	TabStop	False
RadioButton4	Name	RdbBagi
	Text	Bagi(\)
	TabStop	False
RadioButton5	Name	RdbAnd
	Text	Bitwise AND
	TabStop	False
RadioButton6	Name	RdbOr
	Text	Bitwise OR
	TabStop	False
RadioButton7	Name	RdbXor
	Text	Bitwise XOR
	TabStop	False

3. Klik ganda pada object RadioButton1(dengan teks “Tambah (+)”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbPlus_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbPlus.CheckedChanged

        TxtC.Text = CInt(TxtA.Text) + CInt(TxtB.Text)

End Sub

4. Klik ganda pada object RadioButton2(dengan teks “Kurang (-)”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbMin_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbMin.CheckedChanged

        TxtC.Text = TxtA.Text - TxtB.Text

End Sub

5. Klik ganda pada object RadioButton3(dengan teks “Kali (*)”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbKali_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbKali.CheckedChanged

        TxtC.Text = TxtA.Text * TxtB.Text

End Sub

6. Klik ganda pada object RadioButton4(dengan teks “Bagi (\)”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbBagi_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbBagi.CheckedChanged

        TxtC.Text = TxtA.Text \ TxtB.Text

End Sub

7. Klik ganda pada object RadioButton5(dengan teks “Bitwise AND”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbAnd_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbANd.CheckedChanged

        TxtC.Text = TxtA.Text And TxtB.Text

End Sub

8. Klik ganda pada object RadioButton6(dengan teks “Bitwise OR”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbOr_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbOr.CheckedChanged

        TxtC.Text = TxtA.Text OR TxtB.Text

End Sub

9. Klik ganda pada object RadioButton7(dengan teks “Bitwise XOR”) dan sisipkan kode pada event CheckedChange dibawah ini

Private Sub RdbXor_CheckedChanged(ByVal sender As System.Object, ByVal e As

        System.EventArgs) Handles RdbXor.CheckedChanged

        TxtC.Text = TxtA.Text XOR TxtB.Text

End Sub

10. Jalankan program dan masukkan sembarang angka bulat pada textbox1 dan textbox2
11. Klik RadioButton untuk mencoba operator yang diinginkan
12. Hentikan aplikasi yang sedang berjalan
13. Simpan Project

Case Base II

1. Buat Sebuah Project Baru : Create Project dan namakan sesuai dengan NIM masing – masing diikuti project keberapa.

Contoh : 060010001-5

2. Buat Desain seperti gambar di bawah ini

     

Object	Properti	Nilai
Label1	Text	Uang Pokok
Label2	Text	Waktu (Tahun)
Label3	Text	Suku Bunga
Label4	Text	Pembayaran Per Bulan
TextBox1	Name	txtUangPokok
TextBox2	Name	txtWaktu
TextBox3	Name	txtBunga
TextBox4	Name	txtBayar
Button1	Text	Hitung
	Name	btnHitung
Button2	Text	Selesai
	Name	btnSelesai
Form1	Text	Kredit

3. Klik ganda pada sembarang tempat pada area form yang kosong dan sisipkan kode dibawah ini di object Form event Load

Private Sub Form1_load(Byval sender As System.Object, Byval e As _

            System.EventArgs) Handles MyBase.Load

Dim Kontrol As Control

For Each Kontrol In Me.Controls

                If TypeOf Kontrol Is TextBox Then

                Kontrol.Text = ""

             End If

                                Next

                        End Sub

4. Klik ganda pada buton1 (btnHitung) dan sisipkan kode dibawah ini di object di event click

Private Sub BtnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

BtnHitung.Click

Dim Pokok As Decimal

                                Dim Waktu As Single

                                Dim Bunga As Single

                                Dim Pembayaran As Decimal

                                Dim Nilai As Single

                                Pokok = TxtUangPokok.Text

                                Bunga = TxtBunga.Text / 100

                Waktu = TxtWaktu.Text * 12

                                Pembayaran = (Pokok / Waktu) + (Pokok * Bunga)

                TxtBayar.Text = Format(Pembayaran, "currency")

                End Sub

5. Klik ganda pada buton2 (btnSelesai) dan sisipkan kode dibawah ini di object di event click

Private Sub TxtUangPokok_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles TxtUangPokok.TextChanged

                                If IsNumeric(TxtUangPokok.Text) Then

                                                TxtUangPokok.Text = Format(TxtUangPokok.Text, "Currency")

                                                TxtUangPokok.SelectionStart = Len(TxtUangPokok.Text)

                                End If

                End Sub

6. Jalankan Program dan isilah textbox uangpokok, waktu dan suku bunga dengan angka
7. Klik tombol Hitung
8. Simpan Project