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
PUBLIC Z AS INTEGER
Private Sub Button1_Click(ByVal
sender As System.Object,
Dim x,y 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.
Tidak ada komentar:
Posting Komentar