Archive for the 'DOKUMENTER' Category

29
Apr
10

PERGURUAN TINGGI SEBAGAI LANGKAH AWAL MEMBENTUK SANG PROFESIONAL YANG BERHATI INTAN

Sebuah sejarah membuktikan bahwa edukasi menjadi kebutuhan pokok dan menjadi pembina diri untuk mencapai kesuksesan dalam pengetahuan, baik pengetahuan yang bersifat umum maupun sepesifik. Basis pengetahuan yang dimiliki seseorang sangatlah beragam dan berbeda dari basis pengetahuan yang dimiliki orang lain, hal ini dibuktikan dengan keanekaragaman profesi dan keahlian di berbagai bidang, baik bidang usaha atau karir, pendidikan, dan politik.

Keanekaragaman diatas haruslah disadari bagi setiap individu. Karena kesadaran  di masing-masing individu itulah yang dibutuhkan untuk menciptakan pribadi yang unggul. Terciptanya pribadi yang unggul akan menjadikan seseorang menjadi bijak dan secara tidak langsung kebijakan-kebijakan dari setiap individu itu akan menciptakan keprofesionalan pada diri seseorang melalui toleransi-toleransi yang telah tertanam dalam kepribadianya.

Sebagai contoh begitu pentingnya kesadaran pribadi yaitu pemahaman terhadap orang lain akan jauh lebih mudah ketika kita sudah mengenal diri sendiri, mengenal perbedaan dan toleransi yang dapat diterapkan. Tentunya akan membutuhkan latihan dan kemauan keras juga konsistensitas dalam mewujudkan hal-hal diatas.

“Tiada kata terlambat untuk belajar”, filosofi itu menjadi landasan atas penulisan artikel ini. Sebuah pembentukan pribadi yang unggul haruslah dilakukan pada setiap elemen organisasi dalam penerapanya, dalam hal ini fakultas atau perguruan tinggi haruslah mampu memastikan bahwa setiap didikanya sudah mempunyai pribadi yang unggul. Terciptanya sebuah individu yang berkemampuan akan menjadikan komunitas yang kuat, kreatif, inovatif dan bervariatif, tentunya tidak lepas dari kemampuan individu dari kelompok. Secara tidak langsung akan terbentuk indiviualisme dan egoisme dalam suatu komunitas, maka perlu ditekankan agar dua sifat perusak elemen itu dapat dikendalikan pada diri seseorang.

Tidaklah menutup kemungkinan, jika setiap fakultas atau perguruan tinggi yang dapat memastikan setiap lulusanya mempunyai kepribadian yang unggul akan menjadi sangat terkenal dan menjadi favorit, karena setiap alumni merasakan betapa hebat dan bangganya kepada perguruan tinggi mereka yang telah mengarahkan dirinya menjadi seseorang yang benar-benar bervisi dalam setiap misi-misi dalam hidupnya.

Dalam setiap moment atau waktu, perguruan tinggi harus menciptakan suasana untuk membangkitkan dan meningkatkan rangsangan-rangsangan positif kepada setiap mahasiswa. Hal ini bertujuan untuk meningkatkan IQ, EQ, dan SQ. Dimulai dari berangkat menuju tempat perkuliahan sampai akhir kegiatan perkuliahan harus ada suasana dari ketiga unsur tersebut, karena IQ, EQ, dan SQ adalah unsur pokok untuk menciptakan pribadi yang unggul dan berhati intan. Sebagai contoh :
berangkat kuliah : di pintu gerbang perguruan tinggi maupun ditempat parkir mimbudidayakan senyum dan sapaan, hal ini adalah untuk menggali potensi dalam EQ seseorang.
Melestarikan etika dalam proses dibimbing-membimbing dalam kegiatan perkuliahan, disamping bermanfaat untuk meningkatkan IQ juga akan meningkatkan kekuatan EQ.
Di saat Istirahat siang, melakukan sholat berjamaah dan berdo’a bersama akan meningkatkan SQ dan EQ. dan seterusnya.

Akan tetapi yang menjadi pertanyaan sekarang adalah kenapa banyak mahasiswa melakukan suatu hal yang tidak diinginkan. Sebuah review ; bahwa proses pembentukan kepribadian sejak dini akan berpengaruh sangat besar ketika seseorang sudah dewasa.

Jadi, peran orang tua sangat penting untuk pengawasan anak ketika berada diluar lingkungan perkuliahan. Dalam hal ini diperlukan kerja sama antara mahasiswa – pihak perkuliahan – pihak pengasuh atau orang tua.

Kesimpulan diatas dapat diambil keterangan bahwa keterkaitan kerja sama yang kuat, kepercayaan dan kesungguhan akan dapat mewujudkan sebuah impian. Demikian setitik coretan yang dapat saya sampaikan, tidak lepas dari kekhilafan dan mohon kerja-samanya untuk mengembangkan dan lebih meluruskan artikel saya.

Salam,

great_desert

Continue reading ‘PERGURUAN TINGGI SEBAGAI LANGKAH AWAL MEMBENTUK SANG PROFESIONAL YANG BERHATI INTAN’

01
Mar
10

Hack billing warnet server windows 2000/XP

Hack billing warnet server windows 2000/XP
Sunday, June 13, 2004- Jumlah Klik [8255] , Penulis : bebekeren
Jasakom – Tulisan ini belum pernah penulis praktekkan, dan hanya bersumber dari nalar murni penulis. ide ini ditemukan ketika iseng-iseng membuka buku karangan Mas Kresno Aji dkk tentang membuat warnet dengan Linux.

Semua kegiatan yang pembaca lakukan terhadap penggunaan artikel ini berada di luar tanggung jawab penulis. So, bagi para target yang menjadi korban dari tulisan ini diharapkan tidak menuntut penulis dan bagi para pembaca artikel ini juga untuk tidak menyalah gunakan artikel ini. Keep smile……

1. SENJATA KSATRIA DAN PANAH DEWA

Tools yang digunakan untuk mendukung aksi kita ini adalah sebuah program yang dinamakan kaht. Pembaca bisa menemukannya di internet dengan keyword kaht download di google atau ke site penulis di www.geocities.com/beben_tools/tools/kaht.zip

Program ini digunakan untuk membuka shell target secara remote dengan menggunakan kanal port 135 (itu kalo tidak salah penulis).

2. SERVER BILLING-KU, DIMANA ENGKAU TERSEMBUNYI ???

Langkah kedua ini yaitu mencari ip dari target kita. Kebiasaannya dalam dunia networking terutama LAN, ip dari server billing target kita adalah 192.168.0.1 tetapi itu tidaklah mutlak. Untuk masalah mencari ip dari target kita, kita serahkan saja semuanya kepada kaht sang panah dewa.

Ketikkan command winipcfg di run atau di command prompt untuk melihat ip kita. Lihat gambar :

Lalu, masih di command prompt atau yang sering dikatain DOS atawa shell di linux, pindahkan directory anda ke directory di mana anda menyimpan file kaht tersebut. Misalnya setelah anda mendownload program kaht dari internet yang dalam bentuk ZIP anda mengekstraknya ke directory C:\beben maka ketikkan command di DOS anda

D:\artikel\dunia\dodolz> c:

C:\>cd beben

C:\beben>

3. IT`S SHOW TIME !!!

Dengan asumsi bahwa ip anda adalah 192.168.0.3 dan anda yakin bahwa target billing server kita berada dalam jangkauan yang sama yaitu dari 192.168.0.0 – 192.168.0.255 maka ketikkan command berikut :

kaht <ip awal> <ip akhir>

contoh penggunaan :

C:\beben>kaht 192.168.0.0 192.168.0.255

Selanjutnya tinggal ongkang-ongkang kaki ajah dan bersantai sejenak sambil membuka komik Ruller of The Land

Setelah mendapatkan target kita, kita cek sekali lagi apakah dia itu target billing server kita ??? kalo bukan ketikkan exit dan kaht akan melanjutkan proses scanning target di lan kita.

Untuk mengetahui apakah target yang kita masuki adalah target yang kita inginkan, ketikkan command ipconfig /all di kotak DOS target kita (anda sekarang sedang melakukan remote shell lho :)). Biasanya pada baris hostname akan bernilai server atau yang lain, soalnya ini tergantung administratornya sich mo kasih nama apa itu host name

Setelah yakin bahwa target yang kita masuki adalah target billing server kita, maka lanjutkan mengetikkan command time lalu isikan dengan yang baru

—————–

Greetz : K-159 (my best suhu), the_day – y3dips – moby and all #e-c-h-o staff, all crew of #acehacker, #kartubeben, #balihack, #postgres, #cloning, #cc-home, #kesawan. Spesial to cyber_error yg asik ama dian-nya

—————————————————————–

Author     : #kartubeben crew

E-mail     : m_beben@gawab.com

Greatz     : nobody…

—————————————————————–

01
Mar
10

Memecahkan DES ( Data Encryption Standard )

DES merupakan block chiper yang beroperasi dengan menggunakan blok berukuran 64-bit dan kunci berukuran 56-bit. Brute force attack dengan mencoba segala kombinasi membutuhkan 256 kombinasi atau sekitar 7x 1017 atau 70 juta milyar kombinasi.

DES dengan penggunaan yang biasa (cookbook mode) dengan panjang kunci 56 bit saat ini sudah dapat dianggap tidak aman karena sudah berhasil dipecahkan dengan metoda coba-coba (brute force attack).

Ada berbagai group yang mencoba  memecahkan DES dengan berbagai cara. Salah satu group yang bernama  distributed.net  menggunakan teknologi Internet untuk memecahkan problem ini menjadi sub-problem yang kecil (dalam ukuran blok). Pengguna dapat menjalankan sebuah program yang khusus dikembangkan oleh tim ini untuk mengambil beberapa blok, via Internet, kemudian memecahkannya di komputer pribadinya. Program yang disediakan meliputi berbagai operating system seperti Windows, DOS, berbagai variasi Unix, Macintosh. Blok yang sudah diproses dikembalikan ke  distributed.net via Internet. Dengan cara ini puluhan ribu orang, termasuk penulis, membantu memecahkan DES. Mekanisme ini dapat memecahkan DES dalam waktu 30 hari.

1. Cerita mengenai latar belakang munculnya Lucifer dapat dibaca pada buku Steven Levy, “crypto” (lihat bagian referensi). Algoritma yang dikembangkan di IBM mulanya dibuat  dalam bahasa APL dengan nama “Demonstration”. Tapi karena panjang nama file tidak  boleh terlalu panjang maka nama filenya adalah “Demon” (yang di dalam bahasa Inggris  berarti hantu atau setan). Versi berikutnya menggunakan nama guyonan “Lucifer”  sebagai terusannya. Lucifer sendiri sebetulnya nama setan di dalam bahasa Inggris.

Sebuah group lain yang disebut  Electronic Frontier Foundation (EFF) membuat sebuah komputer yang dilengkapi dengan Integrated Circuit chip DES cracker. Dengan mesin seharga US$50.000 ini mereka dapat memecahkan DES 56-bit dalam waktu rata-rata empat (4) sampai lima (5) hari. DES cracker yang mereka kembangkan dapat melakukan eksplorasi keseluruhan dari 56-bit  keyspace dalam waktu sembilan (9) hari. Dikarenakan 56-bit memiliki 216 (atau 65536) keyspace dibandingkan DES dengan 40-bit, maka untuk memecahkan DES 40-bit hanya dibutuhkan waktu sekitar 12 detik1 . Dikarenakan hukum average, waktu rata-rata untuk memecahkan DES 40-bit adalah 6 detik.

DES ON DOS PROMPT

DATA ENCRYPTION STANDARD

1. Sembilan hari sama dengan 777.600 detik. Jika angka tersebut dibagi dengan 65.536 maka hasilnya adalah sekitar 12 detik.

Perlu diingat bahwa group seperti  EFF merupakan group kecil dengan budget yang terbatas. Dapat dibayangkan sistem yang dimiliki oleh National Security Agency (NSA) dari pemerintah Amerika Serikat1. Tentunya mereka dapat memecahkan DES dengan lebih cepat.

Untuk DES cracker dari EFF, silahkan kunjungi web sitenya di http://www.eff.org/descracker.html

SUMBER ILMU KOMPUTER

_____________________________________________________________________________________________________________

Data Encryption Standard (DES)

Memecahkan DES ( Data Encryption Standard )

Sumber lubang keamanan

_____________________________________________________________________________________________________________

01
Mar
10

Data Encryption Standard (DES)

DES, atau juga dikenal sebagai  Data Encryption Algorithm (DEA) oleh ANSI dan DEA-1 oleh ISO, merupakan algoritma kriptografi simetris yang paling umum digunakan saat ini. Sejarahnya DES dimulai dari permintaan pemerintah Amerika Serikat untuk memasukkan proposal enskripsi. DES memiliki sejarah dari Lucifer 1, enkripsi yang dikembangan di IBM kala itu. Horst Feistel merupakan salah  satu periset yang mula-mula mengembangkan DES ketika bekerja di IBM Watson Laboratory di Yorktown Heights, New York. DES baru secara resmi digunakan oleh pemerintah Amerika Serikat (diadopsi oleh National Bureau of Standards) di tahun 1977. Ia dikenal sebagai Federal Information Processing Standard 46 (FIPS PUB46).

Aplikasi yang menggunakan DES antara lain:

• enkripsi dari password di sistem UNIX

• berbagai aplikasi di bidang perbankan

SUMBER ILMU KOMPUTER

_____________________________________________________________________________________________________________

Data Encryption Standard (DES)

Memecahkan DES ( Data Encryption Standard )

Sumber lubang keamanan

_____________________________________________________________________________________________________________

18
Jun
09

Orang Indonesia Itu Nrimo, Islam Itu juga Nrimo, Tapi KITA BISA dan PASTI BISA

“Sebuah pohon mawar akan punya satu bunga disetiap tangkainya, tapi bunga itu pasti akan dipetik, dan bunga mawar tau yang ia lakukan. Ia bersukur dan NRIMO kalau bunga itu dipetik tapi toh ia akan menumbuhkan mawar itu lagi pata tangkai itu.”

DESERT MIND

DESERT MIND

Ungkapan yang sungguh membuat kita bersemangat. Aku pikir kita memang harus berusaha dengan keras untuk mendapatkan 100 % dari cita-cita kita tapi jika kita hanya bisa mendapatkan 50 % dari cita-cita_itu maka kita harus bersyukur dan menerima apa adanya. Tetapi satu hal yang harus diingan bahwa kita masih bisa mendapatkan semua sampai 100 % jika kita benar-benar berusaha. Jika kita benar-benar berusaha dengan sepenuh hati dan bekerja keras maka kita akan medapatkan 70 % dari cita-cita yang kita harapkan itu, dan harusnya kita bersyukur dan menerima saja 70 % yang kita dapat itu, tapi kita masih dapat terus berusaha untuk mencapai 100 % maka kita harus mencapainya lagi hingga kita telah mendapat 80 % dari cita-cita itu, dan kita harus bersyukur dan menerima saja. Lalu 80 % itu harus kita buat modal untuk mencapai 100 %, sampai akhirnya kita hanya mendapat 20 %, kita bangkrut. Kita harus bersyukur dan harus menerima karena kita beruntung tidak mendapat sepuluh persen dari cita-cita yang kita harapkan. Dan bukankah kita pernah mendapat 80 %, kita harus benar-benar membuktikan kalau 80 % yang kita dapat memang merupakan suatu hasil dari KEKUATAN dan KEHEBATAN KITA. Kita lakukan lagi untuk mendapatkanya. Sampai 200 % dan sampai aliran darah telah mencapai batasnya, tentunya harus dengan RASA SYUKUR, NRIMO, KERJA KERAS, PANTANG MENYERAH, SELALU KOREKSI, DAN YAKIN AKAN KEMAMPUAN KITA.

Sedikit menyombongkan diri akan menjadikan diri menjadi lebih baik, tetapi berniatlah untuk sombong kepada diri sendiri jangan berniat untuk sombong kepada orang lain. Semua itu agar kita dapat menjadi sakit hati dan berusaha membuat semua menjadi lebih baik. Dan artikel diatas aku tujukan untuk diriku sendiri sebagai Orang yang BODOH dan akan membuktikan kalau aku tidak BODOH.

05
Jun
09

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
05
Jun
09

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.

form ubah warna

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




Blog Stats

  • 175,276 hits

MY PERSONAL LINK

July 2017
M T W T F S S
« May    
 12
3456789
10111213141516
17181920212223
24252627282930
31