Code:
;;; ---------------------- Module ---------------------
;aufruf aus Hauptdialog
(defun call_modul(floor_lst)
(setq floor_qty (up_etage floor_lst))
(select_modul 1 floor_qty)
)
(defun select_modul (i floor_qty)
;laden der dcl-datei + pfadangabe
(setq dcl_mod_id(load_dialog(findfile "dclmodul.DCL")))
;--- Dialogfeld initialisieren
;--- im Fehlerfall ... exit
(if(not(new_dialog "dclmodul" dcl_mod_id))
(progn
(alert "Dialogfeld kann nicht initialisiert werden")
(exit) ;true,
)
) ; end if
;init
(set_tile "lbl_qty" (itoa i))
;action
(action_tile "button_next_qty" "(write_modul i mod_var floor_qty)")
(action_tile "button_last_qty" "(write_modul i mod_var floor_qty)")
(action_tile "buero" "(read_radio_mod $key)")
(action_tile "caf" "(read_radio_mod $key)")
(action_tile "cip" "(read_radio_mod $key)")
(action_tile "bib" "(read_radio_mod $key)")
;starten
(start_dialog)
)
(defun write_modul (qty_i mod_var_insert floor_qty_max)
(While (<= qty_i floor_qty_max)
(if (= qty_i 1)
(progn ; wahr
;liste init
(setq lst_qty_mod '(1 mod_var_insert))
)
(progn ;falsch
(setq lst_qty_mod (append ('(lst_qty_mod) '(qty_i mod_var_insert))))
(setq qty_i(+ qty_i 1))
;modul neu laden
(select_modul qty_i floor_qty_max)
)
);if
);while
;wenn i>floor_qty
(unload_dialog dcl_mod_id)
)
(defun read_radio_mod (art)
(COND
((= art "buero")
(setq mod_var "Buero")
)
((= art "caf")
(setq mod_var "Cafeteria")
)
((= art "cip")
(setq mod_var "Cip Pool")
)
((= art "bib")
(setq mod_var "Biblothek")
)
);cond
)
;;; ------------------------------------------------------------------