Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогитеееее Добавлено: 02.08.03 11:14  

Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com

У меня появились проблемы с прогой по учету Интернет
трафика. Сначала идея: я хочу сделать, чтоб программа показывала
сколько я сижу в Нете и сколько у меня осталось денег. В чем
загвоздка: он у меня не считает деньги. Я забиваю сколько у меня денег
в опции и цену. Затем нахожу сколько стоит Интернет в секунду (ost =
cena / 3600 (ost - переменная, которая вычисляет, сколько денег
утекает в секунду)). Затем ставлю таймер, который через каждую секунду
отнимает ost:

Open "money" For Input As #1
Input #1, mon
Close #1

mon = mon - ost
money.Label1.Caption = mon

Open "money" For Output As #1
Print #1, mon
Close #1

mon - это деньги которые записаны в файл. Потом вывожу mon на Label.
Проблема вот в чем: я забиваю, например, 50 рублей. Первая секунда все
ок'ей (49,9989, так по моему), а вот на второй секунде становится
48,9989, на третьей 47,9989 и т.д. Делаем вывод: каждую секунду
отнимается рубль, почему??? Вот в чем вопрос. Помогите, пожалуйста,
найти ошибку.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Strannik



Вопросов: 9
Ответов: 112
  Профиль | | #1 Добавлено: 02.08.03 15:42

А почему ошибка ? Если у тебя ost равно 1 таймер и убавляет по рублю. Посмотри чему у тебя равно ost во время работы ...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам