Elemen - Elemen Program (Data, Konstanta, Variabel)

Hal-hal yang perlu dipahami sebelum bekerja dengan visual basic:

1.       Data dan type nya
2.      Konstanta
3.      Variabel
4.       Hal-hal pendukung dalam pembuatan program

Data sangat erat kaitannya dengan program karena data merupakan nilai yang dibutuhkan oleh aplikasi, sedangkan program merupakan instruksi yang digunakan untuk mengolah data tersebut. Jadi data dan program merupakan syarat mutlak dalam merancang aplikasi yang sempurna.

1.Tipe Data

Dalam merancang suatu aplikasi program kita harus memahami betul tentang tipe data yang digunakan, karena kesalahan dari penggunaan tipe data akan menyebabkan program aplikasi tidak berjalan maksimal(misalkan error atau lambat)

Macam-macam tipe data:

Tipe data variant

Tipe data yang bersifat umum artinya tipe data ini bisa masuk atau ditampung kedalam variabel yang bertipe ini. Jika suatu variabel dideklarasikan tanpa menggunakan perintah as, maka tipe data yang digunakan adalah variant.

PRIVATE SUB FORM_ACTIVATE ()

DIM HARGA, JUMLAH, HARGA_TOTAL (PROSES PENDEKLARASIAN VARIABEL)

HARGA=”10000”

JUMLAH=5

HARGA_TOTAL =HARGA * JUMLAH

PRINT HARGA & “*” & JUMLAH & “=” & HARGA_TOTAL

END SUB

PRIVATE SUB FORM_ACTIVATE ()

DIM TANGGAL_LAMA, TANGGAL_BARU

TANGGAL_LAMA = # 17/05/1977 #

TANGGAL_BARU = TANGGAL_LAMA + 1

PRINT “TANGGAL YANG LAMA :” & TANGGAL_LAMA

PRINT “TANGGAL YANG BARU :” & TANGGAL_BARU

END SUB

Variabel dengan menggunakan type data variant dapat digabung dengan menggunakan tanda & dan tanda +

Ada perbedaan dari penggabungan variabel dengan mengunakan tanda & dan + seperti tabel berikut:

Menggunakan tanda &

NO	DEKLARASI	HASIL
1	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =”234” NILAI_2 = 5 HASIL = NILAI_1 & NILAI_2	2345
2	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =”XXX” NILAI_2 = 5 HASIL = NILAI_1 & NILAI_2	XXX5
3	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =234 NILAI_2 = 5 HASIL = NILAI_1 & NILAI_2	2345

Menggunakan tanda +

NO	DEKLARASI	HASIL
1	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =”234” NILAI_2 = 5 HASIL = NILAI_1 + NILAI_2	239
2	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =”XXX” NILAI_2 = 5 HASIL = NILAI_1 & NILAI_2	RUN TIME ERROR TYPE MISMACH
3	DIM HASIL, NILAI_1, NILAI_2 NILAI_1 =234 NILAI_2 = 5 HASIL = NILAI_1 + NILAI_2	239

Type data lain (Non Variant)

Pada saat melakukan perhitungan matematik, disarankan kita harus mengunakan type data numerik meskipun type data variant sudah cukup mampu melakukan pekerjaan tersebut.tapi jika salah menempatkannya di program maka aplikasi tidak akan berjalan dengan baik.

Secara umum type data pada visual basic dikelompokkan menjadi 5:

1.       Numerik: dipakai untuk menyimpan data angka (number)

A.      Byte : data berupa bilangan bulat positif ukuran nya 1 byte (0 sd 255)

B.      Integer: bilangan bulat (tanpa pecahan) ukuran 2 byte (-32768 sd 32767)

C.      Long : bilangan bulat positif (tanpa pecahan) ukuran 4 byte (10 angka)

D.      Currency: menyimpan nilai mata uang 8 byte (15 angka)

E.       Single: data numerik ukuran 4 byte (10)

F.       Double: data numerik ukuran 8 byte (20)

G.     Decimal: menyimpan nilai desimal (pecahan) dengan keakuratan (presisi) sampai 28 angka desimal ukuran 14 byte

2.       String: menyimpan rangkaian data karakter

Nilai alpanumerik ukuran 1 byte per karakter (sampai 2 milyar karakter)

3.       Boolean  : menyimpan data dengan nilai benar atau salah (true atau false)

2 byte

4.       Date :menyimpan data berupa tanggal dan waktu

 8 byte ( 1 january 100 sd 31 des 9999)

5.       Object: menyimpan data berupa objek

Seperti form, kontrol 4 byte

Mendeklarasikan suatu variabel dengan type data bukan variant harus menggunakan perintah : dim, private, public, static

CONTOH DEKLARASI VARIABEL NON VARIANT:

PRIVATE HASIL AS SINGLE

DIM JUMLAH AS INTEGER, HARGA AS DOUBLE

PUBLIC NAMAKU AS STRING

STATIC KOTA AS STRING, HARI AS BYTE, CEK AS BOOLEAN

Type Data Buatan Sendiri

Selain menggunakan type data yang sudah disediakan oleh visual basic kita juga dapat membuat type data sendiri  atau baru dengan mengambil salah satu atau sebagian dari type data standar yang telah disediakan.

Dalam mendeklarasikan type data buatan sendiri kita harus menggunakan perintah type setelah kata public atau private

Penggunaan kata private atau public tergantung dari ruang lingkup variabel yang diinginkan. Secara umum penulisannya sbb;

PRIVATE TYPE <NAMA_TYPE_DATA>

…………

…………

END TYPE

ATAU

PUBLIC TYPE <NAMA_TYPE_DATA>

…………

…………

END TYPE

Contoh: tabel karyawan terdiri dari field nik, nama, alamat, kota, tanggal_lahir, jumlah_anak maka type data buatan sendirinya adalah sebagai berikut:

PRIVATE TYPE DATA_KARYAWAN

NIK                                         AS STRING * 10

NAMA                                    AS STRING * 30

ALAMAT                               AS STRING * 50

KOTA                                     AS STRING * 20

TANGGAL_LAHIR             AS DATE

JUMLAH_ANAK                 AS BYTE

END TYPE

Untuk mengisikan data dari type data buatan sendiri dapat dilakukan dengan dua cara yaitu:

1.   LEWAT PROGRAM
2.  LEWAT VARIABLE

•  CONTOH PENGISIAN DATA LEWAT PROGRAM SBB:

SUB ISI_DATA ()

NIK                                         = “961352”

NAMA                                    = ”HARIANJA”

ALAMAT                               = ”JL.CIPAKU INDAH II NO. 27 CIDADAP”

KOTA                                     = ”BANDUNG”

TANGGAL_LAHIR             = #17/05/1977#

JUMLAH_ANAK                 = 3

END SUB

• CONTOH PENGISIAN DATA BUATAN SENDIRI MENGGUNAKAN VARIABEL

SUB ISI_DATA ()

NIK                                         = TXT_NIK.TEXT

NAMA                                    = TXT_NAMA.TEXT

ALAMAT                               = TXT_ALAMAT.TEXT

KOTA                                     = TXT_KOTA.TEXT

TANGGAL_LAHIR             = TXT_LAHIR.TEXT

JUMLAH_ANAK                  = TXT_ANAK.TEXT

END SUB

LATIHAN 2

Buat Form seperti gambar berikut:

Atur properties sebagai berikut:

FORM/KONTROL	PROPERTIES	SETTING
FORM 1	NAME CAPTION	DATA KARYAWAN PENGOLAHAN DATA KARYAWAN
LABEL	NAME CAPTION INDEX	LABEL1 NIK, Nama, Alamat, Kota, Tgl_Lahir, Jml_Anak, 0,1,2,3,4,5,
TEXTBOX1	NAME TEXT	Txt_NIK -
TEXTBOX2	NAME TEXT	Txt_Nama -
TEXTBOX3	NAME TEXT	Txt_Alamat -
TEXTBOX4	NAME TEXT	Txt_Kota -
TEXTBOX5	NAME TEXT	Txt_Lahir -
TEXTBOX6	NAME TEXT	Txt_Anak -
COMMAND1	NAME CAPTION	Cmd_Tampil &TAMPIL
COMMAND2	NAME CAPTION	Cmd_Bersih &BERSIH
COMMAND3	NAME CAPTION	Cmd_Keluar &KELUAR

•  TULISKAN SINTAX SEBAGAI BERIKUT (PADA BAGIAN GENERAL):

DIM DATA AS DATA_KARYAWAN

PRIVATE TYPE DATA_KARYAWAN

NIK                                         AS STRING * 10

NAMA                                    AS STRING * 30

ALAMAT                               AS STRING * 50

KOTA                                     AS STRING * 20

TANGGAL_LAHIR             AS DATE

JUMLAH_ANAK                 AS BYTE

END TYPE

• TULISKAN PERINTAH PADA MASING MASING COMMAND BUTTON SEBAGAI BERIKUT:

v  KLIK DUA KALI COMMAND 3 TULISKAN PERINTAH:

END

v  KLIK DUA KALI COMMAND 2 TULISKAN PERINTAH:

CALL BERSIH

v  KLIK DUA KALI CAMMAND 1 TULISKAN PERINTAH:

CALL ISI_DATA

CALL TAMPIL_DATA

•  BUATKAN PERINTAH BERSIH SEBAGAI BERIKUT:

     SUB BERSIH ()

        TXT_NIK.TEXT = “”

                                TXT_NAMA.TEXT= ””

                                TXT_ALAMAT.TEXT= ””

                                TXT_KOTA.TEXT= ””

                                TXT_LAHIR.TEXT= ””

                                TXT_ANAK.TEXT= ””

                END SUB

• BUATKAN PERINTAH ISI_DATA SEBAGAI BERIKUT:

SUB ISI_DATA()

            DATA.NIK=TXT_NIK.TEXT

DATA.NAMA=TXT_NAMA.TEXT

DATA.ALAMAT=TXT_ALAMAT.TEXT

DATA.KOTA=TXT_KOTA.TEXT

DATA.LAHIR=TXT_LAHIR.TEXT

DATA.ANAK=TXT_ANAK.TEXT

                END SUB

• BUAT PROSEDUR TAMPIL DATA UNTUK MENAMPILKAN DATA KE KOTAK PESAN :(MSG BOX) DARI DATA YANG ADA DI VARIABEL SBB:

SUB TAMPIL_DATA()  (USAHAKAN DATA OTOMATIS)

MsgBox “INFORMASI DATA KARYAWAN: “ & chr (10) &_

 “NIK : “& DATA.NIK & chr (10) &_

“NAMA : “ & DATA.NAMA & chr (10) &_

 “ALAMAT : “ & DATA.ALAMAT & chr(10) &_

“KOTA : “ & DATA.KOTA & chr (10) &_

 “TANGGAL_LAHIR: “ & DATA.LAHIR & chr(10) &_

“JUMLAH_ANAK : “& DATA.ANAK

END SUB

Tweet

Subscribe to receive free email updates: