Minggu, 09 Oktober 2016

Delphi - Kode untuk memainkan sound/musik

Berikut adalah kode untuk memainkan sound/musik (berekstensi *.wav) menggunakan delphi :
pertama-tama tambahkan mmSystem pada bagian uses

kemudain tambahkan kode berikut pada event OnClick pada button1 :
procedure TForm1.Button1Click(Sender:TObject)
begin
     sndPlaySound('C:\Direktory lengkap\Nama File',SND_NODEFAULT or SND_ASYNC or SND_LOOP);
end;

Rabu, 11 Mei 2016

Aplikasi Rekap Absen Siswa


Laporan-laporan yang dihasilkan Rekap Absen :
  1. Laporan rekap absen siswa perbulan, persemester, dan pertahun pelajaran
  2. Laporan rekap absen kelas perbulan, persemester, dan pertahun pelajaran
  3. Grafik absen siswa perbulan, persemester, dan pertahun pelajaran
  4. Grafik absen siswa perbulan, persemester, dan pertahun pelajaran



Contoh Laporan :







Rabu, 23 Maret 2016

Aplikasi Bel Sekolah (AutoBell)

Setiap sekolah tentunya memiliki bel sekolah sebagai pemberitahuan kepada peserta didik tentang pergantian jam pelajaran, jam masuk, istirahat ataupun jam pulang sekolah. dan jika bel sekolah dibunyikan secara manual tentunya akan sangat merepotkan dan bisa juga terjadi kelalaian guru/staff.
Dengan kemajuan tehnologi kegiatan guru ataupun staf sekolah yang bertugas membunyikan bel kini bisa digantikan dengan komputer, yaitu dengan menggunakan aplikasi bel sekolah.


Autobel 4.0

Autobel adalah salah satu aplikasi bel sekolah yang dapat anda gunakan di sekolah anda. bel sekolah yang berupa *.file mp3 atau file *.wav akan play otomatis.


Semoga membantu.


Rabu, 16 Maret 2016

Aplikasi Tata Tertib Sekolah (TATIB 4.0)

Aplikasi Tatib ini digunakan untuk menyimpan / menghitung skor pelanggaran peserta didik. Serta menentukan sanksi berdasarkan jenis pelanggaran atau berdasarkan total skor pelanggaran peserta didik.

Tatib 4.0

Laporan-laporan yang dihasilkan aplikasi tatib :
1. Data siswa
2. Data pelanggaran
3. Data prestasi
4. Data sanksi
5. Laporan total skor pelanggaran
6. Laporan total skor prestasi
7. Laporan hasil skor (totskor pelanggaran - totskor prestasi)
8. Detail pelanggaran
9. Detail prestasi
10. Pelanggaran berdasarkan tanggal
11. Sanksi

Contoh Laporan Total Skor Pelanggaran

Contoh Laporan Detail Skor Pelanggaran



Semoga membantu.






Minggu, 08 November 2015

Delphi - Copy, Rename dan Delete File

Sebelum mencoba kode di bawah, buatlah file dengan nama CobaCopy.txt di drive D.

Kode untuk copy file :
CopyFile(pchar(‘D:\CobaCopy.txt’),PChar(‘E:\HasilCopy.txt '),true);
kode di atas akan menyalin file D:\CobaCopy.txt ke E:\HasilCopy.txt

Kode untuk rename File :
renamefile(‘D:\CobaCopy.txt’,’D:\HasilRename.txt’);

Kode di atas akan mengganti nama file CobaCopy.txt menjadi HasilRename.txt

Kode untuk delete File :
deletefile('D:\HasilRename.txt');
Kode di atas akan menghapus file D:\HasilRename.txt

Semoga bermanfaat.

Search