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...!!
Tidak ada komentar:
Posting Komentar