Tipe Data Dan Variabel
MODUL 3
TIPE DATA DAN VARIABEL
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(ByValsender 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).
Perintah Program:
Private Sub btnpangkat_Click(ByValsender As System.Object,
txthasil.Text = txtbil1.Text ^ txtbil2.Text
End Sub
 |
Private Sub btnkali_Click(ByValsender As System.Object,
txthasil.Text = txtbil1.Text * txtbil2.Text
End Sub
 |
Private Sub btnbagi_Click(ByValsender As System.Object,
txthasil.Text = txtbil1.Text / txtbil2.Text
End Sub
|
Private Sub btntambah_Click(ByValsender As System.Object,
txthasil.Text = Val(txtbil1.Text) + txtbil2.Text
End Sub
|
Private Sub btnkurang_Click(ByValsender As System.Object,
txthasil.Text = txtbil1.Text - txtbil2.Text
End Sub
Catatan:
Val : berfungsi untuk mengubah tipe data string menjadi Numeric.
Latihan
Buat program untuk menghitung Luas dan Keliling Persegi Panjang dengan tampilan sbb:
OBJEK
|
PROPERTIES
|
PENGATURAN
| |
1
|
Label1
|
Text
|
Luas Keliling Persegi Pajang
|
2
|
Label2
|
Text
|
Panjang
|
3
|
Label3
|
Text
|
Lebar
|
4
|
Button 1
|
Text
|
Hitung
|
Name
|
Btnhitung
| ||
5
|
Label4
|
Text/Name
|
Luas/TxtLuas
|
6
|
Label5
|
Text/Name
|
Keliling/TxtKeliling
|
7
|
TextBox1
|
Name
|
txtPanjang
|
8
|
TextBox2
|
Name
|
txtlebar
|
9
|
Button2
|
Text
|
Tutup
|
Name
|
BtnTutup
|
Perintah Program Public Class Form1
Private Sub txtpanjang_TextChanged(ByValsender As System.Object, ByVal e As System.EventArgs) Handlestxtpanjang.TextChanged
End Sub
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
Dim panjang As Long
Dim lebar As Long
panjang = txtpanjang.Text
lebar = txtlebar.Text
txtkeliling.Text = 2 * (panjang + lebar)
txtluas.Text = panjang * lebar
End Sub
Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
end
End Sub
Private Sub txtluas_TextChanged(ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles txtluas.TextChanged
End Sub
Private Sub txtkeliling_TextChanged(ByValsender As System.Object, ByVal e As System.EventArgs) Handlestxtkeliling.TextChanged
End Sub
Private Sub Label1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtkeliling.Enabled = False
txtluas.Enabled = False
End Sub
End Class
Latihan
Buatlah Luas Segitiga
OBJEK
|
PROPERTIES
|
PENGATURAN
| |
1
|
Label1
|
Text
|
Luas Segitiga
|
2
|
Label2
|
Text/Name
|
Alas/TxtAlas
|
3
|
Label3
|
Text/Name
|
Tinggi/TxtTinggi
|
4
|
Label4
|
Text/Name
|
Hasil/TxtHasil
|
Button1
|
Text
| Hitung | |
Name
|
BtnHitung
| ||
5
|
Button2
|
Text
|
Bersih
|
Name
| BtnBersih | ||
| 6 | Button2 | Text | Tutup |
7
| Name | BtnTutup | |
Name
|
BtnTutup
|
Tampilan program
Public Class Form1
Private Sub btntutup_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btntutup.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btnbersih.Click
txtalas.Text = ""
txttinggi.Text = ""
txthasil.Text = ""
End Sub
Private Sub btnhitung_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btnhitung.Click
Const rumus = 0.5
Dim luas As Double
luas = rumus * Val(txtalas.Text) * Val(txttinggi.Text)
txthasil.Text = luas
End Sub
Private Sub Form1_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles MyBase.Load
End Sub
End Class
Private Sub btntutup_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btntutup.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btnbersih.Click
txtalas.Text = ""
txttinggi.Text = ""
txthasil.Text = ""
End Sub
Private Sub btnhitung_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles btnhitung.Click
Const rumus = 0.5
Dim luas As Double
luas = rumus * Val(txtalas.Text) * Val(txttinggi.Text)
txthasil.Text = luas
End Sub
Private Sub Form1_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs)Handles MyBase.Load
End Sub
End Class
Komentar
Posting Komentar