Input Nilai Dengan Delphi7

Hasil Input Nilai saat Run

Naaaach kita langsung mulai saja

berikut ini adalah bagaimana cara membuat ON-CREATE

caranya ikuti saja petunjuk gambar dibawah ini

1. click FOrm terlebih dahulu untuk membuatnya.

2. cari yang namanya OnCreate. letaknya ada dibagian Event.

  contoh gambar dibawah ini. jangan lupa double click ya tulisan OnCreate itu :-)

3. masukkan koding yang sudah saya siapkan:

ini koding untuk OnCreate

procedure TMudawwir12012769.FormCreate(Sender: TObject);

begin

  ComboBox1.Items.Add('12012001');

  ComboBox1.Items.Add('12012002');

  ComboBox1.Items.Add('12012003');

  ComboBox1.Items.Add('12012004');

  ComboBox1.Items.Add('12012005');

end;

Disini Langkah-langkah cara menyesuaikan ComboBox1:

1. double klik OnClick. maka secara otomatis anda akan masuk ke bagian koding., lalu maukkan koding dibawah ini yaaa, copas juga gk pa2.! ngirit waktu

procedure TMudawwir12012769.ComboBox1Click(Sender: TObject);

begin

   case ComboBox1.ItemIndex of

   0:Edit1.Text:='Mudawwir';

   1:Edit1.Text:='Mulfi Ubaidillah';

   2:Edit1.Text:='Muhammad Ikhlas';

   3:Edit1.Text:='Yudik Angrayni';

   4:Edit1.Text:='Wekik Chan';

   end;

end;

Setelah selesai dengan tombol OnClick

Jangan Lupa pilih ComboBox1 lagi, namun kali ini masuk ke bagian OnChange, sudah nampak contohnya kn seperti gambar diatas yg sudah siap kn.

double click OnChange tersebut lalu masukkan kodingnya:

dibawah ini koding untuk OnChange

procedure TMudawwir12012769.ComboBox1Change(Sender: Tobject);

begin

  Edit2.SetFocus;

 end;

Koding pada tombol (Tbutton: Proses):

Ok kita langsung saja memasukkan koding

jangan lupa, terlebih dahulu kita double klik Jbutton (tombol proses)

dibawah ini koding:

procedure TMudawwir12012769.ProsesClick(Sender: TObject);

var nilai:integer;

   hasil:string;

begin

if (edit1.Text = '') or (edit2.Text = '') then

    begin

  Application.MessageBox('Data masih ada yang kosong' +sLineBreak+'Isi dulu semua data!','Informasi',MB_ICONINFORMATION);

Edit2.SetFocus;

    end

    else

   nilai:=strtoint(edit2.Text);

   if nilai < 51 then

      hasil:= 'Nilai E'

    else if  nilai < 66 then

      hasil:='Nilai D'

      else

      if nilai < 76 then

      hasil:='Nilai C'

      else

      if nilai < 86 then

      hasil:='Nilai B'

      else

      if nilai < 101 then

      hasil:='Nilai A';

 edit3.Text:= hasil;

end;

Setelah selesai lanjutan pengkodingan dibawah ini ya.

caranya sama dengan memasukkan koding pada tombol Proses:

Koding pada tombol (Tbutton:  Keluar ):

procedure TMudawwir12012769.KeluarClick(Sender: TObject);

begin

close;

end;

Koding pada tombol (Tbutton: Ulang):

procedure TMudawwir12012769.UlangClick(Sender: TObject);

begin

ComboBox1.Text:='';

Edit1.Text :='';

Edit2.Text :='';

Edit3.Text :='';

ComboBox1.SetFocus;

end;

end.

.selamat mencoba yaaaa...!!!

  .semoga sukses :-)