การใช้งาน Multiple Inheritance ใน OOP Concept ภาษา Fortran

การเขียนโปรแกรมในปัจจุบันจะแบ่งออกเป็นหลายแนวทางที่น่าสนใจ และหนึ่งในนั้นคือ "Object-Oriented Programming" หรือ OOP ซึ่งเป็นแนวทางที่ช่วยให้เราสามารถสร้างโมดูลที่ทำงานได้อย่างมีประสิทธิภาพ โดยเฉพาะกับการจัดการข้อมูลที่ซับซ้อน ในบทความนี้ เราจะพูดถึงการใช้งาน "Multiple Inheritance" ซึ่งเป็นแนวทางในการสร้างคลาสที่สามารถสืบทอดจากหลายคลาสได้ และจะดูว่าวิธีการนี้ใช้ได้อย่างไรในภาษา Fortran

OOP และ Multiple Inheritance คืออะไร?

OOP (การเขียนโปรแกรมเชิงวัตถุ) เป็นแนวทางที่ช่วยจัดระเบียบการเขียนโปรแกรมโดยการใช้วัตถุ (object) ที่มีคุณสมบัติ (attributes) และพฤติกรรม (methods) และ "Multiple Inheritance" คือวิธีการที่อนุญาตให้คลาสหนึ่ง (subclass) สืบทอดคุณสมบัติและพฤติกรรมจากหลายคลาสที่เป็น superclass

การประยุกต์ใช้ Multiple Inheritance ใน Fortran

แม้ว่า Fortran จะไม่เป็นที่รู้จักกันว่าเป็นภาษา OOP ทีแรก แต่ใน Fortran 2003 มีการเพิ่มคุณสมบัติ OOP ซึ่งอนุญาตให้ทำการสร้างคลาสและเพิ่มเติมกลไกการสืบทอด

ต่อไปนี้คือตัวอย่างง่าย ๆ ของการใช้ Multiple Inheritance ใน Fortran:

 module animals
  implicit none
  type :: Animal
    character(len=50) :: name
  contains
    procedure :: speak
  end type Animal

contains

  subroutine speak(this)
    class(Animal), pointer :: this
    print *, this%name, "makes a noise!"
  end subroutine speak

end module animals


module pets
  use animals
  implicit none
  type, extends(Animal) :: Dog
  contains
    procedure :: speak
  end type Dog

contains

  subroutine speak(this)
    class(Dog), pointer :: this
    print *, this%name, "barks!"
  end subroutine speak

end module pets


module wildAnimals
  use animals
  implicit none
  type, extends(Animal) :: Lion
  contains
    procedure :: speak
  end type Lion

contains

  subroutine speak(this)
    class(Lion), pointer :: this
    print *, this%name, "roars!"
  end subroutine speak

end module wildAnimals


program multipleInheritance
  use pets
  use wildAnimals
  implicit none

  type(Dog), pointer :: myDog
  type(Lion), pointer :: myLion

  allocate(myDog)
  allocate(myLion)

  myDog%name = "Rover"
  myLion%name = "Simba"

  call myDog%speak()   ! Rover barks!
  call myLion%speak()  ! Simba roars!

end program multipleInheritance

การทำงานของโค้ด

ในตัวอย่างนี้ เราได้สร้างโมดูลสามโมดูล: `animals`, `pets`, และ `wildAnimals` ซึ่งในแต่ละโมดูลได้มีการกำหนดประเภทของสัตว์ที่แตกต่างกันออกไป:

- `Animal`: คลาสหลักที่มีคุณสมบัติพื้นฐาน (เช่น ชื่อสัตว์)

- `Dog` และ `Lion`: คลาสที่สืบทอดจากคลาส `Animal`

คลาส `Dog` และ `Lion` มีเมธอด `speak` ที่จะขยายความในวิธีการพูดเสียงที่แต่ละประเภทสัตว์ทำ ในโปรแกรมหลัก `multipleInheritance` เราจะจัดการกับตัวแปรประเภท `Dog` และ `Lion` และเรียกใช้เมธอด `speak` สำหรับแต่ละคน

Use Case ในโลกจริง

การนำ Multiple Inheritance มาใช้ในโลกจริงมีประโยชน์ในหลายบริบท เช่น:

สรุป

การใช้ Multiple Inheritance ในภาษา Fortran สามารถช่วยเพิ่มความยืดหยุ่นและความสามารถในการจัดการวัตถุที่ซับซ้อนได้ โดยเฉพาะในกรณีที่สามารถสืบทอดคุณสมบัติจากหลายคลาส เพื่อให้ง่ายต่อการสร้างระบบที่มีประสิทธิภาพ

หากคุณสนใจที่จะศึกษาเพิ่มเติมเกี่ยวกับการเขียนโปรแกรม และวิธีการใช้ OOP ในภาษา Fortran หรือภาษาที่คุณสนใจ สามารถติดต่อที่ EPT (Expert-Programming-Tutor) เพื่อเข้าเรียนในหลักสูตรที่เหมาะสมกับคุณได้! การเรียนรู้โปรแกรมจะเป็นคลังความรู้ที่จะช่วยคุณในการพัฒนาทักษะด้านการเขียนโปรแกรมที่จะเป็นเครื่องมือในการสร้างผลงานที่น่าทึ่งในอนาคต!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง