Modul 1.
Tipe Data (1)
Tujuan
Mahasiswa mampu memahami berbagai macam tipe data di Microsoft Visual Basic .NET
Mahasiswa mampu menggunakan berbagai macam tipe data yang ada di Microsoft Visual Basic .NET
Pendahuluan
Tipe data dipakai untuk mendeklarasikan berbagai macam variabel atau fungsi. Tipe variabel nantinya
akan menentukan seberapa banyak ruang memori yang dipakai untuk menyimpan data.
Tipe data yang ada di VB .NET dikelompokkan dalam beberapa kategori sebagai berikut:
Tipe Data Numeric:
Short
dipakai untuk menyimpan nilai integer dalam 2 byte
Integer
dipakai untuk menyimpan nilai integer dalam 4 byte
Long
dipakai untuk menyimpan nilai integer dalam 8 byte
Single
dipakai untuk menyimpan bilangan real dengan dalam 4 byte
Double
dipakai untuk menyimpan bilangan real dengan dalam 8 byte
Decimal
dipakai untuk menyimpan bilangan real dengan dalam 16 byte
Tipe Data Karakter dan String
Char
dipakai untuk menyimpan satu karakter dalam 2 byte
String
dipakai untuk menyimpan lebihd ari 1 karakter
Tipe data selengkapnya disajikan pada Tabel 1
Tabel 1 Tipe data pada Visual Basic .NET
Data
Storage Allocation Value Range
Type
Depends on implementing
Boolean True or False
platform
Byte 1 byte 0 through 255 (unsigned)
Char 2 bytes 0 through 65535 (unsigned)
0:00:00 (midnight) on January 1, 0001 through 11:59:59 PM on
Date 8 bytes
December 31, 9999
0 through +/-79,228,162,514,264,337,593,543,950,335 (+/-
7.9...E+28) with no decimal point; 0 through +/-
Decimal 16 bytes
7.9228162514264337593543950335 with 28 places to the right
of the decimal
-1.79769313486231570E+308 through -
4.94065645841246544E-324, for negative values
Double 8 bytes
4.94065645841246544E-324 through
1.79769313486231570E+308, for positive values
1
Modul 1 - Tipe Data (1)
Integer 4 bytes -2,147,483,648 through 2,147,483,647 (signed)
-9,223,372,036,854,775,808 through
Long 8 bytes
9,223,372,036,854,775,807(signed)
4 bytes on 32-bit platform
Object Any type can be stored in a variable of type Object
8 bytes on 64-bit platform
SByte 1 byte -128 through 127 (signed)
Short 2 bytes -32,768 through 32,767 (signed)
-3.4028235E+38 through -1.401298E-45 for negative values;
Single 4 bytes
1.401298E-45 through 3.4028235E+38 for positive values
Depends on implementing
String 0 to approximately 2 billion Unicode characters
platform
UInteger 4 bytes 0 through 4,294,967,295 (unsigned)
ULong 8 bytes 0 through 18,446,744,073,709,551,615 (unsigned)
User- Depends on implementing Each member of the structure has a range determined by its data
Defined platform type and independent of the ranges of the other members
UShort 2 bytes 0 through 65,535 (unsigned)
Variabel merupakan suatu wadah dimana komputer menyimpan data memory (byte). Di [Link] sendiri
untuk dapat mendeklarasikan sebuah variable biasanya digunakan statement Dim. Bentuk umum untuk
mendeklarasikan suatu variable adalah:
Dim <nama variable> as <tipe data>
Contoh:
Dim Nama_Siswa as String
Dalam mendeklarasikan suatu variable di [Link], perlu beberapa hal yang harus diperhatikan:
Nama variabel tidak boleh menggunakan spasi
Nama variabel tidak boleh menggunakan karakter khusus (+, -, &, *, /. <, > dll)
Nama variabel tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh visual basic (Dim,
As, String dll)
Keyword
Kata kunci berikut ini sudah dipakai untuk sistem, jadi tidak boleh dipergunakan untuk penamaan variabel.
AddHandler AddressOf Alias And AndAlso As
Boolean ByRef Byte ByVal Call Case
Catch CBool CByte CChar CDate CDbl
CDec Char Cint Class CLng CObj
Const Continue CSByte CShort CSng CStr
CType CUnit CULng CUShort Date Decimal
Declare Default Delegate Dim DirectCast Do
Double Each Else Elseif End End if
2
Modul 1 - Tipe Data (1)
Enum Erase Error Event Exit False
Finally For Friend Function Get GetType
GetXML
Global GoTO Handles If Implements
Namespace
Imports In Inherits Integer Interface Is
isNot Let Lib Like Long Loop
Me Mod Module MustInherit MustOverride MyBase
MyClass Namespace Narrowing New Next Not
Nothing Not Inheritable Not Overridable Object Of On
Operator Option Optional Or OrElse Overloads
Overridable Overrides ParamArray Partial Private Property
Protected Public RaiseEvent ReadOnly ReDim REM
Remove Handler Resume Return SByte Select Set
Shadows Shared Short Single Static Step
Stop String Structure Sub SyncLock Then
Throw To True Try TryCast TypeOf
UInteger While Widening With WithEvents WhiteOnly
Xor #Else IsReference TimeOfDay Append Auto
Latihan 1
Module DataTypes
Sub Main()
Dim b As Byte
Dim n As Integer
Dim si As Single
Dim d As Double
Dim da As Date
Dim c As Char
Dim s As String
Dim bl As Boolean
b = 1
n = 1234567
si = 0.12345678901234566
d = 0.12345678901234566
da = Today
c = "U"
s = "Me"
If ScriptEngine = "VB" Then
bl = True
Else
bl = False
End If
If bl Then
'the oath taking
[Link](c & " dan," & s & vbCrLf)
[Link]("Hari ini adalah hari: {0}", da)
[Link]("Kita akan belajar pemrograman")
[Link]("Kita lihat apa yang terjadi pada tipe floating point")
[Link]("Tipe Data Single: {0}, Tipe Data Double: {1}", si, d)
End If
[Link]()
End Sub
End Module
3
Modul 1 - Tipe Data (1)
Latihan 2
Buat sebuah project baru di visual studio, beri nama project tersebut dengan praktek1.
Tambahkan 2 buah TextBox, sebuah Button dan sebuah label, atur tampilannya menjadi seperti berikut:
Selanjutnya klik 2 kali tombol ok lalu tambahkan perintah seperti berikut.
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim nama As String
nama = [Link]
[Link] = "Nama Anda Adalah " + nama
End Sub
End Class
Jika sudah, coba jalankan program tersebut, pada bagian nama silahkan isi nama sesuai dengan
keinginan pembaca lalu klik tombol OK. Nanti Nama yang pembaca masukan akan ditampilkan di TextBox2.
Keterangan:
Dim nama As String = Pendefinisian sebuah variabel nama dengan tipe data String.
nama = [Link] = nilai untuk variabel nama didapat dari nilai yang dimasukan di [Link]
Latihan 3
Form
Property
Object Properties Value
Form1 Text Tipe Data
StartPosition Center Screen
MaximizeBox False
MinimizeBox False
Button Text Tipe Data
Name btnTipeData
Kode
4
Modul 1 - Tipe Data (1)
Public Class Form1
Private Sub btnTipeData_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim stMerk As String
Dim stModel As String
Dim iPintu As Integer
Dim stWarna As String
Dim bPajak As Boolean
Dim iUkuranMesin As Integer
Dim decHarga As Decimal
Dim dtRegistrasi As Date
stMerk = "Daihatsu"
stModel = "Xenia"
iPintu = 5
stWarna = "Merah"
bPajak = True
iUkuranMesin = 1500
decHarga = 100000000
dtRegistrasi = #2/28/2018#
MsgBox("Mobil tersebut adalah " & stMerk & " " &
stModel & " " & iPintu & " " &
stWarna & " " & bPajak & " " &
iUkuranMesin & " " & decHarga & " "
& dtRegistrasi)
End Sub
End Class
Latihan 4
Template: Visual Basic - Windows - Console Application
Kode
Module Module1
Sub Main()
Dim iBilangan1 As Integer
Dim iBilangan2 As Long
iBilangan1 = 2147483648
iBilangan2 = 2147483648
[Link](iBilangan1)
[Link](iBilangan2)
End Sub
End Module
Jika program di atas diketik pada Microsoft Visual Basic .NET, maka angka 2147483648 pada iBilangan1
akan terlihat komentar:
Constant expression not representable in type 'Integer'
Sedangkan angka 2147483648 pada iBilangan2 tidak ada komentar.
Ini menandakan, tipe data Integer tak dapat menyimpan bilangan tersebut karena melebihi batas
maksimum.
Jalankan program di atas dijalankan dengan menekan Ctrl+F5, maka akan terjadi error seperti berikut:
5
Modul 1 - Tipe Data (1)
Ganti angka 2147483648 pada variabel iBilangan1 menjadi 2147483647 lalu jalankan.
Latihan 5
Module Module1
Sub Main()
Dim x, y, z As Integer
Dim a As Integer = 23
Dim b As Integer = 45.3
Dim label As String = "Sum is "
[Link](label & (a + b))
End Sub
End Module