Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
P8 Procedure & Function pada Visual Basic .Net A. Tujuan
Mahasiswa dapat memahami procedure dan function pada pemrograman Visual Basic .Net. Mahasiswa dapat membuat aplikasi dengan kasus berbagai bentuk procedure dan function.
B. Pembahasan
Procedure Function
8.1. Procedure Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang akan dilakukan secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa perlu menuliskan kode yang sama lagi. Procedure dibagi menjadi 2 jenis yaitu Subrutin dan Fungsi, dimana Subrutin tidak dapat mengembalikan suatu nilai sedangkan Fungsi dapat mengembalikan suatu nilai pada dirinya.
8.1.1. Subrutin
Subrutin adalah procedure yang tidak dapat mengembalikan nilai, biasanya digunakan untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses tersebut. Sintaks dasar untuk membuat Subrutin adalah sebagai berikut : {Lingkup} Sub NamaPosedur ([Argumen]) {Pernyataan Prosedur} End Sub Keterangan : {Lingkup} Sub NamaProsedur {Pernyataan Prosedur} [Argumen] End Sub
1
Contoh :
Visual Basic .Net
Kata kunci yang mengindikasikan ruang lingkup suatu prosedur Pernyataan sebelum nama Subrutin Nama dari Prosedur Pernyataan-pernyataan dalam prosedur Parameter-parameter dalam Prosedur yang dapat dilalui suatu nilai Pernyataan untuk mengakhiri Prosedur Subrutin
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Private Sub PesanNama (ByVal strNama As String) MsgBox (“Hello” + strNama) End Sub Keterangan : - Prosedur diatas merupakan suatu Subrutin yang memiliki sebuah parameter dengan tipe string, dan satu baris pernyataan dalam prosedur dengan ruang lingkup Private (Modul). - Untuk memanggil Prosedur, dapat dilakukan dengan melengkapi sintaks diatas dengan kode misalnya seperti berikut : PesanNama (“Dhyn”)
Contoh Lain : Private Sub PesanNama2 (ByVal strNama As String, ByVal strNama2 As String) MsgBox (“Hello” + strNama1 + “dan” + strNama2) End Sub Keterangan : Untuk memanggil Prosedur di atas harus dilakukan melalui 2 nilai bertipe string dalam parameternya : PesanNama2 (“Dhyn”, “Eryan”)
8.1.2. Function (Fungsi)
Fungsi adalah suatu Prosedur yang dapat mengembalikan nilai pada dirinya, sehingga fungsi dapat memiliki tipe data untuk nilai baliknya. Sintaks dasar untuk membuat Fungsi adalah : {Lingkup} Function NamaPosedur ([Argumen]) As TipeData {Pernyataan Fungsi} [Nilai Balik] End Function Keterangan : {Lingkup} Kata kunci yang mengindikasikan ruang lingkup suatu Fungsi Function Mendeklarasikan Fungsi NamaProsedur Nama dari Prosedur [Argumen] Parameter-parameter dalam Prosedur yang dapat dilalui suatu nilai TipeData Jenis data atau tipe data dari nilai yang akan dikembalikan {Pernyataan Fungsi} Pernyataan-pernyataan dalam Fungsi [NilaiBalik] Nilai yang akan dikembalikan oleh Fungsi End Function Pernyataan untuk mengakhiri Fungsi
2
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Contoh Fungsi untuk penambahan 2 nilai yang diargumenkan : Private Function Tambah (ByVal I As Integer, ByVal j As Integer) As Integer Tambah = i+j End Function Keterangan : - Untuk memanggil Fungsi diatas, dapat ditambahkan kode misalnya seperti berikut : MsgBox (Tambah (3,6)) - Pernyataan pada Prosedur akan menambahkan kedua nilai yang akan dilalukan pada parameternya dan hasilnya dijadikan nilai balik dari prosedur tersebut.
8.1.3. Latihan a. Procedure 1. Desainlah sebuah form dengan nama “frmDataBerobat” seperti pada tampilan berikut:
Gambar 7. 1 Desain Form Data Berobat
3
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
2. Tuliskan sintaks berikut : Deklarasikan varibel seperti berikut : Private data_berobat(5, 3) As String Private indeks_data As Byte = 0
Double klik pada button Simpan, dan tuliskan kode berikut : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click simpan_data() End Sub Private Sub simpan_data() If indeks_data >= 5 Then MsgBox("List sudah penuh") Else data_berobat(indeks_data, 0) = TextBoxKode.Text data_berobat(indeks_data, 1) = TextBoxNama.Text data_berobat(indeks_data, 2) = Format(DateTimePicker1.Value, "dd MMM yyyy").ToString indeks_data = indeks_data + 1 TextBoxKode.Text = "" TextBoxNama.text = "" TextBoxKode.Focus() End If End Sub
Double klik pada button Lihat Data, tuliskan kode berikut : Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click lihat_data() End Sub Private Sub lihat_data() Dim i As Byte If indeks_data > 0 Then ListBox1.Items.Clear() ListBox2.Items.Clear() ListBox3.Items.Clear() For i = 0 To indeks_data - 1 ListBox1.Items.Add(data_berobat(i, 0)) ListBox2.Items.Add(data_berobat(i, 1)) ListBox3.Items.Add(data_berobat(i, 2)) Next End If End Sub
3. Jelaskan hasil debugging program ?
b. Function 1. Desainlah form dengan nama “frmPembayaran” seperti berikut :
4
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
Gambar 7. 2 Desain Form Pembayaran
2. Ketikkan kode berikut pada event yang telah ditentukan : Deklarasikan Function berikut : Function hitung_biaya(ByVal pemeriksaan As Integer, ByVal obat As Integer, ByVal kelompok As Byte) As Integer Dim potongan As Integer Dim total As Integer total = pemeriksaan + 0 Select Case kelompok Case Is = 0 potongan = 0 Case Is = 1 potongan = (50 * total) / 100 Case Is = 2 potongan = (90 * total) / 100 End Select hitung_biaya = total - potongan End Function
Double klik pada button Hitung dan ketikkan kode berikut : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim jumlah_biaya As Integer jumlah_biaya = hitung_biaya(CInt(TextBox3.Text), CInt(TextBox4.Text), ComboBox1.SelectedIndex) TextBox5.Text = jumlah_biaya End Sub
Double klik pada button Baru, ketikkanlah kode berikut : Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 5
Visual Basic .Net
Program Studi DIII Rekam Medis POLITEKNIK KESEHATAN PERMATA INDONESIA
TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox1.Text = "" TextBox5.Text = "" TextBox5.Focus() End Sub
3. Jelaskan hasil debugging program ?
8.1.4. Evaluasi (Tugas 8.1) 1. Desainlah form untuk studi kasus : pelayanan apotek rumah sakit. Form-form tersebut antara lain : a) Form pendataan stock obat masuk b) Form pelayanan penebusan resep obat 2. Tentukan nama form tersebut sesuai dengan kasusnya. 3. Lengkapi dengan objek-objek yang diperlukan, termasuk objek yang berkaitan untuk menangani Procedure. 4. Berikan keterangan Label dan button yang sesuai dengan kasus. 5. Lengkapi from dengan objek ListBox sebagai tempat penyimpanan data. 6. Lengkapi setiap form dengan sintaks Procedure pada event yang diperlukan, sehingga program berhasil dijalankah (proses debugging sukses). Ketentuan Tugas : Tugas dikumpulkan dalam bentuk document dengan menampilkan : 1. Desain form yang sudah dibuat 2. Sintaks pada form Penilaian utama terletak pada : 1. Kesesuain desain form (baik objek maupun keterangan yang digunakan) dengan kasus. 2. Kelengkapan form maupun sintaks yang menggunakan bentuk Procedure. Tugas dikumpulkan pada pertemuan berikutnya.
6
Visual Basic .Net
