Hanya ingin meluruskan(CMIIW) penambahan deklarasi variable usia saya rasa tidak perlu, karena yg digunakan adalah function. Penambahan perlu dilakukan bila yg digunakan adalah prosedure.
Harus diIngat : 1. Function -->> mengembalikan nilai 2. Prosedure(sub) -->> tidak mengembalikan nilai Label1.Caption = Coba(a) <<===ini tidak salah salahnya hanya kurang lengkap di functionnya(kurang return valuenya) misalnya menjadi seperti ini vb6: Function Coba(a As String) As Double ...bla..bla Coba = 1 End Function vb.net Function Coba(a As String) As Double ...bla..bla Return 1 End Function Salam, Agus Pradikta --- In [email protected], Bace - Bace <[EMAIL PROTECTED]> wrote: > > koding di function sudah baik, hanya saja kurang satu hal. Anda harus mengdeklarasikan Usia > > Dim Usia > > Function Coba(a As String) As Double > ...bla..bla > End Function > > > Kesalahan anda lakukan di : > > Private Sub Command1_Click() > Dim x,x1,a As String > x = " SELECT * FROM NN WHERE NN.No=1" > Set x1 = cn.Execute(x) > a = x1(0) > Label1.Caption = Coba(a) <<===ini kesalahan anda > End sub > > yang anda lakukan dengan kode diatas adalah menjalankan fungsi Coba, tetapi hasil dari fungsi Coba itu tidak anda tangkap, maka hasil nya adalah 0 (nol), Nol itu terjadi karena type data Function Coba adalah double, jadi bukan hasil dari function Coba. > > Rubah kode menjadi seperti ini: > > Private Sub Command1_Click() > Dim x,x1,a As String > x = " SELECT * FROM NN WHERE NN.No=1" > Set x1 = cn.Execute(x) > a = x1(0) > > Coba(a) <== hasilnya adalah usia, usia sudah dideklarasikan, sehingga bisa dibaca diprosedur manapun > Label1.Caption = Usia > > End sub > > > Semoga membantu: =(oVo)= > ==================== > BaceInside Publisher > Copyright @2007 > Not for reproduced, republished. > Thank You > ==================== > > > ----- Original Message ---- > From: Sodik Ihwan <[EMAIL PROTECTED]> > To: [email protected] > Sent: Wednesday, May 14, 2008 9:59:54 AM > Subject: Re: [Programmer-VB] function > > coba sebelum end function ditambahkan baris ini mas > Coba = Usia > > salam, > sodik > > On Mon, 12 May 2008 22:23:00 +0700, vbyono <[EMAIL PROTECTED]> wrote: > > > Function Coba(a As String) As Double > > If a = "muda" Then > > usia = 1 > > Else > > If a = "paruhbaya" Then > > usia = 2 > > Else > > usia = 3 > > End If > > End If > > End Function > > > > Private Sub Command1_Click() > > Dim x,x1,a As String > > x = " SELECT * FROM NN WHERE NN.No=1" > > Set x1 = cn.Execute(x) > > a = x1(0) > > Label1.Caption = Coba(a) ' Kenapa ya Fungsi ini tidak bisa > > melakukan penyeleksian ya... > > end sub > > > > ' Kenapa ya Fungsi ini tidak bisa melakukan penyeleksian ya... > > Mohon bantuannya,Maklum ya saya Kan pemula... > > > > > > -- > Using Opera's revolutionary e-mail client: http://www.opera.com/ mail/ > > Send instant messages to your online friends http:// asia.messenger.yahoo.com > > ------------------------------------ > > Wahana Programmer Groups Links >
