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

@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) & " $"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

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

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

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

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

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

@Тим70 Любитель 1043 / 749 / 161 Регистрация: 27.01.2019 Сообщений: 1,517
	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 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,528 Записей в блоге: 22
	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 Любитель 1043 / 749 / 161 Регистрация: 27.01.2019 Сообщений: 1,517
	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