Latihan08 (Procedure Dan Function)

Agustus 18, 2020 Fajar (Ucup) 0 Komentar pemrograman

Latihan08 (Procedure Dan Function) : VB6

Procedure

Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu.

Jenis-jenis Procedure

Pada VB6 ada 4 jenis procedure, yaitu :

Procedure Sub - Procedure yang tidak mengembalikan nilai setelah "tugas"-nya selesai
Procedure Function-Procedure yang mengembalikan nilai setelah "tugas"-nya selesai.
Procedure Event-procedure untuk suatu event pada sebuah object. Digunakan didalam class module.
Procedure Property-procedure untuk mengubah (let) atau mengambil(get) nilai property pada sebuah object. Digunakan di dalam class module. Bentuk penulisan(syntax) procedur sub :

[Public | Private] Sub

([])

....

...

End Sub

Sedangkan bentuk penulisan(syntax) procedure function :

[Public | Private] Function

]) As

...

...

End Function

Penjelasan :

Pernyataan [Public | Private] menentukan ruang lingkup (scope) procedure. Sebuah procedure dengan scope public bisa digunakan dalam lingkup project. Sedangkan procedure dengan scope private hanya bisa digunakan dalam lingkup form saja.

atau dibuat sebagai pengenal procedure untuk mengerjakan 'tugas'-nya. Sebuah procedure bisa saja memakai argumen sama sekali.

Pernyataan As pada procedure function menentukan tipe data nilai yang akan dikembalikan (return value) setelah 'tugas'-nya selesai. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di-"panggil" pada bagian tertentu dari kode program. Procedure sub di-"panggil" dengan pernyataan : Call ([])

Sedangkan procedure funcion bisa di-"panggil" langsung dengan menyisipkan di dalam kode program yang memanggilnya. Procedure boleh ditulis dimana saja dalam kode program, tetapi biasanya ditulis dibagian atas atau bawah agar mudah ditangani.

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

Textbox 1 namenya : txthari

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.

Ketentuaan Pengerjaan :

Pada saat program akan dijalankan pada txthari Ketikan tanggal yang akan dicari harinya dengan format dd/mm/yyyy, contoh : 11/04/2010

masukkan listing program seperti berikut :

Function Hari(tgl As Date) As String
hari_ke = Weekday(tgl, vbSunday)
Select Case hari_ke
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
End Function

Private Sub cmdproses_Click()
MsgBox "Pada Tanggal" & txthari.Text & " adalah hari " & Hari(txthari.Text), , "Hari"
txthari.SetFocus: SendKeys "{home}+{end}"
End Sub

Penjelasan Coding :
Yang Fungction intinya memanggil hari yang ada pada tanggal komputer dan diubah dalam format penulisan harinya. sunday = minggu (Case1)

MsgBoxnya menampilkan kata Pada tanggal lalu diikuti isinilai dari txthari Adalah har lalu variabel nama Hari komputer,, "Hari" adalah caption yang muncul ditextbox informasinya

Jika ada pertanyaan lain silakan melalu komentar 🙂

Lalu Klik Run - Start atau tekan f5 :