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

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

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

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

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

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

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

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

@Тим70 Любитель 1047 / 756 / 161 Регистрация: 27.01.2019 Сообщений: 1,522
	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 1441 / 458 / 78 Регистрация: 24.09.2017 Сообщений: 2,541 Записей в блоге: 24
	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 Любитель 1047 / 756 / 161 Регистрация: 27.01.2019 Сообщений: 1,522
	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