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