delphi membuat tanggal dan jam sederhana

asalamualaikum wr wb
selamat pagi kawan bloger semua ,,di pagi yang cerah ini saya mao ngeshare ni
tentang software sederhana yang di buat di delphi 7
 ini coking dan SS.y

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=formatdatetime('dd - mm - yyyy',now);
label2.Caption:=formatdatetime('hh : mm : ss',now);
end;

end.

yang dibutuhkan yaitu
2 label
1 timer pada palate system



Download

Read More ->>

delphi membuat login sederhana

asalamualaikum wr wb
selamat pagi kawan bloger semua ,,di pagi yang cerah ini saya mao ngeshare ni
tentang software sederhana yang di buat di delphi 7
 ini coking dan SS.y

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='frima') and
(Edit2.Text='200893') then
begin//untuk mengeksekusi lebih dari satu perintah
form1.Hide;
form2.Show;
exit;
end
else
begin
Showmessage('Maaf Nama '+edit1.Text+ ' dan password nya tidak cocok');
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
exit;
end;
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.

dan
yang di butuhkan adalah
2 label
2 edit
2 button

dan yang mao silahkan download dibawah ini

Login

Read More ->>

delhpi7 program menghitung luas segi empat

asalamualaikum wr wb
selamat pagi kawan bloger semua ,,di pagi yang cerah ini saya mao ngeshare ni
tentang software sederhana yang di buat di delphi 7
 ini coking dan SS.y

procedure TForm1.FormCreate(Sender: TObject);
begin
scrollbar1.Min:=0;
scrollbar1.Max:=100000;
scrollbar1.SmallChange:=1;
scrollbar1.LargeChange:=1000;
scrollbar2.Min:=0;
scrollbar2.Max:=100000;
scrollbar2.SmallChange:=1;
scrollbar2.LargeChange:=1000;
scrollbar1.OnChange:=scrollbar2.OnChange;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
edit1.Text:=format('%18.2n',[scrollbar1.Position/100]);
edit2.Text:=format('%18.2n',[scrollbar2.position/100]);
edit3.Text:=format('%18.2n',[scrollbar1.Position/100*scrollbar2.Position/100]);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;






dan
yang di butuhkan hanya
2 buah scrollbar
3 edit
1 button

dan yang mao silahkan download di bahwah
ini







Download

Read More ->>

contoh program Kasir Sederhana (Delphi 7)

Assalamualaikum saya sekarang akan membagi cara membuat kasir sederhana berikut kodeing nya dan screen shootnya






yang di buthkan
3 buah edit
1 combobox yang item nya(PCS dan LUSIN)
4 Label
4 buah button
2 panel

dan berikut kodingnan nya

procedure Tkasir.FormCreate(Sender: TObject);
begin
cb.Items.Clear;
cb.Items.Add('LUSIN');
cb.Items.Add('PCS');
button2.Enabled:=false;
button3.Enabled:=false;
end;

procedure Tkasir.Button1Click(Sender: TObject);
var
harga,jumlah,satuan,total,total1:integer;
kode:integer;
begin
if (edit1.Text='') or (edit2.Text='') or
(edit3.Text='') or (cb.Text='')  then
begin
messagedlg('silahkan lakukan transaksi dahulu',mterror,[mbok],0);
edit1.SetFocus;
exit;
end
else
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=harga*jumlah;
if cb.Text='LUSIN' THEN
total1:=total*12 ;
if cb.Text='PCS' then
total1:=total*1;
label5.Caption:='Rp '+format('%.0n',[total1+0.0]);
end;
end;

procedure Tkasir.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
cb.Text:='';
label5.Caption:='Rp 0';
edit1.SetFocus;
end;

end.


dan yang mao contoh program nya silah kan ambil
di bawah ini
Download

Read More ->>