Возведение в степень числа из TextBox

@WebGAmEr · Регистрация: 15.05.2010

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

Всем привет, кароче настрочил легкий калькулятор вот его код:

VB.NET
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
        End While
 
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox3.Text = Math.Sqrt(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox3.Text = TextBox1.Text - TextBox2.Text
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = TextBox1.Text * TextBox2.Text
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Text = TextBox1.Text / TextBox2.Text
    End Sub
 
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox3.Text = 1 / Math.Tan(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox3.Text = Math.Abs(x) ^ Y(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox3.Text = Math.Abs(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox3.Text = Math.Sin(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox3.Text = Math.Cos(Val(TextBox1.Text))
    End Sub
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox3.Text = Math.Tan(Val(TextBox1.Text))
    End Sub
End Class

у меня проблема с возведением в степень я как понял команда вот как должна выгляить TextBox3.Text = Math.Abs(x) ^ Y(Val(TextBox1.Text)) ,тока у меня выдает ошибку что типо надо объявить переменные, я взял и вписал Dim x as Long и Dim y as Long
но чет все равно пишет что мол типо не объявлены еше переменные где и как есть эту степень?! и еше замутил модуль и к примеру ввожу 12 и мне тоже саммое отдает вот код TextBox3.Text = Math.Abs(Val(TextBox1.Text))

Eugene22 · 16.05.2010, 21:30

Не очень понятно, а что в

VB.NET
1
TextBox3.Text = Math.Abs(x) ^ Y(Val(TextBox1.Text))

означает последняя часть - Y(Val(TextBox1.Text)) ? А чтобы возвести в степень, достаточно написать

VB.NET
1
TextBox3.Text = x ^ y

. С модулем все правильно

@WebGAmEr · 16.05.2010, 21:35 **[ТС]**

Y(Val(TextBox1.Text)) -ну типо чтоб ответ из 1 текстбоха ответ кидался в 3 текстбох ) ну я знаю что я та нахимичел не то))
слушай еше вопрос ка объявить пременные x и y ?

Eugene22 · 16.05.2010, 21:40

Ну вроде как

VB.NET
1
2
Dim x As Double = CDbl(TextBox1.Text)
Dim x As Double = CDbl(TextBox2.Text)

как то так

@WebGAmEr · 16.05.2010, 21:41 **[ТС]**

тока во 2 димке (y)!разве нет?!

Eugene22 · 16.05.2010, 21:44

Извиняюсь, перепутал - во второй раз надо заменить x на y - я просто скопипейстил первую строку, забыл поменять

@WebGAmEr · 16.05.2010, 21:47 **[ТС]**

объявил и все равно пробой в гдето((

Eugene22 · 16.05.2010, 21:57

WebGAmEr, ты объявил переменные в процедуре загрузки формы, поэтому вне этой процедуры они действовать не будут. Попробуй объяви их сразу же под строкой

VB.NET
1
Public Class Form1

@Tanya272 · 22.12.2015, 18:57

Не работает(

@Yury Komar · 22.12.2015, 19:03

Tanya272, а что значит

VB.NET
1
Y(Val(TextBox1.Text))

Вы видимо эту часть кода так и оставили?

@Tanya272 · 22.12.2015, 19:04

Не уже всяко разно пробовала(

@Yury Komar · 22.12.2015, 19:06

И вообще что-то мне подсказывает что в момент загрузки формы, выпоняя этот код

VB.NET
1
2
Dim x As Double = CDbl(TextBox1.Text)
Dim x As Double = CDbl(TextBox2.Text)

Переменые получают ровно НИЧЕГО, и на момент вычислений они так же содержат НИЧЕГО... отсюда и не работает.

@Tanya272 · 22.12.2015, 19:07

Поняла уже, а как сделать?

@Yury Komar · 22.12.2015, 19:10

Перенесите эти две строки кода с объявлением переменных в код для Button7_Click ПЕРЕД СТРОКОЙ ВОЗВЕДЕНИЯ В СТЕПЕНЬ

Добавлено через 1 минуту
Чтобы на момент выислений эти переменные были не пустые, а содержали данные из Textbox1 и Textbox2

@Tanya272 · 22.12.2015, 19:16

Спасибо большое, работает)))

@Yury Komar · 22.12.2015, 19:20

Не по теме:

Tanya272, а вы секретарь WebGAmEr?

@Tanya272 · 22.12.2015, 19:23

Нет я самостоятельно и по другому поводу) мне еще надо подумать как извлечь корень n й степени)

@Yury Komar · 22.12.2015, 19:24

Не по теме:

Tanya272, создавайте тему, если не получается самой это сделать

@Tanya272 · 22.12.2015, 19:27

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@WebGAmEr 0 / 0 / 0 Регистрация: 15.05.2010 Сообщений: 18
	16.05.2010, 21:35 [ТС]
	Y(Val(TextBox1.Text)) -ну типо чтоб ответ из 1 текстбоха ответ кидался в 3 текстбох ) ну я знаю что я та нахимичел не то)) слушай еше вопрос ка объявить пременные x и y ? 0

@WebGAmEr 0 / 0 / 0 Регистрация: 15.05.2010 Сообщений: 18
	16.05.2010, 21:41 [ТС]
	тока во 2 димке (y)!разве нет?! 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	16.05.2010, 21:44
	Извиняюсь, перепутал - во второй раз надо заменить x на y - я просто скопипейстил первую строку, забыл поменять 0

@WebGAmEr 0 / 0 / 0 Регистрация: 15.05.2010 Сообщений: 18
	16.05.2010, 21:47 [ТС]
	объявил и все равно пробой в гдето(( Миниатюры 0

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 18:57
	Не работает( 0

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 19:04
	Не уже всяко разно пробовала( 0

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 19:07
	Поняла уже, а как сделать? 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,254
	22.12.2015, 19:10
	Перенесите эти две строки кода с объявлением переменных в код для Button7_Click ПЕРЕД СТРОКОЙ ВОЗВЕДЕНИЯ В СТЕПЕНЬ Добавлено через 1 минуту Чтобы на момент выислений эти переменные были не пустые, а содержали данные из Textbox1 и Textbox2 1

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 19:16
	Спасибо большое, работает))) 0

@Yury Komar
	22.12.2015, 19:20
	Не по теме: Tanya272, а вы секретарь WebGAmEr? 0

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 19:23
	Нет я самостоятельно и по другому поводу) мне еще надо подумать как извлечь корень n й степени) 0

@Yury Komar
	22.12.2015, 19:24
	Не по теме: Tanya272, создавайте тему, если не получается самой это сделать 0

@Tanya272 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 21
	22.12.2015, 19:27
	Спасибо) 0