Post Top Ad

Post Top Ad

Hari Berbahasa Indonesia dengan Delphi

Menggunakan Delphi Untuk Menampilkan Hari Berbahasa Indonesia

anda hanya memerlukan 3 buah komponen

2 label untuk menampilkan hari dan tanggal, namun bisa juga hanya satu label saja untuk menampilkan hari dan tanggal sekaligus

1 buah timer untuk mengecek hari, serta tanggal

berikut gambaran aplikasi nya


berikut source code pada component timer nya :

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ADate:TDateTime;
  hari:array[1..7] of string;
begin
  hari[1]:='Minggu';
  hari[2]:='Senin';
  hari[3]:='Selasa';
  hari[4]:='Rabu';
  hari[5]:='Kamis';
  hari[6]:='Jumat';
  hari[7]:='Sabtu';
  ADate:=date;
label4.Caption :=
formatdatetime ('"Pukul :  "hh:nn:ss',now);
Label5.Caption:= hari [DayofWeek(Adate)];
label4.Refresh;
end;

lebih gampang nya , silakan

DOWNLOAD SOURCE CODE


Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di  
 
 
https://www.tokopedia.com/mikroholik