5.24.2010

La-ROn

Musim hujan tiba, namun ada hal yang kadang menjengkelkan usai hujan reda, masalahnya sering munculnya laron atau kadang disebut juga anai-anai yang selalu mencari tempat-tempat yang terang, bergeombol bak sekelompok orang yang sedang berdiskusi saja. bahkan saking banyaknya tak jarang dari laron-laron tersebut jatuh ke lantai (mungkin mereka saling dorong dan saling sikut berdebat masalah yang semakin kusut saja! He..hee…) nah inilah yang membuat rumah-rumah(khususnya didalam ruangan) lampu ikut dipadamkan (walupun sebenarnya PLN sedang tidak giliran padam) tujuannya agar laron tidak masuk ke rumah, bahkan prilaku laron ini juga pernah digambarkan pada lagu ‘jadul’ yang dilantumkan oleh grup band Makara dengan vokalisnya Harry Mukti, masyarakat urban yang mendatangi kota-kota yang penuh ‘gemerlap lampu’ untuk mendapatkan kehidupan yang lebih baik.

Hewan ini katanya keluarga jauh semut, dalam istilah ‘bule’ laron tergolang sebagai ‘white ant’ atau semut putih . namun kali ini ada yang menarik perhatian dari prilaku laron ini (kutemukan dibelakang rumah sedang ‘rapat’ dilantai tembok belakang rumah,entah apa yang mereka diskusikan mungkin mereka membicarakan bagaimana menyelamatkan sang ratu yang sudah tidak ada yang mengencani lagi he..he..he..), Lihat hasil jempretan ini.














Ngeblog Pahe (Blogging hemat Biaya)

Untuk menghemat biaya koneksi internet banyak cara dilakukan (tidak berlama-lama online), apalagi kalau cuma nge Blog (kadang kalau membuat tulisan sering banyak mikir). Cara yang paling sederhana adalah dengan membuatnya secara offline. Sehingga PC atau laptop tidak perlu tersambung ke Internet.

1. Mulailah membuat draft tulisan dengan menggunakan Ms Word atau teks editor yang sudah tersedia di computer atau laptop.
2. Apabila tulisan yang akan dipublish menggunakan gambar, siapkan gambar pula ke dalam satu folder (supaya gampang mencarinya).
3. Lalu apabila tulisan sudah selesai, koneksikan pc atau laptop ke Komputer, login ke blog, buat postingan baru.
4. Kemudian copy tulisan yang sudah dibuat tadi dan paste ke postingan. Lalu Send !

Ini adalah salah satu cara yang sangat sederhana dan praktis, khususnya bagi pengguna yang menggunakan model Timebase untuk berlangganan Internet.

Semoga bermanfaat!


5.14.2010

Parah!

Untuk ‘komit’ selalu mengisi halaman blog ternyata sangat berat (bagi ku), hik! Apalagi kalau kesibukan mulai menyedot pikiran dan energi, terpaksa blog terabaikan. Walaupun hanya beberapa kata dan kalimat saja rasanya berat untuk memulainya. Beberapa bulan blog http://ruangsemedi.blogspot.com terbengkalai. Ayo semangat, mari mulai menulis lagi. Hidup blog! ruaaaa……aaaaaaaaarrrrrrrrrrrrr biasa! Seperti orang bijak bilang ‘kita yang mengendalikan waktu, bukan waktu yang mengendalikan kita” semoga saja bermanfaat.

1.06.2010

Menggunakan VBScript di Excel untuk perhitungan Tanggal (1)

VBScript adalah salah satu fasilitas yang dapat meningkatkan kemampuan MS Office khususnya MS Excel dalam melakukan perhitungan-perhitungan yang 'rumit' disamping itu proses terpisah dan 'disembunyikan pada bagian lain'. berbekal pengetahuan tentang bahasa pemrograman Visual basic, maka VBscript dapat dilakukan dengan mudah.

Dalam pemakain worksheet di ms excel selalu dijumpai perhitungan-perhitungan yang berhubungan dengan tanggal, baik hanya sebagai pengingat dokumen maupun sebagai perhitungan (umur transaksi).
Misalnya untuk menghitung akhir masa kontrak , biasanya yang dilakukan adalah dengan sbb misal Tgl. Transaksi : 16 Agustus 2007 (dikolom A1), Lama kontrak 4 tahun (di Kolom B1) untuk menghitung tanggal berakhirnya adalah dengan : =A1+(B1*12*30), dimana 12 adalah jumlah bulan/dan 30 adalah jumlah hari dalam 1 bulan (diambil genapnya) kemudian hasilnya berupa angka, lalu format tanggal hasilnya menjadi 26 Juli 2011 dan proses selesai.
namun kalau kita amati jelas hasilnya jauh berbeda, hal ini disebabkan perhitungan hari masing2 bulan yang mengakibatkan terjadi perbedaan yang mencolok, apalagi dijumpai pada masa kontrak terdapat tahun kabisat (tahun yang habis dibagi 4, jumlah hari pada bulan feb adalah 29 hari). lihat gambar simulasi berikut ini.

Untuk mengatasi masalah ini kita dapat memanfaatkan VBscript yang sudah tersedia di ms Excel. untuk membuat VBscript yang di ms excel (2000-2003) yang dikenal dengan istilah Macro dapat dilakukan sbb :
buatlah terlebih dahulu worksheet baru lalu isikan data-data berikut ini seperti pada gambar berikut ini :



lalu untuk membuat untuk membuat makro dapat dilakukan langkah-langkah dibawah ini :
- Menu Tools, Macro, Pilih Visual Basic Editor
- Klik MS Excel Object
- Klik Kanan, Pilih Insert
- Pilih Modul
lalu ketikkan vbscript berikut ini : klik vbScript disini

11.17.2009

Repainting

Perjalanan ke Bali beberapa waktu yang lalu menginspirasi untuk membuat lukisan yang sama berbekal camera digital, beberapa lukisan terduplikasi sebagai koleksi walaupun hasilnya tak sehebat aslinya. ada juga lukisan lain atas permintaan teman untuk diduplikasi.



Lukisan Kakek & Topeng karya Bambang S





















11.05.2009

Sliding Teks

Ide membuat Sliding teks ini terinspirasi dari iklan berbentuk banner yang sering muncul di halaman-halaman web. Dengan VB6 hal ini juga dapat dibuat, dengan memanfaatkan beberapa componen control, maka bentuk banner dapat dibuat dengan mudah.

Untuk membuat Sliding teks, dibutuhkan 3 komponen untuk proyek ini. Pertama picture box, label dan command Button.
1. Picture Box : digunakan untuk membuat frame teks, sehingga posisi teks sebagai fokus utama tidak berubah walaupun dipindahkan ke tempat lain.
2. Label1 : digunakan untuk fokus utama banner.
3. command button : Untuk menggerakan posisi banner

Pertama, buatlah satu projek di VB, lalu letakkan komponen picture box pada form tersebut.
Tambahkan komponen label didalam komponen picture box tadi. lalu tambahkan lima buah komponen. lihat gambar berikut :
selanjutnya tambahkan kode program untuk masing-masing command button.

Dim i As Integer, nT As Integer, nL As Integer, J As Integer
Private Sub cmdKanan_Click()
For i = Label1.Left To 8000
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdKiri_Click()
For i = Label1.Left To -5500 Step -1
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdNaik_Click()
For i = Label1.Top To -850 Step -1
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub



Private Sub cmdNormal_Click()
Label1.Top = 870
Label1.Left = 600
End Sub
Private Sub cmdTurun_Click()
For i = Label1.Top To 3000
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub Form_Load()
nT = 0
nL = 0
End Sub


10.30.2009

Merubah Default Printer saat run time di VB

Untuk merubah default printer pada saat runtime di VB sangat sederhana. ikuti langkah berikut ini :
1. Buat satu file project di VB
2. Lalu tambahkan satu tombol button
3. reference ke c:\windows\system32\wshom.ocx
4. tambahkan kode Program berikut ini

Private Sub Command1_Click()
Dim MyPrinter As New WshNetwork
MsgBox "Printer yg aktif sekarang -> " & Printer.DeviceName
MyPrinter.SetDefaultPrinter ("hp color LaserJet 2550 PCL 6") '
MsgBox "Printer yg aktif sekarang ->" & Printer.DeviceName
End Sub