2012 in review

31 Desember 2012

The WordPress.com stats helper monkeys prepared a 2012 annual report for this blog.

Here’s an excerpt:

600 people reached the top of Mt. Everest in 2012. This blog got about 2.100 views in 2012. If every person who reached the top of Mt. Everest viewed this blog, it would have taken 4 years to get that many views.

Click here to see the complete report.


Cara Instal Ubuntu

15 Oktober 2011

Cara Install Ubuntu

 

 


Membuat Jam dan Bulan dengan VB

21 Januari 2011

Buatlah form seperti pada gambar dibawah:

Setelah membuat tampilan seperti pada gambar, masukan listing dibawah ini.

Dim sHari As String
Dim aHari

Private Sub Form_Load()
aHari = Array(“Minggu”, “Senin”, “Selasa”, “Rabu”, _
“Kamis”, “Jumat”, “Sabtu”)
Timer1.Interval = 500 ‘Set property interval
Timer1.Enabled = True ‘Aktifkan jika belum…
End Sub

Private Sub Timer1_Timer()
sHari = aHari(Abs(Weekday(Date) – 1))
Label1.Caption = “” & sHari & “, ” _
& Format(Date, “dd mmmm yyyy”)
Label2.Caption = Format(Time, “hh:mm:ss”)
End Sub


Cara Membuat Stop Watch Dengan VB

21 Januari 2011

Buatlah Sebuah Form Seperti Pada Gambar.

Setelah Membuat Tampilan Seperti pada Gambar, Masukan Listing Program Berikut:

Option Explicit

Private Sub Command1_Click()
Select Case Command1.Caption
Case “Start”
Timer1.Enabled = True
Command1.Caption = “Stop”
Case “Stop”
Timer1.Enabled = False
Command1.Caption = “Start”
End Select
End Sub

Private Sub Timer1_Timer()
text1.Text = text1.Text + 1
End Sub

Private Sub text1_Change()
If text1.Text = “59” Then
text1.Text = “00”
text2.Text = text2.Text + 1
End If
text1.Text = Format(text1.Text, “00”)
End Sub

Private Sub txt2_Change()
If text2.Text = “59” Then
text2.Text = “00”
text3.Text = text3.Text + 1
End If
text2.Text = Format(text2.Text, “00”)
End Sub

Private Sub txt3_Change()
text3.Text = Format(text3.Text, “00”)
End Sub


Harapku

16 Juni 2010

Harapku

Kasih dan sayang bukanlah rintihan hewan berpendidikan

Kasih dan sayang lahir dari sendi-sendi sayap malaikat

Tusukan cahaya purnama menjadi bukti nyata kasih dan sayang

Harapku ku titipkan pada sang bintang

Lukisan tuhan yang paling sempurna, salam sayangku menunggu bersama bintang-bintang

Tikus-tikus penjaga malam menatapku dengan kasih sayang

Meracuni dengan secangkir kopi yang terasa pahit menusuk telinga saat diminum diatas sendok purnama

Terjatuh diatas tembakau yang habis dimakan api

Terlihat senyumu diatas pensil saat ku tertawa

Seakan-akan mencuri akal sehatku

Nafasmu tercium jari-jari kakiku saat kau berjalan diatas secangkir kopi

Air mata bulan jatuh membelah pensil purnama

Membuktikan harapku padamu

Jay 01-06-‘10


Sahabat Malam

16 Juni 2010

Sahabat Malam

Kilau purnama terlihat terang terpancar diatas semesta

Awan-awan hitam sesekali menusuk cahaya malam

Teriakan hewan malam memecah hening dan membabi buta

Terbangun dari mimpi seakan lupa esok hari

Sorak dedaunan menambah teman sang sahabat malam

Mengusir sepi jilatan awan, merasuk sampai kedalam mimpi

Purnama kini mulai terlihat menampakan wajahnya

Memecah kesepian, menusuk sang awan

Lemah terasa begitu nyata dalam jiwa

Kesedihan terlarut sejalan bersama awan

Malam tak lagi bersahabat dengan dedaunan

Sahaba  malam

Purnama, awan, daun dan hewan-hewan

Setia menemani walau tak bersahabat dengan jiwa

Mimpi mulai merangkak menuju cahaya

Membuat pahatan-pahatan diatas awan

Sepi,,,,,

Gelap,,,,

Kilau purnama terpancar terang

Awan hitam beranjak menuju peristirahatan bersama mimpi-mimpi jiwa yang kotor

Sahabat malam

Cahayamu membangunkan mimpi dari tidurku..

Jay 01-06-‘10


Cara Menyembunyikan File Dalam Notepad

16 Juni 2010

Ini Adalah Sintax Program untuk menyembunyikan file dalam sebuak notepad.

1. Buka Notepad anda dan copy paste kode di bawah ini :

cls
@ECHO OFF
title Folder FolderRahasia
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST FolderRahasia goto MDLOCKER
:CONFIRM
echo Apakah anda ingin mengunci FolderRahasia tersebut ? (Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Ketik Y atau N.
goto CONFIRM
:LOCK
ren FolderRahasia "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo FolderRahasia Terkunci
goto End
:UNLOCK
echo Masukkan Password untuk membuka kunci
set/p "pass=>"
if NOT %pass%== kojektatto goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" FolderRahasia
echo FolderRahasia sudah di buka
goto End
:FAIL
echo Password salah
goto end
:MDLOCKER
md FolderRahasia
echo FolderRahasia Sukses di buat
goto End
:End

2. Save As File tersebut dengan Nama “Kunci.bat” (Tanpa tanda kutip)