bác nào biết lập trình với autolisp giup em với

Được sửa bởi phamtien ngày Thu 22 Nov 2012 - 11:40; sửa lần 1.

Em có bài này mong các bác giúp đỡ em :Viết chương trình lisp tạo một hàm yêu cầu người dùng nhập vào các số hạng . Nếu số các số hạng khác 0, hàm này trả về kết quả trung bình chung của các số hạng, ngược lại ,hiện thông báo : “ error : không thể chia được !” .Thanks các bác nhiều
loi giai cua em the nay cac bac xem the nao:
(defun c:div_41()
(setq dem (getreal "\nhap so cac so hang:"))
(if (zerop dem)
(print"\nError: khong the chia duoc")
(tbc dem)
)
(princ)
)
(defun tbc (dem/num)
(setq n 1
sum 0)
(while (<=n dem)
(setq num (getreal (strcat"\n Nhap so cac so hang" (itoa n) ":"))
n (+ 1 n)
sum (+ sum num)
)
)
(print (strcat "\n Ket qua trung binh chung" (rtos (/ sum dem))))
);ham tinh trung binh chung cac so duoc nhap vao

em dang mac qua khong bac nao giup em ah

Cái này đơn giản có gì đâu. Khi người dùng nhập giá trị 0 thì cho tự động kiểm tra. Kinh nghiệm anh lập trình thì để phát hiện các lỗi nhập từ người ùng nhập vào thì em đưa hết về nút "ok" vì làm như thế không gây khó chụi cho người dùng đây là đoạn code nhỏ khi người dùng nhập giá trị "0" tự động thông báo cho người dùng và đưa con trỏ chuột về vị trí lỗi sai:

Code:: ;;Hanh dong choBUOC IV : So Lieu Dau Vao
;;kiem tra so lieu dau vao

(action_tile "Ltk" "(KTL (get_tile \"Ltk\") $reason \"Ltk\") (setq Ltk (atof (get_tile \"Ltk\")))")
(action_tile "Btk" "(KTB (get_tile \"Btk\") $reason \"Btk\") (setq Btk (atof (get_tile \"Btk\")))")
(action_tile "Htk" "(KTH (get_tile \"Htk\") $reason \"Htk\") (setq Htk (atof (get_tile \"Htk\")))")
(action_tile "Ttk" "(KTT (get_tile \"Ttk\") $reason \"Ttk\") (setq Ttk (atof (get_tile \"Ttk\")))")

;;Kiem tra so lieu dau vao signify

(action_tile "l/b" "(KTlb (get_tile \"l/b\") $reason \"l/b\") (setq l/b (atof (get_tile \"l/b\")))")

(action_tile "b/h" "(KTbh (get_tile \"b/h\") $reason \"b/h\") (setq b/h (atof (get_tile \"b/h\")))")

(action_tile "h/t" "(KTht (get_tile \"h/t\") $reason \"h/t\") (setq h/t (atof (get_tile \"h/t\")))")

;==========================================================================

   (action_tile "notepad" "(XNOTE)")

;==========================================================================

;;ham lien ket voi nut tutorial
   (action_tile "help" "(HUONGDAN)")

;;hanh dong khi an nut ok

   (action_tile "accept" "(KIEMTRAVAVE)")
(setq RES (start_dialog))
(unload_dialog DCL_ID)
);;het hien hop thoai

;;----------------------------------------------------------------------------------------------------------------------
;;----------------------------------------------------------------------------------------------------------------------
;; ham kiem tra cac so lieu dau vao
;; khong duoc nhap chuoi so va khong duoc nhap so am
;;----------------------------------------------------------------------------------------------------------------------
;;----------------------------------------------------------------------------------------------------------------------

;; Ham KTL
(defun KTL (val why key / L)
(setq L (atof val))
(if (= 1 why)
(progn
(if (not (or (= (type (read val)) 'REAL)
      (= (type (read val)) 'INT)
   )
   )
   (progn
               (alert "L phai la mot so thuc")
               (mode_tile key 2)
               (mode_tile key 3)
      );;het ham progn
   (progn (if (= 0 L)
      (progn
            (alert "0 khong phai la so can nhap")
            (mode_tile key 2)
            (mode_tile key 3)
            );;het progn
         (mode_tile "Btk" 2)
      )

   )

   );;het ham if
(if (Minusp L)
            (progn
                  (alert "Khong Duoc Nhap So Am")
               (mode_tile key 2)
                  (mode_tile key 3)
            );;het ham progn

      );;het ham if

);;het ham progn

;;; neu nguoi dung roi con tro chuot khoi edit_box
(progn

(if (not (or (= (type (read val)) 'REAL)
         (= (type (read val)) 'INT)
         )
      )
      (progn
               (alert "L phai la mot so thuc")
      );;het ham progn
   (progn
      (if (= 0 L)
            (progn
               (alert "0 khong phai la so can nhap")
            (mode_tile key 2)
            (mode_tile key 3)
            );;het ham progn
            );;het ham if

);;het ham progn
);;het ham if
(if (Minusp L)
      (progn
               (alert "Khong Duoc Nhap So Am")
            (mode_tile key 2)
               (mode_tile key 3)
      );;het ham progn
   );;het ham if
);;het ham progn
);;het ham if chA
);;het ham kiem tra chieu daio

cac anh em vao giup voi

mình giải thích vậy bạn vẫn chưa rõ gì cứ hỏi mình. Mà bạn đang làm gì vậy, nếu khó khăn quá mình có thể nhận lại và viết cho bạn, theo phương thức chìa khóa trao tay.
Sdt: 01213149333
Email: loc2210@gmail.com

em dang lam ben thuy loi nhung ma em dang theo hoc lop buoi toi cai nay la bai thay cho ve lam nhung ma em khong ranh may cai nay lam nen len day nho cac anh giup do,anh lam giup em bai nay thi tot wa ,em se co gang de hoc mon nay moi duoc

Có gì liên hệ theo Email mình nhé

» Sách AutoLisp Tiếng Việt
» TỔNG QUAN VỀ AUTOLISP
» Đoạn CODE autolisp về Propeller