Задача VBA.

[Iron_Man_36rus]

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

[Yandex]

Сообщение от Iron_Man_36rus

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

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

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

[Оля-ля]

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

[Yandex]

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

[Palych]

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

[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

[Yandex]

Iron_Man_36rus,

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

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

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

[Palych]

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

[Iron_Man_36rus]

Сообщение от Palych

Все правильно (насчет денег).

Твои предложения.

[su -o]

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

Сообщение от 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