Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод выборочных значений в текстовый файл / 6 сообщений из 6, страница 1 из 1
12.05.2009, 18:27
    #35981416
layriona
layriona
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
Я вывожу значения в текстовый файл. Подскажите пожалуйста, как сделать так, чтобы выводились не все значения, а через каждые 10? Пробовала поставить step 10, но тогда получаются другие значения.
У меня есть код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim FileNum As Integer
FileNum = FreeFile
Open name_file For Output As FileNum
txt = "t vx  vy  vz  x  y  z"
Print #FileNum, txt
 txt = t0 & "          " & v0x & "         " & v0y & "         " & v0z & "          " & x0 & "         " & y0 & "          " & z0
Print #FileNum, txt
For i =  1  To kol
  t = t0 + i * shag
  ...    
  v0x = v0x + k1
  v0y = v0y + k2
  v0z = v0z + k3
  x0 = x0 + k4
  y0 = y0 + k5
  z0 = z0 + k6

  txt = t & "          " & v0x & "         " & v0y & "         " & v0z & "          " & x0 & "         " & y0 & "         " & z0
  Print #FileNum, txt
Next i
Close #FileNum
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2009, 18:43
    #35981460
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
> Автор: layriona
> Я вывожу значения в текстовый файл. Подскажите пожалуйста, как сделать так, чтобы выводились не все значения, а
> через каждые 10? Пробовала поставить step 10, но тогда получаются другие значения.

Что значит через каждые 10? Потому, что Step 10 это самое что нужно. Или алгоритм расчета следующих значений зависит от
предыдущих? Тогда так:
Код: plaintext
1.
2.
3.
    if i mod  10  =  0  then
        Print #FileNum, txt
    end if



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2009, 22:19
    #35981758
layriona
layriona
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
Да, у меня как раз следующие значения зависят от предыдущих. Я вот так делаю, у меня не выходит:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim FileNum As Integer
FileNum = FreeFile
Open name_file For Output As FileNum
txt = "t vx  vy  vz  x  y  z"
Print #FileNum, txt
 txt = t0 & "          " & v0x & "         " & v0y & "         " & v0z & "          " & x0 & "         " & y0 & "          " & z0
Print #FileNum, txt
For i =  1  To kol
  t = t0 + i * shag
  ...    
  v0x = v0x + k1
  v0y = v0y + k2
  v0z = v0z + k3
  x0 = x0 + k4
  y0 = y0 + k5
  z0 = z0 + k6

  txt = t & "          " & v0x & "         " & v0y & "         " & v0z & "          " & x0 & "         " & y0 & "         " & z0
if i mod  10  then   
Print #FileNum, txt
end if
Next i
Close #FileNum
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 08:18
    #35982039
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
попробуйте так
Код: plaintext
1.
2.
3.
4.
if (i mod  10 )= 0  then   
   txt = t & "          " & v0x & "         " & v0y & "         " & v0z & "          " & x0 & "         " & y0 & "         " & z0
   Print #FileNum, txt
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 09:56
    #35982247
layriona
layriona
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
Спасибо большое! Получилось!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2009, 11:03
    #35982418
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод выборочных значений в текстовый файл
Я прошу прощения, но что я не понятного сказал?
Игорь Горбонос
Код: plaintext
1.
2.
3.
    if i mod  10  =  0  then
        Print #FileNum, txt
    end if

layriona
Код: plaintext
1.
2.
if i mod  10  then   
Print #FileNum, txt
end if

by-pass
Код: plaintext
1.
2.
3.
if (i mod  10 )= 0  then   
   Print #FileNum, txt
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод выборочных значений в текстовый файл / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 399ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161031]:
 0ms
get settings:
 8ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 73ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 228ms
total:  399ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]