DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM
Hiện tại bạn đang là khách viếng thăm của Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam – Nơi Hội Tụ Tinh Hoa Đóng Tàu Việt Nam. Nếu chưa có tài khoản, xin mời bạn Click chuột vào nút Đăng Ký bên dưới hoặc Click vào nút Đăng Nhập nếu bạn đã là thành viên chính thức để hưởng trọn quyền lợi của Diễn Đàn dành cho bạn. Mọi thắc mắc liên hệ với Ban Quản Trị qua địa chỉ: nhatlamntu@gmail.com
Cảm ơn bạn đã ghé thăm Diễn Đàn của chúng tôi!
Lưu ý: Bạn chỉ được phép sử dụng Tiếng Việt có dấu hoặc Tiếng Anh trên Diễn Đàn và chỉ có thành viên mới được quyền viết bài, nhận xét trên Diễn Đàn!
Chúc bạn thu được nhiều kiến thức từ việc tham gia Diễn Đàn của chúng ta!

DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM


 
Trang ChínhTrang Chính  Home 1Home 1  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

Ngôn ngữ được sử dụng trên Diễn Đàn là Tiếng Việt có dấu hoặc Tiếng Anh. Tất cả các bài viết không đúng quy định sẽ bị Xóa khỏi Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam trong vòng 24h!

Không đăng tải các nội dung đồi trụy, chống phá nhà nước Cộng Hòa Xã Hội Chủ Nghĩa Việt Nam

Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam là nơi giao lưu, học hổi, trao đổi kinh nghiệm, kiến thức chuyên ngành tàu thủy. Chúng tôi nghiêm cấm các hoạt động tuyên truyền, quảng bá trái phép việc sử dụng phần mềm không bản quyền.

Mọi rắc rối liên quan đến việc quảng bá, cung cấp các phần mềm không bản quyền trên diễn đàn chúng tôi hoàn toàn không chịu trách nhiệm. Thân !
Mọi thắc mắc, góp ý, đóng góp cho Diễn Đàn mời các thành viên gửi về email: nhatlamntu@gmail.com Thanks !
Hiện tại BQT đã tích hợp thêm chức năng upload file trực tiếp lên Diễn Đàn , mọi người cùng nhau chia sẻ kiến thức với cộng đồng !

BQT Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam không hoan nghênh các bài viết, quảng cáo không liên quan đến ngành công nghiệp tàu thủy Việt Nam.
Tất cả các bài viết không đúng quy định sẽ bị xóa, ngay khi BQT phát hiện được. !

Nhằm nâng cao chất lượng bài viết và chống spam, hai bài viết liên tiếp của 1 thành viên sẽ cách nhau 5 phút (300 giây)

Chúc mọi người có 1 ngày vui vẻ và thu được nhiều kiến thức khi tham gian vào Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam !

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
phamtien
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 6
Age : 30
Đến từ:(NTU,...) : hai phong
Nghề nghiệp: (Student,..) : sinh vien
Môn thể thao yêu thích: (football,..) : bong da
Điểm năng động tích lũy : 10
Registration date : 29/05/2012

Bài gửiTiêu đề: bác nào biết lập trình với autolisp giup em với   Mon 5 Nov 2012 - 9:57

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


Được sửa bởi phamtien ngày Thu 22 Nov 2012 - 11:40; sửa lần 1.
Về Đầu Trang Go down
http://www.votauthuy.org
phamtien
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 6
Age : 30
Đến từ:(NTU,...) : hai phong
Nghề nghiệp: (Student,..) : sinh vien
Môn thể thao yêu thích: (football,..) : bong da
Điểm năng động tích lũy : 10
Registration date : 29/05/2012

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Tue 6 Nov 2012 - 0:26

em dang mac qua khong bac nao giup em ah
Về Đầu Trang Go down
http://www.votauthuy.org
loc2210
Ban Điều Hành
Ban Điều Hành


Nam
Tổng số bài gửi : 158
Age : 26
Đến từ:(NTU,...) : NTU, TUL(Techlonogy University Liberec))
Nghề nghiệp: (Student,..) : student, Naval Archi
Môn thể thao yêu thích: (football,..) : podlouchat hudbu
Điểm năng động tích lũy : 251
Registration date : 09/04/2010

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Tue 6 Nov 2012 - 4:29

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
Về Đầu Trang Go down
http://tauthuy.hot4um.com
phamtien
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 6
Age : 30
Đến từ:(NTU,...) : hai phong
Nghề nghiệp: (Student,..) : sinh vien
Môn thể thao yêu thích: (football,..) : bong da
Điểm năng động tích lũy : 10
Registration date : 29/05/2012

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Thu 8 Nov 2012 - 20:36

cac anh em vao giup voi
Về Đầu Trang Go down
http://www.votauthuy.org
loc2210
Ban Điều Hành
Ban Điều Hành


Nam
Tổng số bài gửi : 158
Age : 26
Đến từ:(NTU,...) : NTU, TUL(Techlonogy University Liberec))
Nghề nghiệp: (Student,..) : student, Naval Archi
Môn thể thao yêu thích: (football,..) : podlouchat hudbu
Điểm năng động tích lũy : 251
Registration date : 09/04/2010

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Thu 8 Nov 2012 - 22:13

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
Về Đầu Trang Go down
http://tauthuy.hot4um.com
phamtien
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 6
Age : 30
Đến từ:(NTU,...) : hai phong
Nghề nghiệp: (Student,..) : sinh vien
Môn thể thao yêu thích: (football,..) : bong da
Điểm năng động tích lũy : 10
Registration date : 29/05/2012

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Fri 9 Nov 2012 - 10:09

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
Về Đầu Trang Go down
http://www.votauthuy.org
loc2210
Ban Điều Hành
Ban Điều Hành


Nam
Tổng số bài gửi : 158
Age : 26
Đến từ:(NTU,...) : NTU, TUL(Techlonogy University Liberec))
Nghề nghiệp: (Student,..) : student, Naval Archi
Môn thể thao yêu thích: (football,..) : podlouchat hudbu
Điểm năng động tích lũy : 251
Registration date : 09/04/2010

Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   Fri 9 Nov 2012 - 11:02

Có gì liên hệ theo Email mình nhé
Về Đầu Trang Go down
http://tauthuy.hot4um.com
Sponsored content




Bài gửiTiêu đề: Re: bác nào biết lập trình với autolisp giup em với   

Về Đầu Trang Go down
 
bác nào biết lập trình với autolisp giup em với
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM :: KHOA HỌC ỨNG DỤNG NGÀNH ĐÓNG TÀU :: TIN HỌC ỨNG DỤNG TRONG ĐÓNG TÀU-
Chuyển đến 
THỐNG KÊ DIỄN ĐÀN
LƯỢT TRUY CẬP
Top posters
DSC-Marine Co.,LTD (960)
 
Nguoihatinh (521)
 
shippro (415)
 
Nguyễn Thanh Nghị (317)
 
tanduong028 (287)
 
quangthu (247)
 
nguyenxuanviet (235)
 
Anh2Long (197)
 
KENT0906 (196)
 
Hồng Thất Công (188)
 
DÀNH CHO QUẢNG CÁO
CÔNG TY TNHH THIẾT KẾ DSC-MARINE.
DỊCH VỤ THIẾT KẾ, ĐÓNG MỚI VÀ SỬA CHỮA TÀU
CÔNG TY TNHH BON VÀNG - THI CÔNG CHỐNG ĐẠN VỎ TÀU, GIA CƯỜNG KẾT CẤU, CHỐNG THẤM NGƯỢC
DỊCH VỤ TỪ DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM
LIÊN HỆ VỚI CHÚNG TÔI NGAY BẰNG CÁCH BẤM VÀO ĐÂY !