Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Assembler

Страница: 1 |

 

  Вопрос: Помогите!!! Добавлено: 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
Ответов: 3177
 Профиль | | #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

Вопросов: 235
Ответов: 8360
 Профиль | | #6 Добавлено: 29.05.07 12:20
Нет, меня вот это улыбнуло..
Я делаю проект:Решение квадратного уравнения.

плакал..

Или проект потому что вб обзывает по умолчанию Project1? ))

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3177
 Профиль | | #7 Добавлено: 29.05.07 13:35
Крупнейший проект, просто громадный на миллион строк.

Хакер, он начинающий, для него это — проект! Вспомни себя в молодости?

Ответить

Страница: 1 |

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





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