Bukan Ngirit tapi Efisiensi

Hm, sepertinya tidak ada bedanya

Arloji Alami

Saat berkendara pagi-pagi di jalur ngantang-malang, karena tidak mungkin terus-terusan melihat jam, ada dua jenis penunjuk waktu yang menentukan apakah dapat mencapai SD Lab UM sebelum jam 7

Arloji alami, begitu sering kupikirkan, yang pertama adalah sorot sinar matahari yang sangat jelas akibat efek Tyndall di bukit-bukit Ngantang yang berkabut. Jika sorotnya masih ke atas, itu berarti hari masih pagi, belum jam enam. Sorotnya tepat horizontal, harus ngebut jika tak mau telat. Jika sorotnya ke bawah tak perlu ngebut, toh pasti telat.

Arloji alami lainnya ada di Pujon. Jika setelah pasar sayur pandangan silau, maka kita belum terlambat, jika tidak silau maka matahari sudah terlalu tinggi, harus ngebut.

Never miss a chance to speak kind words.

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

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.

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.