| Вопрос: Как написать программу таймера в VB | Добавлено: 11.07.06 04:38 |
Автор вопроса:  Joseph
|
|
Уважаемые друзья,
У меня такая проблема, надо написать программу таймера в VB так что я мог в водить часы и минуты а оно показывала на экране таймер который отчитывает назад и при. не как не могу разобраться прошу помогите Заранее всем спасибо |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 11.07.06 05:50 |
|
Вот что то типа таймера обратного отсчета, когда то под свои нужнды
делал, надеюсь объяснять не нужно что на форме должны быть text1 label1 timer1 command1 'Вводишь в поле количество минут, отсчет идет в секундах, так что введи 1 или 5 и радуйся Option Explicit
Dim intCount As Integer 'Чтобы не было ошибок, вводим число не больше 547 'Количество минут до выключения программы Private Sub Command1_Click() Text1.Enabled = False Timer1.Interval = 1000 Command1.Enabled = False Text1 = Text1 & " минут." End Sub Private Sub Form_Load() Text1 = "" Label1.Caption = "Введите число минут:" Command1.Caption = "Запустить счет" End Sub Private Sub Text1_Change() intCount = Val(Text1) * 60 End Sub Private Sub Timer1_Timer() If intCount = 0 Then End intCount = intCount - 1 Label1 = "Осталось " & intCount & " секунд." End Sub |
||
|
Номер ответа: 2 Автор ответа:  Joseph Вопросов: 1 Ответов: 9 |
Профиль | | #2 | Добавлено: 11.07.06 12:28 |
|
огромное спасибо,
Еще такой вопрос у меня, если не затруднит прошу научите как можно указать полью формат, допустим чтоб не вводилось текстовое значение т.е. принимал только числовое и после запитой 2 числа Заранее благодарю, |
||
|
Номер ответа: 3 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #3 | Добавлено: 11.07.06 12:42 |
|
огромное спасибо,
Еще такой вопрос у меня, если не затруднит прошу научите как можно указать полью формат, допустим чтоб не вводилось текстовое значение т.е. принимал только числовое и после запитой 2 числа Заранее благодарю, |
||
|
Номер ответа: 4 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #4 | Добавлено: 11.07.06 12:43 |
|
огромное спасибо,
Еще такой вопрос у меня, если не затруднит прошу научите как можно указать полью формат, допустим чтоб не вводилось текстовое значение т.е. принимал только числовое и после запитой 2 числа Заранее благодарю, |
||
|
Номер ответа: 5 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #5 | Добавлено: 11.07.06 12:51 |
|
Ты об этом?
Label1 = Format(intCount, "00.00"
 Если нет, напиши понятнее, что ты хочешь |
||
|
Номер ответа: 6 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #6 | Добавлено: 11.07.06 13:58 |
| да про это но для TextBox, допустим конкретно для Text1 | ||
|
Номер ответа: 7 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #7 | Добавлено: 11.07.06 14:22 |
|
Text2 = Format(intCount, "00.00"
не понял, просто выводишь в поле |
||
|
Номер ответа: 8 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #8 | Добавлено: 11.07.06 14:47 |
| ввожу в поле, и хочу сделать так чтоб поле не принимал текст наподобие как в access указываешь формат поля и при вводе в него другого значения оно не воспринимает и при вводе допустим 2 оно сам пишет 2,00 | ||
|
Номер ответа: 9 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #9 | Добавлено: 11.07.06 15:01 |
|
Чего то типа того, что ли?
Private Sub Text1_Change()
Text1 = Format(Text1, "0.00"
Text1.SelStart = Len(Format(Text1, "0" )
End Sub |
||
|
Номер ответа: 10 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #10 | Добавлено: 11.07.06 15:45 |
|
да это то но не до конца, надо как то указать полю что в него только вводилось числовое значение то есть указать полю что в него должно вводится только числовое значение.
Заранее благодарю, |
||
|
Номер ответа: 11 Автор ответа: BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #11 | Добавлено: 11.07.06 16:36 |
|
Private Sub Text1_Change() On Error Resume Next Text1 = LTrim(Str(Val(Text1))) Text1 = Format(Text1, "0.00"
End Sub Пожалуй самый компактный, но немного кривоватый способ 
|
||
|
Номер ответа: 12 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #12 | Добавлено: 11.07.06 17:57 |
| что-то не то, когда вводишь 123 в поле пишется 321,00 а ввод десятичного число не получается | ||
|
Номер ответа: 13 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #13 | Добавлено: 11.07.06 18:38 |
|
Ну а сам то мозг включи, тебе уже разжевали все:
Option Explicit
Private Sub Text1_Change() Text1 = Format(Val(Text1), "0.00"
Text1.SelStart = Len(Format(Text1, "0" )
End Sub |
||
|
Номер ответа: 14 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #14 | Добавлено: 16.07.06 10:53 |
|
Народ, так у него же таймер токо секунды отсчитывает а ему надо сотые?
Joseph, попробуй циклом с DoEvents и DateTime.Timer |
||
|
Номер ответа: 15 Автор ответа: JosephВопросов: 1 Ответов: 9 |
Профиль | | #15 | Добавлено: 16.07.06 12:49 |
|
С Вашей помощи у меня все давно получилось но забил написать
Всем огромное спасибо |
||