การใช้งาน Set and Get Function และ OOP Concept ในภาษา Fortran

Fortran เป็นหนึ่งในภาษาการเขียนโปรแกรมที่เก่าแก่ที่สุดที่ยังคงถูกใช้จนถึงปัจจุบัน เนื่องจากมีประสิทธิภาพในการคำนวณทางวิทยาศาสตร์และวิศวกรรม ในบทความนี้ เราจะพูดถึงการใช้งาน set และ get function และแนวคิดเกี่ยวกับ OOP (Object-Oriented Programming) ในภาษา Fortran ซึ่งจะช่วยให้คุณเข้าใจการจัดการข้อมูลในรูปแบบที่มีโครงสร้างและเหมาะสมกับการพัฒนาโปรแกรมที่ซับซ้อนได้

OOP ใน Fortran

การเขียนโปรแกรมเชิงวัตถุ (OOP) ช่วยให้การออกแบบและการจัดการโปรแกรมเป็นไปอย่างมีระเบียบและประสิทธิภาพ โดยการสร้างวัตถุ (Object) ที่ประกอบด้วยข้อมูล (Attributes) และฟังก์ชัน (Methods) ที่สามารถทำงานร่วมกันได้

ใน Fortran เวอร์ชันใหม่ ๆ (ตั้งแต่ Fortran 2003 เป็นต้นมา) เราสามารถสร้างโมดูลและชนิดข้อมูลที่เป็นวัตถุได้ ทำให้สามารถใช้แนวคิดเชิงวัตถุได้ง่ายขึ้น

ความรู้เบื้องต้นเกี่ยวกับ Set และ Get Function

Set Function เป็นฟังก์ชันที่ใช้สำหรับตั้งค่า หรือกำหนดค่าให้กับตัวแปร ในขณะที่ Get Function ใช้สำหรับดึงค่าของตัวแปรออกมา การนำฟังก์ชันเหล่านี้มาใช้จะช่วยให้เราสามารถควบคุมการจัดการข้อมูลได้ดียิ่งขึ้น และป้องกันไม่ให้มีการเข้าถึงหรือปรับเปลี่ยนข้อมูลโดยตรง

ตัวอย่าง CODE

เราลองมาดูตัวอย่างการใช้ Set และ Get Function ใน OOP ที่ทำงานด้วยภาษา Fortran กันเลย:

 module person_module
    implicit none

    type :: Person
        private
        character(len=30) :: name
        integer :: age
    contains
        procedure, public :: setName
        procedure, public :: getName
        procedure, public :: setAge
        procedure, public :: getAge
    end type Person

contains

    ! Set function for name
    subroutine setName(this, newName)
        class(Person), intent(inout) :: this
        character(len=30), intent(in) :: newName
        this%name = trim(newName)
    end subroutine setName

    ! Get function for name
    function getName(this) result(currentName)
        class(Person), intent(in) :: this
        character(len=30) :: currentName
        currentName = this%name
    end function getName

    ! Set function for age
    subroutine setAge(this, newAge)
        class(Person), intent(inout) :: this
        integer, intent(in) :: newAge
        if (newAge < 0) then
            print*, "Age cannot be negative!"
        else
            this%age = newAge
        end if
    end subroutine setAge

    ! Get function for age
    function getAge(this) result(currentAge)
        class(Person), intent(in) :: this
        integer :: currentAge
        currentAge = this%age
    end function getAge

end module person_module

program main
    use person_module
    implicit none

    type(Person) :: individual

    call individual%setName("John Doe")
    call individual%setAge(25)

    print*, "Name: ", individual$getName()
    print*, "Age: ", individual$getAge()

end program main

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

Use Case ในโลกจริง

ในโลกจริง ตัวอย่างการใช้งาน OOP และ Set/Get function นี้สามารถนำไปปรับใช้ในระบบบริหารจัดการบุคลากร ซึ่งต้องเก็บข้อมูลส่วนตัวของพนักงาน เช่น ชื่อและอายุ โดยข้อมูลเหล่านี้จะต้องมีการควบคุมการเข้าถึง เพื่อป้องกันการถูกปรับเปลี่ยนโดยไม่เหมาะสม การใช้ OOP จะช่วยให้ระบบมีความเป็นระเบียบและประสิทธิภาพยิ่งขึ้น

สรุป

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

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

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