Delphi for delphier

Fungsi – StrToInt dan IntToStr

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Prosedur / Fungsi
   
Judul StrToInt dan IntToStr
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada delphier pemula tentang cara menggunakan fungsi StrToInt dan IntToStr.
   
Overview
Pembahasan kali ini akan ditekankan pada penggunaaan fungsi StrToint dan IntToStr. Dimana kedua fungsi tersebut memiliki tugas yang saling bertolak belakang.
Fungsi ini StrToInt digunakan untuk mengkonversi data dengan tipe string menjadi data dengan tipe Integer, sedangkan fungsi IntToStr digunakan untuk mengkonversi data dengan tipe integer menjadi data dengan tipe string.
Pada proses konversi ini tidak diberikan status apakah berhasil atau gagal. Sehingga untuk amannya anda bisa menggunakan TryStrToInt.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Bevel1: TBevel;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
prosedur000003.png
   
Langkah 7
Silahkan anda klik 2x pada tombol Hitung. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
var
NilaiA,
NilaiB,
Hasil : Integer;
begin
NilaiA := StrToInt(Edit1.Text);
NilaiB := StrToInt(Edit1.Text);
Hasil := NilaiA + NilaiB;
Edit3.Text := IntToStr(Hasil);
end;
   
Langkah 8
Silahkan anda compile. Tekan tombol Ctrl + F9. Tunggu beberapa saat… ( Sedang di cek kode programnya ).
   
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
   
 

prosedur000004.png

   

Langkah 9

Silahkan anda tekan tombol Hitung.
   
 
prosedur000005.png
   

Langkah 10

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.

   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Blog di WordPress.com.

%d blogger menyukai ini: