Program Aplikasi untuk BK(Bimbingan konseling) Disekolah

salam agan -agan Semua, kali ini saya ingin ngeshare aplikasi yang sebenarnnya sudah lama saya buat untuk kepentingan sekolah, yaitu program tentang pengelolaan Bimbingan konseling(BK disekolah).
Program ini mampu menangani kredit point tiap siswa, sehingga bisa menentukan dengan cepat jumlah pelanggaran dan kredit poin siswa yang dicari.
tambahan utama pada program ini adalah menggunakan Algoritma yang mampu menganalisa karakter siswa dalam satu sekolah secara keseluruhan.

untuk download aplikasinya disini

Aplikasi bimbingan Konseling (BK) V1.5

untuk mendapatkan source Code dalam bahasa delphi, silahkan kunjungi website resminya yaitu di


www.hibhib.com

Program E - Test atau Tes Dengan Komputer Seperti UNBK

Baik kawan sekalian, program ini hampir selesai dalam proses pembuatanya. seperti biasa, saya buat dengan delphi 7.
program ini terdiri dari 2 exe. dimana 1 untuk server dan yang 1 untuk client nya
1 server dapat melayani beberapa client. tergantung dari speck servernya
Cara Instalasi
1.Instal terlebih dahulu databasenya pada sisi server (bagi yang belum paham, bisa baca dahulu tutorial sebelumnya)
2. Instal Juga File Client pada komputer Client
3. Seting Koneksi Client ke database Komputer Server
4. Tingal Jalankan Deh

oh iya, untuk soal dan kunci jawaban, bisa diisi sesuai dengan kebutuhan


kelemahan
belum bisa memuat gambar
jadi bagi agan agan yang mau membantu, akan saya berikan sourcodennya kemudian silahkan di edit.
untuk lebih jelas silakan klik link dibawah ini

https://hibhib.com/software-test-ulangan-berbasis-komputer-gratis-open-source/


program menonaktifkan Fungsi USB pada Komputer

Program ini saya beri nama "Nz USB Save1.0" karena masih dalam tahap pengembangan.

halo kawan sekalian, kalau dilihat dari judulnya memang aneh ya? hee
biasanya orang kan mencari komputer ya harus ada USBnya kok malah dimatikan.. 
cuma ini kasusnya beda gays.. 

kebetulan saya mengelola Laboratorium Sekolah.

untuk antisipasi penyalah gunaan ketika ujian berbasis komputer. maka USB untuk Flasdisk perlu dilok. 
setelah brosing sana sini didapatkan kesimpulah bahwa fungsi USB bisa dinonaktifkan lewa Registry. caranya sebagai berikut :

1. Klik Start -->RUN --> ketik regedit --> klik OK
2. Di jendela Registry Editor masuk ke :HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR
3. Dobel klik dword Start(di sebelah kanan) ganti Value Data yang semula 3 menjadi 4 --> klik OK. --> tutup jendela registry editor
Sekarang fungsi USB disk sudah disable (untuk beberapa kasus, komputer harus restart ).

Untuk mengembalikan fungsi USB disk menjadi normal kembali ulangi langkah seperti di atas, pada langkah ketiga kembalikan ValueData dari 4 menjadi 3.


nah bagi sebagian orang, masuk registri merupakan hal yang membingungkan. nah DARI SITU AHIRNYA SAYA ISENG BUAT PROGRAM DENGAN DELPHI

1. pertama buat sebuah form baru
2. isi form tersebut dengan 2 button dan ganti captionya sesuai pada gambar
3. Pada uses di form utama silahkan tuliskan registry

4.pada chekbok (Aktifkan USB flashdis ) silahkan tuliskan sintax berikut

if CheckBox4.Checked=true then
    begin
    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','3');
    BitBtn3.Enabled:=false;
    //CheckBox4.Checked:=true;
    //CheckBox4Click(Sender);
    BitBtn2.Enabled:=true;
    Label14.Caption:='USB Aktif';
    end
    else
    begin
    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','4');
    BitBtn3.Enabled:=true;
    //CheckBox4.Checked:=false;
    //CheckBox4Click(Sender);
    BitBtn2.Enabled:=false;
    Label14.Caption:='USB Tidak Aktif';
    end;

ket :
regbuat adalah sebuah fungsi yang telah saya buat terlebih dahulu sebelunya

function regbuat(key:HKEY;rot,status,nama,nilai:string):string;
begin
reg:=TRegistry.Create;
reg.RootKey:=key;
reg.OpenKey(rot,true);

if status='str' then
    begin
    reg.WriteString(nama,nilai);
    end
    else
if status='bol' then
    begin
    reg.WriteBool(nama,strtobool(nilai));
    end
    else
if status='int' then
    begin
    reg.WriteInteger(nama,StrToInt(nilai));
    end
    else
if status='date' then
    begin
    reg.WriteDate(nama,StrToDate(nilai));
    end;
if status='cur' then
    begin
    reg.WriteCurrency(nama,StrToCurr(nilai));
    end;
if status='float' then
    begin
    reg.WriteFloat(nama,StrToFloat(nilai));
    end;

reg.CloseKey;
reg.Free;

end;

5. pada button "matikan USB" tuliskan perintah berikut ini

BitBtn3.Enabled:=true;

CheckBox4.Checked:=false;
CheckBox4Click(Sender);
BitBtn2.Enabled:=false;
Label14.Caption:='USB Tidak Aktif';

dan pada button "hidupkan USB"  sebaliknya 


BitBtn3.Enabled:=false;

CheckBox4.Checked:=true;
CheckBox4Click(Sender);
BitBtn2.Enabled:=true;
Label14.Caption:='USB Aktif';

6. terhir tinggal compile dah , heee

ok kawan dari pada pusing, ini langsung saya bagikan aplikasinya
silahkan klik link download dibawah ini


Download Nz USB save V1.0

untuk sorce codenya bisa klik link dibawah ini

Download Nz USB Save V1.0 + Source Code

Mencari Selisih Tanggal pada Komponen Datetime Picker

dalam beberapa kasus contohnya dalam proses pembutan program penyewaan, tentunya akan menjumpai selisih antar tanggal.
contoh kasus adalah ketika seseorang meminjam barang, baik itu rental mobil, atau buku, pada saat mengembalikan di tanggal itu, maka program harus bisa mendeteksi apakan waktu pengembaliana telat, atau tidak,. kemudian berapa dendanya begitu kan gan? hehee

oke gan untuk mencari selisih waktu pada delphi kita bisa menggunakan fungsi yang telah disediakan yaitu
DaysBetween

bentuk umumnya adalah
DaysBetween(Waktu1,Waktu2)

fungsi tersebut akan menghasilkan nilai balik berupa integer

contoh penerapanya adalah sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date);
Edit1.Text:=FloatToStr(a);
end;
contoh rancangan interfavenya sebagai berikut
contoh program selengkapnya bisa di download dengan klik link dibawah ini

https://drive.google.com/open?id=0B0T9jFZChgVIQ2NLcWJ3ZzZvUTg

salam berkarya gan

Program Permohonan Surat Di kantor Desa atau Kecamatan

Gambar 1.0 Form Input Pemohon
Program ini hanya untuk tahap pembelajaran semata
dibuat karena ada salahsatu teman dari jauh meminta bantuan masalah it dikantornya.
bisa dikatakan program ini adalah bahan dasar untuk pembelajaran Pemrogramman Database dalam bahasa Delphi.
langkah pertama adalah buat form utama terlebih dahulu seperti pada gambar disamping
Gambar 2. Form Utama
yang kedua buat form baru dan desain lah dengan berbagai komponen seperti pada gambar 1.0\
kemudian buat form ke 3 untuk menampilkan hasil input pemohon seperti pada gambar dibawah ini
Gambar 3. Data Pemohon

pada form utama, main menu data, silahkan tuliskan perintah berikut ini agar form pemohon bisa dipanggil dari form utama
Gambar 4. Sintak Memanggil FOrm Pemohon

sekarang kembali ke form pemohon, kita coba mengfungsikan tombol simpan, silahkan klik 2 kali pada tombol simpan, kemudian diantara begin dan end isikan baris perintah berikut ini

procedure TfPemohonIn.btsimpanClick(Sender: TObject);
var i:integer;
 a:Boolean;
dataku:TDataSet;
gambarasl,gambartujuan:pchar;
gambarA,gambarB:string;
begin
if futama.cekKosong(Edit1,'Id no KTP belum ditentukan')=true then exit;
if futama.cekKosong(Edit2,'Nama Anggota belum ditentukan')=true then exit;
if futama.cekKosong(Edit3,'Tempat Tanggal Lahir belum ditentukan')=true then exit;


if btsimpan.Caption='Simpan' then
    begin
    //cek jika sudah ada data yang sama

    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('insert into pemohon '+
    '(no_ktp,nama,tempatlahir,tgllahir,kelamin,agama,pekerjaan,pendidikanterakhir,'+
    ' alamat,foto) values('+
    QuotedStr(Edit1.Text)+','+
    QuotedStr(Edit2.Text)+','+
    QuotedStr(Edit3.Text)+','+
    QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+','+
    QuotedStr(cbjns_kel.Text)+','+
    QuotedStr(Edit4.Text)+','+
    QuotedStr(Edit5.Text)+','+
    QuotedStr(Edit6.Text)+','+
    QuotedStr(Edit7.Text)+','+
    QuotedStr(Edit1.Text+'.jpg')+')');
    futama.MyCommand1.Execute;

      //copy gambar
   if FileExists(Edit8.Text)=true then
      begin
      if DirectoryExists(ExtractFilePath(Application.ExeName)+'Gambar')=false then
          CreateDir(ExtractFilePath(Application.ExeName)+'Gambar');
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');
      CopyFile(gambarasl,gambartujuan,true);
      end;

    ShowMessage( 'Proses penyimpanan berhasil');
    end
    else
    begin
    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('update pemohon set '+
    'no_ktp='+QuotedStr(Edit1.Text)+
    ',nama='+QuotedStr(Edit2.Text)+
    ',tempatlahir='+QuotedStr(Edit3.Text)+
    ',tgllahir='+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+
    ',kelamin='+QuotedStr(cbjns_kel.Text)+
    ',agama='+QuotedStr(Edit4.Text)+
    ',pekerjaan='+QuotedStr(Edit5.Text)+
    ',pendidikanterakhir='+QuotedStr(Edit6.Text)+
    ',alamat='+QuotedStr(Edit7.Text)+
    ' where no_ktp='+QuotedStr(lbkode.Caption));
    futama.MyCommand1.Execute;
 
    //update gambar
    if FileExists(Edit8.Text)=true then
      begin
      gambarA:=ExtractFileName(OpenPictureDialog1.FileName);
      gambarB:=Edit1.Text+'.jpg';
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');

      if gambarA<>gambarB then
          begin
          DeleteFile(ExtractFilePath(Application.ExeName)+'Gambar\'+lbkode.Caption+'.jpg');
          CopyFile(gambarasl,gambartujuan,true);
          end;
      end;
   
    ShowMessage('update berhasil');

    end;
btbatalClick(Sender);
if fpemohon<>nil then fPemohon.MyQuery1.Refresh;
end;

tapi sebelumnya silahkan sobat install dulu databasenya ya, bisa copy pada folder contoh di paketan ini.

berikut ini adalah beberapa hal yang dibutuhkan sebelum anda mencobanya
1. Install Komponen Mydac V8.3.9 for delpji 7
2. Install Software Xampp dan aktifkan server MySQL
3. Install Software navicat v.8.0.29 enterprise
3. buka navicat dan buat database dengan nama "permohonan"
3. impor file database (pemohon.sql)yang ada pada folder DB satu paket dengan file permohonan.rar
cara Import
a. Klik kanan database permohonan kemudian pilih "execute bacth file"
b. cari file database nya (permohonan.sql)
c. chek Continue on Erroors
d. strart
f. Finish

nhah kawan selamat mencoba, yang kurang jelas bisa ditanyakan langsung lewat komentar atau email, thanks

oh iya untuk download contohnya bisa klik link dibawah ini :

http://adf.ly/6054696/dp-sc-programpermohonan

Program Servis dan Penjualan Suku Cadang di Mataram Motor

Program ini dibuat dalam rangka untuk memenuhi tugas akhir mata kuliah Teknik Komputer.
sehingga pada program lengkap dengan laporanya dari bab 1 sampai akhir.
untuk mendownload laporan Skripsi dan Rancangan program bisa klik link dibawah ini


http://laporan-skripsi.blogspot.co.id/2016/12/skripsi-sistem-informasi-servis-dan.html

Program ini diberi judul Sistem Informasi Servis dan penjualan Suku Cadang Di Mataram Motor Wonosobo.
dalam program ini sudah dapat mengcover beberapa proses diantaranya adalah

Penanganan Master Data
  1. Data Suplier
  2. Data Mekanik
  3. Data Kendaraan
  4. Data Customer
Penanganan Servis
  1. Data Paket Servis
  2. Proses Pendaftaran Servis Kendaraan
  3. Servis
  4. Komplain Servis
Penanganan Suku Cadang
  1. Data Suku Cadang
  2. Jenis Suku Cadang
  3. Pembelian
  4. Penjualan Suku Cadang
Laporan
Untuk laporan saya buat menggunakan Fast Report dengan tampilan yng sangat user frindly
banyak sekali laporanyang sudah saya suguhkan diantaranya:
  1. Laporan Data
  2. Laporan Servis
  3. Laporan Penjualan dan Pembelian
  4. Laporan Laba Rugi
untuk mencoba aplikasi trsebut bisa download dengan klik link dibawah ini

Program Aplikasi Servis dan Penjulanan Suku Cadang Sepeda Motor

ffast respone L email : delphi.programku@gmail.com

Program Aplikasi di Pabrik kayu (bensaw) dengan Delphi 7

Program ini saya buat karna ada permintaan dari seorang Bos perusahaan kayu yang akan mengubah ke sistemnya menjadi terkomputerisasi.
tujuanya untuk mempermudah administrasi sekaligus kecepatan laporan untuk menentukan rugi dan labanya
dalam program ini mencangkup

  1. Pembelian Kayu langsung maupun dari perusahaan lain
  2. Perkiraan Produksi dari Bahan mentah yang ada
  3. Penggajian karyawan
  4. Laporan Laba Rugi
  5. Dll

karna program ini ditujukan untuk laporan skripsi, maka terdapat pula rancangan databasenya maupun alur sistemnya menggunakan DFD, Flowmap, Normalisasi, dan HIPO

baik sob, untuk mencoba aplikasinya
Silahkan download aplikasinya dengan klik link dibawah ini



Program Aplikasi Pengolahan kayu di Pabrik Kayu (bensaw)

Program Algoritma Naive Bayes 2.5 Menentukan Kelayakan PIP

Program indonesia pintar merupakan program pemerintah yang dinilai sangat efektif dalam meningkatkan mutu pendidikan Masarakat terutama yang kurang mampu.program ini mampu mengurangi angka putus sekolah dibawah usia 12 tahun. akan tetapi, terkadang pemberian PIP ini masih belum menjangkau semua masarakat yang memang sebetulnya sangat membutuhkan.
dalam penelitian ini, penulis mencoba untuk membuat sebuah aplikasi berbahasa delphi untuk menentukan kelayakan mendapatkan PIP berdasarkan jarak Siswa ke Sekolah, Pendidikan Orang Tua, Pekerjaan Orang tua dan Penghasilan.

dalam sample sudah disertakan sejumlah 182 siswa yang menerima mauoun tidak menerima Program indonesia Pintar disebuah SD Negeri ternama.
langkah-langkahnya sebagai berikut
1. pengelompokan data
  a. alamat 182 siswa dikelompokan menjadi 3 yaitu Jauh, Sedang dan Dekat
  b. Pendidikan orang tua dikelompokan menjadi : Rendah, Sedang dan tinggi
  c. Pekerjaan Orang tua dikelompokan menjadi : Petani, Wiraswasta, dan Buruh
  d. Penghasilan Orang tua dikelompokan menjdi Sedang dan tinggi
2. Ambil beberapa Sample Siswa
3. terapkan Algoritma terhadap masing-masing variable setiap siswa
   contoh siswa pertama memiliki alamat dekat, pendidikan orang tua rendah, pekerjaan petani, penghasilan sedang, apakah layak mendapatkan PIP?


untuk lebih jelasnya bisa download contoh aplikasi Algoritma Naive Bayes dengan klik link dibawah ini
Download Program Naive bayes Versi 2.5


Program Algoritma Naive Bayes Data Meaning V.2 Dengan Delphi 7

Program Algoritma naive bayes Data meaning V.2 ini merupakan program penyempurna dari versi sebelumnya. bagi yang belum punya bisa kunjungi di link bawah ini

pada versi 2 ini menggunakan variable yang berbeda dibandingkan versi sebelumnya yang  digunakan untuk memutuskan prestasi siswa apakah meningkat atau tidak.

untuk menentukan siswa memiliki prestasi yang meniungkat atau tidak, pada program ini sudah kami uji coba terhadap 182 siswa di SD Watuduwur Purworejo.
berikut ini adalah data siswa


variable yang menentukan adalah berdasarkan Motivasi baik /Kurang, Disiplin :kurang/baik , Dukungan Orang Tua : baik/kurang, Lingkungan : baik atau Kurang.

berikut adalah screenshoot program dalam mengambil data siswa dari database
untuk memanggil data seluruh siswa , tekan tombol ambil data karakter siswa dan hasilnya seperti pada gambar diatas

langkah berikutnya adalah pilih salah satu data siswa atau lebih dengan menekan tombol Ambil 1 Sample Siswa sebagai sample untuk uji coba algoritma naive bayes berdasarkan variable diatas.

langkah yang terahir adalah tekan tombol terapkan algoritma
hasilnya seperti pada gambar dibawah ini



bagaimana kawan tertarik untuk mencoba atau sedang membutuhkan contoh untuk tugas..
bisa download contoh aplikasinya dengan klik dibawah ini gan

untuk Source Kodenya bisa klik link dibawah ini

Source Code Program Algoritma Naive bayes

Untuk Instalasinya, Berikut adalah langkah langkahnya
1. ekstrak folder "program Clasifier Nbayes Prestasi V2.1"
2. Buka Navicat untuk memasukan database MySQL yang sudah ada dalam paket
   yang belum punya Aplikasi Navycat bisa Download disini
3. Buat Database dengan nama "sd_watuduwur"
4.Klik Kanan nama databse tersebut dan pilih Execute
5. Setelah Proses restore selesai, bisa langsung menjalankan program exenya


selamat mencoba

Program Penjualan Eskrim Dengan Delphi 7

Program Penjualan ini dibuat menggunakan delphi 7 dan dengan database Microsoft office Access dengan ekstensi *.mdb.
dalam paketanya, saya sertakan juga tutorial pembuatan database dan koneksi ke databasenya
monggo bagi yang sedang mencoba untuk mengerjakan tugas kuliah, atau memang yang sedang mempelajari coding berbahasa delphi, juga saya sertakan source codenya.

bagi yang menginginkan aplikasi hasil compile nya, bisa di download dengan klik link dibawah ini



Aplikasi Penjualan Eskrim

untuk source codenya bisa klik link dibawah ini



Entri Populer