Feeder PDDIKTI

Ikut meramaikan Feeder PDDIKTI :)
 
Semua tau susahnya apdet data PDDIKTI, yang umumnya dikerjakan offline lewat Feeder PDDIKTI trus disinkronkan ke pusat. PDDIKTI cukup fair dengan menyediakan webservice yang dapat digunakan untuk "memudahkan" proses entri data ini. Kemudahan yang ditawarkan disini, kemudian di terjemahkan oleh user dilapangan dengan membuat "CSV uploader".
 
Sebagai pemula di dunia PHP [selama ini Delphi7], saya nyoba juga mbuat CSV uploader untuk memberi makan database PDDIKTI ini. Hasilnya; sebuah kode HP pendek yang rigid namun cukup mampu mendownload dan apload data ke Feeder. Lumayanlah buat pemula.

Setelah login [gunakan username & password dari DIKTI] tersedia menu : [Log-out][Refresh token] [List semua tabel][List tabel Ref][List tabel Data] [] 

 

Berhubung posisi di lembaga tongkrongan saya selama ini di "geser" gak lagi ngurusi data laporan PDDIKTI, ya monggo aja siapapun yang minat nyoba kode PHP kreasi saya, tak persilahkan. Link donlot kode PHP buatanku ada di 4shared. Sebelum mencoba, ada readme.htm yang perlu dibaca dulu 

[Update Desember 2023]

Setelah lama meninggalkan Feeder PDPT ini, ternyata sudah berganti menjadi NeoFeeder, kalo ndak salah sejak 2022. Saya mengembangkan fider NeoFeeder sendiri, untuk migrasi data PT ke NeoFeeder. Ternyata tidak begitu syulit, walau juga tidak mudah. Yang utama adalah maintenance dari fider ini, karena ketika ada patch dari NeoFeeder, maka kode kadang disesuaikan (biasanya ada field/kolom tabel baru yang wajib disertakan [NISN, email], nama kolom tabel yang berubah [nama_ayah_kandung], dsb)

Kode di buat simpel, untuk login, hanya perlu 1 klik untuk mendapatkan token tanda sudah login (expired sesudah 24 menit)

Menu list adalah untuk menampilkan daftar perintah (Get) dari WebService. Ini untuk melihat tabel dan nama kolom beserta isi tabel tersebut, misal ID dan kode-2

Dan menu Feeder untuk membuka feeder yang sesunggunya

Misal untuk memasukkan data kelas kuliah yang diselenggarakan (pada semester tersebut), maka klik saja Kelas perkuliahan, dan akan terbuka halaman kelas kuliah

 Jika kita klik Sinkron'z kelas ini, maka data dari DB lokal akan ditransfer ke tabel PDPT. Proses memakan waktu cukup lama, tunggu hingga selesai. 

 Jika selesai, akan tampil

 

Jika ada job yang gagal dikerjakan seperti diatas, lakukan manual melalui NeoFeeder. Biasanya kegagalan ini terjadi karena adanya tanda peti/kutip pada kalimat / teks yang di feed-kan 

ShutDown timer

Di kantor, presensi karyawan menggunakan FingerPrint, DigitalPersona u.R.u 4500... pengganti dari u.R.u 4000B yang dah impoten setelah bekerja nonstop sejak 2009. FP scanner jenis ini memerlukan komputer untuk menangani presensi karyawan, tidak seperti FP scanner yang jenis StandAlone.
Komputer untuk presensi diset untuk PowerOn otomatis pada jam 07.00 pagi lewat BIOS, menjalankan MySQL sebagai service dan membuka program presensi. kegiatan kantor berakhir pada jam 17.00 sore hari, walau kadang ada juga yang lembur. Untuk mematikan komputer, ternyata belum ada PC yang BIOS nya memliki fitur ShutDown otomatis ini, sehingga penulis membuat program untuk men-ShutDown komputer pada jam tertentu.
Selama ini teruji dan bekerja dengan baik di Win XP 32.
Berikut ini tampilan di Tray Icon ketika program dijalankan

Jam untuk ShutDown dapat di atur dengan klik kanan pada icon jam

 dan tentu saja klik Set Time.... dan akan muntul jendela pengaturan waktu

Menu Exit untuk keluar dari program ShutDown timer ini

Seperti biasa, program ditulis pakai Delphi-7 dan freeware. Link download nya di 4shared dapat di klik disini

Pasaran Hari

Di (masyarakat) Jawa, pasaran hari masih cukup diperhitungkan, juga neptu hari. Ketika menanyakan bayi lahir, jawabnya relatif lengkap : Senin Pon... itulah pasaran hari
Lebih lanjut, ketika "menghitung jodoh", neptu hari masih digunakan, jika jumlah neptu hari kedua calon berjumlah kelipatan 3, maka xxxxx [penulis nggak tau, he he he]
Untuk menghitung pasaran (dan neptu) pada tanggal yang telah lampau, penulis membuat sebuah program kecil, lagi-2 pake Delphi-7. ini linknya, dan ini SSnya

Gak perlu panduan buat makainya kan... So silahken donlot ato modifikasi source-nya sesuai keinginan

Habis Gelap Terbitlah Terang @ Toar Tangkau

Kangen lagu jaman SD : Habis Gelap Terbitlah Terang
Penyanyi Toar Tangkau, pengarang lagu Rudi R, musik Januar Iskak, Purnama Record, 1977


=============================
Diam diam mulai nampak berpijar
Hati yang redup kini bercahaya
Aku telah menerima
Aku telah mendapatkan
Arti kehidupan

Titik air jatuh disudut mata
Tak kuasa daku tuk menahan nya
Oh Tuhan syukur hamba
Yang hanya dalam khayal
Kini telah jadi nyata

Tlah kupeluk tlah kugenggam cita cita
Tlah kubawa kau dengan derita lara
Rasa bangga kuraskan dalam hati
Tak percaya kenyataan nya tiada bermimpi
=============================

ada yg jual kaset itu OL di http://gudangkaset.blogspot.co.id/2011/02/kaset-toar-tangkau-dijual.html harganya 50K, tapi mau nyetelnya gimana, pa lagi konvert ke mp3... gak punya konverternya . . . duh . . .

nunggu aja moga suatu saat ada yg baik hati mau ngonvert itu lagu ke mp3 & nge-share di web . .  . he he he

  EDIT 7 Desember 2016
Link lagu ini dah tersedia di youtube, alhamdulillah ketemu juga

makasih tak terhingga buat uploader 

sedikit ada gangguan di audionya, tapi cukup buat obat kangen  

SETING BGP MIKROTIK [kasus ini : ASTINET)

Pertama dapat lembaran info dari provider gini
===============================

Interface di router STIE H*****A

Interface2: DOMESTIK : 192.168.91.234   255.255.255.252

Interface3 : GLOBAL   : 192.168.91.230  255.255.255.252

Interface4 : LAN       : 118.97.15.56 /29

AS number telkom     : 17974

AS number pelanggan  : 64646

PE2-D4-KBU-INET#sh run int Gi1/3.2127

Building configuration...

Current configuration : 396 bytes

!

interface GigabitEthernet1/3.2127

 description ASTINET (GLOB) STEI H*****A Eksekutif Desa Alamat, CID 4002002127 SID 300100194-0009489981

 bandwidth 1024

 encapsulation dot1Q 2127

 ip vrf forwarding Astinet_Global

 ip address 192.168.91.229 255.255.255.252

 no cdp enable

 service-policy input rate_limit_1M

 service-policy output rate_limit_1M

end

PE2-D4-KBU-INET#sh run int Gi1/3.2128

Building configuration...

Current configuration : 397 bytes

!

interface GigabitEthernet1/3.2128

 description ASTINET (DOM) STEI H*****A Eksekutif Desa Alamat,Yogya CID 4002002128 SID 300100194-0009489981

 bandwidth 2048

 encapsulation dot1Q 2128

 ip vrf forwarding Astinet_Domestik

 ip address 192.168.91.233 255.255.255.252

 no cdp enable

 service-policy input rate_limit_2M

 service-policy output rate_limit_2M

end

#liat AS number astinet BB

         

 PPE2-D4-KBU-INET#sh running-config vrf Astinet_Domestik

 Building configuration...

 neighbor 192.168.91.234 remote-as 64646

 neighbor 192.168.91.234 prefix-list FROM_AST_BB_300100194-0009489981 in

#liat ip public astinet BB

PE2-D4-KBU-INET#sh running-config | i AST_BB_300100194-0009489981

  neighbor 192.168.91.230 prefix-list FROM_AST_BB_300100194-0009489981 in

  neighbor 192.168.91.234 prefix-list FROM_AST_BB_300100194-0009489981 in

ip prefix-list FROM_AST_BB_300100194-0009489981 seq 5 permit 118.97.15.56/29

ip prefix-list FROM_AST_BB_300100194-0009489981 seq 20 deny 0.0.0.0/0 le 32

Lanjut dengan seting mikrotik

===============================

[Interface] AS ganti : 64646

Tambah Peer [domestik] Addres 192.168.91.233, AS 17974

Tambah Peer [global] Addres 192.168.91.229, AS 17974

Tambah Networks IP 118.97.15.56 /29

Interface2 : DOMESTIK : 192.168.91.234   255.255.255.252

Interface3 : GLOBAL   : 192.168.91.230  255.255.255.252

Interface4 : LAN       : 118.97.15.57 /29

DNS ASTINET

203.130.208.18

202.134.1.10

Tampilan route

NAT

Tinggal setting komputer [public]

IPV4 ke 118.97.15.58(-62), gateway 118.97.15.57

Struk SPBU

Belom lama, saudara sepupu kerepotan ketika harus membuat SPJ anggaran. Kuitansi pembelian bensin/pertamax/solar [BBM] raib gak tau entah kemana. Saat dead-line semakin dekat maka solusi "aneh" ditempuh yakni "mencetak struk" sendiri. . . he he he :P
Setelah mencoba beberapa cara, akhirnya sodara tersebut minta juga bantuan ke penulis untuk ikut "terlibat" dalam masalah yang cukup bikin mumet tersebut. Mengingat selama ini penulis banyak berkutat dengan bahasa Delp*i 7 maka ya akhirnya buat juga program untuk mencetak struk SPBU yang nota-bene cap agak abal-abal ini.
Pertama ke images.google untuk nyari "gambar" struk SPBU, lanjut ke nyari huruf [font], dan mulai beraksi. Langsung aja hasilnya ada di 4shared dan freeware lah, source code juga disertakan. Silahkan di modifikasi sesuai kebutuhan.
Berikut ini tampilan rilis program terakhir. . . . .

loading...

Komponen TRKEdit dan TRLKEdit ada fi file RKEdit.pas; silahkan mau diintal [di delphi7] atau di-create saat run-time. 2 font juga musti di-copy-kan ke folder windows\font ya . . .

[update 26 juli 2017] mmm... banyak yg gagal ngedit/mbuka source di form reportnya... itu karna saya pake QuickReport versi 5.xx... Bawaan D7 itu QuickReport versi 3.xx, jadi musti apgred QR nye ke v5.xx ato di-ignore aja, trus sesuaikan ke QR 3.xx

kayaknya perlu disebutin nih : penulis gak bertanggung-jawab atas penyalah-gunaan program ini lho ya . . .


[update 2 Maret 2016]
Setelah mbaca beberapa komentar, program saya coba perbaiki... ada menu Opsi untuk
1. Format tanggal
2. Ubah warna

Tentang warna, sebaiknya pilih warna hitam namun dicetak menggunakan printer kasir [seperti di swalayan itu] hasilnya tentu lebih homogen

[update link 2 Juli 2017 via mediafire]

Waktu Shalat [Delphi 7]

Software untuk mencari waktu shalat sudah banyak, termasuk yang dirilis Depag RI (winhisab). Pernah googling buat nyari source-code menghitung waktu shalat untuk di"tempel" di aplikasi yang selama ini saya buat, ternyata yang ditulis pake Delphi gak ketemu. Trus googling algotima hitungan waktu shalat dan dari sekian banyak algoritma (VSOP87 dan ELP2000 (pergerakan bulan), Meous) menurut saya yang paling praktis itu seperti yang ditulis di googlecode ini. Mengapa praktis? algoritma yang lain masih belom sukses ketika saya tulis di Delphi (mungkin kurang teliti di penulisan tanda kurung di persamaan matematisnya :) ). Dan yang 1 ini sudah pantas buat saya "pamer"kan kepada pembaca (yang mau aja lho).

Buat yang ini menggunakan code saya ini, silahkan ... tentunya dengan tanggung-jawab sepenuhnya ada pada anda sendiri, iya to. . . Kan gak mungkin saya bisa nanggung kalo ada kerugian yang mungkin terjadi dari s/w buatan saya ini to ya . . . he he he

to-do : saya pengin melengkapi dengan semua algoritma untuk pembandingan hasil,jadi tunggu release yang lebih lanjutnya (semoga gak berhenti disini, amin)

ini potongan code-nya

<pre><code>

uses math;

var h,tz,sh  :integer;
    B,L,gd,gn:real;
    subuh,terbit,zuhur,ashar,maghrib,isya:real;

procedure hitung(tgl:TDateTime);
var D,T,R,beta,Z,U,Vd,Vn,W : extended;
    j : integer;

    function YearOf(const AValue: TDateTime): Word;
    var LMonth, LDay: Word;
    begin
         DecodeDate(AValue, Result, LMonth, LDay);
    end;

begin
     j :=Trunc(tgl-EncodeDate(YearOf(tgl),1,1)); //= DayOfTheYear(tgl);
     beta:=2*pi*J/365;
     D :=(180/pi)*(0.006918-(0.399912*cos(beta))+(0.070257*sin(beta))-(0.006758*cos(2*beta))+(0.000907*sin(2*beta))-(0.002697*cos(3*beta))+(0.001480*sin(3*beta)));
     T :=229.18*(0.000075+(0.001868*cos(beta))-(0.032077*sin(beta))-(0.014615*cos(2*beta))-(0.040849*sin(2*beta)));
     R :=15*TZ;
     Z :=12+((R-L)/15)-(T/60);
     U :=(180/(15*pi))*arccos((sin((-0.8333-0.0347*sign(H)*sqrt(abs(H)))*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     Vd:=(180/(15*pi))*arccos((-sin(Gd*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     Vn:=(180/(15*pi))*arccos((-sin(Gn*(pi/180))-sin(D*(pi/180))*sin(B*(pi/180)))/(cos(D*(pi/180))*cos(B*(pi/180))));
     W :=(180/(15*pi))*arccos((sin(arctan(1/(Sh+tan(abs(B-D)*pi/180))))-sin(D*pi/180)*sin(B*pi/180))/(cos(D*pi/180)*cos(B*pi/180)));

     subuh  :=Z-Vd;
     terbit :=Z-U;
     zuhur  :=Z;
     ashar  :=Z+W;
     maghrib:=Z+U;
     isya   :=Z+Vn;
end;

</code></pre>

langsung aja, ini link donlot-nya

[update link 2 juli 2017 via mediafire]