Nugroho's blog.

Thursday, April 12, 2012

Never miss a chance to speak kind words.

Kind words are short and easy to speak, but their echoes are truly endless. - Mother Teresa

Tuesday, April 10, 2012

Hornet

Dia masih ingat rumahnya.

Saat pertama menempati Lazy Home, dia sudah ada di depan rumahku, bernyanyi. Meski menakutkan, kuputuskan untuk tidak mengusirnya, kubiarkan dia tinggal, toh dia memang lebih dulu tinggal di sini.

Dia seekor kumbang, semacam lebah tapi besar. Ada yang menyebut "tawon endhas" (lebah kepala). Dia tinggal di kayu pelisir depan rumahku. Aku jadi harus berhati-hati saat keluar rumah atau masuk rumah karena konon sengatannya bisa sangat menyakitkan dan selalu menyerang bagian kepala. Dan tidak seperti lebah kecil yang mati setelah menyengat (sengatnya adalah tulang belakang, dan akan tertinggal di tubuh kita, jadi lebah alan mati), tawon ini bisa menyengat berkali-kali.

(saat menulis ini, dia sedang terbang mondar-mandir di clauster rumah. Saat akan kupotret mendadak dia mengejarku hingga terbirit-birit ke dapur. Eh, dia membuntuti ke dapur. Maka jadilah aku di sini. Di kamar mandi dengan pintu tertutup rapat.)

Namun kehati-hatianku terbukti tak berguna. Dia tak akan menyengat jika tak diganggu jadi kuanggap dia sebagai penjaga pintu rumahku.

Sekitar dua tahun yang lalu rumahku direnovasi. Bongkar atap sekaligus pelisir (tentu saja) yang lapuk karena rayap. Si Tawon terbang kesana-sini seakan protes tempat tonggalnya digusur, membuat keki para pekerja rumah, hihihi.

Setelah renovasi selesai ternyata si kumbang mulai membangun rumah yang baru dipelisir rumahku yang baru di titik yang sama, wow.

Bulan lalu bagian depan rumah dibongkar total, diganti dengan model cor, tanpa atap. Praktis rumah si kumbang tidak ada lagi bahkan, dengan denah rumah yang baru, rumah si kumbang berada di clauster rumahku, semacam lorong dari ruang tamu ke ruang tengah; tak ada kayu untuk dilubangi. Sebuah penggusuran paksa.

Tadi, saat lihat spongebob, kudengar nguing-nguing suaranya kembali. Dia berada di clauster rumah, weleh. Apakah dia punya semacam bioGPS ditubuhnya?





Keberanian tuk Diam

Courage is what it takes to stand up and speak; courage is also what it takes to sit down and listen. - Winston Churchill

Jalur Ngantang-Malang

Jalur yang berkelok mirip seperti di game real-racing.

Bagi pengendara sepeda motor, jalur ini cocok untuk pamer skill mirip Rossi; menyalip di tikungan. Tidak cocok untuk pamer top speed karena praktis kecepatan rata-rata hanya 80kpj saja.

Bagi pengendara mobil, jalur ini cocok untuk "bersosialisasi"; istilah lain untuk susah mendahului.

Karena secara alami kecepatan rata-rata hanya 60kpj saja, jalur ini cocok untuk berlatih engine-braking, double-clutching, bahkan heel and toe untuk shifting di jalan raya, hehehe.

Monday, April 9, 2012

Array di Delphi

Array dapat digunakan sebagai penyimpanan sementara. Array dapat dipandang sebagai sebuah variabel yang berisi barisan variabel di dalamnya.

Berikut adalah contoh penggunaan array di delphi sekaligus penggunaan listbox dan radiobutton.



Buat sebuah form dengan satu edit, satu button, satut listbox dan tiga radiobutton.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
ListBox1: TListBox;
RadioButton3: TRadioButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
nama:array [0..100] of string;
n:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
radiobutton1.Caption:='input';
radiobutton2.Caption:='tampilkan';
radiobutton3.Caption:='semua';
edit1.Text:='';
radiobutton1.Checked:=true;
button1.Caption:='OK';
n:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if (radiobutton1.Checked=true) and not(edit1.Text='') then begin
listbox1.Items.add(edit1.Text);
n:=n+1;
nama[n]:=edit1.Text;
end;
if radiobutton2.Checked=true then begin
listbox1.Clear;
if (edit1.Text<='9') and (edit1.Text>='0') and not(edit1.Text='') then begin
listbox1.Items.Add(nama[strtoint(edit1.Text)]);
end;
end;
if radiobutton3.Checked=true then begin
listbox1.Clear;
for i:=1 to n do begin
listbox1.Items.Append(nama[i]);
end;
end;
end;

end.


Tolerance (Einstein)

Laws alone cannot secure freedom of expression; in order that every man present his views without penalty there must be spirit of tolerance in the entire population. -Albert Einstein

Simple Animation using Mathematica

Using Manipulate, we are able to create animation using Walfram's Mathematica. Basically it allow a variable to walk along its range.

Here the code, or, for me, a template to create animation.




Manipulate[
Graphics[{
Blue,
Circle[{t, 0}, 1]
},
PlotRange -> {{-10, 10}, {10, -10}},
ImageSize -> {400, 300},
Background -> GrayLevel[0.9],
Axes -> True
],
{t, 0, 5}
]
and here the result

323f (5) amp (1) android (12) apple (7) arduino (18) art (1) assembler (21) astina (4) ATTiny (23) blackberry (4) camera (3) canon (2) cerita (2) computer (106) crazyness (11) debian (1) delphi (39) diary (286) flash (8) fortran (6) freebsd (6) google apps script (8) guitar (2) HTML5 (10) IFTTT (7) Instagram (7) internet (12) iOS (5) iPad (6) iPhone (5) java (1) javascript (1) keynote (2) LaTeX (6) lazarus (1) linux (29) lion (15) mac (28) macbook air (8) macbook pro (3) macOS (1) Math (3) mathematica (1) maverick (6) mazda (4) microcontroler (35) mountain lion (2) music (37) netbook (1) nugnux (6) os x (36) php (1) Physicist (29) Picture (3) programming (189) Python (109) S2 (13) software (7) Soliloquy (125) Ubuntu (5) unix (4) Video (8) wayang (3) yosemite (3)