Untuk membuat Nomor atau Kode Otomatis di Delphi pada tutorial ini menggunakan beberapa tahapan, seperti:
- Menggunakan Function untuk membungkus rangkaian kode program agar bisa di panggil di event atau objek lainya
- Memanfaatkan aturan Tanggal dan Jam yang ada pada Komputer
- Menggunakan perintah Copy untuk mengambil karakter Tanggal dan Jam
- Menggambungkan seluruh karatker yang di ambil untuk dijadikan 1 karakter
Langkah – Langkah
- Buatlah Projek dengan nama bebas
- pada bagian Type – Private silahkan buat nama function
|
1 2 3 4 5 6 7 8 |
type TForm1 = class(TForm) private <strong>function GenerateNomor:string;// Nama Fungsinya</strong> { Private declarations } public { Public declarations } end; |
Kemudian Tekan Tombol CTRL + Shift + C Secara bersamaan dengan syarat Cursor masih Aktif di baris GenerateNomor. Kemudian ketikan kode program pada kerangka function yang secara otomatis dibuatkan oleh Delphi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function TForm1.GenerateNomor: string; var bulan,tanggal,tahun,jam,menit,detik,hasil:string; begin tanggal:=copy(DateToStr(now),1,2); bulan:=Copy(DateToStr(Now),4,2); tahun:=copy(DateToStr(Now),7,4); jam:=copy(TimeToStr(Now),1,2); menit:=copy(TimeToStr(Now),4,2); detik:=copy(TimeToStr(Now),7,2); if StrToInt(detik) mod 2 = 0 then hasil:='ABC' else hasil:='DEF'; Result:=hasil+tanggal+bulan+tahun+jam+menit+detik; end; |
Untuk Lebih Jelasnya silahkan simak Video ini..