Thursday, May 12, 2016

Latihan08 (Procedure Dan Function)

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 <nama_sub>
([<argumen>])
....
<isi procedure>
...
End Sub

Sedangkan bentuk penulisan(syntax) procedure function :
[Public | Private] Function
<nama_function ([<argumen>]) As
<tipe_data>
...
<isi procedure>
...
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.
<nama_sub> atau <nama_function> dibuat sebagai pengenal procedure untuk mengerjakan 'tugas'-nya. Sebuah procedure bisa saja memakai argumen sama sekali.
Pernyataan As<tipe_data> 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 <nama_sub>([<argumen>])
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 :


















Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

3 comments

mau tanya kang. metodenya tuh diterapkan di excel ya kang?

Cobalah untuk memilih Pelajaran Pemrograman dan belajar dari Materi Pertama
EmoticonEmoticon


TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/