Tipe Data, Variabel, Konstanta, dan Operator
3.1 Tipe Data
Tipe data merupakan suatu bentuk penggolongan jenis
data berdasarkan kategori data, ukuran dan kegunaan data yang dapat ditampung
oleh sebuah variabel. Tipe data pada visual basic 2008 dapat dilihat pada table
berikut ini :
|
Tipe
Data |
Net
Tipe |
Ukuran |
Jangkauan |
|
Decimal |
System.Decimal |
12
Bytes |
0
– 28 bilangan decimal |
|
Byte |
System.Byte |
1
Bytes |
0
– 255 |
|
Double |
System.Doube |
8
Bytes |
Bilangan
negative antara : -1.79769313486232e+308 sampai -4.94065645841247E-324
Bilangan posotif antara : 4.94065645841247E-324 sampai 1.79769313486232e+308 |
|
Long |
System.Int64 |
4
Bytes |
-9.223.372.036.854.775.808
sampai 9.223.372.036.854.775.808 |
|
Single |
System.Single |
4
Bytes |
Bilangan
negative antara : -3.402823E sampai -1.401298E Bilangan posotif antara :
1.401289E-45 sampai 3.402823e |
|
Integer |
System.int32 |
4
Bytes |
-2.147.483.648
sampai - 2.147.483.647 |
|
Boolean |
System.Boolean |
2
Bytes |
True
or False |
|
Date |
System.DateTime |
2
Bytes |
1
Januari 0001 sampai 31 Desember 9999 |
|
Short |
System.Int16 |
2
Bytes |
-32.768
– 32.767 |
|
Char |
System.Char |
2
Bytes |
0
to 65535 |
|
String |
System.String |
10
Bytes + (2 x jumlah karakter |
0
sampai kira-kira 2 milyar karakter Unicode |
|
Object |
System.Object |
4
Bytes |
Semua
Tipe, jenis |
3.2 Konversi
Tipe Data
Konversi Tipe data adalah sebuah fungsi yang digunakan
untuk mengkonversi ( mengubah tipe dari satu tipe ke tipe data yang lain).
Konversi tipe data dapat dilihat pada table berikut ini :
|
Konversi |
Tipe Data |
Keterangan |
|
cInt |
Integer |
Integer |
|
cBool |
Boolean |
Nilai 0 false, selain 0 true |
|
cByte |
Byte |
Pembulatan nilai decimal |
|
cLng |
Long |
Pembulatan nilai decimal |
|
cCur |
Currency |
Money |
|
cShort |
Short |
Pembulatan nilai decimal |
|
cSng |
Single |
Pembulatan nilai decimal |
|
cDate |
Date |
DateTime |
|
cStr |
String |
Karakter Unicode |
|
cDbl |
Double |
|
|
cDec |
Decimal |
Bilangan decimal |
|
cObj |
Object |
Object |
3.3 Variabel
Variabel adalah merupakan tempat penyimpanan data
dalam memori computer yang mengandung data atau nilai sementara dari sebuah
proses pada suatu pemrograman.
Deklarasi
Variabel Deklarasi
Variabel adalah merupakan fungsi untuk mengenal suatu
variabel berikut dengan tipe data yang pakai pada variabel tersebut.
Pendeklarasian variabel di bagi menjadi dua kategori antara lain :
1.
Deklarasi Ekplisit Suatu
pendeklarasian umum yang sangat sering dilakukan dengan memberikan kata kunci
as.
Bentuk
umum :
{Private
| Public | Dim | …} Nama_Var [{As Tipe data}]
Contoh : Dim Nim as Integer Dim Nama as String
2.
Deklarasi Emplisit
Deklarasi Emplisit adalah suatu pendeklarasian yang tidak memberikan kata kunci
As pada semua variabel tersebut. Melainkan memberikan satu karakter atau symbol
di akhir variabel. Tabel symbol deklarasi emplisit.
|
Katakter / Simbol |
Tipe Data |
|
% |
Integer |
|
$ |
String |
|
& |
Long |
|
@ |
Currency |
|
! |
Single |
|
# |
Double |
Ruang
Lingkup Variabel
Ruang
lingkup variabel sangat mempengaruhi sampai dimana nama variabel tersebut dapat
dikenali oleh aplikasi.
Ruang
Lingkup Variabel dapat digolongkan menjadi :
a. Local
Variabel Local variabel merupakan suatu pendeklarasian variabel di dalam ruang
lingkup objek saja. Tidak dapat digunakan di dalam objek lain.
b. Global
Variabel Global variabel adalah merupakan suatu pendeklarasian variabel tidak
hanya di dalam ruang lingkup objek saja. Tetapi mencakup semua presedure dan
objek.
3.4 Konstanta
Konstanta
merupakan suatu variabel yang mempunyai nilai tetap dan tidak dapat diubah
nilainya. Deklarasi Konstanta Deklarasi konstanta :
{Const}
Nama_Var [{AS tipedata}]=
Contoh
: Const nama_bidang as string=”persegi_panjang”
Public
const Panjang As Integer=8 Private const Lebar As Integer=5 Private const luas
As Integer=Panjang*Lebar Private const Keliling As Integer=2*(Panjang+Lebar)
Deklarasi Konstanta Enumerasi Deklarasi Konstanta Enumerasi merupakan
pendeklarasian daftar konstanta yang bersipat global . Dengan deklarasi
konstanta enumerasi dapat membuat daftar konstanta sendiri dapam bentuk seperti
modul kelas dan dapat diakses oleh projek lain. Format penulisannya : {Private
| Public | …. }[enum] Nama_Variabel_konstanta
3.5 Operator
Operator
Aritmatika Operator Aritmatika adalah merupakan suatu operator perhitungan
matematika yang digunakan untuk proses perhitungan matematika. Operator
aritmatika dapat dilihat pada table berikut ini :
|
Operator |
Fungsi |
|
+ |
Penjumlahan |
|
- |
Pengurangan |
|
* |
Perkalian |
|
/ |
Pembagian |
|
Mod |
Sisa hasil pembagian |
|
^ |
Perpangkatan |
Operator
Perbandingan Operator perbandingan adalah merupakan suatu operator yang menyatakan
suatu kondisi itu benar atau salah. Operator perbandingan dapat dilihat pada
table berikut ini :
|
Operator |
Fungsi |
|
<> |
Tidak sama dengan |
|
< |
Lebih kecil |
|
> |
Lebih besar |
|
>= |
Lebih besar sama dengan |
|
<= |
Lebih kecil sama dengan |
|
Like |
Ciri yang sama |
|
ls |
Keterangan |
Operator
Logika Operator Logika adalah merupakan suatu operator yang dapat membandingkan
dua ekspresi atau lebih data logika (Boolean) dan menghasilkan data logika
(Boolean) baru. Operator logika dapat dilihat pada table berikut ini:
|
Operator |
Fungsi |
|
NOT |
Tidak |
|
AND |
Dan |
|
OR |
Atau |
|
XOR |
Ekslusif atau |
Operator
Penugasan Operator penugasan adalah merupakan operator yang bertugas untuk
menentukan nilai yang dikeluarkan oleh suatu variabel terhadap kondisi
tertentu.
|
Operator |
Fungsi |
|
= |
Sama dengan |
Operator
Penggabungan (Concatenation) Operator Penggabungan adalah merupakan suatu
operator yang dapat digunakan untuk menggabungkan dua buah string atau lebih.
Operator Penggabungan dapat dilihat pada table berikut ini :
|
Operator |
Fungsi |
|
+ |
Plus |
|
& |
Dan |
1. Variable Lokal
Design :
|
Object |
Properties |
Nilai |
|
Form1 |
Name Text |
Form1 Variabel Lokal |
|
Button1 |
Name Text |
BtnExit E&xit |
Kode Program :
|
Public Class Form1
Private Sub
BtnExit_Click(sender As Object, e As EventArgs) HandlesBtnExit.Click
Dim tutup As String
tutup = MessageBox.Show("Anda yakin tutup form ini ?", "Lokal
Variabel",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If tutup = MsgBoxResult.Yes Then End
Else
End If
End Sub End Class |
Hasil Running :
2. Variable Global
Design :
|
Object |
Properties |
Nilai |
|
Form2 |
Name Text |
Form2 Variabel Global |
|
Button1 |
Name Text |
BtnExit E&xit |
|
Public Class Form2
Dim tutup As String
Private Sub
Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnExit_Click(sender
As Object, e As EventArgs) Handles BtnExit.Click
tutup = MessageBox.Show("Anda yakin tutup form ini ?", "Global
Variabel", MessageBoxButtons.YesNo,
MessageBoxIcon.Question)
If tutup = MsgBoxResult.Yes Then End Else
End If
End Sub End Class |
Design :
|
Object |
Properties |
Nilai |
|
Form3 |
Name Text |
Form3 Operator |
|
Label1 |
Text |
Nilai1 |
|
Label2 |
Text |
Operator |
|
Label3 |
Text |
Nilai2 |
|
Label4 |
Text |
Hasil |
|
TextBox1 |
Name |
TxtNilai1 |
|
ComboBox1 |
Name |
CmbOperator |
|
TextBox2 |
Name |
TxtNilai2 |
|
TextBox3 |
Name |
TxtHasil |
|
Button1 |
Name Text |
BtnProses Proses |
|
Public Class Form3
Private Sub
Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub
Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CmbOperator.Items.Add("+")
CmbOperator.Items.Add("-")
CmbOperator.Items.Add("x")
CmbOperator.Items.Add("/")
CmbOperator.Items.Add("Sisa")
CmbOperator.Items.Add("Pangkat")
CmbOperator.Items.Add("<>")
CmbOperator.Items.Add("<")
CmbOperator.Items.Add(">")
CmbOperator.Items.Add("<=")
CmbOperator.Items.Add(">=")
CmbOperator.Items.Add("Like")
CmbOperator.Items.Add("Not")
CmbOperator.Items.Add("And")
CmbOperator.Items.Add("Or")
CmbOperator.Items.Add("Xor")
CmbOperator.Items.Add("+p")
CmbOperator.Items.Add("&")
End Sub
Private Sub
BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
Select Case CmbOperator.Text Case "+" TxtHasil.Text =
Val(TxtNilai1.Text) + Val(TxtNilai2.Text) Case "-"
TxtHasil.Text =
Val(TxtNilai1.Text) - Val(TxtNilai2.Text) Case "x" TxtHasil.Text = Val(TxtNilai1.Text) *
Val(TxtNilai2.Text) Case "/" TxtHasil.Text = Val(TxtNilai1.Text)
/ Val(TxtNilai2.Text) Case "Sisa" TxtHasil.Text =
Val(TxtNilai1.Text) Mod Val(TxtNilai2.Text) Case "Pangkat" TxtHasil.Text =
Val(TxtNilai1.Text) ^ Val(TxtNilai2.Text) Case "<>" TxtHasil.Text =
TxtNilai1.Text <> TxtNilai2.Text Case "<" TxtHasil.Text =
TxtNilai1.Text < TxtNilai2.Text Case ">" TxtHasil.Text =
TxtNilai1.Text > TxtNilai2.Text Case "<=" TxtHasil.Text = TxtNilai1.Text <=
TxtNilai2.Text Case ">=" TxtHasil.Text =
TxtNilai1.Text >= TxtNilai2.Text Case "Like" TxtHasil.Text =
TxtNilai1.Text Like TxtNilai2.Text
Case "Not"
TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text Case "And" TxtHasil.Text = TxtNilai1.Text
= "STIKOM" And
TxtNilai2.Text = "STIKOM" Case "Or" TxtHasil.Text = TxtNilai1.Text
= "STIKOM" Or TxtNilai2.Text = "STIKOM" Case "Xor" TxtHasil.Text =
TxtNilai1.Text = "STIKOM" Xor TxtNilai2.Text
= "STIKOM" Case "+P" TxtHasil.Text =
TxtNilai1.Text + TxtNilai2.Text Case "&" TxtHasil.Text =
TxtNilai1.Text & TxtNilai2.Text
End Select
End Sub End Class |
Hasil Running :
Komentar
Posting Komentar