VBNet - Форум - Помогите!!!

Вопрос: Помогите!!! Добавлено: 15.05.07 19:20

Автор вопроса: Shadow

Я делаю проект:Решение квадратного уравнения.
Исправьте,плз,срочно надо:

Dim A As Double, B As Double, C As Double
Private Sub Form_Load()
A = Val(Txt1.Text)
B = Val(Txt2.Text)
C = Val(Txt3.Text)
End Sub

Private Sub Cmd2_Click()
End
End Sub

Private Sub Cmd1_Click()
Lbl9.Caption = Val((B * B) - 4 * A * C)
Lbl1.Caption = Val((-B + Sqr(Val(Lbl9))) / 2 * A)
Lbl8.Caption = Val((-B - Sqr(Val(Lbl9))) / 2 * A)
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #1	Добавлено: 15.05.07 19:50
	ггг крутой ты программер)) Dim A As Double, B As Double, C As Double Private Sub Cmd2_Click() End End Sub Private Sub Cmd1_Click() A = Val(txt1.Text) B = Val(txt2.Text) C = Val(txt3.Text) lbl9.Caption = B ^ 2 - 4 * A * C If Val(lbl9) >= 0 Then 'dejstv korni lbl1.Caption = (-B + Sqr(Val(lbl9))) / (2 * A) lbl8.Caption = (-B - Sqr(Val(lbl9))) / (2 * A) Else 'complexsnie lbl1.Caption = (-B / (2 * A)) & "+" & (Sqr(-Val(lbl9) / (2 * A))) & "i" lbl8.Caption = ((-B / (2 * A)) & "-" & Sqr(-Val(lbl9) / (2 * A))) & "i" End If End Sub Ответить

Номер ответа: 2 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #2	Добавлено: 15.05.07 19:52
	т.е. вот (скобочки перепутал) Else 'complexsnie lbl1.Caption = (-B / (2 * A)) & "+" & (Sqr(-Val(lbl9) / (2 * A))) & "i" lbl8.Caption = (-B / (2 * A)) & "-" & (Sqr(-Val(lbl9) / (2 * A))) & "i" Ответить

Номер ответа: 3 Автор ответа: Shadow Вопросов: 3 Ответов: 4	Профиль \| \| #3	Добавлено: 16.05.07 11:48
	Т.е. вот мой новый вариант: Dim A As Double, B As Double, C As Double, D As Double Private Sub Cmd2_Click() End End Sub Private Sub Cmd1_Click() On Error Resume Next A = Val(Txt1.Text) B = Val(Txt2.Text) C = Val(Txt3.Text) D = Lbl9.Caption Lbl9.Caption = B * B - 4 * A * C Lbl1.Caption = (-B + Sqr(Val(D))) / (2 * A) Lbl2.Caption = (-B - Sqr(Val(D))) / (2 * A) End Sub Дискриминант вычисляет,но вместо корней делит число пополам на Lbl1.Caption и Lbl2.Caption(т.е. на корни X1 и X2).. Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 16.05.07 16:30
	Shadow, купи книгу по VB и последуй приведенному выше примеру, ибо ты его искривил до неработтоспособности. Ну, или по крайней мере поменяй местами свои две строки D = Lbl9.Caption Lbl9.Caption = B * B - 4 * A * C Ответить

Номер ответа: 5 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #5	Добавлено: 29.05.07 07:52
	Shadow, купи книгу по VB Или пиши хотябы не в форум по асм Ответить

Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #6	Добавлено: 29.05.07 12:20
	Нет, меня вот это улыбнуло.. Я делаю проект:Решение квадратного уравнения. плакал.. Или проект потому что вб обзывает по умолчанию Project1? )) Ответить

Номер ответа: 7 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #7	Добавлено: 29.05.07 13:35
	Крупнейший проект, просто громадный на миллион строк. Хакер, он начинающий, для него это — проект! Вспомни себя в молодости? Ответить

Страница: 1 |