Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
1

Транспортная задача методом северо западного угла

06.05.2012, 23:13. Просмотров 2036. Ответов 11
Метки нет (Все метки)

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim tt1, tt3, tt2, tt4, tt5, tt6, tt7, tt8, tt9, tt10, tt11, tt12 As Integer
        tt1 = txt8.Text
        tt2 = x12.Text
        tt3 = x13.Text
        tt4 = x14.Text
        tt5 = x21.Text
        tt6 = x22.Text
        tt7 = x23.Text
        tt8 = x24.Text
        tt9 = x31.Text
        tt10 = x32.Text
        tt11 = x33.Text
        tt12 = x34.Text
        'заполнение потребностей и запросов
        Dim a, b, c, d, i, f, g As Integer
        a = txt1.Text
        b = txt2.Text
        c = txt3.Text
        d = txt4.Text
        i = txt5.Text
        f = txt6.Text
        g = txt7.Text
        txtresult.Text = a + b + c + d
        txtresult.Text = i + f + g
        txt1.Text = t1.Text
        txt2.Text = t2.Text
        txt3.Text = t3.Text
        txt4.Text = t4.Text
        txt5.Text = t5.Text
        txt6.Text = t6.Text
        txt7.Text = t7.Text
        result1.Text = txtresult.Text
        'расчёт и распределение по северо-западному углу
        If a <= i Then
            x11.Text = a
        End If
        If i - a <= b Then
            x12.Text = i - a
        End If
        If x11.Text = a Then
            x31.Text = 0
        End If
        If x11.Text = a Then
            x21.Text = 0
        End If
        If b - x12.Text <= b Then
            x22.Text = b - x12.Text
        End If
        If b - x12.Text = x22.Text Then
            x32.Text = 0
        End If
        If f - x22.Text <= c Then
            x23.Text = f - x22.Text
        End If
        If c - x23.Text <= f Then
            x23.Text = c - x23.Text
        End If
        If c - x23.Text = x33.Text Then
            x13.Text = 0
        End If
        If g - x23.Text <= d Then
            x34.Text = g - x33.Text
        End If
        If g - x33.Text = x34.Text Then
            x24.Text = 0
        End If
        If g - x33.Text = x34.Text Then
            x14.Text = 0
        End If
    End Sub
 
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        q1 = txt8.Text
        w1 = x12.Text
        r1 = x22.Text
        t1 = x23.Text
        y1 = x33.Text
        u1 = x34.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x23.Text
        u2 = x34.Text
        result.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
 
    End Sub
End Class

Не хочет работать скажите пожалуйста в чем ошибка
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2012, 23:13
Ответы с готовыми решениями:

Транспортная задача методом северо западного угла
Имеются три пункта отправления А1, А2, А3 однородного груза и пять пунктов В1,...

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

Транспортная задача. Метод северо-западного угла. 2 на 2:)
Ребята, помогите пожалуйста. Необходимо сделать транспортную задачу, метод...

Транспортная задача.Метод северо-западного угла
Всем привет!! люди если не сложно помогите пожалуйста написать программу для...

Delphi. Транспортная задача. Метод северо-западного угла
Помогите написать программу в среде Delphi, которая будет находить кратчайший...

11
PAnT0P
1024 / 548 / 106
Регистрация: 26.03.2012
Сообщений: 987
07.05.2012, 02:05 2
Скинь проект лучше, а то тут у тебя полсотни контролов по форме раскидывать надо, желательно с уже вбитыми тестовыми данными
1
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 10:51  [ТС] 3
Цитата Сообщение от PAnT0P Посмотреть сообщение
Скинь проект лучше, а то тут у тебя полсотни контролов по форме раскидывать надо, желательно с уже вбитыми тестовыми данными
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'зполнение единиц измерения
        Dim tt1, tt3, tt2, tt4, tt5, tt6, tt7, tt8, tt9, tt10, tt11, tt12 As Integer
        tt1 = txt8.Text
        tt2 = txt9.Text
        tt3 = txt10.Text
        tt4 = txt11.Text
        tt5 = txt12.Text
        tt6 = txt13.Text
        tt7 = txt14.Text
        tt8 = txt15.Text
        tt9 = txt16.Text
        tt10 = txt17.Text
        tt11 = txt18.Text
        tt12 = txt19.Text
        'заполнение потребностей и запросов
        Dim a, b, c, d, i, f, g As Integer
        a = t1.Text
        b = t2.Text
        c = t3.Text
        d = t4.Text
        i = t5.Text
        f = t6.Text
        g = t7.Text
        txtResult.Text = a + b + c + d
        txtResult.Text = i + f + g
        txt1.Text = t1.Text
        txt2.Text = t2.Text
        txt3.Text = t3.Text
        txt4.Text = t4.Text
        txt5.Text = t5.Text
        txt6.Text = t6.Text
        txt7.Text = t7.Text
        result.Text = txtResult.Text
        'расчёт и распределение по северо-западному углу
        If a <= i Then
            x11.Text = a
        End If
        If i - a <= b Then
            x12.Text = i - a
        End If
        If x11.Text = a Then
            x31.Text = 0
        End If
        If x11.Text = a Then
            x21.Text = 0
        End If
        If b - x12.Text <= b Then
            x22.Text = b - x12.Text
        End If
        If b - x12.Text = x22.Text Then
            x32.Text = 0
        End If
        If f - x22.Text <= c Then
            x23.Text = f - x22.Text
        End If
        If c - x23.Text <= f Then
            x33.Text = c - x23.Text
        End If
        If c - x23.Text = x33.Text Then
            x13.Text = 0
        End If
        If g - x33.Text <= d Then
            x34.Text = g - x33.Text
        End If
        If g - x33.Text = x34.Text Then
            x24.Text = 0
        End If
        If g - x33.Text = x34.Text Then
            x14.Text = 0
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'подсчёт оптимальных затрат
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        q1 = txt8.Text
        w1 = txt9.Text
        r1 = txt13.Text
        t1 = txt14.Text
        y1 = txt18.Text
        u1 = txt19.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x33.Text
        u2 = x34.Text
        txtResult1.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
    End Sub
End Class
0
Миниатюры
Транспортная задача методом северо западного угла   Транспортная задача методом северо западного угла  
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 10:58  [ТС] 4
я не знаю как проект кидать.....
0
nio
5955 / 3361 / 335
Регистрация: 14.06.2009
Сообщений: 8,136
Записей в блоге: 2
07.05.2012, 11:03 5
Цитата Сообщение от FanArmenia Посмотреть сообщение
я не знаю как проект кидать
Под редактором сообщения есть кнопка расширенный режим, там есть управление вложениями для прикрепления своего файла
1
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 11:12  [ТС] 6
Цитата Сообщение от nio Посмотреть сообщение
Под редактором сообщения есть кнопка расширенный режим, там есть управление вложениями для прикрепления своего файла
......
0
Вложения
Тип файла: rar Транспортная Задача.rar (79.4 Кб, 108 просмотров)
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 11:36  [ТС] 7
мне в четверг его защищать.....а он у меня не правильно работает
0
PAnT0P
1024 / 548 / 106
Регистрация: 26.03.2012
Сообщений: 987
07.05.2012, 12:51 8
Заполни форму данными сделай скрин и выложи сюда. И скажи что именно не работает: вылетает при нажатие такой то кнопки, считает но неправильно (в этом случае укажи какой должен быть результат) и т.д. и т.п
1
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 14:43  [ТС] 9
Цитата Сообщение от PAnT0P Посмотреть сообщение
Заполни форму данными сделай скрин и выложи сюда. И скажи что именно не работает: вылетает при нажатие такой то кнопки, считает но неправильно (в этом случае укажи какой должен быть результат) и т.д. и т.п
У тебя есть VS 2010
я скинул программу можешь посмотреть зорные спасибо
я заполняю первую таблицу нажимаю рассчитать но умнея выскакивает ошибка...а должен рассчитать и заполнить автоматический таблицу методом северо западного угла.....
0
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 14:56  [ТС] 10
Цитата Сообщение от PAnT0P Посмотреть сообщение
Заполни форму данными сделай скрин и выложи сюда. И скажи что именно не работает: вылетает при нажатие такой то кнопки, считает но неправильно (в этом случае укажи какой должен быть результат) и т.д. и т.п
Почему фиг его знает(((
0
Миниатюры
Транспортная задача методом северо западного угла   Транспортная задача методом северо западного угла  
FanArmenia
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 17
07.05.2012, 15:02  [ТС] 11
http://www.reshmat.ru/transport.htmlи как сделать что бы можно было выбирать Выберите количество поставщиков и
Выберите количество потребителей
0
Миниатюры
Транспортная задача методом северо западного угла  
PAnT0P
1024 / 548 / 106
Регистрация: 26.03.2012
Сообщений: 987
07.05.2012, 15:44 12
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'подсчёт оптимальных затрат
        Dim q1, w1, r1, t1, y1, u1, q2, w2, r2, t2, y2, u2 As Integer
        Button1_Click(sender, e)
        q1 = txt8.Text
        w1 = txt9.Text
        r1 = txt13.Text
        t1 = txt14.Text
        y1 = txt18.Text
        u1 = txt19.Text
        q2 = x11.Text
        w2 = x12.Text
        r2 = x22.Text
        t2 = x23.Text
        y2 = x33.Text
        u2 = x34.Text
        txtResult1.Text = q1 * q2 + w1 * w2 + r1 * r2 + t1 * t2 + y1 * y2 + u1 * u2
    End Sub
Добавлено через 4 минуты
Цитата Сообщение от FanArmenia Посмотреть сообщение
http://www.reshmat.ru/transport.htmlи как сделать что бы можно было выбирать Выберите количество поставщиков и
Выберите количество потребителей
Копай в сторону динамического добавление контролов
1
07.05.2012, 15:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2012, 15:44

Транспортная ЗЛП методом северо-западного угла и методом потенциалов
здравствуйте! нужно создать программу, которая реализует транспортную задачу...

Транспортная задача: метод северо-западного угла + метод оптимизации (потенциалов)
есть у кого-нибудь исходники на программу решения злп метод с-з угла + метод...

Транспортная задача. Метод северо-западного угла и метод минимального элемента.
Метод северо-западного угла и метод минимального элемента. Задание: Найти...


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

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

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