Здравствуйте, с праздниками всех.

У меня такая проблемка. Есть расчетная программа. на VB, которая сделана для работы в DOS'e ! Надо её как-то переделать так, чтобы она работала в виндузе. А также она почему-то не хочет работать с лазерным принтером. Первый раз сталкиваюсь с такой проблемой, поэтому даже не представляю как это делать. вроде бы и не сложно, а когда берусь, то выходит , что не всё так просто.

Помогите, пожалуйста.

Большое спасибо заранее.

А есть исходники этой програмки?
Или хотябы алгоритм ее работы и расчетные функции?

Исходник есть и я его прикрепляла к сообщению №1, почему-то его нет. Можно же сюда вставить файл? Пробую ещё раз.

Присоединённый файл ( Кол-во скачиваний: 12 )
 MAX.bas 10,09 Kb

Програмка эта не на VB а на его далеком предшественнике.
Необходимо, во первых, переписать этот исходник под VB.
У тебя знания о VB позволят это сделать?

Пример умножения 2-ух матриц:

Код

Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer Cls Print "Матрица 1:" & vbNewLine Dim a() As Single Dim ai As Integer, aj As Integer ai = InputBox("", "Размерность: число строк 1-ой матрицы") aj = InputBox("", "Размерность: число столбцов 1-ой матрицы") MsgBox "Число строк = " & ai & " Число столбцов = " & aj ReDim a(0 To ai - 1, 0 To aj - 1) As Single For i = 0 To ai - 1     For j = 0 To aj - 1          a(i, j) = InputBox("", "Заполните матрицу")              Print "  "; a(i, j);          Next j     Print Next i Print ' ---------------------------------------------------------------- ' матрица 2: Print "Матрица 2:" & vbNewLine Dim b() As Single Dim bi As Integer, bj As Integer bi = InputBox("", "Размерность: число строк 2-ой матрицы") bj = InputBox("", "Размерность: число столбцов 2-ой матрицы") If aj = bi Then          MsgBox "Число строк = " & bi & " Число столбцов = " & bj Else: MsgBox "Число строк 1-ой матрицы" & vbNewLine & _          "не равно числу столбцов 2-ой матрицы", vbCritical Exit Sub End If ReDim b(0 To bi - 1, 0 To bj - 1) As Single For i = 0 To bi - 1     For j = 0 To bj - 1          b(i, j) = InputBox("", "Заполните матрицу")              Print "  "; b(i, j);          Next j     Print Next i Print ' результат умножения 2-ух матриц: Dim s As Integer, k As Integer Dim c() As Single ReDim c(0 To ai - 1, 0 To aj - 1) As Single Print "Умножение матриц:" & vbNewLine For i = 0 To ai - 1     For j = 0 To bj - 1         For k = 0 To aj - 1                  c(i, j) = c(i, j) + a(i, k) * b(k, j)                  Next k                  Print "  "; c(i, j);             Next j     Print Next i End Sub

Маринка, вместо INPUT используй

Код

value=InputBox()

. В меню VB6 Tools -> Options на вкладке Editor поставь флаг "Require Variable Declaration" - так будет обязательное объявление переменных, а то они в твоем коде типа Variant, из-за чего скорость работы будет низкая и расход памяти очень большой.

Маринка, тебе надо только глядя на мой пример, заменить для своего случая операторы.
P.S. И не надо пользоваться Goto, а то не понятно, что куда ведет. Для его замены лучше использовать процедуры Sub, If... elseif... end if, Select Case ... End Case.

Цитата(Маринка @ 13.1.2006, 18:43 )

Есть расчетная программа. на VB, которая сделана для работы в DOS'e ! Надо её как-то переделать так, чтобы она работала в виндузе.

Основные твои проблемы: некуда print, неоткуда input.
Замены:
вместо print использовать вывод в caption надписи на форме
вместо input использовать inputbox (для ввода значений) или msgbox (для выбора варианта дальнеших действий).

Расчетная часть будет работать без корректировки.

Цитата(Маринка @ 13.1.2006, 18:43 )

она почему-то не хочет работать с лазерным принтером

что значит - не хочет? так прямо на экран и выкидывает сообщение "Не хочу работать с лазерным принтером!" ?

Ага, понятно..а что там такое Locate ?? Как бороться с этим?

Locate - указывает место на экране где будет надпись выводиться - их можешь просто выкинуть.

Откуда там берётся значение I ??
Что такое Data ..,.,.,.,.,   ? Как это перевести в нормальный VB, чтоб работало?

Data и Read там используются для определения констант...
Оператор DATA позволяет хранить данные прямо в программме
Read считывает очередные данные из оператора DATA

Data - Read в VB6 нет. Придется в ручную присваивать каждое необходимое значение каждому элементу массива при помощи знака равенства.

I - это счетчик цикла. Его начальное и конечное значения задаются в строке For.

Маринк, а ты, вообще в Бейсике волокёшь? и в VB6 в частности?
Потому что построчно переделывать такой исходник довольно сложно.
Я б рекомендовал поступить так.
Если тебе известна суть работы программы, легче написать ее интерфейс заново - на VB6. А саму формулу вычисления взять из старого исходника (ну с небольшими исправлениями). Вот так.
Потому что идеология интерфейса VB6 (оформление проги, то есть) в VB совсем другая, чем было в DOS.

Маринка, прислушайся к тому, что JusTalionis говорит.

Дело, между прочим!

mihanik, я тут посмотрел; если у нее не стоит задача сделать законченную прогу, а только проблема с печатью на лазерке, она может сделать много проще: чуть поправить свой исходник и запускать его под QB.
Там, как я вижу, принтер открывается как файл, может быть поэтому лазерка и не печатает.
Ну-дык, можно легко перенаправить вывод в файл; получится текстовый файл, и его уже распечатать средствами Windows.

-       I - это счетчик цикла. Его начальное и конечное значения задаются в строке For.


-    это понятно, что счетчик. Не понимаю, где используется это значение, т.е. как оно от пользователя зависит? Когда именно I=1 до 6, а когда I=7 до 11   .... где I узнает программа?
Мне плохо в том смысле, что самих расчетов у меня нет, в этой строительной теме я ничего не понимаю, мне надо-чтоб прога работала в винде и чтоб печатала нормально. С печатью я ещё не разбиралась. А с самой программой- вроде легкая, расчеты не меняются там, а вот с этими I - не понимаю пока. Сделала просто форму одну, где user вводит все данные, нажимает РАСЧЕТ и ..готово..типа. 

Там ещё поля Text - куда вводятся все данные надо мне как-то обозначить переменными что ли..(?) - RY, RX и т.д.  ну с этим я  тоже разберусь, наверное - это тоже из области нетрудного.

Добавлено @ 15:56 
просто попросидли меня помочь - а я что-то вожусь с ней, самой аж стыдно и неудобно, неприятно.

Ты молодец, Маринка!
Автоматически(без участия пользователя) и в прядке расположения фрагментов в программе: здесь - сначала от 1 до 6, затем от 7 до 11, потом от 12 до 17 и далее по тексту.
Весь блок кода с циклами For и DATA - READ - это начальный расклад значений в массивы, то есть инициализация.
В VB инициализации выполняющиеся автоматически при старте программы, надо помещать в процедуру Private Sub Form_Load().
Вызываешь, как обычно, пустую заготовку этой процедуры и пишешь в ней присвоения в ручную всем элементам массивов необходимых начальных значений. Например, начинается:
И так последовательно все значения из строк DATA, друг за другом, так же, как цикл перебирал бы элементы массива. Вместо I, первым индексом массива здесь проставлены значения, которые I последовательно принимала бы в циклах, как нетрудно видеть.
Массив нужно объявить как глобальный: создай модуль, и внутри него объяви.



Это сообщение отредактировал(а) JusTalionis - 13.2.2007, 17:17