Tính toán trên cùng 1 textbox

[quoctien.tedi 0]

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ỏ)

[HungDHXD 6]

 

 

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

[Tot77 508]

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)

[Doan Van Ha 3212]

@Tot7: Bổ sung load CAL nữa kẻo lỗi.

[quoctien.tedi 0]

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?

[Tot77 508]

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ư.

[quoctien.tedi 0]

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é

[Tot77 508]

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.

[quoctien.tedi 0]

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!

[gia_bach 1559]

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