Помогите решить, или хотябы подкиньте идею как это сделать.
Изображения
  [Ответ]

Сообщение от Iron_Man_36rus:
Помогите решить, или хотябы подкиньте идею как это сделать.

Подкидываю идею как сделать - взять книгу по VBA, прочитать и сделать. Или с помощью всепобеждающего бабла.

P.S. Вот лентяи пошли, даже перепечатывать текст не хотят. [Ответ]

А в чем собственно сложность? [Ответ]

Оля-ля, человек очень ленивый просто. [Ответ]

Iron_Man_36rus,
4 отзыва и ни одного предложения помощи... Флудим-с.
Теперь по делу. Здесь не VBA, обычный VB6. Курсовая из лесотеха. Если нужно сделать пишите в личку. [Ответ]

Попробывал сам, вот што получилось.
Немогу вывести массив, ьожет кто подскажит?


Dim Stroka, GetNomer, Wk, Gy, Tmin, Tmax, Smin, Smax, Kp, Ke, Kt, Dy, T, S, x, y, Otvet(4, 6) As Long


Private Sub Command1_Click() ' При нажатии на кнопку "Запись":
Open "c:\Programma.txt" For Random As #1 ' Открываем файл 1.txt, если его нет, то он создастся, и еше, я написал #1 - это номер свободного канала, вместо него можно использовать функции FreeFile
Stroka = 1 '
Put #1, Stroka, Text1.Text ' Записываем текст, который в текст. поле
Stroka = Stroka + 1 '
Put #1, Stroka, Text2.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text3.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text4.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text5.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text6.Text '
Close #1 ' Закрываем файл:

End Sub


Private Sub Command2_Click() ' При нажатии на кнопку "Чтение":

Open "c:\Programma.txt" For Random As #2
GetNomer = 1 '
Get #2, GetNomer, Wk ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Gy ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Tmin ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Tmax ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Smin ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Smax ' Читаем текст в переменную Gets, по номеру записи
Close #2 ' Закрываем файл

End Sub


Private Sub Command3_Click()

x = 1
y = 1
T = Tmin

If Smin <= Smax Then '

If Tmin < Tmax Then '
Kp = Gy / 500 '
Kt = 1.42 - 0.003 * Tmin '
Ke = 1.21 - 0.14 * Smin '
Dy = (9 - 0.55 * Wk ^ 0.5) * Ke * Kt * Kp '
Otvet(x, y) = Dy
y = y + 1
Tmin = Tmin + 25 '
End If
x = x + 1
Tmin = T
Smin = Smin + 0.5
End If

Print
Randomize
For x = 0 To 14
For y = 0 To 9
Otvet(i, j) = Fix(Rnd * 10)
Next y
Next x
For x = 0 To 14
S = S & vbCr
For y = 0 To 9
S = S & Otvet(x, y) & vbTab
Next y
S = S & vbCr
Next x
Print S
End Sub [Ответ]

Iron_Man_36rus,

Сообщение от :
Попробывал сам, вот што получилось.
Немогу вывести массив, ьожет кто подскажит?

НЕ ВЕРЮ! Функция вывода в выше приведенном коде уже есть, т.е. ты получается воспользовался ей, не зная как она работает. По меньшей мере удивительно.

Palych, неучам оказываю помощь только за деньги. Тут человек нахаляву хочет. Так что флужу [Ответ]

Yandex,
Все правильно (насчет денег).
Насчет халявы - вспомним пословицу про бесплатный сыр.
Я знаю этот курсовой, там много нюансов от преподавателя. Тот фрагмент кода не прокатит. К тому же при чем там случайные числа??? [Ответ]

Сообщение от Palych:
Все правильно (насчет денег).

Твои предложения. [Ответ]

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

Сообщение от Iron_Man_36rus:
Попробывал сам, вот што получилось.
Немогу вывести массив, ьожет кто подскажит?


Dim Stroka, GetNomer, Wk, Gy, Tmin, Tmax, Smin, Smax, Kp, Ke, Kt, Dy, T, S, x, y, Otvet(4, 6) As Long


Private Sub Command1_Click() ' При нажатии на кнопку "Запись":
Open "c:\Programma.txt" For Random As #1 ' Открываем файл 1.txt, если его нет, то он создастся, и еше, я написал #1 - это номер свободного канала, вместо него можно использовать функции FreeFile
Stroka = 1 '
Put #1, Stroka, Text1.Text ' Записываем текст, который в текст. поле
Stroka = Stroka + 1 '
Put #1, Stroka, Text2.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text3.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text4.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text5.Text '
Stroka = Stroka + 1 '
Put #1, Stroka, Text6.Text '
Close #1 ' Закрываем файл:

End Sub


Private Sub Command2_Click() ' При нажатии на кнопку "Чтение":

Open "c:\Programma.txt" For Random As #2
GetNomer = 1 '
Get #2, GetNomer, Wk ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Gy ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Tmin ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Tmax ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Smin ' Читаем текст в переменную Gets, по номеру записи
GetNomer = GetNomer + 1 '
Get #2, GetNomer, Smax ' Читаем текст в переменную Gets, по номеру записи
Close #2 ' Закрываем файл

End Sub


Private Sub Command3_Click()

x = 1
y = 1
T = Tmin

If Smin <= Smax Then '

If Tmin < Tmax Then '
Kp = Gy / 500 '
Kt = 1.42 - 0.003 * Tmin '
Ke = 1.21 - 0.14 * Smin '
Dy = (9 - 0.55 * Wk ^ 0.5) * Ke * Kt * Kp '
Otvet(x, y) = Dy
y = y + 1
Tmin = Tmin + 25 '
End If
x = x + 1
Tmin = T
Smin = Smin + 0.5
End If

Print
Randomize
For x = 0 To 14
For y = 0 To 9
Otvet(i, j) = Fix(Rnd * 10)
Next y
Next x
For x = 0 To 14
S = S & vbCr
For y = 0 To 9
S = S & Otvet(x, y) & vbTab
Next y
S = S & vbCr
Next x
Print S
End Sub

[Ответ]