| Вопрос: Помогите... | Добавлено: 05.07.05 14:03 |
Автор вопроса:  Fobos
|
|
Начал изучать бейсик совсем недавно. так что...
в общем как сделать таймер, чтобы в лейбле или текстовом окошке (не важно в принципе) при открытии формы начинался отсчет от какой то даты (которую устанавливаешь сам) ... Например, открываешь прогу, там лэйбл, в котором написано 01.01.1989 (к примеру) и каждую секунду, к дате прибавлялся 1 день... Парюсь уже 2 часа... Сбацал такую херь : Private Sub Form_Load() Dim a, b, c As Long a = 1 b = 1 c = 1989 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() a = a + 1 If a = 30 Then b = b + 1 a = 1 End If If b = 12 Then c = c + 1 a = 1 b = 1 End If Label1.Caption = a Label2.Caption = b Label3.Caption = c End Sub Но не работает.. че не так ? Как мне все таки сделать такой таймер ? Подскажите кто может... |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 05.07.05 14:12 |
|
Private Sub Timer1_Timer()
Label1.Caption = Format$(CDate(Label1.Caption) + 1, "dd.mm.yyyy" 
End Sub |
||
|
Номер ответа: 2 Автор ответа: Fobos Вопросов: 3 Ответов: 5 |
Профиль | | #2 | Добавлено: 05.07.05 14:25 |
| Ха...как все просто оказалось...биг сенкс... | ||
|
Номер ответа: 3 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #3 | Добавлено: 06.07.05 02:28 |
|
Кроме того, ты заюзал процедурные перенные как общие для всего модуля (ну всмысле формы, тоже ведь модуль).
Строка Dim a,b,c As Long должна быть выше всех процедур, чтобы эти переменне быои едиными для всех функций и событий. Кстати, в этой строке только последняя переменная объявлена Long'ом, остальные же как Variant. Чтобы не путаться в обявлениях, приписывай в каждом модуле Option Explicit первой строкой. Можно ещё и в настройках где-то поставить, но после переустановки оси можно нарваться. |
||
Страница: 1 |