<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-874" %> http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์ของไทยแห่งใหม่
เข้าสู่ระบบ ::    
http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์แห่งใหม่
Home   
News   
Articles   
Programming Zone   
DownLoad   
Contact US   
Links   
Webboard   
ฯลฯ   
 
     สวัสดีครับทุกท่าน ผมพัฒนาเว็บนี้ขึ้นมาโดยมีวัตถุประสงค์ ที่จะเห็นโปรแกรมเมอร์ของไทย ได้มีการคิดค้นและพัฒนาซอฟต์แวร์ ของคนไทย กันมากขึ้น เพื่อเป็นการช่วยชาตของเราให้เจริญยิ่งขึ้นไป (จะได้ไม่ต้องทะเลาะกันอย่างทุกวันนี้ 555 อย่าเครียดครับ ) เนื่องจากเว็บนี้ยังเพิ่งเริ่มต้นนะครับอาจมีเนื้อหาบางงส่วนที่ยังไม่สมบูรณ์จึงขออภัยมา ณ โอกาส นี้ด้วยครับ
 
   OOP :: Constructor & DeStructor
      Constructor

     Constructor   คือ การกำหนด เมธอด New ไว้ภายในคลาส ซึ่งขณะที่เราสร้าง Object เมธอด New นี้จะถูกทำงาน โดย อัตโนมัติ เรานิยมใช้ constructor ทำงานบางอย่างเช่น กำหนดค่าเริ่มต้นของตัวแปร , เปิดไฟล์ หรือแสดงข้อความอะไรบางอย่าง เป็นต้น เช่นในขณะที่เราสร้าง object car เราสามารถกำหนดค่าเริ่มต้นให้สี (color ) เป็นสีแดง หรือสีอะไรก็ได้ ดังตัวอย่าง

    Public Class Car
        …
        Sub New()
            Color = “แดง”
            Speed = 0
            HoursePower = 100
            GearPosition = “ว่าง”
        End Sub
        …
    End Class


ต.ย. คลาส Human


    Public Class Human
    Public Name As String
    Private Age As Int16
    Public Gender As String
    Public Tall As Int16
    Public weight As Int16

    Public Property sgAge() As Int16
    Get
        Return Age
    End Get
    Set(ByVal a As Int16)
        Age += a
    End Set
    End Property

    End Class

ในหน้าจอ ออกแบบ Design ให้ ดับเบิ้ลคลิกที่ฟอร์ม แล้วพิมพ์โค้ดดังนี้

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim h1 As New Human
h1.sgAge = 1
MsgBox(h1.sgAge)
Dim h2 As Human
h2 = h1
h2.sgAge = 4
MsgBox(h2.sgAge)

End Sub


      DeStructor
       Destructor   คือ การกำหนด เมธอด Finalize ไว้ภายในคลาส เพื่อใช้ยกเลิกหน่วยความจำ และเคลียร์พื้นที่ส่วนที่ไม่ได้ใช้งานแล้วนั้นออกไป (ในทางภาษา OOP เรียกว่า garbage collection )

    Public Class Car
        …
        Protected Override Sub Finalize()
            …
            msgbox(“ยกเลิกการใช้ออบเจ็กต์แล้ว”)
            …
        End Sub
    End Class


<< บทความก่อนหน้า Class & Instance
 
:: http://www.siam2dev.com ::
e-mail :: xnattapong@hotmail.com , songneam@gmail.com