Membuat Biodata Mahasiswa menggunakan Borland Delphi

Blog saya kali ini saya akan mencoba membuat Biodata mahasiswa menggunakan aplikasi Borland Delphi, Berikut langkah-langkahnya;

1. buka aplikasi borland delphi dan buat desain seperti dibawah ini

2. lalu masukan kodingan dibawah ini pada setiap Buttonnya ;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
IF COMBOBOX1.Text='S1-MI' THEN
BEGIN
EDIT3.Text:='S1 MANAJEMEN INFORMATIKA';
EDIT4.Text:='3500000';
END
ELSE
IF COMBOBOX1.Text='D3-MI' THEN
BEGIN
EDIT3.Text:='D3 MANAJEMEN INFORMATIKA';
EDIT4.Text:='2750000';
END
ELSE
IF COMBOBOX1.Text='S1-TI' THEN
BEGIN
EDIT3.Text:='S1 TEKNIK INFORMATIKA';
EDIT4.Text:='3000000';
END;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
COMBOBOX1.Text:='';
EDIT1.Text:='';
EDIT2.Text:='';
EDIT3.Text:='';
EDIT4.Text:='';
EDIT1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
APPLICATION.Terminate;
end;

end.

3. Setelah itu RUN program tersebut

 

yak begitulah langkah-langkahnya, semoga bermanfaat bagi pembaca sekalian. terimakasih sudah membaca^^