//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double Value = Edit1->Text.ToDouble();
double Sinus = sin(Value);
Edit2->Text = Sinus;
}
//---------------------------------------------------------------------------
Nilai yang didapat sama dengan nilai yang kita cari melalui rumusan
di Microsoft Excel, yaitu pada sinus 45 = 0.85090352
Sedangkan untuk mencari Nilai Cosinus adalah sebagai berikut:
Buatlah Form baru, letakkan 2 buah Edit, 1 buahButton dan
2 buah label, susunan seperti halnya form Sinus,
Double Click Button 1 dan tulislah kode seperti berikut ini :
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double Value = Edit1->Text.ToDouble();
double Cosinus = cos(Value);
Edit2->Text = Cosinus;
}
//---------------------------------------------------------------------------
Yang terakhir kita akan membuat Form untuk mencari nilai Tangen,
letakkan 2 buah Edit, 1 buah Button serta 2 buah label, susunan
masih seperti halnya form Sinus, dan Cosinus.
Double Click Button 1 dan tulislah kode seperti berikut ini :
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double Value = Edit1->Text.ToDouble();
double Tangent = tan(Value);
Edit2->Text = Tangent;
}
//---------------------------------------------------------------------------
Oke cukup dulu postingan Fungsi trigonometri kali ini, sampai berjumpa lagi