Emacs Lisp (elisp) 計算機ウィンドウ作成入門

1年 ago
陽, 向宇
1 minute

Ecilispで計算機ウィンドウを作成するには、TkinterなどのGUIライブラリを使用できます。以下は、簡単な計算機ウィンドウを作成する方法を示した単純なサンプルコードです。

(use-package "tk")
(tk-init)

(defparameter *calculator-window* (tk-toplevel))
(tk-title *calculator-window* "Calculator")

(defparameter *display* (tk-label *calculator-window* :text "0" :font '("Helvetica" 24)))
(tk-grid *display* :row 0 :column 0 :columnspan 4)

(defun update-display (text)
  (tk-config *display* :text text))

(defun on-button-click (button)
  (let ((text (tk-cget button :text)))
    (if (string= text "C")
        (update-display "0")
        (update-display (format nil "~a~a" (tk-cget *display* :text) text))))

(defun create-button (text row column)
  (let ((button (tk-button *calculator-window* :text text :command #'(lambda () (on-button-click button)))))
    (tk-grid button :row row :column column)))

(loop for i from 1 to 9 do
     (create-button (format nil "~a" i) (floor (/ (- i 1) 3) 3) (mod (- i 1) 3)))

(create-button "0" 3 0)
(create-button "+" 1 3)
(create-button "-" 2 3)
(create-button "*" 3 3)
(create-button "/" 4 3)
(create-button "=" 4 0)
(create-button "C" 4 1)

(tk-event-loop)

このコードを実行すると、シンプルな計算機ウィンドウが作成され、ボタンをクリックして基本的な数学演算を行うことができます。ウィンドウのスタイルや機能をカスタマイズすることもできます。

bannerAds