Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Смена знака переменной Добавлено: 12.10.10 19:32  

Автор вопроса:  Frylock | ICQ: 359198490 
Здравствуйте.
Подскажите пожалуйста, как можно сменить знак переменной?
Например:
            Dim a As Integer, b As Integer, c As Integer
            a = TxA.Text
            b = TxB.Text
            c = TxC.Text
x1.Text = b + D / 2 * a --> должно быть:
x1.Text = -b + D / 2 * a
Заранее спасибо :)

Ответить

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

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #1
Добавлено: 12.10.10 21:54
Знак переменной меняться просто знаком "-", а что ты хочешь, не очень понятно.

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #2 Добавлено: 12.10.10 23:21
Frylock пишет:
как можно сменить знак переменной?
a = -a
Frylock пишет:
x1.Text = b + D / 2 * a --> должно быть:
x1.Text = -b + D / 2 * a
.Text не может быть не String. не ясна задача -_-

Ответить

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



ICQ: 359198490 

Вопросов: 1
Ответов: 3
 Профиль | | #3 Добавлено: 13.10.10 01:03
Ну в общем полностью прога должна решать квадратное уравнение. Выглядит так:
Dim a As Integer, b As Integer, c As Integer
            a = TxA.Text
            b = TxB.Text
            c = TxC.Text
            ;Dim D As Integer = Val(b) * Val(b) - (Val(4) * Val(a) * Val(c))
            If D < 0 Then
                MsgBox("Действительных корней нет", MsgBoxStyle.Critical, "Error";)
            Else
                x1.Text = (Val (b) + Val(Math.Sqrt(D))) / (Val(2) * Val(a))
                x2.Text = (Val (b) - Val(Math.Sqrt(D))) / (Val(2) * Val(a))
            End If
То есть когда я искал дискриминант, я использовал переменную b, а когда я ищу корни - мне надо использовать ту же переменную b, но со знаком "-". Могу ли я просто записать (-b) ?

Ответить

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



ICQ: 359198490 

Вопросов: 1
Ответов: 3
 Профиль | | #4 Добавлено: 13.10.10 01:05
ппц, вместо букв смайлики поставились...оО

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #5 Добавлено: 13.10.10 02:22
AgentFire пишет:
.Text не может быть не String. не ясна задача -_-

А где автор утверждал обратное?

Ответить

Номер ответа: 6
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #6 Добавлено: 13.10.10 12:48
Artyom пишет:
А где автор утверждал обратное?

x1.Text = b + D / 2 * a --> должно быть:
x1.Text = -b + D / 2 * a
вот здесь. нету кавычек (a)

Frylock пишет:
ппц, вместо букв смайлики поставились...оО
ололо. для кого тут тэг source?

Frylock пишет:
Val(b)
Val - лишнее, ты уже объявил переменную как Int32
Frylock пишет:
Val(b) * Val(b)
Это лишнее. b ^ 2 - вот бэ-квадрат

Frylock пишет:
Могу ли я просто записать (-b) ?
можешь. что мешало попробовать? нужно благословение? :-D

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #7 Добавлено: 13.10.10 16:12
AgentFire пишет:
x1.Text = b + D / 2 * a --> должно быть:
x1.Text = -b + D / 2 * a
вот здесь. нету кавычек (a)

What's your point, doctor Alexander?

Ты, наверное, ошибочно предположил что топикстартер в отличие от тебя включает жесткую проверку типов в проекте? Видимом ошибался, поэтому он может без проблем присваивать строковому свойству значение типа Double (при этом компилятор сам добавляет код который выполняет конвертирование типов)

Ответить

Номер ответа: 8
Автор ответа:
 Frylock



ICQ: 359198490 

Вопросов: 1
Ответов: 3
 Профиль | | #8 Добавлено: 13.10.10 17:07
Большое спасибо :)

Ответить

Номер ответа: 9
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #9 Добавлено: 13.10.10 19:10
Artyom пишет:
What's your point, doctor Alexander?

мне до дока, как хаусу до здоровой ноги -_-. Point не был в чем то конкретном, так что забудь..

Ответить

Страница: 1 |

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



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