Skip Navigation Links
Home
Paket E-book
Toko online
Layanan
Forum
Panduan
E-book
Testimoni
Faq
Reseller
Tentang
Donasi

Skip Navigation Links.
Expand ArtikelArtikel
Expand Basis Data - DatabaseBasis Data - Database
Expand Pemrograman GrafisPemrograman Grafis
Expand E-Book TutorialE-Book Tutorial
Expand Video Kursus - TutorialVideo Kursus - Tutorial
Expand Software - Open Source codeSoftware - Open Source code
Expand Windows SystemWindows System
Expand Network ProgrammingNetwork Programming
Expand Bisnis ProsesBisnis Proses
Expand XBasicFrameworkXBasicFramework
Expand Pengen Jadi Programmer..!Pengen Jadi Programmer..!
Expand Quick BasicQuick Basic


Software gratis! Open Source Code


Hartoto

Buat Lencana Anda



Skip Navigation LinksMENU>Artikel>Visual Basic 6.0>Membuat Method pada Class

Membuat method pada class visual basic 6.0

Method bawaan visual basic telah dijelaskan pada artikel  objek control dasar
Sekarang kita akan membuat method sendiri pada kelas buatan kita.

Method bisa berupa  function ataupun procedure yang dibuat pada Class.
Function dan Procedure ini bisa mempunyai scoope Public ataupun Private. Function dan Procedure bisa menerima parameter masukan. Function bisa mengembalikan nilai keluaran Lihat juga pembahasan procedure ataupun function pada E-Book Trik Dasar Visual basic 6.0 

Jika dinyatakan Public maka method tersebuat dapat dibaca dari luar Class. Sebaliknya jika dinyatakan Private maka method tersebut hanya dapat dibaca dari dalam Class itu sendiri.

Dengan membuat Method ini berarti kita talah menyembunyikan (membungkus / encapsulation) detail pekerjaan yang berada di dalam Prosedur ataupun Function pada Class.


Ok. Langsung saja kita praktek. Pada project Class terdahulu kita telah membuat Class Mahasiswa beserta property-proertynya nya.

Sekarang kita akan menambahkan Method / Function pada Class Mahasiswa. Method ini berfungsi untuk mengkonversi nilai angka yang diisikan pada form mahasiswa menjadi nilai Huruf.

di bawah ini adalah kodenya:

Public Function getNilaiAngka(iNilaiAngka As Integer) As String

  Dim sHuruf As String 

  Select Case iNilaiAngka

  Case 80 To 100

    sHuruf = "A"

  Case 70 To 89

    sHuruf = "B"

  Case 60 To 79

    sHuruf = "C"

  Case 50 To 69

    sHuruf = "D"

  Case Else

    sHuruf = "Nilai di luar kriteria yang ada!"

  End Select 

  getNilaiAngka = sHuruf

End Function


Function di atas akan melakukan pengubahan nilai yang diumpankan melalui parameter
iNilaiAngka dan akan dikembalikan hasilnya berupa string (As String) kepada pemanggilnya.

Berikut adalah kode pemanggilnya pada command Button:

Private Sub cmdGetNilaiAngka_Click()

   MsgBox oMhs.getNilaiAngka(txtNilai.Text)

End Sub

Setelah mengetik kode nya dengan lengkap seperti di atas. Sekarang kita jalankan programnya. Tekan F5 lalu isi textbox nya kemudian tekan tombol get Nilai Angka. Jika benar maka hasilnya akan tampak seperti gambar di bawah ini:



Download projec Class Method Klik di sini

Anda juga bisa melihat penjelasan yang lebih detail di ebook saya yang berjudul
Trik N-Tier Programming dengan Visual Basic 6.0

:: Klik Suka di FansPage XBasicPro Jika ANDA suka dengan Website ini klik di sini! ::




 Subscribe in a reader


  (C)XBasicPro 2007 - 2014 | Kursus Programmer Online | Software Gratis | Open Source Code |