SMART

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...

Tampilan Program Selamat malam, pada kesempatan kali ini saya akan membagikan ilmu baru yang saya dapatkan dari perkuliahan. Berikut adalah tutorial membuat program penghitung luas dan keliling lingkaran pada Delphi 7 . 1. Buat layout seperti diatas.     - 3 Label, ganti caption menjadi: Jari-jari , Luas , Keliling     - 3 Edit, kosongkan captionnya: Edit1 , Edit2 , Edit3 (default)     - 1 Button, ganti caption menjadi: Hitung 2. Klik dua kali pada button Hitung , lalu tambahkan kode berikut sebelum begin .      var     k,l,r:real; 3. Tambahkan kode berikut di dalam begin .     r:=strtofloat(edit1.text);     k:=2*pi*r;     l:=pi*r*r;     edit1.text:=floattostr(r);     edit2.text:=floattostr(l);     edit3.text:=floattostr(k); 4. Run program dengan menekan F9 atau lewat menu Run -> Run . ...