การใช้งาน Drawing Tiger in Native GUI ในภาษา Haskell แบบง่ายๆ

ในยุคที่เทคโนโลยีและความก้าวหน้าทางด้านซอฟต์แวร์ได้เดินหน้าไปอย่างรวดเร็ว ภาษา Haskell กลายเป็นทางเลือกที่น่าสนใจสำหรับนักพัฒนาที่ต้องการความถูกต้องและประสิทธิภาพ เป็นที่รู้กันว่า Haskell เป็นภาษาเชิงฟังก์ชัน (Functional Programming Language) ที่มีคุณสมบัติในการจัดการกับข้อมูลได้อย่างมีประสิทธิภาพ และในบทความนี้เราจะมาเรียนรู้วิธีการสร้าง GUI สำหรับการวาดภาพ (Drawing) โดยเฉพาะการวาดรูปเสือ (Tiger) โดยใช้ Haskell มาดูกันว่าเราสามารถทำอะไรได้บ้าง!

Haskell กับการทำงานใน GUI

Haskell ไม่ได้เป็นภาษาโปรแกรมหลักสำหรับการพัฒนา GUI แต่ก็มีไลบรารีหลายตัวที่สามารถช่วยให้นักพัฒนาใช้ Haskell ในการสร้างแอปพลิเคชัน GUI ยกตัวอย่างเช่น `wxHaskell`, `gtk2hs` และ `threepenny-gui` โดย `threepenny-gui` ถือเป็นหนึ่งในไลบรารีที่ได้รับความนิยมในด้านการพัฒนา GUI ให้กับเว็บแอปพลิเคชัน

การติดตั้งไลบรารี

ก่อนที่เราจะลงมือเขียนโค้ด เราจะต้องติดตั้งไลบรารีที่จะใช้ในการสร้าง GUI โดยสามารถทำได้โดยคำสั่ง:

 cabal update
cabal install threepenny-gui

ในที่นี้เราจะใช้ `threepenny-gui` เพื่อวาดรูปเสือ

ตัวอย่างโค้ดการวาดรูปเสือ (Tiger) โดยใช้ Haskell

ในตัวอย่างนี้เราจะสร้างแอปพลิเคชันที่สามารถวาดรูปเสือในหน้าต่าง GUI โดยเราจะใช้งาน Canvas ซึ่งจะทำให้เราวาดภาพได้อย่างอิสระ

 {-# LANGUAGE OverloadedStrings #-}

import Graphics.UI.Threepenny.Core
import qualified Graphics.UI.Threepenny as UI
import Prelude hiding (cast)
import Control.Monad (forM_)

main :: IO ()
main = startGUI defaultConfig setup

setup :: Window -> UI ()
setup window = do
    -- สร้าง Canvas สำหรับการวาดภาพ
    canvas <- UI.canvas
    element canvas # set UI.width 400
    element canvas # set UI.height 400

    -- ให้ชื่อว่า "Draw Tiger"
    element window # set UI.title "Draw Tiger"

    -- โหลดอีเวนต์ถ้าผู้ใช้กดที่ Canvas
    on UI.click canvas $ const $ do
        drawTiger canvas

    -- แสดง Canvas ในหน้าต่าง
    getBody window >>= \body -> element body #+ [element canvas]

drawTiger :: Element -> UI ()
drawTiger canvas = do
    ctx <- getContext canvas
    let tigerColor = "orange"
    let stripeColor = "black"

    -- ลบภาพก่อนหน้านี้
    clearRect ctx 0 0 400 400

    -- วาดรูปเสือ
    setFillStyle ctx tigerColor
    fillRect ctx 100 100 200 100  -- ตัวเสือ
    setFillStyle ctx stripeColor
    fillRect ctx 150 120 20 60    -- ลายเสือ
    fillRect ctx 200 120 20 60
    fillRect ctx 250 120 20 60

    -- ใส่ตาและปาก
    setFillStyle ctx "black"
    beginPath ctx
    arc ctx 150 130 10 0 (2 * pi) False
    fill ctx
    arc ctx 250 130 10 0 (2 * pi) False
    fill ctx

    -- วาดปาก
    beginPath ctx
    moveTo ctx 150 160
    lineTo ctx 250 160
    stroke ctx

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

ในตัวอย่างโค้ดข้างต้น ฟังก์ชัน `setup` จะทำการสร้างหน้าต่างและ Canvas สำหรับการวาดรูปเสือ เมื่อมีการคลิกที่ Canvas ฟังก์ชัน `drawTiger` จะถูกเรียกใช้เพื่อวาดเสือบน Canvas ด้วยสีและขนาดที่กำหนด

Use Case ในโลกจริง

การใช้การวาดภาพใน GUI เป็นที่นิยมในหลายๆ แอปพลิเคชัน เช่น โปรแกรมกราฟิกที่ใช้ในการออกแบบ การสร้างเกม หรือแม้กระทั่งในการศึกษา เช่น การสอนวาดรูปเสือในหลักสูตรการศึกษาทางศิลปะ โดยใช้ Haskell ในการพัฒนา GUI ก็ช่วยให้ผู้เรียนได้เข้าใจและเรียนรู้การทำงานของโค้ดได้ดียิ่งขึ้น

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

เรียนรู้ต่อใน EPT

การเรียนรู้การเขียนโปรแกรมไม่เพียงแต่เปิดโอกาสให้คุณพัฒนาทักษะใหม่ๆ แต่ยังเป็นการเปิดประตูสู่ความคิดสร้างสรรค์และนวัตกรรมใหม่ๆ หากคุณสนใจเรียนรู้เพิ่มเติมเกี่ยวกับการโปรแกรมใน Haskell หรือการพัฒนา GUI สามารถเข้ามาเรียนกับเราได้ที่ EPT (Expert-Programming-Tutor) ที่มีหลักสูตรและอาจารย์ผู้เชี่ยวชาญที่พร้อมช่วยให้นักเรียนทุกคนเข้าใจและนำไปใช้งานจริงได้

มาร่วมค้นพบความสนุกและประโยชน์ของการเขียนโปรแกรมที่ EPT กันเถอะ!

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