Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
clonio
0 / 0 / 0
Регистрация: 18.08.2010
Сообщений: 83
1

Нужны сотые доли секунды, а считает целыми

09.11.2011, 05:08. Просмотров 1101. Ответов 3
Метки нет (Все метки)

Может кто подскажет, в чем ошібка? В столбік запісывается время. Нужно, чтобы это это дело работало как можно быстрее, но чтобы строкі не былі равны между собой і шлі попорядку(задержка в 0.00001сек ілі .. нууу... максімум 0.02 секунды.). Зачем? Прога думает долго, новый-столбец-ключ делать дополнітельно не охота, так вот на каждую строку по 0.02 секунды - вот тут как раз ключ і получается. Подскажіте, что да как і хітро лі. Ілі можно ешьче умнее?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim r0 As Double
Dim r1 As Double
 
Private Sub CommandButton1_Click()
     
     i_temp2 = 1
     For i_temp1 = 1 To 100
        r0 = Now
        r1 = r0
        While (r1 - r0 < 0.000000000000001)
            r1 = Now
            Worksheets("Sheet3").Cells(i_temp2, 1) = r1
            i_temp2 = i_temp2 + 1
        Wend
        i_temp2 = i_temp2 + 1
    Next i_temp1
End Sub
Так вот проблема в том, что этот код не работает. Вот что оно, пішет.

38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455092593000000000000
38595.8455208333000000000000
38595.8455208333000000000000
38595.8455208333000000000000
38595.8455208333000000000000
38595.8455208333000000000000
38595.8455208333000000000000

То есть, чісла меняются посекундно. А надо до сотых хотя бы. Как лечітся это дело? Спасібо.


Сделал теперь вот так: заменіл r1=Now на r1 = CDbl(Now) + (i_temp2 / 1000000000#)

Но через тысячу лет актуальная программа перестанет работать І, возможно, даже раньше))

З.Ы. і как сделать Sleep, pause delay ілі что-ніть в этом роде на 10 мсек? Может кто поведает? ТОгда і все эті проблемы отпадут самі собой.
Спасібо.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2011, 05:08
Ответы с готовыми решениями:

Определить текущий день недели, год, месяц, число, а также текущее время-часы, минуты, секунды, сотые доли секунды.
1. Составить программу на языке Си , используя функций прерывания 21h....

В mathcade в графике (где задают индексы) надо указать сотые доли
в mathcade в графике (где задают индексы) надо указать сотые доли, чтобы было...

Как показать доли секунды в FormatDateTime?
Как показать доли секунды в FormatDateTime?

Окно появляется на доли секунды и исчезает
Привет всем! пожалуйста подскажите,я только недавно начал изучать С++ купил...

Программы на C++, созданные в NetBeans 7.3.1, запускаются на доли секунды
У меня Win Xp SP 3. Установил среду NetBeans 7.3.1 с компилятором Cygwin....

3
dieman
0 / 0 / 0
Регистрация: 10.08.2011
Сообщений: 25
09.11.2011, 07:16 2
А как на счет таймера!
Там на 10 сек. твои будут
0
Alexey Spirin
1 / 1 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
09.11.2011, 13:11 3
Ну что за народ пошел, а?
А поискать никак не судьба и найти API функцию Sleep ???
Нов любом случае это бред. Добавь ключевое поле и не мучайся.
0
Insolent
12.11.2011, 23:27 4
Попробуй вместо Now использовать Timer(не контрол, а обьект), может поможет)))
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.11.2011, 23:27

Компьютер подвисает на доли секунды с постоянной периодичностью
Собственно где-то раз в час или в два комп подвисает, как при обращении к...

Программа запускается и в течение доли секунды вылетает
Программа запускается и в течение доли секунды вылетает.Компилятор не...

Загруженность ЦП - 100% (не снижается даже на доли секунды)
Здравствуйте! Выполняла поиск по форуму, но ничего конкретного не нашла со...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru