cara membuat program salam

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

codding 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;


cara membuat program salam
4/ 5
Oleh

Berlangganan via email

Suka dengan postingan di atas? Silakan berlangganan postingan terbaru langsung via email.