Pemograman Delphi 7 Part 8

Gambar ini adalah hasil dari tutorial dibawah ini

Jumpa lagi dengan saya.. hahahha... pada kesempatan kali ini saya akan memberikan tutorial untuk menghitung nilai para siswa/si disekolah design gambar nya seperti ini :

pada gambar diatas saya menggunakan component COMBOBOX , LABEL, BUTTON dan EDIT TEXT ..... apabila sudah di design seperti gambar diatas... nah sekarang klil pada COMBOBOX nya 

kalo sudah di klik silakan kawan lihat OBJECT INSPECTOR disebelah kiri letaknya... dan cari PROPERTIES = ITEM (STRING) kalo sudah ketemu silakan klik pada STRING nya seperti gambar dibawah ini : 

nah nanti akan muncul tampilan seperti ini :

silakan ketik disitu sesuai gambar diatas... harus sama yah... :p apabila udah silakan klik OK !!

nah kalo sudah silakan kawan klik 2 kali pada component COMBOBOX nya... klo sudah silakan lihat gambar diawah ini :

ngetiknya yang rapih yah... :P ..... kalo sudah ngetik koding nya sekarang kawan minimize layarnya

dan kawan klik 2 kali pada BUTTON HITUNG .. dan ketik koding dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

   nilaiuts,nilaiuas,nilaitugas,nilaiakhir: Real;

begin

    nilaiuts:=StrToFloat(Edit3.Text);

    nilaiuas:=strtofloat(Edit4.Text);

    nilaitugas:=strtofloat(Edit5.Text);

    nilaiakhir:=(nilaiuts+nilaiuas+nilaitugas)/3;

    Edit6.Text:=FloatToStr(nilaiakhir);

    if nilaiakhir >= 80 then

       begin

             Edit7.Text:='A';

             ShowMessage('Nilai Anda = '+Edit7.Text);

       end else

     if nilaiakhir >=70 then

               begin

                    Edit7.Text:='B';

                    ShowMessage('Nilai Anda = '+Edit7.Text);

               end else

     if nilaiakhir >=60 then

                     begin

                           Edit7.Text:='C';

                           ShowMessage('Nilai Anda = '+Edit7.Text);

                     end else

      if nilaiakhir >=50 then

                     begin

                           Edit7.Text:='D';

                           ShowMessage('Nilai Anda = '+Edit7.Text);

                     end else

      if nilaiakhir <=50 then

                         begin

                               Edit7.Text:='E';

                               ShowMessage('Nilai Anda = '+Edit7.Text);

                         end;

-----------------------------------------------------------------------------------------------------------------------

apabila udah beres ngetik koding - koding nya silakan kawan pencet F9 untuk menjalankan programnya... 

Create : Abednego,S.T