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 :-)
