Private Sub Form_Load()
Left = (Screen. Width – Width) \ 2
Top = (Screen. Height – Height) \ 2
End Sub
Private Sub Timer1_Timer()
Unload Form1
Load Form2
Form2. Show
End Sub
‘Объявление переменных
Public a As Integer
Public b As Integer
Public c As Integer
Public d As Integer
Public e As Integer
Public f As Integer
Public aa As Integer
Public ab As Integer
Public ac As Integer
Public ad As Integer
Public ae As Integer
Public af As Integer
Public ba As Integer
Public bb As Integer
Public bc As Integer
Public bd As Integer
Public be As Integer
be = Text17. Text
bf = Text18. Text
ca = Text19. Text
cb = Text20. Text
cc = Text21. Text
cd = Text22. Text
ce = Text23. Text
cf = Text24. Text
X1 = Text25. Text
X2 = Text26. Text
X3 = Text27. Text
‘Проверка выполнения равенств
If a*x1+aa*x2+ba*x3=ca Then «Равенство выполняется» Else «Равенство не выполняется»
If b*x1+ab*x2+bb*x3=cb Then «Равенство выполняется» Else «Равенство не выполняется»
If c*x1+ac*x2+bc*x3=cc Then «Равенство выполняется» Else «Равенство не выполняется»
If d*x1+ad*x2+bd*x3=cd Then «Равенство выполняется» Else «Равенство не выполняется»
If e*x1+ae*x2+be*x3=ce Then «Равенство выполняется» Else «Равенство не выполняется»
F= f*x1+af*x2+bf*x3
If F<fmin Then «Решение не выполняется» Else «Решение выполняется, план является оптимальным»
Text28. Visible = True
Text29. Visible = True
End Sub
Private Sub Command2_Click()
‘очистка текстовых окон для следующего ввода данных
Text1. Text = «»
Text2. Text = «»
Text3. Text = «»
Text4. Text = «»
Text5. Text = «»
Text6. Text = «»
Text7. Text = «»
Text8. Text = «»
Text9. Text = «»
Text10. Text = «»
Text11. Text = «»
Text12. Text = «»
Text13. Text = «»
Text14. Text = «»
Text15. Text = «»
Text16. Text = «»
Text17. Text = «»
Text18. Text = «»
Text19. Text = «»
Text20. Text = «»
Text21. Text = «»
Text22. Text = «»
Text23. Text = «»
Text24. Text = «»
Text25. Text = «»
Text26. Text = «»
Text27. Text = «»
Text28. Visible = False
Text29. Visible = False
End Sub
Private Sub Command3_Click()
‘показать справку
Unload Form2
Load Form3
Form3. Show
End Sub
Private Sub Command4_Click()
Unload Form2
End Sub
Private Sub Form_Load()
Left = (Screen. Width – Width) \ 2
Top = (Screen. Height – Height) \ 2
‘подготовка текстовых окон к вводу данных при запуске рабочего окна
Text1. Text = «»
Text2. Text = «»
Text3. Text = «»
Text4. Text = «»
Text5. Text = «»
Text6. Text = «»
Text7. Text = «»
Text8. Text = «»
Text9. Text = «»
Text10. Text = «»
Text11. Text = «»
Text12. Text = «»
Text13. Text = «»
Text14. Text = «»
Text15. Text = «»
Text16. Text = «»
Text17. Text = «»
Text18. Text = «»
Text19. Text = «»
Text20. Text = «»
Text21. Text = «»
Text22. Text = «»
Text23. Text = «»
Text24. Text = «»
Text25. Text = «»
Text26. Text = «»
Text27. Text = «»
End Sub
Private Sub Form_Load()
Left = (Screen. Width – Width) \ 2
Top = (Screen. Height – Height) \ 2
End Sub
Private Sub Timer1_Timer()
Unload Form3
Load Form2
Form2. Show
End Sub
Результат использования программы
Ввод начальных коэффициентов
Полученное решение
Конечный результат
Список используемой литературы
1. Методические рекомендации «Курсовая работа по моделированию производственных и экономических процессов» Талдыкорган. 1999 г.
2. Уолш Б. «Программирование на Бейсике» Пер. с анг. – Москва: Радио и связь, 1998 г.
3. Фиакко А., Маккормик Г. «Нелинейное программирование» Пер. С анг. – Москва: Мир, 1988 г.
4. Солодовников А.С. «Введение в линейную алгебру и линейное программирование» Москва, «Просвещение», 1996 г.
5. Кузнецов Ю.Н. и др. «Математическое программирование» Москва, «Высшая школа», 1980 г.
 | |||
 |