powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите сделать сист таймер
7 сообщений из 7, страница 1 из 1
Помогите сделать сист таймер
    #34237557
Rename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вобщем есть 3 таблицы Клиент Тариф и Звонки

Надо что бы при нажатии кнопки на форме включался таймер и и отключался при повторном нажатии. Полученное число умножалось на тариф и в таблицу звонки записывалась дата звонка длительность и стоимость. Или можно длительность звонка сделать не таймером а рандомом. Помогите!
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34237568
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А таймер для этого зачем? Тебе надо при первом нажати зафиксировать текущее дату/время, при повторном нажатии также зафиксировать дату/время, получить их разницу и умножить на тариф.

Текущее дата/время фиксируется при помощи функции DateTime(). Разница двух значений типа DateTime - это количество секунд между ними. Собственно, все.
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34237570
Rename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а примерный код можешь написать! Я еще ламер в Фоксе
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34237580
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Renameа примерный код можешь написать! Я еще ламер в Фоксе

Таймер - это не "счетчик", на который "капает". Это - штука, которая периодически включается и запускает процедуру (без подробностей).
Поэтому, как и советует Владимир, по первому клику фиксировать момент1 и передать его значение в переменную (или записать на диск), по второму - момент2, потом вычесть из одного другое и умножить на тариф.
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34237585
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-) В дизайнере формы создаешь новую форму
-) Пункт меню Form - New Property - создаешь новое свойство формы, в котором будешь фиксировать начальное значение даты/времени. Называешь, например, DateTimeFrom.
-) В событии INIT-формы инициализируешь значение этого свойства пустой датой-временем

Код: plaintext
1.
2.
* Init-формы
ThisForm.DateTimeFrom = { : }

Т.е. двоеточие обрамленное пробелами в фигурных скобках.

-) Кладешь на форму кнопку
-) В событии Click() кнопки пишешь примерно следующее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
* Click кнопки
IF EMPTY(ThisForm.DateTimeFrom)
	* Начального значения нет, значит это первое нажатие кнопки
	* Просто фиксируем текущее дату/время
	ThisForm.DateTimeFrom = DateTime()
ELSE
	* Начальное значение есть, значит - это второе нажатие кнопки
	* Вычисляем количество секунд
	LOCAL lnSeconds
	lnSeconds = DateTime() - ThisForm.DateTimeFrom

	* Сразу же обнуляем начальное значение для возможных последующих нажатий
	ThisForm.DateTimeFrom = { : }

	* Умножаем на тариф и получаем стоимость
	(Стоимость звонка) = m.lnSeconds*(тариф)
ENDIF

Откуда взять тариф и как дальше использовать стоиомсть - это уже сам разбирайся.
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34237602
Rename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо огромное! :-)
...
Рейтинг: 0 / 0
Помогите сделать сист таймер
    #34238963
Rename
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дата первого нажатия кнопки сохранялась в одном поле таблицы а время в другом. С осталдьным вроде разобрался.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите сделать сист таймер
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]