Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

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

Автор: Layriona 17.11.2008, 21:24

Здравствуйте! У меня есть программа, которая вычисляет координаты по осям 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

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

)

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

Код


if y mod 10 = 0 then

Автор: Layriona 17.11.2008, 23:08

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

Автор: Akina 17.11.2008, 23:55

Код


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