Программа по учёту обмена валют

@typak · Регистрация: 20.06.2012

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

Нужна программка простая, примерно там должно поле для ввода курса на сегодняшний день и поле где ты допустим ввел кол во долларов америки и те их переведёт на российские рубли с учётом сегодняшнего курса

Добавлено через 2 минуты
Кто может помогите пожалуйсто с этой программой..

@Тим70 · 28.01.2021, 15:38

Pro_grammer, Я просто тупо переписал код на net,но тоже заметил не правильные значки.Наверно проще всего выводить рассчитаное значение так

VB.NET
1
 Label7.Text = Math.Round(USD, 2)

Добавлено через 3 минуты
М да... С этой надписью я ошибся,там Евро надо

@сталкер007 · 28.01.2021, 15:41

Argus 19, получается - это программа идёт с помощью банковской информационной системы? Что учитывается в итоге после кнопки Рассчитать?

@Тим70 · 28.01.2021, 16:06

сталкер007, Если вы обращаетесь к комуто ,кликните на его НИК

@сталкер007 · 28.01.2021, 16:28

Тим70, получается - это программа идёт с помощью банковской информационной системы? Что учитывается в итоге после кнопки Рассчитать?

Хотя вопрос для Argus19

@Тим70 · 28.01.2021, 17:08

сталкер007, Нет.Эта прога не запрашивает данные из банковской системы,эти данные нужно узнавать и вводить самому.На VB6 вроде бы выше есть пример,как получить курс валюты,но я его не проверял.Могу скинуть такую программу на VB.Net,она запрашивает курс валюты сбербанка.

@сталкер007 · 28.01.2021, 17:37

Тим70, я имею ввиду не какого-то конкретного банка , а в целом . Выше модер скрином показал , что рубли больше 100 получилось и типо это банковская система работает в целом по покупке и продаже ? Ну типо ПОЧЕМУ больше получилось рубли после обмена Что учитывается в итоге после кнопки Рассчитать? . Скрин programmer модератора выше .

Добавлено через 1 минуту
Тим70, ну типо с какими- то условиями так связано или что?

Добавлено через 8 минут
Тим70, ОЙ ну вообщем , ну красным модер отметил. Я так проект очень классный,спасибо.

Добавлено через 2 минуты
Тим70, бро , помог уже более чем достаточно . Вообщем в связи с данными о покупке и продаже - работает обмен - я так понял, правильно?

Добавлено через 1 минуту
Argus19 Вообщем в связи с данными о покупке и продаже - работает обмен - я так понял, правильно?

Добавлено через 58 секунд
Argus19 или что-то ещё?

@Argus19 · 28.01.2021, 17:46

Pro_grammer , будучи человеком порядочным, считает, что при обмене между собой иностранных валют, банк использует коэффициент соотношения между их биржевыми курсами. Я иного мнения о владельцах банков, поэтому, при обмене доллара на евро и наоборот, вычисляю так: Доллар\евро меняется на рубли по банковской цене его покупки и затем получившаяся сумма в рублях меняется на евро\доллар по цене его продажи. При этом, если сумма сделки меньше 300 USD, банк берёт комиссию. Например, банк "Открытие" брал комиссию 300 руб. Те., если у вас "за подкладкой" завалялось пара долларов, то при их обмене вы просто заплатите банку сумму 300 руб. - 2 * 73.47 = 153 рубля 6 копеек.

@Тим70 · 28.01.2021, 17:47

сталкер007,Да,вот в этой процедуре

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub SetCur()               'Установка валют
BuyUSD = Val(Text1.Text)              'Покупка 1 доллара
BuyEvro = Val(Text2.Text)              'Покупка 1 евро
    SellUSD = Val(Text3.Text)              'Продажа 1 доллара
    SellEvro = Val(Text4.Text)              'Продажа 1 евро
If BuyUSD = 0 Or BuyUSD = 0 Or SellUSD = 0 Or SellEvro = 0 Then
    MsgBox "Заполните все поля покупки и продажи валюты", _
        vbCritical + vbOKOnly, "Ошибка!"
 End If
End Sub

программа получает данные и осуществляет расчет при нажатии на нужную кнопку.

@сталкер007 · 28.01.2021, 17:52

Тим70, единственный момент(не обязательно исправлять ). Вот значок рубля есть везде , а как на USD поставить $ после расчёта и евро- евро соответственно?

Добавлено через 4 минуты
Argus19, комиссия у вас в проге реализована(необязательно)?

@Pro_grammer · 28.01.2021, 17:55

Сообщение от Тим70

Label7.Text = Math.Round(USD, 2)

Можно так, а можно сделать после расчетов замену в строке "p" на $ и € для красоты.

@Argus19 · 28.01.2021, 18:32

Сообщение от сталкер007

комиссия у вас в проге реализована

Нет. Для этого необходимо добавить ещё одно текстовое поля для ввода комиссии именно этого отделения банка.
Курс обмена валют, как и сумма комиссии, в разных отделениях одного и того же банка может отличаться.

Добавлено через 30 минут
сталкер007, т.к. вы не уточнили, для чего вам нужна программа, то, чтобы получать правильные результаты, вам надо обратиться в нужный вам банк или банки и узнать, как именно происходит расчёт. Тогда и программу можно написать с вкладками для разных банков.

@сталкер007 · 28.01.2021, 18:52

Argus19 Не нужно , и так сильно помогли. Большое спасибо.

Добавлено через 54 секунды
Тим70, единственный момент. Вот значок рубля есть везде , а как на USD поставить $ после расчёта и евро- евро соответственно?

@Тим70 · 28.01.2021, 19:16

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

можно сделать после расчетов замену в строке "p" на $ и € для красоты.

А как это сделать?Полазил по инету и ни чего толком не нашол,написано только это в региональных настройках задается.

@Pro_grammer · 28.01.2021, 19:29

Сообщение от Тим70

А как это сделать?

Заменой. В одном месте покажу:

VB.NET
1
2
3
4
5
 USD = RUB / SellUSD
        Label7.Text = FormatCurrency(USD).Replace("р", "$")
 
        Evro = RUB / SellEvro
        Label9.Text = FormatCurrency(Evro).Replace("р", "€")

В других местах так же:

@сталкер007 · 28.01.2021, 20:21

Pro_grammer, сделал как вы , добавил Replace , всё равно у меня ничего не изменилось...

@Тим70 · 28.01.2021, 20:48

сталкер007, Вот поправил.Вроде теперь все нормально выводит

@Тим70 · 28.01.2021, 20:50

Pro_grammer, У меня на клавиатуре нет значков Евро и Руб.

@сталкер007 · 28.01.2021, 20:54

Тим70, большое спасибо , добрая душа - откуда узнал что это Евро? Math.Round(Evro) & " " & Strings.ChrW(8364)

@Argus19 · 28.01.2021, 20:55

Сообщение от Тим70

У меня на клавиатуре нет значков Евро и Руб

https://rusadmin.biz/soveti/ka... laviature/

@Pro_grammer · 28.01.2021, 21:36

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

Сообщение от Тим70
У меня на клавиатуре нет значков Евро и Руб
https://rusadmin.biz/soveti/ka... laviature/

Можно же просто скопировать с любой страницы в Интернет и вставить в редактор

₽ ₽ ₽

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

Сообщение от Тим70

Вроде теперь все нормально выводит

Опять неправильно сделал:
выводит целые числа.
Надо:
Label14.Text = Math.Round(Evro, 2) & " " & Strings.ChrW(8364)
и
Label19.Text = Math.Round(USD, 2) & " $"

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57

	Программа по учёту обмена валют 18.12.2012, 13:57. Показов 7356. Ответов 61 Метки нет (Все метки) Нужна программка простая, примерно там должно поле для ввода курса на сегодняшний день и поле где ты допустим ввел кол во долларов америки и те их переведёт на российские рубли с учётом сегодняшнего курса Добавлено через 2 минуты Кто может помогите пожалуйсто с этой программой.. 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 15:41
	Argus 19, получается - это программа идёт с помощью банковской информационной системы? Что учитывается в итоге после кнопки Рассчитать? 0

@Тим70 Любитель 1074 / 786 / 161 Регистрация: 27.01.2019 Сообщений: 1,552
	28.01.2021, 16:06
	сталкер007, Если вы обращаетесь к комуто ,кликните на его НИК 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 16:28
	Тим70, получается - это программа идёт с помощью банковской информационной системы? Что учитывается в итоге после кнопки Рассчитать? Хотя вопрос для Argus19 0

@Тим70 Любитель 1074 / 786 / 161 Регистрация: 27.01.2019 Сообщений: 1,552
	28.01.2021, 17:08
	сталкер007, Нет.Эта прога не запрашивает данные из банковской системы,эти данные нужно узнавать и вводить самому.На VB6 вроде бы выше есть пример,как получить курс валюты,но я его не проверял.Могу скинуть такую программу на VB.Net,она запрашивает курс валюты сбербанка. 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 17:37
	Тим70, я имею ввиду не какого-то конкретного банка , а в целом . Выше модер скрином показал , что рубли больше 100 получилось и типо это банковская система работает в целом по покупке и продаже ? Ну типо ПОЧЕМУ больше получилось рубли после обмена Что учитывается в итоге после кнопки Рассчитать? . Скрин programmer модератора выше . Добавлено через 1 минуту Тим70, ну типо с какими- то условиями так связано или что? Добавлено через 8 минут Тим70, ОЙ ну вообщем , ну красным модер отметил. Я так проект очень классный,спасибо. Добавлено через 2 минуты Тим70, бро , помог уже более чем достаточно . Вообщем в связи с данными о покупке и продаже - работает обмен - я так понял, правильно? Добавлено через 1 минуту Argus19 Вообщем в связи с данными о покупке и продаже - работает обмен - я так понял, правильно? Добавлено через 58 секунд Argus19 или что-то ещё? 0

@Argus19 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	28.01.2021, 17:46
	Pro_grammer , будучи человеком порядочным, считает, что при обмене между собой иностранных валют, банк использует коэффициент соотношения между их биржевыми курсами. Я иного мнения о владельцах банков, поэтому, при обмене доллара на евро и наоборот, вычисляю так: Доллар\евро меняется на рубли по банковской цене его покупки и затем получившаяся сумма в рублях меняется на евро\доллар по цене его продажи. При этом, если сумма сделки меньше 300 USD, банк берёт комиссию. Например, банк "Открытие" брал комиссию 300 руб. Те., если у вас "за подкладкой" завалялось пара долларов, то при их обмене вы просто заплатите банку сумму 300 руб. - 2 * 73.47 = 153 рубля 6 копеек. 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 17:52
	Тим70, единственный момент(не обязательно исправлять ). Вот значок рубля есть везде , а как на USD поставить $ после расчёта и евро- евро соответственно? Добавлено через 4 минуты Argus19, комиссия у вас в проге реализована(необязательно)? 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 18:52
	Argus19 Не нужно , и так сильно помогли. Большое спасибо. Добавлено через 54 секунды Тим70, единственный момент. Вот значок рубля есть везде , а как на USD поставить $ после расчёта и евро- евро соответственно? 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 20:21
	Pro_grammer, сделал как вы , добавил Replace , всё равно у меня ничего не изменилось... 0

@Тим70 Любитель 1074 / 786 / 161 Регистрация: 27.01.2019 Сообщений: 1,552
	28.01.2021, 20:50
	Pro_grammer, У меня на клавиатуре нет значков Евро и Руб. 0

@сталкер007 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 81
	28.01.2021, 20:54
	Тим70, большое спасибо , добрая душа - откуда узнал что это Евро? Math.Round(Evro) & " " & Strings.ChrW(8364) 0