Membuat Kalkulator Sederhana dengan RadioGroup di Delphi 7


Hai semua, pada kesempatan kali ini saya akan membagikan cara membuat kalkulator sederhana dengan memanfaatkan RadioGroup. Pertama mari kita siapkan dulu bahan-bahannya.

1.  Buat 3 Label, ganti caption menjadi Nilai 1, Nilai 2 dan Hasil.

2.  Buat 3 Edit, kosongkan caption, pasangkan Edit1 dengan Nilai 1, Edit2 dengan Nilai 2 dan Edit3 dengan Hasil.

3.  Buat 2 Button, ganti caption menjadi Hitung dan Keluar.

4.  Buat 1 RadioGroup, ganti caption misal Perhitungan.
     Pada Properties - Items klik pada tombol titik 3, tambahkan listnya.


5.  Klik dua kali button Hitung, kemudian masukkan kode berikut di atas begin.

var
n1,n2,h:real;

6.  Masih dalam button Hitung, tambahkan kode berikut di dalam begin.

n1:=StrToFloat(Edit1.text);
n2:=StrToFloat(Edit2.Text);
if RadioGroup1.ItemIndex=0 then
h:=n1+n2
else if RadioGroup1.ItemIndex=1 then
h:=n1-n2
else if RadioGroup1.ItemIndex=2 then
h:=n1/n2
else
h:=n1*n2;
Edit3.Text:=FloatToStr(h);

Untuk menambahkan pesan peringatan gunakan kode berikut:

ShowMessage('Pesan Peringatan');

7.  Kemudian klik dua kali button Keluar, tambahkan kode berikut di dalam begin.

close;

8.  Done.


Sekian. Semoga Bermanfaat.

Comments

  1. Anonymous15 May 2017 at 10:37

    keren ya bisa buat kalkulator sendiri...
    solder uap

    ReplyDelete

Post a Comment

Popular posts from this blog

Cara Print Halaman Tertentu dengan Beberapa Format Halaman Berbeda (i-v,1-5) di Office Word 2010

Image
Pada kesempatan kali ini saya akan membagikan tips untuk mencetak halaman tertentu di Office Word 2010 yang didalamnya terdapat beberapa format halaman seperti halaman i-v yang kemudian diteruskan dengan format yang berbeda yaitu 1-5 dan seterusnya, atau dengan kata lain memilki section yang berbeda. Saat ini saya sedang mengerjakan tugas akhir / skripsi, tips yang saya berikan ini merupakan kendala yang saya alami ketika ingin mencetak halaman pada BAB I, namun yang tercetak malah halaman judul dan seterusnya. Setelah searching kesana kemari akhirnya bisa teratasi. Caranya adalah dengan menggunakan ' p ' dan ' s ' pada rentang halaman yang ingin dicetak di setting pages, dimana p adalah singkatan dari page , dan s adalah section . Namun pertama-tama kita harus mencari tahu dulu pada section berapa halaman tersebut berada, caranya dengan klik kanan pada status bar , kemudian pilih section . Setelah itu akan muncul section pada status bar, ke...
Read more

Menghilangkan "Choose an operating system to start" Windows 7

Image
Selamat malam, di bulan yang berkah ini saya mau kasih software nih buat anda yang memiliki masalah dalam booting Windows 7. Muncul Windows Boot Manager padahal OS kita hanya satu. Sebenarnya kita hanya tinggal tekan enter saja, tapi kalo setiap booting muncul terus kan sepet juga jadinya :v. Jika dalam sebuah warnet operator akan kerepotan kalau harus mondar-mandir tekan enter agar bisa booting, karena harus meng-update game. Biasanya mereka menggunakan software remote PC untuk meng-update game. Jika baru muncul windows boot manager maka kita tidak bisa mengakses PC dengan remote software. Screenshot: Untuk mengatasi masalah ini sangat mudah, kita hanya perlu sebuah software yang ukurannya sangat ringan yaitu EasyBCD. Berikut saya bagikan link downloadnya. Link Download: EasyBCD 2.2 Panduan: Install seperti biasa. Jalankan aplikasi. Pilih bahasa lalu Go . Jika ada notice klik Ok . Pada EasyBCD Toolbox pilih Edit Boot Menu . Timeout Options pilih Skip the bo...
Read more

Memperbaiki "Error 24" pada CorelDRAW X4

Image
Selamat malam, pada kesempatan kali ini saya akan membagikan cara menangani error pada CorelDraw X4 yaitu munculnya pesan error “Product installation unsuccessful, please reinstall (Error 24).” saat aplikasi dibuka, pihak Corel sendiri mengkonfirmasikan bahwa Error 24 adalah sebuah bug yang terdapat pada CorelDraw X4. Cara Memperbaiki: Download file Patch pada link download di bawah. Ekstrak file, nanti akan ada file bernama "dr14.dta". Kemudian salin file tersebut ke folder  C:\Documents and Settings\All Users\Application Data\Corel\CorelDRAW Graphics Suite X4 untuk Windows XP dan C:\ProgramData\Corel\CorelDRAW Graphics Suite X4 untuk Windows Vista & 7. Replace file yang lama, kemudian coba jalankan kembali Corel-nya. Download: Patch CDR Error 24 | Google Drive Sumber: INFO KITA Sekian. Semoga Bermanfaat.
Read more