Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль

Показать сообщение отдельно
Runkin
55 / 55 / 3
Регистрация: 22.12.2011
Сообщений: 252
Записей в блоге: 2
26.04.2014, 00:34
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Global > Dim CalcTime as Long
 
sub btn_click
        Timer1.Initialize("Timer1",1000)
        Timer1.Enabled = True
    CalcTime = 0
end sub
 
Sub Timer1_Tick
    CalcTime = CalcTime + 60000
    timelbl1.Text = DateTime.Time(CalcTime)
End Sub
вот должен прибавлять к часам по минуте в секунду! в эмуляторе так и есть - но на телефоне, в 1й тик (3часа 1 мин 0 сек), 2й тик (4 часа, 2мин, 0 сек), 3й тик (4часа, 3 мин, 0 сек) и дальше уже нормально идёт процесс...

за тик + мин

Добавлено через 1 час 22 минуты
ещё вариант протестил:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub btn2_Click
    StopTime = DateTime.now + 3600000 'Добавим часик!
    Timer1.Initialize("Timer1",1000)
    Timer1.Enabled = True
End Sub
 
Sub Timer1_Tick
    Label1.Text = DateTime.Time(StopTime-DateTime.now)
End Sub
тоже самое - в эмуляторе всё чётко! но на телефоне, вместо отсчёта на час, отчёт на 5 часов .. бред
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru