PROCEDURE, FUNCTION, DAN MODULE

 

Procedure, Function, dan Module

Program Viasual Basic memuat banyak komponen, termasuk modul dan kelas. Programer mengkombinasikan modul dan kelas baru dengan kelas-kelas yang tersedia dalam FCI (Framework Class Library).NET. Ketika prosedur dimuat di dalam sebuah kelas, prosedur tersebut dinamakan dengan metode.

FCI memuat koleksi yang kaya akan kelas dan metode yang bisa dipakai untuk melakukan kalkulasi matematika, manipulasi string, manipulasi karakter, operasi masukan/keluaran, pemeriksaan error, dan banyak operasi lain. Framework tersebut membuat pekerjaan programer menjadi lebih mudah, karena banyak metode di dalamnya menyediakan kapabilitas yang dibutuhkan.

Meskipun FCI menyediakan banyak metode yang bisa dipakai untuk mengerjakan pekerjaan-pekerjaan yang umum dijumpai, tetap saja hal itu tidak bisa memenuhi semua yang dibutuhkan programer. Jadi, Visual Basic membolehkan programer untuk menciptakan prosedur yang bisa didefinisikan sendiri. Terdapat tiga tipe prosedur, yaitu prosedur Sub, prosedur Function, dan prosedur event. Pada modul ini, istilah prosedur merujuk pada prosedur Sub dan prosedur Function.

1)      Sub Prosedur

Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. Format penulisannya yakni sebagai berikut.

[Private|Public] Sub subname[(argumentlist)]

 Statements

End sub

Sub prosedur sebaiknya menggunakan kata kerja (verb) Pemanggilan prosedur yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me. Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference). Jika menggunakan by value, nilai pada argument tidak berubah. Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesuai dengan perintah dalam procedure. Secara default, argument dimasukkan melalui nilai (by value) dapat menggunakan kata kunci ByVal dan ByRef untuk By Reference.

2)      Function (Fungsi)

Fungsi mempunyai banyak kemiripan dengan sub procedure. Bedanya, fungsi selalu mengembalikan nilai (return value). Perbedaan antara fungsi dengan procedure hanyalah pada pengembalian nilai saja (return value). Pengembalian nilai dapat dilakukan dengan menggunakan operator assignment “=” pada fungsi atau biasanya dengan perintah return. Format penulisannya yakni sebagai berikut.

Private Function cekData() as Boolean

 if IsNumeric(TextAwal.text) then

 return true

 else

 return false

 endif

end function

3)      Modul (Module)

Modul merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form. Umumnya modul dideklarasikan secara public (public) agar dapat digunakan di dalam kode dimanapun. Modul dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai. Modul merupakan salah satu argumentasi code reuse yang bertujuan agar program lebih efesien. Format penulisannya adalah sebagai berikut.

Module moduleName

Statement

End module

Membuat Aplikasi Sederhana

1)      Buka aplikasi Visual Studio Community 2013.

2)      Buat project baru dengan memilih Start New Project. Setelah itu pilih bagian visual basic, windows form application. Kemudian beri nama “Praktikum 7 Prosedure dan Function”.

3)      Berikut tampilan awal project “Praktikum 7 Prosedure dan Function”.


4)      Selanjutnya tambahkan objek pada form dibagian toolbox, objek yang ditambahkan yakni sebagai berikut.

a.       Label

b.      TextBox

c.       Button

5)      Atur bagian properties pada form dan objek kontrol yang dipilih dengan mengubahnya menjadi sebagai berikut.

Objek

Properties

Nilai

Form1

Name

Text

Form1

Barang

Label1

Text

Kode Barang

Label2

Text

Nama Barang

Label3

Text

Satuan

Label4

Text

Harga

Label5

Text

Jumlah

Label6

Text

Total Harga

TextBox1

Name

TxtKodeBrg

TextBox2

Name

TxtNamaBrg

TextBox3

Name

TxtSatuan

TextBox4

Name

TxtHrgSatuan

TextBox5

Name

TxtHarga

TextBox6

Name

TxtTot

Button1

Name

Text

BtnHitung

Hitung

Button2

Name

Text

BtnClear

Clear

Button3

Name

Text

BtnExit

Exit

6)      Setelah mengganti nilai dari properties, maka akan muncul tampilan seperti gambar dibawah ini.

7)      Setelah itu melakukan pengisian kode program pada masing-masing objek kontrol.

8)      Membuat procedure Bersih() dengan Klik ganda pada Form1, kemudian panggil procedure tersebut pada form load. Selanjutnya ketikkan kode program berikut ini.

9)      Klik ganda pada BtnClear, kemudian ketikkan kode program berikut ini untuk memanggil procedure Bersih().

10)  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug → Start Debuging, dengan mengisi semua nilai, kemudian klik BtnClear. Hasilnya yakni sebagai berikut.

Ketika BtnClear diklik, semua TextBox akan terhapus isinya dan kemudian cursor akan diarahkan ke txtTugas (TxtKodeBrg.Focus( )).

11)  Selanjutnya membuat function Hitung() sesudah procedure Bersih(). Kemudian ketikkan kode program berikut ini.

12)  Selanjutnya membuat procedure CekDataKosong() dan sekaligus memanggil function Hitung()  dengan mengetikkan kode berikut.

13)  Klik ganda pada BtnHitung, kemudian ketikkan kode program berikut ini untuk memanggil procedure CekDataKosong().

14)  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug → Start Debuging, kemudian mengisi semua nilai setelah itu klik BtnHitung. Hasilnya yakni sebagai berikut.

15)  Selanjutnya klik ganda pada BtnExit, kemudian ketikkan kode program berikut ini.

16)  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug → Start Debuging dengan mengisi kembali semua nilai, kemudian klik BtnExit, maka akan muncul konfirmasi seperti berikut ini.

Jika klik Yes maka form akan ditutup, jika klik No maka akan kembali ke form.

17)  Setelah itu, dibuat kembali project baru dengan nama “Praktikum 7 Function” sebagai pembuatan form selanjutnya.

18)  Berikut tampilan awal project “Praktikum 5 For”.

19)  Selanjutnya tambahkan objek pada form dibagian toolbox, objek yang ditambahkan yakni sebagai berikut.

a.       TextBox

b.      GroupBox

c.       RadioButton

d.      Button

20)  Atur bagian properties pada form dan objek kontrol yang dipilih dengan mengubahnya menjadi sebagai berikut.

Objek

Propeties

Nilai

Form1

Text

StartPosition

Perulangan Do While

CenterScreen

TextBox1

Name

TxtVar1

TextBox2

Name

TxtVar2

TextBox3

Name

TxtHasil

GroupBox1

Text

Operasi

RadioButton1

Name

Text

RdbAkar

Akar Kuadrad

RadioButton2

Name

Text

RdbPangkat

Pangkat

RadioButton3

Name

Text

RdbPembagian

Pembagian

RadioButton4

Name

Text

RdbPerkalian

Perkalian

RadioButton5

Name

Text

RdbPenjumlahan

Penjumlahan

RadioButton6

Name

Text

RdbPengurangan

Pengurangan

Button1

Name

Text

BtnHitung

Hitung

Button2

Name

Text

BtnExit

Exit

21)  Setelah mengganti nilai dari properties, maka akan muncul tampilan seperti gambar dibawah ini.

22)  Setelah itu melakukan pengisian kode program pada masing-masing objek kontrol.

23)  Klik kanan pada form, kemudian pilih menu view code, kemudian ketik deklarasi masing-masing fungsi sebagai berikut ini.

24)  Klik ganda pada BtnHitung, kemudian ketikkan kode program berikut ini.

25)  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug → Start Debuging. Pada aplikasi tersebut hanya bisa mengoperasikan antar dua angka dan tidak dapat mengoperasikan antar dua huruf. Hasilnya yakni sebagai berikut.

a.       Akar Kuadrad

b.      Pangkat

c.       Pembagian

d.      Perkalian

e.       Penjumlahan

f.        Pengurangan

26)  Selanjutnya klik ganda pada BtnExit, kemudian ketikkan kode program berikut ini.

27)  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug → Start Debuging dengan mengisi kembali semua nilai, kemudian klik BtnExit, maka akan muncul konfirmasi seperti berikut ini.

Jika klik Yes maka form akan ditutup, jika klik No maka akan kembali ke form.

Komentar

Posting Komentar