Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
9 / 9 / 1
Регистрация: 20.12.2010
Сообщений: 191
1

Господа, не могу понять, вроде все правильно а программа считает коряво. Не прорецензируете код

25.12.2010, 03:25. Просмотров 733. Ответов 0
Метки нет (Все метки)


Уважаемые сразу изложу суть проблемы у меня есть программа для определенных рассчетов кусок кода программы отвечающий за вычисления выглядит так:

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '--------------------------------------------------------------------------------------------
        Dim material As Double    'Int                           ' Тут мы задаем переменную material и параметры ее получения
        If material_box.Text = Nothing Then MsgBox("Материал неизвестен, перегрузите приложение")
        material = material_box.Text
        '_--------------------------------------------------------------------------------------------
        Dim kvadratura As Double
        Dim visota As Double
        Dim shirina As Double                                                                       ' Этот блок отражает переменную kvadratura и описывает его получение
        If visota_box.Text = Nothing And shirina_box.Text = Nothing Then MsgBox("Прости насяльника не могу посчитать без параметров квадратуры")
        shirina = shag_box.Text
        visota = visota_box.Text
        kvadratura = visota * shirina
        '-------------------------------------------------------------------------------------------------------------------------------------
        Dim perimetr As Double
        If poperimetru_but.Checked Then perimetr = Val(visota) + Val(visota) + Val(shirina) + Val(shirina)
        If poshirine_but.Checked Then perimetr = Val(shirina) + Val(shirina)
        If povisote_but.Checked Then perimetr = Val(visota) + Val(visota) ' Здесь размещение постобработки на баннере и переменная perimetr
        If postorone_but.Checked Then perimetr = Val(shirina)
        '-------------------------------------------------------------------------------------------------------------------------------------
        'При включенной опции ЛЮВЕРСЫ
        Dim luvers As Double
        Dim koltso As Double = 8.7
        Dim shag As Double
        shag = shag_box.Text
        If vklluv_but.Checked And shag_box.Text = Nothing Then MsgBox("Вы не ввели шаг люверсов, у программы возникла паника сделайте рестарт приложения чтобы она могла успокоиться")
        If vklluv_but.Checked Then luvers = (perimetr / shag) * koltso Else luvers = 0
        '-------------------------------------------------------------------------------------------------------------------
        'При включении опции КАРМАНЫ
        Dim karman As Double = 15  'Int                                   ' В этом блоке отражено условие включения карманов и расчет
        Dim karman_summa As Double
        If vklkarm_but.Checked Then karman_summa = perimetr * 15 Else karman_summa = 0
        '-------------------------------------------------------------------------------------------------------------
        ' Окончательный расчет 
        Dim rezultat As Double
        rezultat = (material * kvadratura) + Val(luvers) + Val(karman_summa)
        rezultat_box.Text = rezultat



Этот код отражает следующее уравнение :

rezultat= (material*kvadraturu)+luvers+karman_summa

при контрольной проверке, он грешил на 10 единиц, я стал менять типы переменных от Инт до Decimal все начало меняться и врать в еще большую сторону (порядка) 200 единиц, хотя я менял только тип переменной оставляя формулы не тронутым, затем решил не баловаться текстбоксами и назначил их переменными и всех ввел в Дабл, теперь у меня вообще какую-то муру показывает.

Помогите плиз, обидно вроде вся прога накатана, и даже практически правильно показывала, а теперь при всех тех же условиях несет какой-то бред

Для контррля уровнения вот цифры: 150*(4,14*2,13)+(4,14+4,14+2,13+2,13)\0,30*8.70 Короткий вариант этого уравнения : 150*(41,8)*8.70
Отсюда 150-это материал величина постоянная и 8.70 стоимость кольца.
0,30 - это шаг. Остальные цифры это квадратура и периметр.


В общем бошка уже кругом. И глаз замылился, я наверное не вижу чего-то очень очевидного!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2010, 03:25
Ответы с готовыми решениями:

Подскажите, не работает код, не могу понять почему - вроде бы все правильно
Доброго времени суток Есть задача - при клике на кнопку должен создаваться параграф в теле...

Есть код,но при запуске говорит неверный синтаксис,а я не могу понять где,вроде все верно
есть код,но при запуске говорит неверный синтаксис,а я не могу понять где,вроде все верно import...

Возведение в степень (Не могу понять, как считает программа)
Вот обычная программа для подсчета степени. Помогите понять, как она считает. #include...

жалуется на стоку int adventurers. killed. survivors; не могу понять почему, вроде всё правильно написано
// Утраченный клад // Персонализированная приключенческая игра #include <iostream> #include...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2010, 03:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Транспортная задача. Программа немного криво считает, а что не так, не могу понять...
Программа немного криво считает, а что не так не могу понять ткните носом новичка) ...

Задача по C#. Вроде все просто, а понять не могу. И если можно, дайте ссылки на похожие задачи
Создать приложение, которое получает на вход список школьных предметов и их характеристик, после...

Все правильно вроде сделал, программа работает, но не выдает нужный результат!
Задание Сложное слово состоит из двух частей одинаковой длины и соединительной гласной. Найдите обе...

Проверьте кому не трудно код, делал вроде правильно, а все равно не так
namespace ConsoleApplication1 { static double mas = { {4.3, 0.217, 0, 0, 2.663}, {0.1,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.