Перейти к содержимому

kolja153's блог

  • запись
    1
  • комментариев
    6
  • просмотров
    6 630

BTC-eAlarm новая версия

kolja153

3 249 просмотров

Вышла новая версия программы V.0.0.9 BTCealarm009.png

 

Недавно начал торговать на бирже BTC-e, но это не основной мой доход, поэтому сидеть у компа нет времени. Вот и появилась мысль написать смс оповещения. Но оказалось труднее, чем я думал и пока вышла прога которая оповещает звуком когда курс меняется. Прога довольно проста. В водиш адресов public api пары и минимальное и максимальное значение курса.

 

BTCealarm.png

 

Так как знаю вашу недоверие к таким прогам решил выложить и описать исходники здесь.в блоге.

 

Так как когда-то писал на Делфи решил не тратить время на новый язык программирования. Для работы нам обязательно нужно установить компонет synapse он есть в файле исходника а также SoundCard, TrayIcon, uLkJSON.

 

Основная часть проги работает в таймере

procedure TForm1.tmr1Timer(Sender: TObject);

var js, js2:TlkJSONobject;

s, last,buy,sell: String;

t: TSYSTEMTIME;

begin

if not HttpGetText(link, Memo1.Lines) then

begin

tmr1.Enabled:=False;

ShowMessage('wrong address.');

 

end;

s := Memo1.Text;

 

js := TlkJSON.ParseText(s) as TlkJSONobject;

if not assigned(js) then

begin

ShowMessage('wrong address.');

//Exit;

end

else

 

begin

if js.Field['ticker'] is TlkJSONobject then

begin

js2 := js.Field['ticker'] as TlkJSONobject;

 

last := js2.Field['last'].Value;

lbl3.Caption:='LAST '+last;

kurslast:=StrToFloat (last);

 

sell := js2.Field['sell'].Value;

lbl2.Caption:='SELL '+sell;

//Memo_out.Lines.Add('Sell = ' + s1);

 

buy := js2.Field['buy'].Value;

lbl1.Caption:='BUY '+buy;

// Memo_out.Lines.Add('buy= ' + s1);

 

end

else

ShowMessage('wrong address.');

 

end;

если перейти по ссилке https://btc-e.com/api/2/btc_usd/ticker ми увидем

{"ticker":{"high":96.999,"low":93.211,"avg":95.105,"vol":416530.14646,"vol_cur":4362.4947,"last":95.45,"buy":95.753,"sell":95.4,"updated":1375478925,"server_time":1375478927}}

ето ми присвоим переменной S и далее last,buy,sell: уже переменным нужные значения обработанные JSON.

Дальше нам остается сравнить мгновенное значение с заданным и если оно превышает или меньше то компонетн SoundCard проиграент файл alarmmax.mp3

if kursmax<=kurslast then sndcrd1.PlayFile('alarmmax.mp3');

if kursmin>=kurslast then sndcrd1.PlayFile('alarmmin.mp3');

Остальной код предназначен для хранения настоек и выво данных на экран. Программу и все файлы можно скачать у меня на сайте а также следить за обновлениями.

 

http://blog.kolja153.com/35/

Кому помогла данная инфа пожертвуйте на развитие программы

 

BTC = 1F3BtisPs8dtKLSATLWqe1SH44P4VQuX6o

LTC = LdGP4AqWD4N3Fnffm7jgMmvW1U3TQ9KExN



6 комментариев


Рекомендуемые комментарии

Аффтар, учи албанский!

При таком заголовке и отношение к труду соответствующее.

Поделиться комментарием


Ссылка на комментарий

Нет, учить стоит русский, и изображение вставить через загрузку.

Поделиться комментарием


Ссылка на комментарий

Может китайкий ? Мой родной язык украинский, эта статья создавалась не для того чтобы в тексте искали ошибки.

Поделиться комментарием


Ссылка на комментарий

Да их не ищет никто, просто глаз цепляется. А за материал спасибо!

Поделиться комментарием


Ссылка на комментарий

Лойз сам хотел написать но чет в лень

Поделиться комментарием


Ссылка на комментарий

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.

Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.

×