Cenadep.org

Jangan naif, bro…

Saya cuma menulis tentang Midlet Pascal, sebuah IDE untuk menulis aplikasi mobile yang memiliki Java Virtual Machine (JVM). Midlet Pascal menggunakan antarmuka bahasa pemrograman Pascal, namun saat kompilasi, kode-kode akan dikompilasi ke bytecode java, dan otomatis file-file executable java (jad & jar) akan dibuatkan untuk kita.

Midlet Pascal awalnya adalah software komersil yang dipublikasikan oleh developernya di www.midletpascal.com, namun website ini sekarang sangat sering down. Oleh developernya, Midlet Pascal kemudian dirilis di ke publik sebagai open source, dan dihostingkan di Source Forge.

Saya sendiri belum familiar dengan Midlet Pascal ini. Tapi yang namanya pengalaman kan memang bagus kalau dibagi. Dari internet, saya temukan sebuah artikel tentang Fun Sex Toys You Already Own. Nomor 1: Handphone!! Saya sempat ketawa. Gak lah, gak mau saya memasukkan hendphone ke lubang apa saja, kecuali kantong dan charger… wkwkwkwkwkw….:D

Tapi ternyata yang dimaksud di artikel itu, vibrasi/getaran ketika ada panggilan masuk dapat digunakan sebagai pemicu orgasme…. (sok dewasa dikit boleh ya…). Nah, masa tiap mau dipake musti ditelpon dulu? Gak lucu ah…

Walhasil menjelang tidur saya dapat ide, bikin aplikasi vibrator untuk keperluan “khusus” ini. Tak jadi tidur, bangun lagi, ambil handphone (Sony Ericsson W880i) yang java-enabled, sambungkan via USB ke PC, dan mulai mendownload Midlet Pascal. Selesai. Saya lanjutkan dengan instalasi kurang-lebih 30 detik. Beres, mulai siapkan library yang diperlukan: vibra!

Btw, sebelum lanjut, ini tampilan Midlet Pascal:

Saya mulai membuat projek baru:

Dan saya beri nama xvibrator

Kemudian langsung saja saya ketik kodenya.

1. Menambahkan unit vibra ke klausa uses.

   uses vibra;

2. Kemudian membuat sebuah prosedur untuk membersihkan layar.

   procedure cls();
   begin
   setcolor(255,255,255);
   fillrect(0,0,getwidth,getheight);
   end;

3. Di Main Code, berikut yang saya ketikkan:

   setcolor(0, 0, 255);
   drawtext(‘XVibrator 1.0′,2,2);
   setcolor(0, 0, 0);
   repaint;
   delay(500);
   drawtext(‘Tekan 1 -> mulai vibrasi.’,2,32);
   drawtext(‘Tekan * -> Berhenti’,2,52);
   repaint;
   delay(100);
   while getKeyPressed <> KE_KEY1 do
   begin
   delay(100);
   end;

   Ini untuk menampilkan info menu, dan menunggu user menekan tombol 1 pada keypad hp.

4. Bila user sudah menekan angka 1, mulai lakukan vibrasi sampai user menekan tombol * di keypad.

   cls;
   setcolor(0,0,255);
   repaint;
   drawtext(‘XVibrator 1.0′,2,2);
   setcolor(0, 0, 0);
   drawtext(‘Menggetarkan….’,2,52);
   repaint;
   while getKeyPressed <> KE_STAR do
   begin
   vibrate(2);
   end;

5. Bila user telah menekan tombol * maka vibrasi dihentikan, tampilkan informasi dan akhiri aplikasi:

   cls;
   setcolor(255,0,0);
   repaint;
   drawtext(‘XVibrator 1.0′,2,2);
   setcolor(0, 0, 0);
   drawtext(‘Vibrasi selesai.’,2,52);
   repaint;
   delay(4000);

Ini kode lengkapnya:

program xvibrator;
uses vibra;

procedure cls();
begin
setcolor(255,255,255);
fillrect(0,0,getwidth,getheight);
end;

begin
setcolor(0, 0, 255);
drawtext(‘XVibrator 1.0′,2,2);
setcolor(0, 0, 0);
repaint;
delay(500);
drawtext(‘Tekan 1 -> mulai vibrasi.’,2,32);
drawtext(‘Tekan * -> Berhenti’,2,52);
repaint;
delay(100);
while getKeyPressed <> KE_KEY1 do
begin
delay(100);
end;

cls;
setcolor(0,0,255);
repaint;
drawtext(‘XVibrator 1.0′,2,2);
setcolor(0, 0, 0);
drawtext(‘Menggetarkan….’,2,52);
repaint;
while getKeyPressed <> KE_STAR do
begin
vibrate(2);
end;
cls;
setcolor(255,0,0);
repaint;
drawtext(‘XVibrator 1.0′,2,2);
setcolor(0, 0, 0);
drawtext(‘Vibrasi selesai.’,2,52);
repaint;
delay(4000);
end.

Setelah selesai, saya build

Proses Build berakhir sempurna.

Oke. Sebelum masuk ke Si Vivi, saya tes dulu di emulator. Saya menggunakan microemulator. Oh ya, Si Vivi itu nama handphone SE W880i milik saya :p

Saya klik Start:

Dan mulailah xvibrator bekerja. Tapi sayangnya, di microemulator efek vibrasi tak terasa. Jadi saya simpulkan bahwa xvibrator harus dimasukkan ke Si Vivi wkwkwkwkw…

Setelah masuk ke Si Vivi, saya install, dan jalankan. Wow, getarannya mantap gan..!

Itu saja yang dapat saya tulis sementara ini. Maklum masih newbie di Midlet Pascal.

Download

Download Midlet Pascal
Download MicroEmulator
Download vibra library unit

Lib_Vibra.ppt hasil download berekstensi .ppt, Anda harus menggantinya ke .class, sehingga menjadi Lib_vibra.class. File ini harus diletakkan di folder Libs dalam direktori instalasi Midlet Pascal.

Penggunaan

Simpel aja. Getarkan, dan tempel!

Selamat ber-kode ria (abis itu jangan ber-xxx ria….)
Salam hangat Delphi

Beberapa waktu lalau ada yang nyasar ke blog ini dengan sebuah pertanyaan: “listing delphi untuk angka dibelakang koma….”

Nah, saya tulis saja

Untuk memformat angka pecahan, terutama dalam aplikasi akuntansi, kita dapat menggunakan fungsi format float:

FormatFloat(const AFormat:String; const AValue: Extended): String;

Di mana,

 AFormat = 'FORMAT_ANGKA_POSITIF;FORMAT_ANGKA_NEGATIF;FORMAT_0';
 

Saya telah membuat potongan kode untuk mempermudah:

function FinaceFloat(const AValue: Double): String;
var
simpan: array[1..2] of char;
begin
simpan[1]:=ThousandSeparator;
simpan[2]:=DecimalSeparator;
ThousandSeparator:='.';
DecimalSeparator:=',';
Result:=FormatFloat('#,#0.00   ;(#,#0.00)  ;-    ', AValue);
 ThousandSeparator:=simpan[1];
DecimalSeparator:=simpan[2];
end;
 

Berikut contoh penggunaanya:

Edit2.Text:=FinaceFloat(StrToFloat(Edit1.Text));
Edit4.Text:=FinaceFloat(StrToFloat(Edit3.Text));
Edit6.Text:=FinaceFloat(StrToFloat(Edit5.Text));

Hasilnya:

Malas membaca? Langsung Download Source Code + Exe.

Posting ini buat menjawab pertanyaan seorang rekan Delphier.

FixedRow pada DBGrid default bawaan Delphi memang terlihat membosankan. Nah kita coba membuat tampilan yang lebih menarik.

Langkah-Langkahnya:

1. Buat Form baru. Tambahkan sebuah panel (page Standard) dan kosongkan property Caption.
   
2. Tambahkan sebuah Header Control (page Win32) ke dalam panel tersebut. Set property Height menjadi 25, property Cursor menjadi crHandPoint, dan property Style menjadi hsButtons. Tambahkan juga sebuah ImageList (page Win32) ke form.
    
   Klik ganda ImageList1, tambahkan beberapa gambar berukuran 16 x 16 pixel.
   
3. Kini Tambahkan sebuah DBGrid (page Data Controls) ke dalam Panel1. Set property Align ke alClient.
    
   Lihat property Options milik DBGrid1, set property dgTitles ke False:
    
   dan hasilnya, tampilan form sekarang menjadi:
    
4. Klik ganda pada DBGrid, tambahkan Column sesuai kebutuhan.
   
   Klik ganda juga pada HeaderControl1, tambahkan Section  sesuai kebutuhan.
   
   Atur property Width untuk tiap Column pada DBGrid1, sesuaikan dengan property Width untuk tiap Section pada HeaderControl1.
    
5. Set property Images milik HeaderControl1 ke ImageList1. Kemudian klik ganda HeaderControl1. Klik salah satu Section dan atur property ImageIndex dengan gambar yang sesuai:
   
   Lakukan dengan Section yang lain.
6. Klik pada HeaderControl1 dan klik tab Events pada Object Inspector. Klik ganda pada event OnSectionClick:
   
   Masukkan kode seperti berikut:

procedure TForm1.HeaderControl1SectionClick(HeaderControl: THeaderControl;
  Section: THeaderSection);
begin
  ShowMessage(‘Anda mengklik pada: ‘+ Section.Text);
end;

7. Jalankan program.
   

Bagaimana? Menarik?
Selanjutnya tinggal mengatur DataSource dan Dataset untuk DBGrid buat menampilkan data dari database. Selamat melanjutkan.

Berikut referensi yang mungkin membantu Anda:

• http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23318783.html
• http://www.scalabium.com/smdbgrid.htm

Download Source Code + Exe – [ 347 KB ]

File ini sesungguhnya adalah file .zip. Jadi setelah didownload harus diganti ekstensi filenya dari .ppt ke .zip. Jangan lupa discan dulu sebelum diekstrak.