Aplikasi di atas adalah aplikasi sederhana untuk membuat avatar dukungan terhadap Ahok. Silahkan Pilih Template untuk memilih jenis template, Pilih File Untuk mengunggah foto. Foto anda bisa di geser2 agar penampilan lebih Pas. Klik Simpan jika sudah sesuai. Jika browser membuka window baru berisi gambar hasil, gambar tersebut dapat disimpan di komputer anda menggunakan shortcut Ctrl+S.
Komentar, masukan, saran, kritik dan sebagainya dari anda sangat diharapkan. Selamat mencoba.

Terima Kasih

Aplikasi di atas adalah aplikasi untuk transliterasi Aksara Bali. Mungkin dalam berbagai hal aplikasi ini masih memerlukan pembenahan.
Komentar, masukan, saran, kritik dan sebagainya dari anda sangat diharapkan. Selamat mencoba.

Update : Aplikasi ini sudah dibuat dalam versi Android, lebih update dari yang ada di blog ini. Untuk pengguna android silahkan install dari Play Store, cari aplikasi dengan keword : com.agusmade.aksarabali
atau klik link ini https://play.google.com/store/apps/details?id=com.agusmade.aksarabali.

Update Lagi (April 2020): Mohon maaf, Aplikasi berbasis web ini sudah tidak jalan, karena tempat hosting dropbox yang tadinya digunakan untuk menampung font tidak mengijinkan CORS lagi.

Namun bagi pengguna Android, saya sudah buat aplikasi Android yang lebih mutakhir, support unicode, jadi bisa copas ke aplikasi lain. Bisa konversi Aksara Bali ke Tulisan Latin, bisa bikin kartu ucapan menggunakan Aksara Bali, dan berbagai fitur lainnya.
Temukan di playstore, gunakan keword: com.agusmade.anaksarabali atau klik link ini https://play.google.com/store/apps/details?id=com.agusmade.anaksarabali.

Terima kasih

aseli bikkinan agus made

Untuk berbagai kepentingan, kita sering memerukan aplikasi praktis dan simple untuk menggantikan aktivitas mudah, sangat sering dilakukan namun cukup memakan waktu.
Sebagai contoh membersihkan file2 yg tidak berguna dari project directory, meng-compile source code, konversi data/file, hide/unhide folder dan seluruh strukturnya, mempublish web via ftp dan masih banyak lagi aktivitas rutin dan mudah yang menyita banyak energi.

Untuk kepentingan ini saya sering menggunakan batch file (*.bat -- yang berisi kumpulan perintah dos, atau command line terhadap program) untuk melakukannya. kalo perlu saya membuat sebuah aplikasi yang mendukung command line (sudah tentu dg delphi), untuk kemudian saya panggil melalui batch file.

Sesungguhnya selain batch file, masih ada Windows Scripting Host (WSH) dan Powershell (untuk dot net). dua yg terkhir ini lebih kompleks dan mendukung GUI (Graphical User Interface) sederhana.
Aktivitas Mengetik daftar berintah baris demi baris pada sebuah file yang nantinya file tersebut melakukan aktivitas pengganti pekerjaan tangan yg menjemukan kita sebut saja sebagai Batch Programming (saya lupa dapat istilah ini dari mana).

berikut adalah gambaran bagaimana bekerjanya Batch File dan WSH


moga suatu waktu kita sempat membahas lebih detail tentang Batch Programming. untuk sementara saya berikan beberapa link yang mungkin berguna untuk dijadikan referinsi, antara lain :
An A-Z Index of the Windows XP command line
DOS Command Index
Batch Scripts for Windows
Windows PowerShell Blog
PowerShell.com ==> Script Library

semoga bermanfaat
Agus Made K (http://agusmade.blogspot.com)

GPS adalah Global Positioning System, merupakan sebuah system penanda lokasi tertentu berdasar Koordinat Bumi. Moga suatu saat kita bisa bahas lebih detail tentang system ini. untuk sementara berikut adalah contoh Aplikasi yg sudah saya bikin, guna mengelola data GPS.

Karena software ini masih langkah awal dan hanya untuk kepentingan teman-teman yg baru sibuk dimojokerto saja, jadi kayaknya perlu banyak pembenahan:

kali ini baru satu kali mengalami pembenahan, pada:
1. Handle Track Log.
2. Auto renaming symbol, (Oya Pak Adi jangan lupa cek Setting dulu sebelum buka file pertama kali, biar sampean gak bingung)
3. Memory Lack, untuk data banyak (sekarang dah lebih kuat dari excel)

Pak Pur, Pak Adi atau Fu'ah silahkan download lagi aja softwarenya :
Klik di sini untuk download yg baru, sedangkan

yang lama klik ini. terima kasih.

aseli bikinan agus made

Pastikan paket komponen JVCL sudah terinstal pada delphi anda, jika belum silahkan download di : http://jvcl.sourceforge.net dan ikuti langkah instalasinya.

Jika semua sudah beres, kini kita mulai.

buat program baru, dan tambah kan dua form lagi, hingga program kita terdiri dari tiga Form. Jangan lupa set ukuran Form2 dan Form3 lebih kecil dari Form1 (sekitar 250x250an), dan set properti "formstyle"-nya menjadi "fsStayOnTop" karena ke dua form ini akan dijadikan Dockable Form.

pada Form1 (form utama) tambahkan dua buah Button, dan komponen TJvDockServer ( dari tab "Jv Docking" dikomponen palette), tambahkan juga salah satu komponen Dock Style (misalnya TJvDockVIDVCStyle).

set property JvDockServer1.DockStyle=JvDockVIDVCStyle1

pada Form2 tambahkan komponen TJvDockClient (juga dari tab "Jv Docking").

hubungkan Form2 dengan Form1, bisa dilakukan dengan menambahkan "Unit1" pada "uses" atau pilih menu "File | Use unit" kemudian pilih unit1.

set property JvDockClient1.DockStyle=Form1.JvDockVIDVCStyle1

lakukan hal yang sama (seperti Form2) untuk Form3.

beri event OnClick pada Button1 dan Button2 yang ada di Form1 untuk menampilkan masing-masing untuk menampilkan Form2 dan Form3.

kurang lebih begini :

//...
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
//...

selesai.

Jalankan program, klik Button1 dan Button2, arahkan ke dua Form ini ke pinggir Form1 lihat hasilnya.

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

aseli bikinan agus made

Saatnya kita belajar implementasi OLE Automation, kali ini kita belajar cara sederhana mengendalikan Photoshop dari aplikasi yang kita buat dengan Delphi. Saya belum tahu mulai Photoshop versi berapa yang mendukung ini, yang jelas dengan Photoshop CS, tidak ada masalah.

Mula-mula jalankan Photoshop pada komputer anda, buka file gambar.

Buat program dengan delphi, tambahkan sebuah "Button" pada form, tambahkan "ComObj" pada "uses", beri event OnClick pada "Button", perhatikan source code berikut :

uses
//...
ComObj
//...

//...
procedure TForm1.Button1Click(Sender: TObject);
var
PhotoShop: OLEVariant;
begin
try
PhotoShop := CreateOleObject('Photoshop.Application');
except
ShowMessage('Error...');
Exit;
end;
//contoh GaussianBlur
PhotoShop.activeDocument.activeLayer.applyGaussianBlur(5);
end;
//...

Jalankan program anda, Klik Tombol-nya dan lihat di Photosop, gambar akan menjadi 'mblawur' karena efek "applyGaussianBlur" yang diperintahkan oleh program anda. Gampang khan?

Anda juga bisa memberikan efek lain, atau memberikan aktivitas lain pada Photoshop, untuk lebih jelasnya silahkan baca "Scripting Guide" pada Photoshop.

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

aseli bikinan agus made

Kali ini kita belajar cara sangat sederhana membuat aplikasi 3D dengan OpenGL menggunakan Delphi dan GLScene. Latihan ini akan sangat tidak berguna jika anda sudah mahir, tapi jangan protes dulu, saya belum banyak melihat teman-teman membuat aplikasi Tiga Dimensi apalagi pake Delphi.

Seperti biasa, saya berasumsi GLScene sudah terinstal dengan baik pada delphi anda, kalo belum silahkan kunjungi web resmi GLScene di http://glscene.org/, download versi terbaru yang cocok dengan delphi anda dan ikuti petunjuk instalasinya.

Karena kemudahan menggunakan GLScene, anda tidak diwajibkan untuk tahu apa itu OpenGL, bagaimana menggunakannya apalagi bagaimana ia bekerja. namun jika anda tertarik untuk tahu lebih jauh silahkan kunjungi http://www.opengl.org/.

Langsung saja, buat proyek baru dengan delphi, tempatkan beberapa komponen, pada form anda, komponen-komponen tersebut antara lain: TGLScene,TGLSceneViewer dan TAsyncTimer (yang semuanya terdapat pada komponen palette "GLScene").

---

Double Click komponen "GLScene1", akan tampil dialog "GLScene Editor".

Pada "Object Treeview" pilih "Scene objects", klik kanan, pilih "Add object | DummyCube".

pilih "DummyCube1" (yang baru anda buat), klik kanan, pilih "Add object | Special objects | SpaceText".

pilih "SpaceText1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
Text="Agus Made Krisna" // ini cuma contoh, "AgusMade" saja juga boleh... :-)
Material.FrontProperties.Emission.Blue=0.718 // warnanya agak biru.
Position.X=-3.6 // geser ke kiri dikit.

kembali ke dialog "GLScene Editor" pilih "Scene objects", klik kanan, pilih "Add object | LightSource".

pilih "GLLightSource1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
Position.X=-2 // geser ke kiri dikit.
Position.Y=3 // geser ke atas dikit.
Position.Z=4 // geser ke depan dikit.

kembali lagi ke dialog "GLScene Editor" pilih "Cameras", klik kanan, pilih "Add camera".

pilih "GLCamera1" (yang baru anda buat), set Property-nya pada "Object Inspector" :
TargetObject=DummyCube1 // geser ke kiri dikit.
Position.X=-4 // geser ke kiri dikit.
Position.Y=-1 // geser ke bawah dikit.
Position.Z=3.5 // geser ke depan dikit.

---

Jika sudah, tampilan dialog "GLScene Editor" kira2 akan begini :

dialog "GLScene Editor" sudah boleh ditutup. Klik "GLSceneViewer1" pada form set property Camera=GLCamera1

Akhirnya tampillah dia :
Pada dasarnya program sudah bisa dijalankan tanpa harus mengetik source code sedikitpun. Namun sebagai programmer, masak bikin program hanya klak-klik saja... :-) Kita beri animasi berputar, (sekedar contoh Animasi 3D). Langkah2nya :
Pilih "AsyncTimer1" pada form, set property:
Enabled=True
Interval=1

beri "AsyncTimer1" Event "OnTimer" :

procedure TForm1.AsyncTimer1Timer(Sender: TObject);
begin
DummyCube1.Turn(1);
end; 

Sudah selesai, gampang khan?... Oke, Jalankan program maka tampil Tulisan3D berputar :
silahkan download source code untuk Aplikasi ini disini

Terima kasih
Agus Made K (http://agusmade.blogspot.com)

Aku baru saja rampung bikin komponen delphi, untuk zeos dengan tujuan khusus, Backup dan Restore tabel. ya TamZBackup ini di buat karna terlalu banyak masalah saat menggunakan TZBackup (namanya kalo gak salah) bawaan zeos. dengan menggunakan pola yang sama yaitu SQLDump. Bug kecil pada TZBackup seperti :
1. Pemberian nilai null untuk filed yang memiliki nilai string kosong (''). Masalah ini akan terasa saat hasil backupnya kita restore, apa bila field ybs adalah pimary key.
2. Menyertakan semua field dalam SQLDump. hal ini hanya menyebabkan data backup-an ukurannya lebih besar. Jangan anggap sepele masalah ini. Pada salah satu proyek, aku ngalami selisih sampai 20MB.

Sudah diatasi dengan baik oleh komponen TamZBackup, moga gak ada bug, apalagi yang lebih parah. :)

Jadi hamat saat backup, aman saat restore. oke...
komponen beserta source codenya bisa di download sini

Don't take this page too seriously.... It is the umpteenth variation on the well-known theme "how do I shoot myself in the foot" using Fortran, VB,...you name it. Most of the items were shamelessly plucked of the internet. Of course, Pascal and Delphi come out rather good in the comparison...

All credits to (unknown) original author. Additions made by several others, and by myself

How to Shoot Yourself in the Foot, using:

370 JCL
You send your foot down to MIS with a 4000-page document explaining how you want
it to be shot. Three years later, your foot comes back deep-fried.

6502
You shoot yourself in the foot.

68000
You can't decide which gun and which bullet to use, so you hang yourself.

8080
You foot yourself in the shoot.

80x86
The gun isn't in the same segment as your feet, so you can't shoot them.

Ada
After correctly packing your foot, you attempt to concurrently load the
gun, pull the trigger, scream, and shoot yourself in the foot. When you
try, however, you discover you can't because your foot is of the wrong
type.

APL
You shoot yourself in the foot, then spend all day figuring out how to
do it in fewer characters.

Access
You try to point the gun at your foot, but it shoots holes in all your
Borland distribution diskettes instead.

ActiveX
Ole_Registration_Error: Cannot find object "ActiveFoot",download
the latest drivers.

Assembler
You try to shoot yourself in the foot, only to discover you must first
invent the gun, the bullet, the trigger, and your foot.

Basic(interpreted)
You shoot yourself in the foot with a water pistol until your foot is
waterlogged and rots off.

Basic(compiled)
You shoot yourself in the foot with a BB using a SCUD missile launcher.

Visual Basic
You'll really only appear to have shot yourself in the foot, but you'll
have had so much fun doing it that you won't care.

C
You shoot yourself in the foot.

C++
You accidentally create a dozen instances of yourself and shoot them all
in the foot. Providing emergency medical care is impossible since you
can't tell which are bitwise copies and which are just pointing at
others and saying, "That's me over there."

Cobol
USE HANDGUN.COLT(45), AIM AT LEG.FOOT, THEN WITH ARM.HAND.FINGER ON
HANDGUN.COLT(TRIGGER) PERFORM.SQUEEZE RETURN HANDGUN.COLT(45) TO
HIP.HOLSTER.

Concurrent Euclid
You shoot yourself in somebody else's foot.

dBase
You buy a gun. Bullets are only available from another company and are
promised to work so you buy them. Then you find out that the next
version of the gun is the one that is scheduled to actually shoot
bullets.

Delphi

MyFoot := TFoot.Create( Self );
Gun    := TGun.Create( .45, SOFT_NOSED_BULLETS, 6 );
Gun.Aim( Self.MyFoot);
while Gun.BulletsAvailable  do
     Gun.Shoot( Self.MyFoot ); 

FORTH
Foot in yourself shoot.

FORTRAN
You shoot yourself in each toe, iteratively, until you run out of toes,
then you read in the next foot and repeat. If you run out of bullets,
you continue anyway because you have no exception handling ability.

HTML
<a target="http://body/lower-half/leg/foot.appendage">Shoot here</a>

HyperTalk
Put the first bullet of the gun into the foot left of leg of you. Answer
the result.

Java
The gun fires just fine, but your foot can't figure out what the bullets
are and ignores them.

LISP
You shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds the gun with
which you shoot yourself in the appendage which holds...

Microsoft

>ActiveX Object "Foot" not found.
>"Foot" will possibly be included in the next release.
>You can upgrade for $500.
>Press OK to Retry or Esc to cancel.

Modula2
After realizing that you can't actually accomplish anything in this
language, you shoot yourself in the head.

Motif
You spend days writing a UIL description of your foot, the trajectory,
the bullet, and the intricate scrollwork on the ivory handles of the
gun. When you finally get around to pulling the trigger, the gun jams.

NeXT
We don't sell guns anymore, just ammunition.

Paradox
Not only can you shoot yourself in your foot, your users can, too.

Pascal
The compiler won't let you shoot yourself in the foot.

Perl

1. You go to CPAN and download Geek, Body::Foot, Gadgets:Gun and
Accesories::Bullet modules.
2. Then:
#!/usr/bin/perl -w
use strict;
use Geek;
use Body::Foot;
use Gadgets::Gun;
use Accesories::Bullet;

my $me = Geek->getBorn($ENV{'USER'});
my $foot = $me->{parts}->{feet}->[0];
die "No feet (maybe both were cut off?), stopped"
     unless defined $foot;
my $gun = ($me->{money} >= Gadgets:Gun::price ? Gadgets:Gun->buy() : Gadgets:Gun->steal);
my @bullets = map { Accesories::Bullet->new() } (0..5);

$gun->load(\@bullets);
while ($gun->{bullets})
{
 $gun->shoot($foot);
 last if $foot->shot();
}
print "Looser!\n" unless $foot->shot();

PL/1
After consuming all system resources including bullets, the data
processing department doubles its size, acquires 2 new mainframes and
drops the original on your foot.

Prolog
You tell your program that you want to be shot in the foot. The program
figures out how to do it, but the syntax doesn't permit it to explain it
to you.

Smalltalk, Actor, et al
After playing with the graphics for 3 weeks, the programming manager
shoots you in the head.

SNOBOL
If you succeed, shoot yourself in the left foot. If you fail, shoot
yourself in the right foot.

Sun
Just as soon as Solaris gets here, you can shoot yourself anywhere you
want.

Unix

% ls
foot.c foot.h foot.o toe.c toe.o
% rm * .o
rm: .o: No such file or directory
% ls
%

or :

% ls -a --color
man src MakeFile
% rm * .o
rm .o: No such file or directory
% make ShootFoot; make INSTALL

XBase
Shooting yourself is no problem. If you want to shoot yourself in the
foot, you'll have to use Clipper.

Windows95

  >shoot self in foot
  I don't see any self here.

  >shoot me in foot
  There is no you in the foot.

  >shoot foot
  I don't know which foot you're talking about.

  >shoot left foot
  You don't have the gun.

  >get gun
  You take the gun.
  You're lantern just went out.
  * * * YOU HAVE DIED * * *
  Press OK to confirm.

sumber :
http://noncorporeal.com/people/pathfinder/shoot_yourself_in_the_foot.html
http://users.pandora.be/dirk.claessens2/howto.htm
http://www.cs.bgu.ac.il/~omri/Humor/shoot.html
http://www.netfunny.com/rhf/jokes/90q4/shf4.html
http://www.progress.demon.co.uk/Fun/shoot-foot.html
http://paul.merton.ox.ac.uk/computing/foot-lang.html
http://m5p.com/~pravn/foot.html