ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод выборочных значений в текстовый файл
6 сообщений из 6, страница 1 из 1
Вывод выборочных значений в текстовый файл
    #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:27
| Ответить | Цитировать | Написать  
Вывод выборочных значений в текстовый файл
    #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, 18:43
| Ответить | Цитировать | Написать  
Вывод выборочных значений в текстовый файл
    #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
12.05.2009, 22:19
| Ответить | Цитировать | Написать  
Вывод выборочных значений в текстовый файл
    #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, 08:18
| Ответить | Цитировать | Написать  
Вывод выборочных значений в текстовый файл
    #35982247
layriona
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
layriona
Гость
Спасибо большое! Получилось!
...
Рейтинг: 0 / 0
13.05.2009, 09:56
| Ответить | Цитировать | Написать  
Вывод выборочных значений в текстовый файл
    #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
13.05.2009, 11:03
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод выборочных значений в текстовый файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35982247&tid=2161031]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 234ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


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