Program ini berguna untuk menggucapkan
salam kepada si pengguna. lebih cocoknya di sebut salam perkenalan
terhadap program dengan user.
lalu bagaimana cara membuat program salam tersebut.
apabila sahabat ingin mengetahuinya silahkan simak ya
contoh program salam
lalu bagaimana cara membuat program salam tersebut.
apabila sahabat ingin mengetahuinya silahkan simak ya
contoh program salam
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;
No comments