Berbagi dan Belajar

Ini adalah suatu alat hitung yang di rancang dengan menggunakan program Delphi7. Aplikasi ini di gunakan untuk menghitung nilai akhir yang  berupa nilai angka dan nilai huruf. Nilai yang dimasukkan adalah nilai dengan konversi maksimum nilai adalah 100. Aplikasi ini bisa di gunakan untuk para dosen menghitung nilai seseorang secara manual selain menggunakan excel.





Berikut Source Codenya :
var NA,A,B,C,D,E:real;
NH:string;
begin
A:=strtofloat(edit1.Text);
B:=strtofloat(edit2.Text);
C:=strtofloat(edit3.Text);
D:=strtofloat(edit4.Text);
E:=strtofloat(edit5.Text);
NA:=0.1*A+0.15*B+0.25*C+0.25*D+0.25*E;
edit6.Text:=floattostr(NA);
begin
if NA>=80 then NH:='A'
else
if NA>=70 then NH:='B'
else
if NA>=56 then NH:='C'
else
if NA>=46 then NH:='D'
else
NH:='E';
end;
Label1.caption:='Nilai angka anda adalah:';
Label2.caption:='Nilai Huruf Anda adalah:';
edit7.Text:=NH;
edit6.SetFocus;
end;

Pada sesi latihan delphi ini akan dibahas tentang penggunaan berbagai operator aritmetika dalam delphi yang diimplementasi dalam program kalkulator sederhana.

Teori Singkat

Operator berperilaku seperti fungsi terdefinisi (predefined function) yang menjadi bagian dari Delphi. Operator mengatur operasi pada tipe data dengan menggunakan simbol-simbol yang sudah ditentukan dalam syntax delphi. Contoh Expresi (X + Y) dibangun dari variabel X dan Y yang disebut operand, dengan operator ‘+’.
Operator menurut jenis operand-nya dibagi dua yaitu unary operator dan binary operator.
Unary operator adalah operator yang operand-nya hanya satu seperti contoh +6, -B. Tanda bilangan negatif (-) dan positif (+) pada angka 6 dan variabel B menunjukkan operator unary. Operator Binary merupakan operator yang mempunyai dua operand. Hampir semua operator di Delphi bersifat binary. Contoh operator ini pada operasi penjumlahan A + B, tanda positif (+) menunjukkan operator penjumlahan

Operator	Fungsi Operator
+	Penjumlahan
-	Pengurangan
/	Pembagian
*	Perkalian
mod	Sisa Pembagian
div	Pembagian Bulat

Contoh penggunaan:

• 2 + 3 * 4   menghasilkan nilai 14, perkalian memiliki derajat lebih tinggi dari pada penjumlahan senhingga 3 *4 dikerjakan terlebih dahulu baru kemudian ditambahkan dengan 2
• (2 + 3) * 4 menghasilkan nilai 20, operasi yang berada dalam kurung akan dikerjakan terlebih dahulu

Latihan

Buatlah program sederhana dengan tampilan form sebagai berikut :



Berikut Source Codenya :

Untuk Menentukan bilangan ganjil dan Genap pada Delphi

 yang perlu disiapkan :
     1. Tedit
     2. Tbutton
     3. Tlabel
Cara nya :
     Pilih Tbuton lalu events lalu klin 2 kali pada onklick.
    kemudian copikan kode dibawah ini

procedure TForm1.Button1Click(Sender: TObject);

var
angka:integer;
begin
angka:=strtoint(edit1.text);
if (angka mod 2)=0 then
begin
showmessage('bilangan genap');
edit1.Text:=inttostr(angka)+' GENAP';
end
else
begin
showmessage('bilangan ganjil');
edit1.Text:=inttostr(angka)+' GANJIL';
end;
end;

Coba Saja Sobat....

Yang pertama kita harus mendisaign formnya.

1. Sediakan 4 label
2. 4 edit text
3. 1 button

Cara nya adalah

1. Aktifkan buttonnya lalu pilih onklick, adan isikan kode dibawah ini :
    var
        a,b,c,d,e:double;
    begin
    a:=strtoint(edit1.text);
    b:=strtoint(edit3.Text);
    edit2.text:=floattostr((a-110)*1.1);
    c:=strtofloat(edit2.Text);
    d:=1.1+c;
    e:=0.9+c;

      if  b = c then
        begin
        edit4.text:='Ideal';
        end
      else
      if b > d then
        begin
        edit4.Text :='Gemuk';
        end
      else
        begin
        edit4.Text :='Kurus';
        end;
       end;


2. Kemudian Aktifkan form nya dan pilih onshow, lalu ketikan kode dibawah ini  :

    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit1.setfocus;

Maka program yang kita buat selesai.