Saturday, February 16, 2013

Bermain dengan String ( Menyatukan isi Edit )

Bermain dengan String ( Menyatukan isi Edit ) pada 
C++ Builder

Pada siang hari ini saya akan memposting bagaimana  kita
bermain fungsi string pada suatu Edit.

Kita susun sebuah Form dengan komponen 3 Edit, 1 Label
dan 1 buah Button, seperti gbr dibawah ini :
Fungsi yang akan dijalankan pada Form diatas adalah
bagaimana menyatukan isi dari Edit1 dan Edit2 menjadi
sebuah data String, yaitu hasilnya pada Edit3 dan Label 1.

Untuk menjalankan aplikasi diatas salinlah kode berikut ini :
Double click Button 1 dan isikan kode berikut ini :


//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit3->Text = Edit1->Text +  Edit2->Text;
  Label1->Caption=AnsiString(Edit3->Text);
}
//---------------------------------------------------------------------------
Tekan F9 dan silahkan masukan nilai kedalam Edit1 dan edit2.
Seperti pada gambar berikut ini :

 
 Sekarang kita akan mencoba bagaimana jika hasil dari input Edit1
dan Edit2 kita tujukan ke Form lain, yaitu Form2.
Maka kita harus menambahkan Form2 pada Form1 dan jangan lupa
menulis kode seperti ini :
#include "Unit1.h"
#include "Unit2.h"
agar form 2 bisa dipanggil oleh form1.

Mari kita lihat bentuk ke dua buah Form yang siap mengisi dan menerima data
Seperti gambar di bawah ini :
Pada Form2 kita letakkan Label5 untuk menampilkan data yang di input
dari Form1. Label1 pada Form1 hasilnya akan = Label5 pada Form2.
Untuk menjalankan perintah diatas ,
Double Click Button1  dan isikan kode berikut ini :


//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit3->Text = Edit1->Text +  Edit2->Text;
  Label1->Caption=AnsiString(Edit3->Text);

  Form2->Label5->Caption=AnsiString(Edit3->Text);
  Form2->Show();
}
//---------------------------------------------------------------------------
 Perintah pada baris ke tiga sengaja saya beri spasi agar mudah membedakan
data yang akan dikirim ke Form 2.
Pada Baris ke 4, Form2->Show(); //adalah perintah untuk menampilkan Form2

Berikut ini tampilan hasil setelah kita jalankan dengan menekan F9;
Oke cukup sekian dulu, semoga contoh - contoh sederhana ini bisa bermanfaat.
dan silahkan dikembangkan untuk membangun sebuah aplikasi. 


Friday, February 15, 2013

Fungsi Trigonometri pada C++ Builder

Fungsi Trigonometri pada C++ Builder
Pada postingan kali ini kita akan menampilkan Fungsi Trigonometri
pada C++ Builder.

Fungsi Trigonometri yang biasa kita jumpai pada Microsoft Excel
yaitu, salah satunya mencari nilai sinus, cosinus dan tangen seperti
pada potongan gambar berikut ini :

pada tampilan gambar diatas untuk mencari nilai sinus dari 45 adalah
hanya dengan menuliskan rumus, pada B5  =SIN(A4)  maka akan
di dapat nilai 0.85090352 , pada C5 =COS(A4) akan mendapatkan
nilai 0.525322, pada D5 = TAN(A5) nilainya adalah  1.619775.

Sekarang kita akan menerapkan bagaimana menjalankan fungsi
Trigonometri pada program  C++ Builder,
Letakkan 2 buah komponen  Edit,  1 buah
Button dan 2 buah label, buat seperti pada tampilan gambar berikut ini :
Double Click Button 1 dan tulislah kode seperti berikut  ini :


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

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
pada postingan berikutnya.

Pesan kata :
"sinar terang biasanya datang dari tempat yang gelap".