Нужна помощь по VB

Сейчас на форуме: UniSoft, bartolomeo (+6 невидимых)

Посл.ответ	Сообщение
aspirin Ранг: 111.0 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 17 января 2011 20:35 · Поправил: aspirin · Личное сообщение · #1 Меня попросили помочь разобраться с ошибкой при компиляции. Просьба откликнуться, кто шарит. 55e0_17.01.2011_CRACKLAB.rU.tgz - WindowsApplication1.rar ----- Ламер - не профессия :))

klam Ранг: 14.2 (новичок), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 17 января 2011 21:05 · Поправил: Модератор · Личное сообщение · #2 Code: Imports System.Math Public Class Form1 Function MaxE(ByVal x As Double, ByVal y As Double) As Double Dim max As Double max = x If y > max Then max = y Return max End Function Function MinE(ByVal x As Double, ByVal y As Double, ByVal z As Double) As Double 'If x < y Then Return x 'If x > y Then Return y Dim m As Double m = x If y < m Then m = y If z < m Then m = z Return m End Function Sub Hyina(ByVal x As Double, ByVal a As Double) If x > 0 And x < 1 Then MessageBox.Show("Расчет по первому условию") TextBox3.Text = CStr(MinE((x - a) / x, Sqrt(a) + x, Sin(x) ^ 2)) Else If x < 0 Then MessageBox.Show("Расчет по второму условию") TextBox3.Text = CStr(MaxE(x, Pow(a, x))) ElseIf x > 0 Then MessageBox.Show("Расчет по третьему условию") TextBox3.Text = CStr(0) End If End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double Dim a As Double x = CDbl(Val(TextBox1.Text)) a = CDbl(Val(TextBox2.Text)) Hyina(x, a) End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Попробуй так. У меня вроде компилируется
GPcH Ранг: 631.1 (!), 62thx Активность: 0.37↘0.01 Статус: Участник Автор VB Decompiler	Создано: 17 января 2011 23:28 · Поправил: GPcH · Личное сообщение · #3 aspirin Ну а как оно будет компиляться если у первой функции два параметра, а ты в нее передаешь три. Во второй функции наоборот: Code: Function MaxE(ByVal x As Double, ByVal y As Double) As Double Function MinE(ByVal x As Double, ByVal y As Double, ByVal z As Double) As Double MaxE((x - a) / x, Sqrt(a) + x, Sin(x) ^ 2) MinE(x, Pow(a, x)) Может перепутал функцию? ----- Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!
klam Ранг: 14.2 (новичок), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 17 января 2011 23:38 · Личное сообщение · #4 GPcH, если по логике задания посмотреть, то да - функции mine и maxe перепутаны.
aspirin Ранг: 111.0 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 18 января 2011 22:09 · Поправил: aspirin · Личное сообщение · #5 GPcH klam, спасибо! ----- Ламер - не профессия :))

Для печати