PENGELUARANKU DIBULAN MEI 2009

PENGELUARANKU DIBULAN APRIL 2009

2009

30-Apr-2009	Tuesday	1	7:00	Makan		IDR 3,000	IDR    3,000
		2	7:30	Ngenet		IDR 2,000	IDR    1,000
		3	15:21	Take Money	IDR 50,000		IDR    51,000
		4	15:50	Pulsa		IDR 5,500	IDR    45,500
		5	21:10	Makan		IDR 2,500	IDR    43,000
		6	22:00	Ngenet		IDR 12,000	IDR    31,000
1-May-2009	Friday	1	7:00	Wortel		IDR 3,000	IDR    28,000
		2	7:30	Makan		IDR 3,300	IDR    24,700
		3	5:00	Sabun		IDR 11,000	IDR    13,700
		4	18:00	Makan		IDR 3,000	IDR    10,700
		5	18:30	Ngenet		IDR 2,000	IDR    8,700
		6	20:00	Take Money	IDR 1,950,000	Komp List	Komp Lis
2-May-2009	Saturday	1	6:00	Makan		IDR 2,800	IDR    5,900
		2	Komp List	Komp List	Komp List	Komp List	Komp List
		3	20:00	Makan		IDR 3,500	IDR    2,400
					IDR 59,000		IDR    62,000
3-May-2009	Sunday	1	8:00	Makan		IDR 3,000	IDR    59,000
		2	9:00	Ngenet		IDR 1,000	IDR    58,000
		3	20:00	Makan		IDR 3,000	IDR    55,000
4-May-2009	Monday	1	14:00	Kabel Monitor		IDR 20,000	IDR    35,000
		2	15:00	Pulsa		IDR 11,000	IDR    24,000
		3	18:00	Makan		IDR 2,000	IDR    22,000
5-May-2009	Tuesday	1	7:00	Makan		IDR 1,500	IDR    20,500
		2	7:30	Ngenet		IDR 2,000	IDR    18,500
		3	15:00	Makan		IDR 3,500	IDR    15,000
6-May-2009	Wednesday	1	6:00	Makan		IDR 3,000	IDR    12,000
		2	14:00	Neras		IDR 5,600	IDR    6,400
		3	14:00	Snack		IDR 2,000	IDR    4,400
		4	16:00	Take Money	IDR 50,000		IDR    54,400
7-May-2009	Thursday	1	18:00	Makan		IDR 2,000	IDR    52,000
		2	19:00	Belanja		IDR 12,000	IDR    40,000
8-May-2009	Friday	1	6:00	Makan		IDR 3,000	IDR    28,000
		2	17:00	Stavolt		IDR 60,000	IDR    28,000
		3	18:00	Makan		IDR 6,000	IDR    22,000
		4	21:00	Footsal		IDR 10,000	IDR    12,000
9-May-2009	Saturday	1	7:00	Makan		IDR 3,000	IDR    9,000
		2	7:30	Ngenet		IDR 3,000	IDR    6,000
10-May-2009	Sunday	1	7:00	Makan		IDR 4,300	IDR    1,700
		2	7:30	Take OF date 07	IDR 200,000		IDR    201,700
		3	8:00	Ngenet		IDR 2,000	IDR    199,700
		4	12:30	Makan		IDR 3,500	IDR    196,200
		5	19:00	Makan		IDR 3,000	IDR    193,200
		6	22:30	Makan		IDR 2,000	IDR    191,200
11-May-2009	Monday	1	7:30	Take Of My Mom	IDR 250,000		IDR    441,200
		2	18:00	Makan	IDR 4,000		IDR    437,200
		3	19:00	Ngenet	IDR 2,000		IDR    435,200
12-May-2009	Tuesday	1	8:00	Makan		IDR 3,000	IDR    432,200
		2	16:12	Belanja		IDR 18,700	IDR    413,500
		3	17:00	Makan		IDR 2,000	IDR    411,500
13-May-2009	Wednesday	1	6:00	Makan		IDR 3,000	IDR    408,500
		2	7:00	Pulsa		IDR 10,500	IDR    398,000
		3	9:00	Beras		IDR 6,000	IDR    392,000
		4	17:00	Makan		IDR 3,000	IDR    389,000
		5	0:00	Makan		IDR 2,000	IDR    387,000
14-May-2009	Thursday	1	6:00	Makan		IDR 3,000	IDR    384,000
		2	12:00	Ngenet		IDR 4,000	IDR    380,000
		3	16:00	Element		IDR 5,000	IDR    375,000
		4	18:00	Makan		IDR 3,000	IDR    372,000
15-May-2009	Friday	1	7:00	Makan		IDR 2,000	IDR    370,000
		2	8:00	Drink		IDR 2,000	IDR    368,000
		3	9:00	Bensin		IDR 5,500	IDR    362,500
		4	0:00	Parkir		IDR 2,000	IDR    360,500
		5	19:30	Makan		IDR 4,000	IDR    356,500
		6	20:00	Monitor		IDR 450,000	IDR  (93,500)
16-May-2009	Saturday	1	6:30	Makan		IDR 3,000	IDR  (96,500)
		2	8:30	Ngenet		IDR 5,000	IDR  (101,500)
		3	19:00	Makan		IDR 3,000	IDR  (104,500)
17-May-2009	Sunday	1	8:00	Makan		IDR 3,000	IDR  (107,500)
		2	14:50	Makan		IDR 2,000	IDR  (109,500)
		3	23:00	Makan		IDR 4,000	IDR  (113,500)
18-May-2009	Monday	1	18:00	Utang Eko	IDR 10,000		IDR  (123,500)
		2	19:00	Makan		IDR 4,500	IDR  (128,000)
		3	20:00	Jual hp	IDR 155,000		IDR    27,000
		4	20:00	ngenet		IDR 5,000	IDR    22,000
		5	13:00	Nyaur Eko		IDR 5,000	IDR    17,000
19-May-2009	Tuesday	1	7:00	Makan		IDR 4,000	IDR    13,000
		2	8:00	Beras		IDR 12,000	IDR    1,000
		3	10:50	Makan		IDR 2,000	IDR  (1,000)
		4	16:00	Makan		IDR 4,500	IDR  (5,500)
20-May-2009	Wednesday	1	7:00	Makan		IDR 4,000	IDR  (9,500)
		2	20:00	Makan		IDR 7,000	IDR  (16,500)
		3	21:00	Pusla		IDR 6,000	IDR  (22,500)
21-May-2009	Thursday		9:00	gived by Father	IDR 50,000		IDR    50,000
			9:30	Bensin		IDR 15,000	IDR    35,000
			21:00	Roti Bakar		IDR 7,000	IDR    28,000
22-May-2009	Friday	1	7:00	gived by Father	IDR 300,000		IDR    328,000
		2	10:00	Mie Ayam		IDR 5,000	IDR    323,000
		3	17:00	Makan		IDR 4,000	IDR    319,000
		4	20:30	belanja		IDR 12,000	IDR    307,000
		5	21:00	UPS		IDR 175,000	IDR    132,000
23-May-2009	Saturday	1	7:00	Makan		IDR 4,000	IDR    128,000
		2	17:00	Fan Casing		IDR 17,500	IDR    110,500
		3	19:00	Makan		IDR 4,000	IDR    106,500
25-May-2009	Sunday	1	10:00	Makan		IDR 3,000	IDR    103,500
		2	18:00	Makan		IDR 2,000	IDR    101,500
		3	13:00	Makan		IDR 2,000	IDR    99,500
25-May-2009	Monday	1	13:00	CD ROM		IDR 45,000	IDR    54,500
		2	17:30	Makan		IDR 3,000	IDR    51,500
26-May-2009	Tuesday	1	8:30	Makan		IDR 3,000	IDR    48,500
		2	8:00	Ngenet		IDR 2,000	IDR    46,500
		3	14:00	CD R		IDR 4,000	IDR    42,500
		4	15:00	Makan		IDR 3,000	IDR    39,500
27-May-2009	Wednesday	1	6:00	Sarapan		IDR 3,000	IDR    36,500
		2	14:00	Ngenet		IDR 1,000	IDR    35,500
		3	15:41	Ballpoint + xon ce		IDR 3,000	IDR    32,500
		4	15:45	Belanja		IDR 13,000	IDR    19,500
		5	17:00	Makan		IDR 2,000	IDR    17,500
		6	22:00	Makan		IDR 2,000	IDR    15,500
28-May-2009	Thursday	1	17:30	Belanja		IDR 12,800	IDR    2,700
		2	17:50	Gillete + Xon ce		IDR 11,200	IDR  (8,500)
		3	18:00	Makan		IDR 3,000	IDR  (11,500)
		4	18:30	Beras		IDR 6,000	IDR  (17,500)
		5	17:30	Take Money	IDR 150,000		IDR    132,500
		6	18:00	Nabung		IDR 100,000	IDR    32,500
29-May-2009	Friday	1	8:30	Makan		IDR 5,000	IDR    27,500
		2	20:00	Ngenet		IDR 3,000	IDR    24,500
		3	21:00	Makan		IDR 3,000	IDR    24,500
30-May-2009	Saturday	1	7:00	Makan		IDR 4,000	IDR    20,500
		2	13:00	Makan		IDR 3,000	IDR    17,500
		3	15:00	Makan		IDR 3,000	IDR    14,500
		4	19:00	Ngenet		IDR 4,000	IDR    10,500
		5	23:00	Makan		IDR 3,000	IDR    7,500
31-May-2009	Sunday	1	11:00	Makan		IDR 3,000	IDR    4,500
		2	18:00	Makan		IDR 3,000	IDR    1,500
		3	19:00	Ambil Tabungan	IDR 50,000		IDR    51,500
		4	23:00	Makan		IDR 3,000	IDR    48,500

vb dasar.. pengambilan nilai suatu object

download aplikasi timer shutdown

halo brow, sebelumnya aku minta sorie cos, untuk aplikasi timer lom ku upload. Tapi kali ini aku mau berbagi secara dasar dulu tentang vb. Kali sederhana sich tapi pengembanganya bisa luar biasa. Hehehe… langsung aja, lihat skrip dibawah ini :

Private Sub Timer1_Timer()

a.Caption = a.Caption + 1

If b.Caption = a Then

b.Caption = b

Else

If b.Caption = b Then

b.Caption = c

Else

If b.Caption = c Then

b.Caption = d

Else

If b.Caption = d Then

b.Caption = e

Else

If b.Caption = e Then

b.Caption = f

Else

If b.Caption = f Then

b.Caption = a

Else

End If

End If

End If

End If

End If

End If

c.Caption = c.Caption + 1

c1.BackColor = a.Caption + b.Caption + c.Caption

If a.Caption = 99 Then

a.Caption = 0

b.Caption = a

c.Caption = 0

End If

End Sub

Dan gambarnya sebagai berikut.

Keterangan : berturut turut dari atas yang berada didalam form yaitu : command dengan name c1, label dengan name a, a, dan c. dengan nilai property awal :

C1 :

style = graphical
Backcolor = &H00FFFFFF&

a caption = 0

b caption = b

c caption = 0

Bagi yang sudah expert mungkin ngomel.. halah gitu aza.. tapi menurutku ini bagus banget coz ini metoda pengambilan nilai dari suatu objek. Dan dimasukkan kedalam property dari atribut warna command.

Private Sub Timer1_Timer() //timer untuk counter program

a.Caption = a.Caption + 1 // menambah nilai dari caption a dengan satu secara simultan

If b.Caption = a Then //merubah caption nilai a dengan b

b.Caption = b

Else

If b.Caption = b Then //setelah caption menjadi b dirubah ke c

b.Caption = c

Else

If b.Caption = c Then // dan seterusnya

b.Caption = d

Else

If b.Caption = d Then

b.Caption = e

Else

If b.Caption = e Then

b.Caption = f

Else

If b.Caption = f Then

b.Caption = a //sampai dirubah ke a lagi

End If

End If

End If

End If

End If

End If

c.Caption = c.Caption + 1 //meruhan nilai caption a dengan ditambah satu secara simultan

c1.BackColor = a.Caption + b.Caption + c.Caption //merubah backgroundc1 melalui perubahan diatas

If a.Caption = 99 Then // fungsi even handling untuk caption masig-masing

a.Caption = 0

b.Caption = a

c.Caption = 0

End If

End Sub

Pertanyaan :

1. Kenapa a = 0 , b = a dan c =0 ?
2. Kenapa variable b hanya sampai f percabanganya?

Jawab :

1. Ini untuk variasi warna yang dihasilkan dari kombinasi

c1.BackColor = a.Caption + b.Caption + c.Caption

dengan handling untuk errornya

If a.Caption = 99 Thena.Caption = 0

b.Caption = a

c.Caption = 0

End If

End Sub

1. Karena angka b untuk pengambilan nilai warna menggunakan hexa decimal yang hanya maksimal f.

Program diatas sebagai contoh untuk pengembangan logika dan teknik yang belum diketahui.. dan aku mohon sharing dari komentarnya. Dan aturan perubahan warna terserah.

Untuk download source project disini