Простая считалка

[eldar22]

Здравствуйте!
Вот проблема не могу не как организовать это
хотелось бы сделать программа которая каждую милисекунду будет прибавлять 1 к числу 1
то есть получиться считалка 12345678 и тд
Как с таймером работать я знаю

Код: Выделить всё

Private Sub Command1_Click()
s = 1

    Timer1.Interval = 1
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
результат выводить например в text1.text
s = s - 1
    If s = 0 Then Timer1.Enabled = True

End Sub

[Viper]

Так проблема то в чем? Увеличивай на единицу переменную-счетчик и добавляй это число к строке.
Есть два вопроса:
1. 123456789 - а дальше что? 101112?
2. А до какого предела добавлять единичку предполагается?

[Al Prad]

Здравствуйте!
Вот проблема не могу не как организовать это
хотелось бы сделать программа которая каждую милисекунду будет прибавлять 1 к числу 1
то есть получиться считалка 12345678 и тд
Как с таймером работать я знаю

Код: Выделить всё

Private Sub Command1_Click()
s = 1

    Timer1.Interval = 1
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
результат выводить например в text1.text
s = s - 1
    If s = 0 Then Timer1.Enabled = True

End Sub

Если не ошибаюсь, ставить меньше 18 миллисекунд бесполезно - ограничено скоростью windows...

[eldar22]

Мне если честно без разницы сколько милисекунд мне главное сделать так, чтобы к число 1 или 0 прибавлялось число единица то есть чтобы получилось считалка 1,2,3,4,5,6,7,8 и тд.

[dub]

что то немогу понять а в чем проблема....

Код: Выделить всё

dim s as interger
Private Sub Command1_Click()
s = 1
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'результат выводить например в text1.text
s = s + 1
textbox1.text = textbox.text + s
'или textbox.text = s
End Sub

[Viper]

Мне если честно без разницы сколько милисекунд мне главное сделать так, чтобы к число 1 или 0 прибавлялось число единица то есть чтобы получилось считалка 1,2,3,4,5,6,7,8 и тд.

Тем более проще, просто инкрементируй на каждом шаге таймера. Правда таймер с интервалом 1 мс особого смысла иметь не будет, как уже было сказано.

[awl100Alex]

Если не ошибаюсь, ставить меньше 18 миллисекунд бесполезно - ограничено скоростью windows...

В старых, добрых традициях этого форума, вот на эту реплику можно было бы, как это уже давно принято здесь, написать что-то типа: ЧУШЬ, БРЕД, АХИНЕЯ и т.п. Странно, что до сих пор этого никто не сделал! Но, видимо, подобные обвинения имеют какую-то избирательную направленность.
Вобщем, позволю себе нарушить традиции, не стану опускаться к столь низкому проявлению «уважения» к автору, а просто напишу, что это не совсем правильно и он таки ошибается.

По сути, так...
Не скоростью windows... а это аппаратное ограничение. И не 18 миллисекунд... - часовой таймер PC возвращает время с приращением в 1/18 (18,21 раза в секунду) – в 1 секунде 1000 миллисекунд, поэтому 1000/18,21=54,9 ~ 55 миллисекунд.

Сделать считалку с точность в 1 мсек все-таки можно, другое дело нет такого (а может я просто не знаю такого) таймера, который бы в Windows смог отобразить прогресс такого счета в том же TextBox. Ведь считать – это одно, а вот еще и отображать счет с таким же интервалом – это уже сложнее.
Таймер VB похоже работает на базе API – SetTimer, поэтому и он, и сам SetTimer, и отдельный просто счетчик GetTickCount, и др. – все используют аппаратный таймер PC с ограничением в 1/18. Именно в этом и будет проблема.

[Mikle]

Не скоростью windows... а это аппаратное ограничение

Насколько понимаю, тоже не совсем так. В Win9X было 55 мс, в NT системах уже не 55, а 10 мс.

[alibek]

Насколько понимаю, тоже не совсем так. В Win9X было 55 мс, в NT системах уже не 55, а 10 мс.

Насколько я знаю, те же 55мс.
Просто там есть еще и мультимедийный таймер.

[Mikle]

alibek
Этот код показывает, что ф-ция Timer имеет период не более 0.0156 сек.

Код: Выделить всё

Dim Running As Boolean, dt As Single

Private Sub Form_Click()
  dt = 0
End Sub

Private Sub Form_Load()
  Dim t1 As Single, t2 As Single
  Show
  t1 = Timer
  Running = True
  Do While Running
    DoEvents
    t2 = Timer
    If dt < t2 - t1 Then dt = t2 - t1: Caption = dt
    t1 = t2
  Loop
  Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If Running Then
    Cancel = 1
    Running = False
  End If
End Sub


Такой код:

Код: Выделить всё

Option Explicit
' Период первого таймера задан 1 мс, второго - 1000 мс.
Dim FPS As Long

Private Sub Timer1_Timer()
  FPS = FPS + 1
End Sub

Private Sub Timer2_Timer()
  Caption = FPS
  FPS = 0
End Sub

показывает, что контрол Timer срабатывает с частотой не более 64 гц(те же 15.6 мс). GetTickCounter, думаю, даст тот же результат.
Они используют мультимедийный таймер? А как они тогда работают в Win9X?

[Gogic]

В Win 9x те же 15,6, функция GetTickCount в NT не менялась, железо от винды не поменялось тем более.

[zHackLeX]

...и уже совсем непонятно, зачем обновлять TextBox с частотой,
превышающей частоту обновления монитора (60..100 Гц)...

..хотя, конечно, оффтоп это всё, автору-то нужно было строчку получить