Caption = "dollar"


Download 0.51 Mb.
Sana19.06.2023
Hajmi0.51 Mb.
#1613727
Bog'liq
konverter


//---------------------------------------------------------------------------

#include


#pragma hdrstop

#include "Unit1.h"


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

void __fastcall TForm1::RadioButton1Click(TObject *Sender)


{
if (RadioButton1->Checked == true) {
Label1->Caption = Edit1->Text.ToDouble() * 11450;
Label2->Caption = "som";
} }
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)


{
if (RadioButton2->Checked == true) {
Label1->Caption = Edit1->Text.ToInt() / 11450;
Label2->Caption = "dollar";
}}
//---------------------------------------------------------------------------

Download 0.51 Mb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling