MEMBUAT PROGRAM DASAR YAITU PROGRAM SALAM.
Program ini berguna untuk menggucapkan salam kepada si pengguna. lebih cocoknya di sebut salam perkenalan terhadap program dengan user.
contoh program
contoh program
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label4.caption :=timetostr(now);
label5.caption :=datetostr(now);
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
var
nilai:boolean;
begin
nilai:=checkbox1.checked;
if nilai=true then
showmessage('anda telah menceklis')else
showmessage('anda telah menghilangkan ceklis')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('hallo.... my friend welcome to delphi');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('terimakasih telah membuka program ini');
application.terminate
end;
PROGRAM MENCARI LUAS SEGITIGA
Program ini digunakan untuk mecari luas segitiga, dengan masukan nilai alas dan nilai tinggi yang akan menghasilkan outputan nilai luas.
procedure TForm1.Button1Click(Sender: TObject);
var
A,T,L:real;
begin
A:=strtofloat(edit1.Text);
T:=strtofloat(edit2.Text);
L:=A*T/2;
edit3.Text:=floattostr(L)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage('terimakasi telah menggunakan layanan kami');
close;
end;
PROGRAM KALKULATOR
Program ini di gunakan untuk menghitung dua bilangan dengan variabel pertambahan, pengurangan, perkalian, pembagian.
program ini juga dapat menjumlahkan lebih dari 2 bilangan hanya di tambahkan colom edit dan pada floatnya.
procedure TForm1.Button1Click(Sender: TObject);
var
P,K,H,U,E,Q:real;
begin
P:=strtofloat(edit1.Text);
K:=strtofloat(edit2.text);
H:=P+K;
U:=P-K;
E:=P*K;
Q:=P/K;
edit3.text:=floattostr(H);
edit4.Text:=floattostr(U);
edit5.text:=floattostr(E);
edit6.Text:=floattostr(Q);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.clear;
edit3.clear;
edit4.Clear;
edit5.Clear;
edit6.clear;
edit1.setfocus;
end;
PROGRAM MENU MAKANAN
Program ini biasanya di gunakan pada sebuah rumah makan yang mengunakan pemesanan mengunakan system jaringan. fungsinya adalah untuk mencetak pada listbox makanan yang telah di pesan sebagai berikut.
COODING:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=combobox1.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
begin
nilai:=1;
for nilai:= 1 to 3 do
begin
listbox1.Items.add(edit1.Text)
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Clear;
edit1.Clear;
combobox1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
PROGRAM DAFTAR PEGAWAI
Biasanya program ini di gunakan di sebuah perusahaan untuk mengisi identitas pegawai. ketika biodata yang telah disi maka akan menghasilkan hal isi yang sama di listbox.
cooding:
procedure Tnip.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
combobox1.clear;
combobox2.clear;
radiobutton1.checked:=true;
radiobutton1.checked:=false;
edit3.Clear;
checkbox1.checked:=false;
checkbox2.checked:=false;
checkbox3.checked:=false;
HASIL.CLEAR;
edit1.SetFocus
end;
procedure Tnip.Button3Click(Sender: TObject);
begin
close
end;
procedure Tnip.Button1Click(Sender: TObject);
begin
hasil.clear;
hasil.items.add('laporan data pegawai:');
hasil.items.add('');
hasil.items.add('NIP:'+edit1.text);
hasil.items.add('NAMA:'+edit2.text);
hasil.items.add('GOLONGAN:'+COMBOBOX1.text);
hasil.items.add('STATUS:'+COMBOBOX2.text);
hasil.Items.Add('LAHIR:'+DateTostr(DateTimePicker1.date));
if RADIOBUTTON1.checked=true then
hasil.items.add('KELAMIN:'+RADIOBUTTON1.caption) else
hasil.items.add('KELAMIN:'+RADIOBUTTON2.caption);
hasil.items.add('ALAMAT:'+edit3.text);
hasil.items.add('');
hasil.items.add('ADMINISTRASI YANG ANDA MASUKAN ADALAH SEBAGAI BERIKUT:');
if CHECKBOX1.checked=true then
hasil.items.add('-'+CHECKBOX1.caption);
if CHECKBOX2.checked=true then
hasil.items.add('-'+CHECKBOX2.caption);
if CHECKBOX3.checked=true then
hasil.items.add('-'+CHECKBOX3.caption);
end;
0 Response to "CARA MEMBUAT PROGRAM MENGGUNAKAN DELPHI 7"
Posting Komentar