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

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

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

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

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

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

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

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

@Тим70 Любитель 1048 / 758 / 161 Регистрация: 27.01.2019 Сообщений: 1,535
	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 1450 / 467 / 78 Регистрация: 24.09.2017 Сообщений: 2,557 Записей в блоге: 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 Любитель 1048 / 758 / 161 Регистрация: 27.01.2019 Сообщений: 1,535
	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