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

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

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

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

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

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

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