Как получить строку без кавычек?

@YuraAAA · Регистрация: 25.10.2009

Студворк — интернет-сервис помощи студентам

Как получить данные из строки без кавычек?
Например,в text1 введено x^2
далее,y=text1.text ,и y вернётся "x^2" . Как получить без кавычек?

Добавлено через 35 минут
Или может есть какой-то другой способ передавать значение...кусок кода калькулятора,рисующего графики функций.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub mnuDraw_Click()
Form2.BackColor = &H80000009
DrawWidth = 2
Scale (-10, 10)-(10, -10)
Form2.ForeColor = &H0&
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
DrawWidth = 1
Form2.ForeColor = &HFF&
For x = -10 To 10 Step 0.01
Line -(x, Example(x))
Next
End Sub

как в y передать строку без кавычек?

Visual Basic
1
2
3
4
5
Function Example(ByVal x As Variant)
y = Text1.Text
Debug.Print y
Example = y
End Function

@gaw · 13.03.2010, 22:24

Visual Basic
1
2
3
4
'подключи  Script Control 1.0
Private Sub Command1_Click()
Text2.Text = ScriptControl1.Eval(Text1.Text)
End Sub

@YuraAAA · 14.03.2010, 01:08 **[ТС]**

Может я что-то не то делаю,но в Y возращается 0 ((

Visual Basic
1
2
3
4
...............
Text2.Text = ScriptControl1.Eval(Text1.Text)
y = Text2
..............

@gaw · 14.03.2010, 01:14

Visual Basic
1
y=ScriptControl1.Eval(Text1.Text)

@YuraAAA · 14.03.2010, 01:16 **[ТС]**

тоже попробовал...
если в текстбоксе введено число,либо функция тип sin(5) тогда всё нормально рисует
Но если sin(x) то рисует в y возвращает 0

@gaw · 14.03.2010, 02:23

можна так

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim st As String
For p = a To b '???
st = CStr(p)
st = Replace(Text1.Text, "x", st)
Y = Int(ScriptControl1.Eval(st))
'
'
'
'
Next p

@YuraAAA · 14.03.2010, 03:43 **[ТС]**

О_о

чего то не въезжаю никак ) тупой мб ))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub mnuDraw_Click()
Form2.Cls
Form2.BackColor = &H80000009
DrawWidth = 2
Scale (-10, 10)-(10, -10)
Form2.ForeColor = &H0&
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
DrawWidth = 1
Form2.ForeColor = &HFF&
For x = -10 To 10 Step 0.01
Line -(x, Example(x))
Next
End Sub
 
Function Example(ByVal x As Single)
Y = text1.text
Example = Y
End Function

Этот код рисует на Form2 график функции , заданный в Text1 .И если с числами он работает ещё нормально,то с sin(число) или sin(x) вообще непонятный кошмар =(

Добавлено через 8 минут
Мм,и ещё вопросик. Кто знает как нарисовать координатную сеть со значениями ?)

@Alex77755 · 14.03.2010, 08:24

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ШКАЛА()
Picture1.AutoRedraw = True
'Размеры
Picture1.Height = 6615
Picture1.Width = 6615
Picture1.Scale (-10, 10)-(10, -10)
 
'Рисуем координатные оси
Picture1.Line (-10, 0)-(10, 0)
Picture1.Line (-5, -10)-(-5, 10)
 
'Делаем циферки
Dim i As Integer
For i = -5 To 15 ' по Х
Picture1.CurrentX = i - 5
Picture1.CurrentY = 0
Picture1.Print i
Picture1.Line (i - 5, -0.2)-(i - 5, 0.2)
Next
 
For i = -10 To 10  ' по Y
Picture1.CurrentX = 0 - 5
Picture1.CurrentY = i
Picture1.Print i
Picture1.Line (-4.8, i)-(-5.2, i)
Next
 
'Дорисовываем стрелки
Picture1.Line (-5, 10)-(-6, 9)
Picture1.Line (-5, 10)-(-4, 9)
Picture1.Line (10, 0)-(9, -1)
Picture1.Line (10, 0)-(9, 1)
'Готово
End Sub

@Alex77755 · 14.03.2010, 08:35

может отсюда что выбереш

@gaw · 14.03.2010, 10:49

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Command1_Click()
 Dim q As Single
 Dim st As String
 
   Dim Xk, Yk, p, p1
   With Picture1
  .Cls
  .ScaleWidth = 10 '20,6.28,...
  .ScaleHeight = 10 '20
  .Height = .Width
        .DrawWidth = 1
    Xk = Picture1.ScaleWidth
        Yk = Picture1.ScaleHeight
   End With
  Picture1.Line (Xk / 2, 0)-(Xk / 2, Yk), vbWhite
   Picture1.Line (0, Yk / 2)-(Xk, Yk / 2), vbWhite
   
    For p = -Xk / 2 To Xk / 2 Step 0.01
    'p1 = 6.28 * p / ScX
     st = Replace(Text1.Text, "x", p)
     st = Replace(st, ",", ".")
        On Error Resume Next
      q = ScriptControl1.Eval(st)
    If ScriptControl1.Error.Number > 0 Then GoTo 1
Picture1.PSet (p + Xk / 2, Yk / 2 - q), vbYellow
1
  Next p
End Sub

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	14.03.2010, 01:16 [ТС]
	тоже попробовал... если в текстбоксе введено число,либо функция тип sin(5) тогда всё нормально рисует Но если sin(x) то рисует в y возвращает 0 0