Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > C++ > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 30.01.2011, 23:34   #1
shaturaweb
Новичок
 
Регистрация: 09.12.2008
Сообщений: 1
Репутация: 10
По умолчанию Валютный калькулятор с запоминанием курса по датам и выбор курса по дате

Привет всем!
Есть задание:
Валютный калькулятор: Пересчет денег из одной валюты в другую по курсу.
В более сложно варианте - с запоминанием курса по датам и выбор курса по дате.
Код:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
float DollarsNum;
float RateValue;
float Result;

DollarsNum=StrToFloat(Dollars->Text);
RateValue=StrToFloat(Rate->Text);
Result=DollarsNum*RateValue;
Rubles->Text=FloatToStr(Result);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
float RublesNum;
float RateValue;
float Result;
RublesNum=StrToFloat(Rubles->Text);
RateValue=StrToFloat(Rate->Text);
Result=RublesNum/RateValue;
Dollars->Text=FloatToStr(Result);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
WinExec("about.exe", SW_RESTORE) ;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
Просьба помочь.... Не знаю, как данные выдернуть из календаря и вставить в окошко Курс (Rate). Данные по числам определенным загрузил в файл через календарь, код ниже, и вот из него хочу выдернуть
Код:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int f;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

MonthCalendar1->ShowTodayCircle = false;
MonthCalendar1->Date = Now();
Button1->Enabled = false;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int Key;
if ( (Edit1->Text.Length() == 0 ) ||
( (Edit1->Text.Length() ==1) &&
(Edit1->Text[1] == '-') ) )
Button1->Enabled = false;
else
Button1->Enabled = true;
if (( Key >= '0') && (Key <= '9'))
return;
// десятичная точка (запятая)
if ( ( Key == '.') || (Key == ','))
{
Key = ' , ' ;
if ( Edit1->Text.Pos(',') != 0 )
Key = 0;
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString st;
st = MonthCalendar1->Date.DateString() + " " +
Edit1->Text + "\r\n";
if ( FileExists("rate.txt") )
f = FileOpen("rate.txt",fmOpenWrite);
else
f = FileCreate("rate.txt");
if ( f != -1 )
{
// файл открыт для записи
FileSeek(f,0,2); // установить указатель на конец
// файла
FileWrite(f,st.c_str(),st.Length());
FileClose(f);
Button1->Enabled = false;
}
else
{
// файл открыт для записи
FileSeek(f,0,2); // установить указатель на конец
// файла
FileWrite(f,st.c_str(),st.Length());
FileClose(f);
Button1->Enabled = false;
}
ShowMessage("Курс добавлен");
}


//---------------------------------------------------------------------------
void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
Edit1->Text = ""; // очистить поле ввода курса
Edit1->SetFocus(); // установить курсор в поле ввода

}
//---------------------------------------------------------------------------
Буду благодарен...
shaturaweb вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачки 1 курса f1ks0n Помощь студентам 1 11.12.2010 22:35
Нужна программа построение учебного курса Karasia Фриланс 1 10.11.2008 02:48


14:09.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.