TIPE DATA DAN VARIABEL

"TIPE DATA DAN VARIABEL"

Assalamualaikum teman-teman, seperti biasa saya ingin membagi sedikit ilmu yang saya ketahui untuk teman-teman semua 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 AsSystem.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 melakukanperhitungan 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

















2Pengaturan 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 danHasil akan bersih (kosong).

Klik tombol Tutup, maka program akan ditutup.
Perintah Program:
 Private Sub btnpangkat_Click(ByVal sender AsSystem.Object,
     txthasil.Text = txtbil1.Text ^ txtbil2.Text
 End Sub
 Private Sub btnkali_Click(ByVal sender AsSystem.Object,
     txthasil.Text = txtbil1.Text * txtbil2.Text
 End Sub
 Private Sub btnbagi_Click(ByVal sender AsSystem.Object,
     txthasil.Text = txtbil1.Text / txtbil2.Text
 End Sub
 Private Sub btntambah_Click(ByVal sender AsSystem.Object,
     txthasil.Text = Val(txtbil1.Text) + txtbil2.Text
 End Sub
 Private Sub btnkurang_Click(ByVal sender AsSystem.Object,
     txthasil.Text = txtbil1.Text - txtbil2.Text
 End Sub


Catatan:
Val : berfungsi untuk mengubah tipe data string menjadi Numeric.

Komentar

Postingan populer dari blog ini

Keputusan Case Pada Microsoft Visual Studio 2008

Keputusan If Pada Microsoft Visual Studio 2008

Visual Basic Messagebox