- TIPE DATA
Tipe Data merupakan suatu bentuk penggolongan jenis data berdasarkan kategori Data, Ukuran dan kegunaan data yang dapat ditampung oleh sebuah variabel. 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
|
Di setiap tipe diatas, yang menjadi perbedaan hanyalah
ukuran dan jangkauan nilainya saja, semakin besar ukurannya semakin banyak
memakan memori didalam computer kita, tetapi jika semakin panjang jangkauan
nilainya maka perhitungannya pun akan semakin akurat.
Tipe data byte, char, short dan
integer adalah tipe yang digunakan untuk menghitung bilangan bulat alias tanpa
koma-koma.Jadi kalau hanya
mengghitung bilangan bulat yang standar saja, sebaiknya menggunakan Tipe
data byte atau integer.
Tipe data long, decimal, single dan double digunakan untuk
menghitungan bilangan decimal atau real yang ada koma-komaannya.Jika menghitung pengkonversian suhu yang
notabene memerlukan penghitungan yang akurat sebaiknya menggunakan tipe
decimal atau single.
Tipe data string Yaitu tipe data yang bisa memasukkan semua
huruf, semua angka atau semua symbol atau kombinasi dari ketiganya, khusus
untuk angka nih, walaupun kita memasukkan angka tapi tetap saja angka tersebut
dianggap sebuah string dalam artian angka tersebut tidak bisa diproses (tidak
bisa ditambahkan, dikurangi, dikali, dibagi, atau yang lainnya).
Tipe data Boolean adalah tipe data yang
memiliki nilai True atau False, jika suatu nilai yang berupa angka dikonversi
menjadi nilai Boolean maka angka 0 akan menjadi false dan angka selain 0
menjadi True.
Tipe data Date yaitu tipe data untuk memasukkan
tanggal, memiliki rentang mulai dari 1 Januari tahun 0001 sampai 31 desember
9999.
- VARIABEL
Variabel adalah tempat untuk menyimpan suatu nilai, bisa dibilang variabel
adalah sebuah wadah yang diisi oleh suatu nilai tertentu.
Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.
Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.
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 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
Desain Form seperti gambar berikut ini.
isi coding berikut ini
Double Klick tombol Button1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, z As Integer
x = 20
y = 5
z = x * y
TextBox1.Text = z
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, z As Integer
x = 20
y = 5
z = x * y
TextBox1.Text = z
End Sub
End Class
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
- : penguranganContoh Program
KALKULATOR SEDERHANA
Desain Awal program
Tampilan program awal
2. Ubah Parameter Name dan Teks pada 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
|
||
Backcolor
|
Red
|
||
10
|
Button2
|
Text
|
*
|
Size
|
10
|
||
Name
|
Btnkali
|
||
Backcolor
|
Blue
|
||
11
|
Button3
|
Text
|
/
|
Name
|
Btnbagi
|
||
Size
|
10
|
||
Backcolor
|
Yellow
|
||
12
|
Button4
|
Text
|
+
|
Size
|
9
|
||
Name
|
Btntambah
|
||
Backcolor
|
Lime
|
||
13
|
Button5
|
Text
|
-
|
Size
|
10
|
||
Name
|
Btnkurang
|
||
Backcolor
|
green
|
||
14
|
Button6
|
Text
|
Bersih
|
Name
|
Btnbersih
|
||
15
|
Button7
|
Text
|
Tutup
|
Name
|
Btntutup
|
3. Setelah Parameter Name dan Teks pada Properties di ubah maka tampilannya akan menjadi seperti berikut ini
4. Setelah itu isi coding berikut ini dengan cara double klik pada masing-masing Button (^,*,/,+,-).
Public Class Form1
Private Sub BtnPangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpangkat.Click
Txthasil.Text = Txtbil1.Text ^ Txtbil2.Text
End Sub
Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkali.Click
Txthasil.Text = Txtbil1.Text * Txtbil2.Text
End Sub
Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbagi.Click
Txthasil.Text = Txtbil1.Text / Txtbil2.Text
End Sub
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click
Txthasil.Text = Txtbil1.Text + Txtbil2.Text
End Sub
Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkurang.Click
Txthasil.Text = Txtbil1.Text - Txtbil2.Text
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Txtbil1.Clear()
Txtbil2.Clear()
Txthasil.Clear()
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click
End
End Sub
End Class
5. Setelah selesai mengisi code.
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
TxtLuas.Text = TxtP.Text * TxtL.Text
TxtKel.Text = 2 * TxtP.Text * TxtL.Text
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtL.Clear()
TxtP.Clear()
TxtKel.Clear()
TxtLuas.Clear()
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
End
End Sub
End Class
Public Class Form1
Private Sub BtnPangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpangkat.Click
Txthasil.Text = Txtbil1.Text ^ Txtbil2.Text
End Sub
Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkali.Click
Txthasil.Text = Txtbil1.Text * Txtbil2.Text
End Sub
Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbagi.Click
Txthasil.Text = Txtbil1.Text / Txtbil2.Text
End Sub
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click
Txthasil.Text = Txtbil1.Text + Txtbil2.Text
End Sub
Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkurang.Click
Txthasil.Text = Txtbil1.Text - Txtbil2.Text
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Txtbil1.Clear()
Txtbil2.Clear()
Txthasil.Clear()
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click
End
End Sub
End Class
5. Setelah selesai mengisi code.
tekan tombol Start Debugging
Tampilan Hasil Debugging
LATIHAN
Membuat program penghitungan luas dan keliling persegi panjang- Desain Awal Program
- Ubah Parameter Name dan Teks pada Properties:
NO.OBJEKPROPERTIESPENGATURAN1Label1TextProgram Persegi PanjangFont Size9BoldTrue2Label2TextPanjang :3Label3TextLebar :4Label4TextLuas :5Label5TextKeliling :6TextBox1NameTxtP7TextBox2NameTxtL8TextBox3NameTxtLuas9TextBox4NameTxtKel10GroupBox1TextINPUTForecolourBlue11GroupBox2TextHasilForecolourRedNameBtnpangkatBackcolorRed12Button1TextProsesNameBtnProses13Button2TextBersihNameBtnbersih14Button3TextTutupNameBtntutup
- Setelah itu isi coding berikut ini dengan cara double klik pada masing-masing Button (Proses, Bersih, Tutup)
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
TxtLuas.Text = TxtP.Text * TxtL.Text
TxtKel.Text = 2 * TxtP.Text * TxtL.Text
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtL.Clear()
TxtP.Clear()
TxtKel.Clear()
TxtLuas.Clear()
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
End
End Sub
End Class
Tidak ada komentar:
Posting Komentar