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

OOP และ Inheritance ใน Fortran

OOP คืออะไร?

OOP คือแนวทางการเขียนโปรแกรมที่เน้นการจัดการข้อมูลและฟังก์ชันที่เกี่ยวข้องเป็นอ็อบเจ็กต์ โดยมีคุณสมบัติเช่น การห่อหุ้ม (Encapsulation), การสืบทอด (Inheritance), และการพ polymorphism (Polymorphism)

Inheritance คืออะไร?

Inheritance เป็นฟีเจอร์พื้นฐานใน OOP ที่อนุญาตให้คลาสหนึ่งสามารถสืบทอดคุณสมบัติและเมธอดจากอีกคลาสหนึ่งได้ เมื่อต้องการขยายฟังก์ชันของคลาสที่มีอยู่ หรือสร้างคลาสใหม่ ที่มีการจัดการข้อมูลคล้ายคลึงกัน

การใช้งาน Inheritance ใน Fortran

แม้ว่า Fortran จะเป็นภาษาที่ออกแบบมาสำหรับการคำนวณทางวิทยาศาสตร์ แต่ในรุ่น 2003 ขึ้นไป อนุญาตให้ใช้ OOP ได้

การใช้งาน Inheritance ใน Fortran สามารถทำได้โดยการสร้างประเภทของคลาสใหม่ที่สามารถสืบทอดจากคลาสที่มีอยู่

ตัวอย่าง Code

ลองพิจารณาโค้ดตัวอย่างที่ใช้การสืบทอดใน Fortran:

 module vehicle_module
    implicit none

    type :: Vehicle
        integer :: num_wheels
        character(len=20) :: manufacturer
    contains
        procedure :: display_vehicle_details
    end type Vehicle

    abstract interface
        subroutine display_details()
        end subroutine display_details
    end interface

    type, extends(Vehicle) :: Car
        character(len=20) :: model
    contains
        procedure :: display_details => display_car_details
    end type Car

contains

    subroutine display_vehicle_details(this)
        class(Vehicle), pointer :: this
        print *, "Manufacturer: ", trim(this%manufacturer)
        print *, "Number of Wheels: ", this%num_wheels
    end subroutine display_vehicle_details

    subroutine display_car_details(this)
        class(Car), pointer :: this
        call this%display_vehicle_details()
        print *, "Model: ", trim(this%model)
    end subroutine display_car_details

end module vehicle_module

program main
    use vehicle_module
    implicit none

    type(Car) :: myCar

    myCar%manufacturer = "Toyota"
    myCar%num_wheels = 4
    myCar%model = "Corolla"

    call myCar%display_details()
end program main

อธิบายการทำงาน

ในโค้ดตัวอย่างข้างต้น เราได้สร้างโมดูล `vehicle_module` ที่มีการกำหนดประเภท `Vehicle` และประเภทที่สืบทอดมาต่อจาก `Vehicle` คือ `Car`:

ในส่วนของโปรแกรม `main` เราได้สร้างอ็อบเจ็กต์ของ `Car` ตั้งค่าข้อมูลต่างๆ และเรียกใช้ฟังก์ชันแสดงผล ซึ่งจะทำให้เราเห็นข้อมูลของรถยนต์ต่างๆ ที่ได้ถูกกำหนดไว้

Use Case ในโลกจริง

1. ระบบการจัดการยานพาหนะ

ในการพัฒนาระบบจัดการยานพาหนะ เช่น ระบบเช่ารถยนต์ เราสามารถใช้ inheritance ในการสร้างประเภทยานพาหนะพื้นฐานและประเภทยานพาหนะต่างๆ เช่น รถยนต์, รถบรรทุก, หรือจักรยานยนต์ เป็นต้น ความสามารถในการสืบทอดจะช่วยให้เราเพิ่มฟังก์ชันการทำงานและข้อมูลเข้าไปในแต่ละประเภทได้ง่ายขึ้น

2. ระบบบันทึกข้อมูลสัตว์

หากเราต้องการสร้างระบบในการบันทึกข้อมูลสัตว์ในสวนสัตว์ เราสามารถสร้างประเภท `Animal` ที่มีข้อมูลพื้นฐานเช่น ชื่อ, อายุ และชนิด แล้วทำการสร้างประเภทที่สืบทอดจาก `Animal` สำหรับสัตว์แต่ละประเภท เช่น เสือ, ช้าง และนก โดยที่ทุกประเภทสัตว์จะสามารถเข้าถึงฟังก์ชันพื้นฐานได้

สรุป

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

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

หากคุณมีคำถามหรือจุดที่น่าสงสัยเกี่ยวกับ OOP ใน Fortran หรือภาษาโปรแกรมอื่นๆ อย่าลังเลที่จะถามเรา!

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