PEMROGRAMAN I (VB) Pertemuan 3
By: Augury
[email protected] [email protected]
Type Data variant
variant adalah type data yang menerima segala jenis data yang dimasukkkan/diisikan kepadanya. Jika kita mendeklarasikan sebuah variable tanpa menentukan type-nya (tanpa As), maka secara default visual basic akan menganggap variable tersebut ber- type variant.
Type Data
variant – sebagai tipe tanggal dan waktu
Type data variant selain dapat bernilai angka atau string, juga dapat bernilai waktu dan tanggal.
Syntax: DateSerial(intTahun, DateSerial(intTahun, intBulan, intBulan, intHari) intHari) Year(dtTanggal) Year(dtTanggal) Hour(dtWaktu) Hour(dtWaktu) Minute(dtWaktu) Minute(dtWaktu)
Type Data
variant – sebagai tipe tanggal dan waktu
Contoh:
Catatan:
Private Private Sub Sub cmdWaktu_Click() cmdWaktu_Click() Dim Sekarang, Dim Sekarang, SisaHari, SisaHari, SisaJam, SisaJam, SisaMenit SisaMenit Sekarang ‘menyatakan Sekarang == Now Now ‘menyatakan tanggal tanggal sekarang sekarang Print “ “ Print “ “ Print “ “ Print “ “ &&Sekarang Sekarang Print Print ““ ““ SisaHari SisaHari == Int(DateSerial(Year(Sekarang)+1, Int(DateSerial(Year(Sekarang)+1, 1, 1, 1) 1) –– Sekarang) Sekarang) SisaJam SisaJam == 24 24 –– Hour(Sekarang) Hour(Sekarang) SisaMenit SisaMenit == 60 60 –– Minute(Sekarang) Minute(Sekarang) Print “ “ & SisaHari Print “ “ & SisaHari && “hari “hari lagi lagi tahun tahun ini ini berakhir berakhir Print Print ““ ““ &&SisaJam SisaJam && “jam “jam lagi lagi hari hari ini ini berakhir berakhir Print Print ““ ““ &&SisaMenit SisaMenit && “menit “menit lagi lagi jam jam ini ini berakhir berakhir End EndSub Sub
Kata yang dicetak tebal merupakan fungsi internal visual basic. DateSerial Æ mengubah ke type variant (DateTime) dari Integer Year Æ mengubah tahun ke type variant (Integer) dari DateTime Hour Æ mengubah jam ke type variant (Integer) dari DateTime Menute Æ mengubah menit ke type variant (Integer) dari DateTime
Daftar type data pada VB Tipe Data
Penyimpanan
Jangkauan
Kelompok
Integer
2 byte
-32768 – 32767
Numerik
Long
4 byte
-2147483648 – 2147483647
Numerik
Single
4 byte
-3.403823 E38 – -1.401298 E-45 untuk nilai negatif 1.401298 E-45 – 3.403823 E38 untuk nilai positif
Numerik
Double
8 byte
-1.79769313486232 E308 – -4.94065645841247 E-324 –
-4.94065645841247 E-324 -1.79769313486232 E308
Numerik
Currency
8 byte
-922,337203685477.5808 – 922,337203685477.5807
Numerik
String
1byte per karakter
0 – 65500 karakter untuk win 3.1 0 – 2 E32 karakter untuk win 9x/NT
Byte
1 byte
0 – 255
Numerik
Boolean
2 byte
True atau False
Boolean
Date
8 byte
1 January 100 – 31 December 9999
Object
4 byte
Referensi object
Obejct
Variant
16 byte + 1 byte untuk tiap karakter
Null, Error,Nilai numeric sampai jangkauan tie data Double, Character text, Object, atau array
Variant
String
Date
Type Casting
Konversi Tipe Data
Contoh:
Private Private Sub Sub cmdOk_Click() cmdOk_Click() Dim d Dim d Const Const phi phi == 3.14159265358979 3.14159265358979 dd == txtDiameter.text txtDiameter.text txtkeliling.text txtkeliling.text == CCur(phi CCur(phi ** d) d) txtLuas.text = CCur(1/4*phi*d^2) txtLuas.text = CCur(1/4*phi*d^2) End End Sub Sub
Fungsi konversi
Konversi ke –
Cbool(val)
Boolean
Cbyte(val)
Byte
Ccur(val)
Currency
CDate(val)
Date
CDbl(val)
Double
Cint(val)
Integer
CLng(val)
Long
CSng(val)
Single
CStr(val)
String
CVar(val)
Variant
CVerr(val)
Error
Type Data Buatan Sendiri
Pembuatan type data sendiri ini menggunakan kombinasi dari type data yang telah ada
Pendeklarasiannya menggunakan perintah Type setelah kata Public atau Private. Penggunaan kata Public dan Private tergantung pada ruang lingkup variable yang kita inginkan
Type Data Buatan Sendiri
Contoh Deklarasi type buatan sendiri : Public Public Type Type DataMahasiswa DataMahasiswa strNama strNama As As String String lNIM lNIM As As Long Long strJurusan strJurusan As As String String TglLahir As Date TglLahir As Date End Type End Type Dim Dim Data Data As As DataMahasiswa DataMahasiswa
‘DataMahasiswa ‘DataMahasiswa sbg sbg Type Type
Mengisi nilai untuk variable dengan type buatan sendiri: Data.Nama Data.Nama==“Wiro “WiroSableng” Sableng” Data.TglLahir Data.TglLahir==#17 #17Agustus Agustus1975# 1975#
Variable Array
Array merupakan type variable yang memungkinkan kita untuk menyimpan data secara berurutan dalam satu nama variable
Dalam array data tersimpan dengan menggunakan index untuk memudahkan kita dalam pencarian kembali data tersebut.
Variable Array
Contoh deklarasi variable array: Dim Dim arrIntContoh1(19) arrIntContoh1(19) As As Integer Integer Dim arrStrContoh2(1 to 20) Dim arrStrContoh2(1 to 20) As As String String Dim arrIntContoh3(19, 19) As Integer Dim arrIntContoh3(19, 19) As Integer Public Public arrLContoh4(80) arrLContoh4(80) As As Long Long
Keterangan :
‘array ‘array dgn dgn 20 20 elemen elemen ‘array dgn 20 elemen ‘array dgn 20 elemen ‘array ‘array 22 Dimensi Dimensi
secara defaut indeks array dimulai dari 0, maka arrIntContoh1 memiliki 20 elemen dengan indeks 0 sampai 19 arrIntContoh2 memiliki 20 elemen dengan indeks 1 sampai 20
Mengisi nilai untuk variable array dengan index tertentu: arrIntContoh1(0) arrIntContoh1(0) == 23 23 arrStrContoh2(1) arrStrContoh2(1) == “Senin” “Senin” arrIntContoh3(1,2) = arrIntContoh3(1,2) = 11 11
Thanks
