VPF::фильтрация вывода данных - Форум программистов

Layriona

Дата 17.11.2008, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 17.11.2008

Репутация: нет
Всего: нет

Здравствуйте! У меня есть программа, которая вычисляет координаты по осям z и y. Y разбивает на дискретные интервалы dy и вычисляет по имеющимся формулам координаты z, соответствующие этим y. Вот код:

Код

 
Dim r As Single
Dim h As Single
Dim hr As Single
Dim y0 As Single
Dim z0 As Single
Dim ro As Single
Dim dy As Single
Dim yp As Single
Dim ymax As Single
Dim y As Single
Dim z As Single
Dim igio As Single
Dim igiy As Single
Dim igia As Single
Dim fy As Single
Dim n As Single
Dim np As Single
Dim ya As Single
Dim za As Single
Dim xschet As Integer


r = 12
h = 36
y0 = -80
z0 = 80
ro = 64
dy = 0.001
yp = 10
ymax = 350

np = yp / dy
ya = y0
za = z0
igia = igio

For n = 0 To np
      y = ya + dy
      fy = 1 / Sqr(2) - Sqr(h ^ 2 - r ^ 2) / ro * (Atn(y / Sqr(h ^ 2 - r ^ 2)) - Atn(y0 / Sqr(h ^ 2 - r ^ 2)))
      igiy = fy / Sqr(1 - fy ^ 2)
      z = za + (igia + igiy) * dy / 2
      ya = y
      za = z
      igia = igiy

               If y > ymax Then Stop
               End if

Next n

Вопрос: как мне вывести в таблицу значения y и z, чтобы выводились не все значения, а только целые y через 10 (и соответствующие им z)
(Главное в вопросе именно как вывести не все значения, а именно только целые через 10)
То есть чтобы было так:
y        z
-80    80.1
-70    89.2
-60    93.4

..........

Заранее спасибо за ответ!
С уважением, Виктория.

P.S. Пробовала с помощью таблицы MSFlexGrid с оператором mod, не получилось!

Akina

Дата 17.11.2008, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Layriona @ 17.11.2008, 22:24

)

только целые y через 10

Код


if y mod 10 = 0 then

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Layriona

Дата 17.11.2008, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 17.11.2008

Репутация: нет
Всего: нет

Я написала , что не получается с оператором mod, с целыми все нормально, а как перехожу к десятичным - не выводит.

Akina

Дата 17.11.2008, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Код


if y = Fix(y / 10) * 10 Then

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »