quoctien.tedi 0 Báo cáo bài đăng Đã đăng Tháng 5 11, 2014 Chào các bạn! Có 1 câu hỏi nhỏ nhỏ muốn diễn đàn, các cao thủ ra tay. Mình có 1 textbox, sau khi nhập data vào đó, muốn nó tính toán và trả về kết quả luôn trên đó.Ví dụ nhập vào như sau: 1+2 và kết quả nhận được ngay trên đó là: 1+2=3. Sau đó lại có thể lấy kết quả để thực hiện một phép tính thứ 2,3 ... (như 1 chiếc máy tính nho nhỏ) Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
HungDHXD 6 Báo cáo bài đăng Đã đăng Tháng 6 3, 2014 Chào các bạn! Có 1 câu hỏi nhỏ nhỏ muốn diễn đàn, các cao thủ ra tay. Mình có 1 textbox, sau khi nhập data vào đó, muốn nó tính toán và trả về kết quả luôn trên đó. Ví dụ nhập vào như sau: 1+2 và kết quả nhận được ngay trên đó là: 1+2=3. Sau đó lại có thể lấy kết quả để thực hiện một phép tính thứ 2,3 ... (như 1 chiếc máy tính nho nhỏ) nếu bạn có cài excel : thì có thể dùng hàm evaluate : Application.evaluate() hoặc dùng MSscriptcontrol : function Evaluate(byVal sFormula as String) as String Dim oScript As MSScriptControl.ScriptControl Set oScript = New MSScriptControl.ScriptControl oScript.Language = "VBScript" oScript.AddCode ("Res = " & sFormula) Evaluate = oScript.Eval("Res") Set oScript = nothing End Function Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
Tot77 508 Báo cáo bài đăng Đã đăng Tháng 6 3, 2014 Dùng cái lisp này cũng được. Chỉ cần enter thôi, còn nhấn ok là thoát. Sau khi tính muốn dùng kết quả để tính tiếp thì cứ enter. (defun c:ical (/ name file str id sup) (defun tinh(st / vt) (if (and st (/= st "") (not (vl-string-search "=" st))) (set_tile "cal" (strcat st "=" (rtos (cal st)))) (if (setq vt (vl-string-search "=" st)) (set_tile "cal" (substr st (+ 2 vt))))) ) (setq str "ICAL : dialog {label = \"ICal\" ; : column { : row { : edit_box { key = \"cal\"; alignment = centered; edit_width = 50; value = \"\"; } } ok_only ; }} " ) (setq file (open (setq name (strcat (substr (setq sup (vla-get-SupportPath (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))) 1 (vl-string-search ";" sup)) "\\ICAL.DCL")) "w")) (write-line str file) (close file) (setq id (load_dialog name)) (new_dialog "ICAL" id) (action_tile "cal" "(tinh $value)") (action_tile "accept" "(done_dialog)") (mode_tile "cal" 2) (start_dialog) (if (< 0 id) (unload_dialog id)) ) ;;sqrt(2)*(3^7+4)-5+6*cos(30)/sin(60)-tang(45)*ln(2) Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
Doan Van Ha 3210 Báo cáo bài đăng Đã đăng Tháng 6 3, 2014 @Tot7: Bổ sung load CAL nữa kẻo lỗi. Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
quoctien.tedi 0 Báo cáo bài đăng Đã đăng Tháng 7 3, 2014 Chào bạn: HungDHXD, Doan Van Ha, tot77 Trước tiên, mình xin chân thành cảm ơn các bạn đã dành thời gian trả lời mình. Các bạn có thể cho mình code cụ thể hơn được không? Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
Tot77 508 Báo cáo bài đăng Đã đăng Tháng 7 3, 2014 Code cụ thể là sao bạn, trên kia đã đưa nguyên file rồi mà. Chắc là bạn muốn biết cách tính toán pk? cái lisp của tôi dựa hoàn toàn vào hàm cal của cad thôi, chẳng có gì bí mật cả đâu. Hàm cal có 1 nhươc điểm là không tính được số lớn, còn những cái khác như lượng giác, log, ... thì vô tư. Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
quoctien.tedi 0 Báo cáo bài đăng Đã đăng Tháng 7 3, 2014 Chào bạn TOT77 Mình muốn viêt code bằng vb.net. Bạn cố gắng giúp mình nhé Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
Tot77 508 Báo cáo bài đăng Đã đăng Tháng 7 3, 2014 Sorry nhé, tôi quên không nhìn vào đề mục bạn post bài là VBA. VB.net thì tôi không giúp đươc rôi. Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
quoctien.tedi 0 Báo cáo bài đăng Đã đăng Tháng 7 3, 2014 Chào TOT77! Dù sao cũng 1 lần nữa chân thành cảm ơn bạn đã dành thời gian và công sức cho mình. Chúc bạn sức khỏe và thành công trong cuộc sống! Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
gia_bach 1558 Báo cáo bài đăng Đã đăng Tháng 7 4, 2014 Chào bạn TOT77 Mình muốn viêt code bằng vb.net. Bạn cố gắng giúp mình nhé Tham khảo hàm ReversePolishNotation bài 28 Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác