Visual Delphi dikenal sebagai bahasa pemrograman yang terstruktur dan konsisten terhadap kaedah kode program , sehingga jika suatu kode program salah sedikit maka akan dianggap salah dan jika sudah benar kemungkinan salah dalam pengeksekusian tidak ada. Khusus untuk kode program perhitungan angka bulat dan pecahan, V.Delphi mempunyai perbedaan yang mencolok dengan bahasa pemrogrman lain, misalnya VB dan Foxpro, Delphi lebih konsisten namun perlu pemahaman lebih mendalam
Hal hal yang perlu di perhatikan di V.Delphi jika ingin membuat program perhitungan :
1. V.Delphi menganggap semua masukan angka ke dalam teks masukan di form sebagai karakter (huruf, tanda baca)
2. V.Delphi tidak bisa menampilkan keluaran / output dalam bentuk angka. Semua ditampilkan dalam bentuk karakter.
3. Sehingga programmer tugasnya adalah memanipulasi agar semua masukan dan keluaran dianggap sebagai karakter, meskipun kenyataannya dalam bentuk angka. Perhatikan gambar di bawah ini:
Form diatas adalah suatu proses penjumlahan dengan rumus B+C=A, sehingga ada dua masukan yaitu B dan C, sedangkan A merupakan hasil penjumlahan yang akan muncul jika di masukkan nilai B dan C. Jika user memasukkan angka ke dalam B dan C (misal B = 7 dan C= 9), maka kedua angka tersebut dianggap sebagai karakter sehingga program akan error jika di eksekusi.
Untuk memanipulasi kode program diatas, maka langkahnya :
1. Ubahlah masukan B dan C dari string menjadi angka / integer dengan format StrToInt
2. Setalah di ubah lakukan proses penjumlahan
3. Setelah ketemu hasilnya, maka hasil penjumlahan diubah lagi dari Integer ke String dengan format IntToStr
Dari contoh di di atas, terlebih dahulu teks masukan di beri identitas, caranya menseting pada object inspector , yaitu:
A
Name = Ahasil
Text = (kosongkan)
B
Name = Bmasukan
Text = (kosongkan)
C
Name = Cmasukan
Text = (kosongkan)
Untuk membuat kode program klik dua kali pada tombol = Adapun kode programnya adalah :
begin
Ahasil.text := IntToStr(StrToInt(Bmasukan.text)+StrToInt(Cmasukan.text));
End;
Selain itu kita dapat membuat kode program dengan format yang beda, yaitu dengan memecah perbagian sehingga lebih mudah di pahami,yaitu :
Var
A, B, C : integer;
Begin
B := StrToInt(Bmasukan.text);
C := StrToInt(Cmasukan.text);
A := B + C;
Ahasil.text := IntToStr(A);
End;
Untuk operasi penjumlahan, pengurangan dan perkalian menggunakan integer sehingga prosesnya seperti diatas, namun jika operasi pembagian menggunakan format tipe data real/pecahan sehingga menjadi
Var
A, B, C : real;
Begin
B := StrToFloat(Bmasukan.text);
C := StrToFloat (Cmasukan.text);
A := B / C;
Ahasil.text := FloatToStr(A);
End;
0 komentar
Posting Komentar