Курс валют

@vasiliw8 · Регистрация: 04.03.2014

Студворк — интернет-сервис помощи студентам

Возможно ли в VB6 в TextBox получить текущий курс Американского доллара к рублю, автоматически?

@The trick · 16.01.2015, 21:33

Курсы валют и удобный интерфейс (готовое решение)

@vasiliw8 · 17.01.2015, 09:59 **[ТС]**

The trick,
Как то все не понятно. Скачал, запускаю не работает.

Добавлено через 8 минут
Как пользоваться этой программой?

SoftIce · 17.01.2015, 10:43

Сообщение от vasiliw8

Как пользоваться этой программой?

У автора программы спрашивай

@Night Ranger · 18.01.2015, 12:00

vasiliw8,спросил бы у меня.. что тебе мешало это сделать, я 2 дня интересовался
запуститься ли ? еще у когонибудь..
..и почему надо-было создать отдельную тему и интерисоваться ..--почему не работает
не буду тебе отвечать, я записал тебя в свой чёрный блокнот. (с названием игнор)

Добавлено через 19 минут

Сообщение от vasiliw8

Возможно ли в VB6 в TextBox получить текущий курс Американского доллара к рублю, автоматически?

вам невозможно

@m-ch · 18.01.2015, 12:01

Функция получения котировки USD:

Visual Basic
1
2
3
4
5
6
7
8
9
Function GetUSD(Optional ByVal MyDate As Date) As Double
    Dim xmldoc, nodeList
    If MyDate = 0 Then MyDate = Date
    On Error Resume Next
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    If Not xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & Format(MyDate, "dd\/mm\/yyyy")) Then Exit Function
    Set nodeList = xmldoc.SelectNodes("//Valute[@ID='R01235']")
    If nodeList.Length Then GetUSD = CDbl(nodeList.Item(0).ChildNodes(4).Text)
End Function

Не знаю, будет ли работать на VB6, но на VBA работает

@Night Ranger · 18.01.2015, 12:11

Ну и кому вы написали ?, или у вас тоже мода в разных темах писать..
ну ладно.. ладно..
найдите 5 отличий..
https://www.cyberforum.ru/post7114133.html

Visual Basic
1
2
3
4
Private Property Get DOMDocument() As Object
    If DDoc Is Nothing Then Set DDoc = CreateObject("Msxml.DOMDocument"): DDoc.async = False
    Set DOMDocument = DDoc
End Property

Добавлено через 3 минуты
vasiliw8, это не поможет, ему надо чтото другое, а вот что ?

Добавлено через 2 минуты
мне конечно по барабану что он не сможет, я бы сказал кто он.. да нельзя
но проблема остаёться, и ведь будут находиться такие -же с проблемами

@vasiliw8 · 18.01.2015, 12:29 **[ТС]**

Night Ranger,
Вас лично прошу не беспокоится.

@Night Ranger · 18.01.2015, 12:47

Сообщение от m-ch

Не знаю, будет ли работать на VB6

будет, не работает только у одного человека, которого можно не считать

@m-ch · 18.01.2015, 12:55

Сообщение от Night Ranger

Ну и кому вы написали ?, или у вас тоже мода в разных темах писать..

Вопрос ко мне?
Если да, то писал для ТС на его вопрос:

Сообщение от vasiliw8

Возможно ли в VB6 в TextBox получить текущий курс Американского доллара к рублю, автоматически?

Решение не полное, предложил функцию, которая запрашивает курс USD с сайта CBR

при чем тут разные темы?

@Night Ranger · 18.01.2015, 12:59

Сообщение от m-ch

Вопрос ко мне?
Если да, то писал для ТС на его вопрос:

Да вы не при чем, я тоже как-бы для ТС старался.. всё проехали, я в этой теме не собираюсь больше ничего писать

@vasiliw8 · 18.01.2015, 14:52 **[ТС]**

The trick,
Объясните пожалуйста, что такое - [ТС] рядом со временем написания сообщения?

@The trick · 18.01.2015, 14:54

Сообщение от vasiliw8

Объясните пожалуйста, что такое - [ТС] рядом со временем написания сообщения?

ТС - топикстартер (синоним op - original poster), автор темы.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249

	Курс валют 16.01.2015, 21:22. Показов 3495. Ответов 12 Метки нет (Все метки) Возможно ли в VB6 в TextBox получить текущий курс Американского доллара к рублю, автоматически? 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	16.01.2015, 21:33
	Курсы валют и удобный интерфейс (готовое решение) 2

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
	17.01.2015, 09:59 [ТС]
	The trick, Как то все не понятно. Скачал, запускаю не работает. Добавлено через 8 минут Как пользоваться этой программой? 0

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
	18.01.2015, 12:29 [ТС]
	Night Ranger, Вас лично прошу не беспокоится. 0

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
	18.01.2015, 14:52 [ТС]
	The trick, Объясните пожалуйста, что такое - [ТС] рядом со временем написания сообщения? 0