Как сделать конвертер в делфи
Конвертер для валют
Вложения
 | Конвертер.zip (204.8 Кб, 221 просмотров) |
Конвертер валют
Есть текстовое поле для ввода суммы в рублях, кнопки Покупка, Продажа, Новые данные, Выход, для.
on-line конвертер валют
Для курсовой работы, возник такой вопрос, где бы я мог в интернете взять курсы валют так, чтобы.
Конвертер валют.работа в Dephi
Здравствуйте, доброго времени суток..помогите пожалуйста..облазила весь интернет..пыталась сама.
Не забываем говорить спасибо
Добрый ты. А что такого плохого в этом коде?
Лучше бы сперва объяснил что не нравится, чем так набрасываться.
Weedee,
И это придерживайся еще такого правила по интерфейсу-
чтобы было все просто, красиво и понятно, твой интерфес приложения смотрится он не очень согласись.
Неможеш придумать интерфейс зайди в гугл и посмотри как люди уже сделали на сайтах, а затем просто накидай на форму компонентов соответствующих тому что ты увидел, и напиши под ними обработчики событий.
Вот напрмер смотри на картинку я в гугле нашел красивый интерфейс и у меня проблема отпала уже на счет оформления его в делфи, я нехочу придумывать свой, а просто скопирую то что видел тут
http://finance.rambler.ru/calculators/currency/
А тот интерфейс что ты видел я его тоже скопировал тут
http://finance.liga.net/rates/converter/
Небыло бы где скопировать, придумал бы свой, написал бы обработчики событий да и все.
На Delphi XE2 все прекрасно работает. Пользуюсь таким обработчиком для разделителя дробной части.
Я еще не силен в delphi, но чтобы не ругался на decimalseparator пришлось дописать FormatSetings.
Или в чем проблема?
Добавлено через 12 минут
Сейчас в новом проекте, для Edit’а набросал такой обработчик.
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Конвертер валют на Delphi 7. Плохо работает, выдаёт ошибки
Вот написал конвертер валют: но! Работает плохо. Выдает ошибку. Вот в этой строке которую обвел.
Конвертер валют
Здравствуйте, нужно реализовать конвертер валют, с динамически подгружаемыми данными. Есть.
Конвертер валют
Здравствуйте. Сделал конвертер валют, но теперь необходимо, чтобы курс валют загружался с.
Конвертер валют
1.Напишите программу “Конвертер валют”. Программа должна позволять пересчитывать сумму, выраженную.
Конвертер валют
Надо составить программу пересчёта денег в рублях в валюту по выбору(доллары, евро, фунты).
Как сделать конвертер в делфи
Практически все знают, что такое конвертер валют. Есть много онлайн ресурсов, где можете посчитать некоторую суму долларов в рублях и т.д. Однако, чтобы провести такую операцию, Вам нужно открывать свой браузер, заходить на этот портал и после вводить свои цифры. Но я предлагаю самому написать собственную программу, которая запускалась бы прямо с рабочего стола, например, и сразу выдавала бы Вам результаты. Причем курсы валют программа будет использовать последние по данным ЦБ РФ. Как это сделать? Да не так уж и сложно. Просто пройдитесь по пунктам и поймете, что Вы сможете создавать подобного рода программы.
1. Подготовка формы
Edit1, edit2, edit3 — для ввода/вывода денежных единиц;
Button1, button2 — (подробно рассмотрим в пункте 2, 3);
Label1, label2 — для вывода информации о курсах;
IdHTTP1 (находится на странице Indy Clients), memo1
Расположите их по форме как показано на рисунке.
А теперь переходим к сложной части нашей работы. Первым делом объявим глобальные переменные usd и eur.
| var Form1: TForm1; usd, eur: currency; |
Далее зададим первоначальные параметры. Для этого в событии OnCreate формы пропишем следующее:
| procedure TForm1.FormCreate(Sender: TObject); begin usd:=30.2065; eur:=40.4314; label1.Caption:=’USD: ‘+floattostr(usd); label2.Caption:=’EUR: ‘+floattostr(eur); memo1.visible:=false; edit1.Text:=»; edit2.Text:=»; edit3.Text:=»; end; |
2. Получение точного курса ЦБ РФ из интернета
Сейчас Вам нужно добавить на проект функцию Pars. Если Вы не знаете как это сделать, тогда советую воспользоваться этой статьей. Надеюсь, у Вас не возникнет проблем с этим.
А теперь открывайте свою форму и кликайте два раза на кнопку Курсы и в появившемся окне пропишите следующее:
| procedure TForm1.Button2Click(Sender: TObject); var i: byte; s: string; begin memo1.Lines.Text:=idhttp1.get(‘http://www.currencyhistory.ru/’); if memo1.Lines.text<>» then begin s:=’USD: ‘+pars(‘ USD ‘,memo1.text,’ |
P.S. В приведенной ниже картинке можете узнать, как найти те самые комбинации символов, между которыми находится Ваш фрагмент текста. В данном случае курсы валют.
3. Преобразование стоимости одной валюты в другой
После того как Вы проделали два этапа, и Ваша программа научилась получать точные цифры курсов, осталось Вам добавить последнюю, самую главную функцию: конвертацию валют. Собственно говоря, это и будет Вашим последним шагом, и программа будет готова.
И так, снова открывайте форму и на этот раз кликайте по кнопке Перевод. Думаю, Ваши математические навыки уже дали понять, что преобразование долларов в рублей будет составлять произведение курса на сумму первой валюты. Значит так и пропишем в коде:
Как сделать конвертер в делфи
Преобразовывает простые величины, например, мили в километры.
Преобразовывает сложные величины, например, мили на каждый галлон в километры на каждый литр.
Все типы измерения являются типами TConvType, и могут иметь подходящую величину из TConvFamily ниже. Отметим, что конвертируемые величины должны быть в одном и том же семействе.
auSquareMillimeters
auSquareCentimeters
auSquareDecimeters
auSquareMeters
auSquareDecameters
auSquareHectometers
auSquareKilometers
auSquareInches
auSquareFeet
auSquareYards
auSquareMiles
auAcres
auCentares
auAres
auHectares
auSquareRods
duMicromicrons
duAngstroms
duMillimicrons
duMicrons
duMillimeters
duCentimeters
duDecimeters
duMeters
duDecameters
duHectometers
duKilometers
duMegameters
duGigameters
duInches
duFeet
duYards
duMiles
duNauticalMiles
duAstronomicalUnits
duLightYears
duParsecs
duCubits
duFathoms
duFurlongs
duHands
duPaces
duRods
duChains
duLinks
duPicas
duPoints
muNanograms
muMicrograms
muMilligrams
muCentigrams
muDecigrams
muGrams
muDecagrams
muHectograms
muKilograms
muMetricTons
muDrams
muGrains
muLongTons
muTons
muOunces
muPounds
muStones
tuCelsius
tuKelvin
tuFahrenheit
tuRankine
tuReamur
tuMilliSeconds
tuSeconds
tuMinutes
tuHours
tuDays
tuWeeks
tuFortnights
tuMonths
tuYears
tuDecades
tuCenturies
tuMillennia
tuDateTime
tuJulianDate
tuModifiedJulianDate
vuCubicMillimeters
vuCubicCentimeters
vuCubicDecimeters
vuCubicMeters
vuCubicDecameters
vuCubicHectometers
vuCubicKilometers
vuCubicInches
vuCubicFeet
vuCubicYards
vuCubicMiles
vuMilliLiters
vuCentiLiters
vuDeciLiters
vuLiters
vuDecaLiters
vuHectoLiters
vuKiloLiters
vuAcreFeet
vuAcreInches
vuCords
vuCordFeet
vuDecisteres
vuSteres
vuDecasteres
vuFluidGallons
vuFluidQuarts
vuFluidPints
vuFluidCups
vuFluidGills
vuFluidOunces
vuFluidTablespoons
vuFluidTeaspoons
vuDryGallons
vuDryQuarts
vuDryPints
vuDryPecks
vuDryBuckets
vuDryBushels
vuUKGallons
vuUKPottles
vuUKQuarts
vuUKPints
vuUKGills
vuUKOunces
vuUKPecks
vuUKBuckets
vuUKBushels
← →