Tipe Data dan Variabel beserta Contoh (Kalkulator)

Tujuan

Memberikan pemahaman tentang tipe data dan variabel.

Tipe Data

Seperti bahasa pemrograman yang lain, Visual Basic .Net juga menyediakan berbagai tipe data yang dapat digunakan oleh pemrograman sesuai dengan konteks pemakaiannya. Berikut beberapa tipe data yang tersedia dalam VB.Net yang sering digunakan.

Data Type	Size in Bytes	Return Value	Type
Tipe Data Numeric
Byte	1	8-bit unsigned integer (0 – 255)	System.Byte
Integer	3	32-bit signed integer (-2.147.483.648 s/d 2.147.483.647)	System.Int32
Long	8	64-bit signed integer -9.223.372.036.854.775.808 s/d  9.223.372.036.854.775.807	System.Int64
Double	8	64-bit floating point variabel (5E-324 s/d 1.8E+10308)	System.Double
Decimal	16	128-bit floating point variabel (Nilai hingga 28 digit)	System.Decimal
Tipe Data Karakter
Char	2	16-bit unicode characters	System.Char
String	Varies	Non-Numeric Type	System.String
Tipe Data Tanggal
Date	8	0:00:00 on Januari 1, 0001 through 11:59:59 PM on December 31, 9999	System.Date
Tipe Data Logika
Boolean	2	True or False	System.Boolean
Tipe Data Object
Object	4	Any type can be stored in variable of type object	System.Object

Variabel

Variabel merupakan tempat penyimpanan data. Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.

Berbeda dengan VB6, variabel dalam VB.Net harus dideklarasikan terlebih dahulu, jika tidak akan terjadi kesalahan Compiler.

Deklarasi Variabel

Dim merupakan keyword dalam pendeklarasian variabel.

Bentuk penulisan Deklarasi Variabel:

            

 Dim (namavariabel) as (tipedata)

Contoh:

Dim a,b as integer

Dim i as string

Pemberian Nilai Awal pada Variabel

Bentuk Penulisan:

(namavariabel) = NilaiAwal

Contoh:

a=10

b=5

i=“Visual Basic”

Pendeklarasian Variabel disertai pemberian Nilai Awal

Bentuk Penulisan:

      

Dim (namavariabel) as (tipedata)  = NilaiAwal

Contoh:

Dim a as integer = 10

Dim i as string = “Visual Basic”

Contoh Program

Private Sub Button1_Click(ByVal sender As System.Object,

Dim x,y,z as integer

x=15

y=5

z=x*y

TextBox1.Text=z

End Sub

Operasi Terhadap Tipe Data Numeric

Operasi terhadap tipe data numeric sama halnya melakukan perhitungan matematik atau aritmatika. Ada penjumlahan, pengurangan, perkalian, pembagian, dan sebagainya.

Untuk melakukan perhitungan matematika dibutuhkan operator aritmatika.

Berikut operator aritmatika sesuai urutan pengerjaannya :

^     :    perpangkatan

*      :    perkalian

/      :    pembagian

+     :    penjumlahan

-      :    pengurangan

Contoh Program:

1. Desain program

2. Pengaturan Properties

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	OPERASI MATEMATIKA
		Font Size	9
		Bold	True
2	Label2	Text	Bilangan 1 :
3	Label3	Text	Bilangan 2 :
4	Label4	Text	Hasil :
5	Label5	Text	OPERATOR
		Bold	True
6	TextBox1	Name	txtbil1
7	TextBox2	Name	txtbil2
8	TextBox3	Name	Txthasil
9	Button1	Text	^
		Size	10
		Name	Btnpangkat
10	Button2	Text	*
		Size	10
		Name	Btnkali
11	Button3	Text	/
		Name	Btnbagi
12	Button4	Text	+
		Size	9
		Name	Btntambah
13	Button5	Text	-
		Size	10
		Name	Btnkurang
14	Button6	Text	Bersih
		Name	Btnbersih
15	Button7	Text	Tutup
		Name	Btntutup

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

ú  Input Bilangan1 dan Bilangan2

ú  Klik salah satu tombol Operator, maka akan tampil hasil perhitungan sesuai operator.

-     Tombol ^   :    untuk memangkatkan

-     Tombol *   :    untuk mengalikan

-     Tombol /    :    untuk membagi

-     Tombol +  :    untuk menambahkan

-     Tombol -   :    untuk mengurangkan

ú  Klik tombol Bersih, maka isi Bilangan1, Bilangan2 dan Hasil akan bersih (kosong).

ú  Klik tombol Tutup, maka program akan ditutup.

Perintah Program:

  Private Sub btnpangkat_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text ^ txtbil2.Text

  End Sub

 

  Private Sub btnkali_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text * txtbil2.Text

  End Sub

 

  Private Sub btnbagi_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text / txtbil2.Text

  End Sub

 

  Private Sub btntambah_Click(ByVal sender As System.Object,

      txthasil.Text = Val(txtbil1.Text) + txtbil2.Text

  End Sub

 

  Private Sub btnkurang_Click(ByVal sender As System.Object,

      txthasil.Text = txtbil1.Text - txtbil2.Text

  End Sub

Catatan:

Val : berfungsi untuk mengubah tipe data string menjadi Numeric.

Latihan 2:

Buat program untuk menghitung Luas dan Keliling Persegi Panjang dengan tampilan sbb:

 Kita Jawab di BLOG selanjutnya, check it out...!!