Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Решение примера Добавлено: 21.03.09 19:33  

Автор вопроса:  maza_____ | Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) | ICQ: 9968842 
Мне нужно сделать так что бы юзер ввел в текстбокс пример например (5+5)- 10 нажал на кнопку и выполнилось решение этого примера. Подскажите плз как Это можно сделать в VB.NET?

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 21.03.09 20:56
в вб.нет можно все кроме драйверов)
http://ru.wikipedia.org/wiki/Обратная_польская_нотация

Ответить

Номер ответа: 2
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #2 		Добавлено: 21.03.09 20:59
ой не так прочитал: Подскажите плз как. Это можно сделать в VB.NET?

Ответить

Номер ответа: 3
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #3 Добавлено: 23.03.09 17:06
Не знаю, реализуемо ли это в ВБ.НЕТ, а в ВБ6 элементарно:
  1. Option Explicit
  2.  
  3. 'Project -> Components...(Ctrl+T)
  4. 'добавить Microsoft Script Control 1.0 (msscript.ocx)
  5.  
  6. 'На форму ScriptControl1, Text1, Label1, Command1
  7.  
  8. Private Sub Command1_Click()
  9. Label1 = ScriptControl1.Eval(Text1.Text) 'результат вычисления строки Text1.Text
  10. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #4 Добавлено: 24.03.09 15:48
Выполнялка JavaScript от Steel Brand
(нужно добавить ссылку на сборку Microsoft.JScript)

Юзать как

  1. Console.WriteLine(JavaScript.Eval("2+3"))


  1. Imports Microsoft.JScript
  2. Imports System.CodeDom.Compiler
  3.  
  4. Public Class JavaScript
  5.     Public Shared Function EvalString(ByVal statement As String) As String
  6.         Return Eval(Of String)(statement)
  7.     End Function
  8.  
  9.     Public Shared Function Eval(Of T)(ByVal statement As String) As T
  10.         Return CType(Eval(statement), T)
  11.     End Function
  12.  
  13.     Public Shared Function Eval(ByVal statement As String) As Object
  14.         Return EvaluatorType.InvokeMember("Eval", Reflection.BindingFlags.InvokeMethod, Nothing, Evaluator, New Object() {statement})
  15.     End Function
  16.  
  17.     Private Shared ReadOnly Property Evaluator() As Object
  18.         Get
  19.             If _Evaluator Is Nothing Then GenerateEvaluator()
  20.             Return _Evaluator
  21.         End Get
  22.     End Property
  23.  
  24.     Private Shared ReadOnly Property EvaluatorType() As Type
  25.         Get
  26.             If _EvaluatorType Is Nothing Then GenerateEvaluator()
  27.             Return _EvaluatorType
  28.         End Get
  29.     End Property
  30.  
  31.     Private Shared Sub GenerateEvaluator()
  32.         Dim Compiler = New JScriptCodeProvider().CreateCompiler
  33.  
  34.         Dim Parameters = New CompilerParameters
  35.         Parameters.GenerateInMemory = True
  36.  
  37.         Dim Result = Compiler.CompileAssemblyFromSource(Parameters, _Statement)
  38.         Dim Assembly = Result.CompiledAssembly
  39.  
  40.         _EvaluatorType = Assembly.GetType("Evaluator.Evaluator")
  41.         _Evaluator = Activator.CreateInstance(_EvaluatorType)
  42.  
  43.     End Sub
  44.  
  45.     Private Shared _Evaluator As Object
  46.     Private Shared _EvaluatorType As Type
  47.     Private Shared ReadOnly _Statement As String = "package Evaluator { class Evaluator { public function Eval(expr : String) : String  {  return eval(expr, ""unsafe"");  } } }"
  48. End Class

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам