tag:blogger.com,1999:blog-76011508267515884262024-03-18T19:53:07.292-07:00Teknologi InformasiBelajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.comBlogger28125tag:blogger.com,1999:blog-7601150826751588426.post-55010756202568002502012-01-30T04:25:00.000-08:002012-01-30T04:25:12.857-08:00Manusia dan Sebuah Harapan<div style="text-align: justify;">
Setiap manusia mempunyai harapan. Manusia yang tanpa harapan, berarti
manusia itu mari dalam hidup. Orang yang akan meninggal sekalipun
mempunyai harapan, biasanya berupa peasn-pesan kebapa ahli warisnya.
harapan tersebut tergantung pada tergantung pada pengetahuan,
pengalaman, lingkungan hidup, dan kemampuan masing-masing. Berhasil atau
tidaknya suatu harapan, misalnya Rafiq mengharapan nilai a ujian yang
akan datang, tetapi tidak ada usaha, tidak pernah hadir kuliah. Harapan
harus berdasarkan kepercayaan, baik kepercayaan pada diri sendiri,
maupun kepercayaan kepada Tuhan Yang Maha Esa. Harapan berasal dari kata
harap yang berarti keinginan supaya sesuatu terjadi; sehingga harapan
berarti sesuatu yang diinginkan dapat terjadi.<br />
<br />
B. APA SEBAB MANUSIA MEMPUNYAI HARAPAN<br />
Menurut kodratnya manusia itu adalah mahluk sosial. Setiap Lahir ke
dunia langsung disambut dalam suatu pergaulan hidup, yakni di tengah
suatu keluarga atau anggota masyarakat lainnya. Doronngan Kodrat Kodrat
ialah sifat, keadaan, atau pembawaan alamiah yang sudah terjelma dalam
diri manusia sejak manusia itu diciptakan oleh Tuhan. Dorongan kodrat
menyebabkan manusia mempunyai keinginan atau harapan, misalnya
menangis, tertawa, bergembira, dan sebagainya. Kodrat juga terdapat
pada binatang, walau bagaimanapun juga besar sekali perbedaannya. Dalam
diri manusia masing-masing sudah terjelma sifat, kodrat pembawa dan
kemampuan untuk hidup bergaul, hidup bermasyarakat atau hidup bersama
dengan manusia lain. Dengan Kodrat ini, maka manusia mempunyai harapan.
Dorongan kebutuhan hidup Sudah kodrat pula bahwa manusia mempunyai
bermacam-macam keebutuhan hidup. Untuk memenuhi semua kebutuhan itu
manusia bekerja sama dengan manusia lain. Dengan adanya dorongan kodrat
atau dorongan kebutuhan hidup itu maka manusia mempunyai harapan.
Kelangsungan hidup (survival) untuk melangsungkan hidupnya manusia
membutuhkan sandang pangan dan papan. setiap bayi begitu lahir di bumi
menangis, ia telah mengharapkan diberi makan/minum. Sandang, semula
hanya berupa perlindungan/keamanan, untuk melindungi dirinya dari cuaca.
Papan yang dimaksud adalah tempat tinggal atau rumah. Untuk mencukupi
kebutuhan pangan, sandang dan papan itu, maka manusia sejak kecil telah
mulai belajar. Keamanan seriap orang membutuhkan keamanan. Bila
seorang telah menginjak dewasa, sehingga sudah saatnya Hak dan
Kewajiban mencuntai dan dicintai Tiap orang mempunyai hak dan
kewajiban. Bila seorang telah menginjak dewasa, maka ia merasa sudah
dewasa, sehingga sudah saatnya mempunyai harapan untuk dicintai dan
mencintai. Status Setiap manusia membutuhkan status.<br />
<br />
C. KEPERCAYAAN<br />
Kepercayaan berasal dari kata percaya, artinya mengakui atau meyakini
akan kebenaran. Dengan contoh berbagai kalimat yang sering kita dengan
dalam ucapan sehari-hari itu, maka jelaslah kepada kita, bahwa dasar
kepercayaan itu adalah kebenaran Ada jenis pengetahuan yang dimiliki
seseorang, bukan karena merupakan hasil penyelidikan sendiri, melainkan
diterima dari orang lain. Dalam agama terdapat kebenaran-kebenaran yang
dianggap diwahyukan artinya diberitahukan oleh Tuhan atau tidak
langsung kepada manusia. Dalam hal beragama tiap-tiap orang wajib
menerima dan menghormati kepercayaan orang yang beragama itu. Kebenaran
Kebenaran iatau benar amat penting bagi manusia. Dakam tingkah laku,
ucaoan, perbuatan manusia selalu berhati-hati agar mereka tidak
menyimpang dari kebenaran. Dalam agama Budha ada ajaran yang dinamakan
"jalan utama delapan ruang". Tujuan ajaran itu agar pemeluknya tidak
mengalami duka, kegelisahaanm dan ketidakpastian. Ajaran kebenaran itu
juuga kita temui dalam agama-agama lain. jelaslah bagi kita, bahwa
kebenaran atau benar merupakan kunci kebahagiaan manusia.<br />
<br />
D. BERBAGAI KEPERCAYAAN DAN USAHA MENINGKATKANNYA<br />
Dasar kepercayaan adalah kebenaran, Sumber kebenaran adalah manusia.
Kepercayaan dibedakan atas: 1. kepercayaan pada diri sendiri 2.
kepercayaan kepada orang lain 3. kepercayaan kepada pemerintah 4.
Kepercayaan kepada Tuhan</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-47978235175195063462012-01-30T03:36:00.001-08:002012-01-30T03:39:43.383-08:00Perbedaan cinta dan kasih sayang<div style="text-align: justify;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1a1Vo9yVAexBUJSytUc6jWJs6W95WSgg3FewmwKRrBekrrAcoAUhYuguCmYe83wKvl-koKrKOnfc-UyNPAaRyFanT2otzPt9EVBBnywxN2D8Y9tGhL0E2XZKoJherL5Xd42EIhUeCI4c/s1600/images.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1a1Vo9yVAexBUJSytUc6jWJs6W95WSgg3FewmwKRrBekrrAcoAUhYuguCmYe83wKvl-koKrKOnfc-UyNPAaRyFanT2otzPt9EVBBnywxN2D8Y9tGhL0E2XZKoJherL5Xd42EIhUeCI4c/s400/images.jpg" width="314" /></a></div>
<br />
<br />
<br />
<br />
Banyak yang mengira sayang dan cinta hampir sama. karena kegunaan dan
bentuk pengukapan dalam segi rasa hampir sama.berbanding terbalik atau
sangat mirip.Tapi setelah banyak pendapat ternyata bebeda fungsi,
gunanya dan penempatan. Biasanya rasa sayang tumbuh lebih dahulu sebelum
rasa cinta muncul. Tumbuhnya rasa sayang dan cinta semua tidak
diketahui kapan dan sampai kapan, menurut buku yang saya baca cinta
definisanya tidak terbatas, jadi rasa cinta dan sayang itu jangan
dibatasi sebab luas persepsinya.<br />
<br />
Banyak bermunculan ide dan pendapat bahwa cinta dan sayang itu saling
bertolak belakang. Rasa cinta dan sayang adalah pemberian tuhan kepada
hambanya, karena adanya sayang dan cinta mungkin dunia ini akan begitu
indah karena penghuninya memliki rasa diantara rasa yang sangat mulia.
Munculnya cinta dan sayang bukan karena tanpa sebab, semua itu mungkin
sudah direncanakan olehNya. Antara sayang dan cinta siapa saja pasti
sudah bisa merasakan betapa indah, nikmat tentunya banyak yang di buat
bahagia atasnya. Tapi juga dampak dari rasa sayang dan cinta mungkin
banyak yang bilang sakit dan trauma bahkan sangat benci karena
mengenalnya. Karena adanya cinta tiap manusia tentu bisa mengerti
hal-hal yang mungkin akan efek dari kedua hal ini. Untuk memiliki cinta
ini butuh tahap karena pada hakikatnya semua orang pingin mendapatkan
cinta suci yang tinggi nilainya. Mungkin ketika kita melhat sesuatu
yang indah akan berubah takjup, ingin memeliki dan hasrat untuk segara
mempunyai.<br />
<br />
Contoh saja,ketika kita sudah memliki pacar di depan kita sedang
berdiri misal cewek/cowok cakep secara tidak sengaja kita sudah
mengagumi sosok nya, hal itu wajar manusia di karunia panca indra
mereka bisa merasa,melihat dsb. Ketertarikan akan sesuatu berevolusi
menjadi ingin memiliki apa yang ada dalam hatinya yg menurut ia sangat
mengasyikkan. “cinta” kedalaman hati dalam jiwa manusia buah dari
ketertarikan dan rasa suka. kasih sayang adalah efek dari rasa suka dan
cinta jadi tidak ada bedanya, hanya yg beda pengungkapan kasih sayang
tersebut antara seorang ibu dengan anaknya, sepasang kekasih, seorang
sahabat. perhatian, memeluk, mencium adalah eksperesi kasih sayang
seseorang dan wajar jika terjadi dalam diri manusia, tetapi semua ada
normanya untuk menjaga kesucian cinta agar tak terjangkiti oleh nafsu.
so ini hanya sebuah pikiran, masih muda dan kawan2 aku juga muda.
perbedaan suka, sayang, dan cinta bagus banget dirangakai dari hati yg
dalam dan sebuah pengalaman dan sudah menjadi warna dalam kehidupan.<br />
<br />
Berbagai arti mengenai cinta dan sayang:<br />
<br />
<span style="font-weight: bold;">Cinta</span> adalah sesuatu yang suci,
anugerah Tuhan dan sering tidak rasional. Cinta dipenuhi nuansa
memaklumi dan memaafkan. Kesabaran, kesetiaan, pengertian, pemberian
dan pengorbanan akan mendatangkan/menyuburkan cinta, sementara
penyelewengan, egoisme, kikir dan kekasaran akan menghilangkan rasa
cinta.<br />
<br />
<span style="font-weight: bold;">Sayang</span> adalah satu rasa yg
tulus.bukan sekedar rela dan siap melepas seseorang yg kita cintai dan
kita sayangi.tulus untuk mencintai dan sayang kpd org terkasih dgn
melihat dia lebih bahagia dengan orang yg dia cintai itulah cinta yg
murnim di hati kita dan cinta tak akan tumbuh jika Allah yg maha
BERKUASA atas segalanya tdk menghendakinya.<br />
<br />
<span style="font-weight: bold;">Cinta</span> adalah perasaan yang
timbul dimana adanya keinginan untuk saling mengerti dan memahami.
Cinta merupakan anugerah terindah dari tuhan karena melalui cinta kita
dapat merasakan keajaiban akan kehidupan mulai dari
bahagia,sedih,sakit,menderita dll.<br />
<br />
<span style="font-weight: bold;">Sayang</span> itu hampir mendekati
cinta tp banyak orang yang salah mengartikan cinta dan sayang. cinta
itu terjadi karena adanya getaran hati dalam artian terjadi secara
alami dan sayang terjadi karena adanya sesuatu diri diri seseorg yg
bisa membuat kt menjadi sayang dengan org itu.Kalo cinta sudah pasti
sayang tapi kalo sayang belum tentu cinta.Dan ketika kita mencintai
seseorang kita pasti akan memberikan yg terbaik buat org itu n berusaha
mencintai org itu dgn cara yg sesempurna mungkin yg bs kita lakukan.<br />
<br />
<span style="font-weight: bold;">Sayang</span> itu lebih abadi
sifatnya. Ketika kita sayang ama seseorang maka kita takut
kehilangannya. Tetapi cinta bisa berubah menjadi benci. Rasa sayang
membuat kita ingin memiliki dan dimiliki. Rasa cinta membuat kita ingin
menguasai.<br />
<br />
<span style="font-weight: bold;">Cinta</span> adalah membiarkan orang
yang kita sayangi bahagia.. kalo kamu memang bener2 sayang ma orang itu
jangan bikin dia terganggu dengan kehadiran kamu, biarkanlah dia pergi
mencari kebahagiaanya sendiri apabila dia sadar kamu yang terbaik buat
dia maka dia akan kembali dengan membawa kebahagiaan sejati.Rasa
Sayang itu melebihi dari rasa suka,rasa cinta. tetapi kasih melibihi
rasa sayang, karena kasih melebihi semua rasa itu.kasih itu panjang
sabar,murah hati, dan tulus keluar dari hati.<br />
<br />
<span style="font-weight: bold;">Cinta</span> adalah perasaan
suka-menyukai karena sesuatu dalam diri orang lain yang membuat kita
tertarik hati dan berkomitmen. Cinta lebih banyak mengandalkan keadaan
seseorang tersebut dalam berinteraksi dengan kita. Lain kata, cinta itu
bersifat pemberian yang pamrih.<br />
<br />
<span style="font-weight: bold;">Sayang</span> lebih mendekati kata
Kasih (mengasihi).Sayang itu tulus,rela,dan selalu melindungi. Tak
pernah padam,tak pernah redup dan tak pernah dapat tergantikan oleh
apapun.</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-16685333603668180632012-01-30T03:20:00.000-08:002012-01-30T03:21:13.165-08:00Android VS Blackberry<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6W9RT0zQs6xH1g2ZcE3QwyczyfSdQWaXJBtzE1xNWIg2YirEwFE5rAvnPspHhKQk329oJQACVTsf_ElxXmh3eThaGjJ0ip7xN6-6gPnISzkTPw6374iRjXhQDGMz968krtl8izU-rpv4/s1600/vslogo.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="160" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6W9RT0zQs6xH1g2ZcE3QwyczyfSdQWaXJBtzE1xNWIg2YirEwFE5rAvnPspHhKQk329oJQACVTsf_ElxXmh3eThaGjJ0ip7xN6-6gPnISzkTPw6374iRjXhQDGMz968krtl8izU-rpv4/s320/vslogo.jpg" width="320" /></a></div>
<div style="text-align: justify;">
<strong>Handset BlackBerry</strong> sangat fenomenal di Tanah Air. Tapi
Android dengan varian harga yang beragam, bisa menggilas kepopuleran
BlackBerry. Tanda-tanda akan suksesnya ponsel Android sudah mulai
terlihat jelas. Group Head Brand Marketing Indosat Teguh Prasetya yakin
ponsel Android bisa melebihi BlackBerry.<br />
<br />
<br />
Alasannya, Android bisa menyasar semua lapisan masyarakat karena
didukung berbagai varian harga. “Sejak masuknya BlackBerry, pada 2008
mulai terlihat masyarakat menyukai ponsel cerdas dengan sistem online 24
jam. Kami optimistis Android bisa mengalami kesuksesan yang sama,”
katanya saat dihubungi. Ini dikarenakan <strong>kelebihan android dibandingkan BlackBerry</strong> jelas jauh berbeda. Dimana <strong>Android unggul dari Blackberry</strong> Respon konsumen pada ponsel Android sudah sangat tinggi.<br />
<br />
Sejak menawarkan preorder pada 22 Februari lalu, Indosat telah
melepas 1.000 handset Android dari berbagai merek. Indosat juga berhasil
menjual sekitar 2.000 handset saat tour 7 kota. Bahkan banyak pengamat
yang memastikan di tahun 2011 nanti, <strong>Android siap tenggelamkan Blackberry</strong> . Ini sunguh istilah yang sangat tragis bagi Blackberry terkhusus bagi pengguna setia Blackberry.<br />
<br />
“Hingga akhir tahun ini kami menargetkan 100 ribu handset. Kami optimis
dengan melihat respon masyarakat seperti itu, ” tambah Teguh. Ponsel
Android sudah banyak yang ditawarkan dengan harga di bawah Rp 2 juta.
Teguh meyakini handset jenis ini juga akan mengancam bundling ponsel
China. Gadget Ponsel Android dan bundling ponsel China memiliki segmen
berbeda meski harganya tidak jauh berbeda. Pasar Indonesia, kata Teguh,
sangat beragam sehingga tidak menutup kemungkinan ponsel China juga
dapat dipasarkan dengan Android.<br />
<br />
Jadi, meskipun <strong>ponsel Android</strong> dipasarkan dalam berbagai lingkup dan merek, tapi tetap saja diminati konsumen. Teguh mengatakan <strong>kekurangan Sistem Operasi Android</strong>
saat ini karena masih sulit ditemui di pasaran. “Kami melihat bahwa
orang Indonesia mudah menerima sesuatu yang baru, jadi saya rasa Android
bukan sesuatu hal yang tidak dapat diterima mereka, ” imbuhnya.<br />
<br />
Untuk mendorong penjualan, menurut Teguh, Indosat mengusung beberapa
strategi khusus. Indosat menyediakan smartphone berbasis Android dengan
beragam level harga. Sementara ketersediaan beragam perangkat itu,
kemudian dilengkapi dengan layanan jasa berupa <strong>broadband unlimited</strong>
baik postpaid maupun prepaid. “Kami juga memiliki Komunitas Indosat
Android. Di sini, para pengguna layanan dapat saling berinteraksi satu
sama lain. Selain itu juga ada Android Application Store atau A-Store, ”
katanya.<br />
<br />
Salah satu handset Android yang banyak dibeli konsumen adalah <a href="http://uptekno.blogspot.com/search/label/Samsung"><strong>Samsung</strong></a>.
Head of Dept HHP Business Samsung Hioe An Kin memperkirakan produk
Android Samsung sukses karena pas di kantong. “Fitur-fitur yang kami
berikan sesuai yang diinginkan konsumen dan tak kalah dengan harga yang
lebih mahal, ” imbuhnya.<br />
<br />
Ia berharap Android bisa sefenomenal BlackBerry. Namun untuk jangka
pendek, Android belum akan mengalahkan BlackBerry, karena saat ini masih
dalam tahap pengenalan. “Handsetnya juga masih belum terlalu banyak,
ada yang masih setara dan ada beberapa yang lebih mahal dibandingkan
BlackBerry. Untuk tiga bulan ke depan, saya rasa masih di tahap
pengenalan, walaupun memang reaksi masyarakat saya rasa sudah sangat
baik, ” imbuhnya.<br />
<br />
Namun begitu Hioe An Kin mengatakan pada akhir tahun Android sudah
membanjir dengan syarat semua pihak bisa mempromosikan produknya
secara optimal. “Handset Android saya pikir sudah mulai beragam ketika
itu, ” jelasnya. Ia menjelaskan pada 2008, kebanyakan orang tidak
menyangka BlackBerry bisa sesukses sekarang. Tapi ternyata sekarang
BlackBerry bisa begitu terkenal. “Malah banyak gadget yang berusaha
mirip atau promosi dengan membawa nama BlackBerry sebagai tolak ukur.<br />
<br />
Ini menunjukkan jika soal teknologi atau handphone masyarakat Indonesia memang positif sekali, ” katanya.</div>
<div style="text-align: justify;">
<br /></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-48312435294589725592011-12-29T04:34:00.000-08:002011-12-29T04:36:42.890-08:00Membuat Progress Bar Dengan VB6<div style="text-align: justify;">Sekian lama saya menghilang dari postingan blog,pada akhirnya saya akan membuat postingan terbaru yaitu cara membuat progress bar dengan Vb 6.Okay langsung aja ya:::;</div><ul style="text-align: justify;"><li>Buka <span style="color: red;">Visual Basic 6.0</span>, setelah itu pilih <span style="color: red;">form <b>standar.exe</b></span> </li>
<li>Pada <span style="color: red;">properties form</span>, ganti captionnya menjadi, <i><span style="color: red;">lprogress bar<span style="color: black;"> atau</span> latihan loding </span><span style="color: black;">atau </span><span style="color: black;">sesuai yang</span><span style="color: black;"> di inginkan</span></i> </li>
<li>Kemudian, klik kanan pada bagian kosong di <span style="color: red;">toolbar general</span> dan pilih <span style="color: red;">components</span> atau melalui <span style="color: red;">menu Project -> Components</span>, seperti ini : </li>
</ul><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: justify;"></div><div class="separator" style="clear: both; text-align: justify;"></div><div class="separator" style="clear: both; text-align: justify;"></div><div class="separator" style="clear: both; text-align: justify;"><img border="0" height="192" src="http://2.bp.blogspot.com/-7BpJdjdMyBM/TvxbPIveVYI/AAAAAAAAAPs/VcrYVWNibSQ/s320/image_thumb3.png" width="320" /></div><div style="text-align: justify;"><a href="http://1.bp.blogspot.com/-c1OD80Y8F00/Tvxb6rgFCcI/AAAAAAAAAP4/kEs6MK6T8k4/s1600/image_thumb6.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><ul style="text-align: justify;"><li> Pada <span style="color: red;">tab components</span>, pilih <b><span style="color: red;">Microsoft Windows Common Controls 6.0 (SP6)</span></b>, kemudian klik <i><span style="color: red;">Apply</span></i> lalu <i><span style="color: red;">OK</span></i>. </li>
<li>Selanjutnya masukkan, 1 buah<span style="color: red;"> progress bar</span> dan 1 buah <span style="color: red;">timer</span>, seperti ini : </li>
</ul><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"> <img border="0" height="206" src="http://1.bp.blogspot.com/-c1OD80Y8F00/Tvxb6rgFCcI/AAAAAAAAAP4/kEs6MK6T8k4/s320/image_thumb6.png" width="320" /> </div><ul style="text-align: justify;"><li>Setelah itu klik 2 kali pada <span style="color: red;">Timer1</span> </li>
<li>Lalu, masukkan coding seperti dibawah ini : </li>
</ul><div style="text-align: justify;"><br />
</div><div style="font-family: Arial,Helvetica,sans-serif; text-align: justify;"><b><i><span style="color: #a5a5a5;">Private Sub Timer1_Timer()</span></i></b></div><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"> </b></div><pre style="font-family: Arial,Helvetica,sans-serif;"><b><i><span style="color: #a5a5a5;">If ProgressBar1.Value = 100 Then</span></i></b></pre><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"><br />
</b></div><pre style="font-family: Arial,Helvetica,sans-serif;"><b><i><span style="color: #a5a5a5;">ProgressBar1.Value = 0</span></i></b></pre><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"><br />
</b></div><pre style="font-family: Arial,Helvetica,sans-serif;"><b><i><span style="color: #a5a5a5;">Else</span></i></b></pre><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"><br />
</b></div><pre style="font-family: Arial,Helvetica,sans-serif;"><b><i><span style="color: #a5a5a5;">ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1</span></i></b></pre><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"><br />
</b></div><pre style="font-family: Arial,Helvetica,sans-serif;"><b><i><span style="color: #a5a5a5;">End If</span></i></b></pre><div style="text-align: justify;"><b style="font-family: Arial,Helvetica,sans-serif;"><br />
<i><span style="color: #a5a5a5;">End Sub</span></i> <br />
</b></div><div style="font-family: Arial,Helvetica,sans-serif; text-align: justify;"><br />
</div><ul style="text-align: justify;"><li>Setelah itu, <span style="color: red;">close <b>Form1Code</b></span> tersebut, dan klik lg pd <span style="color: red;">timer1.</span> </li>
<li>Ganti intervalnya menjadi<b> 100</b> </li>
<li>Kemudian coba <b>compile</b> dengan menekan tombol <b><span style="color: red;">play</span></b>. </li>
<li>Jika berhasil tampilannya seperti ini: </li>
</ul><div class="separator" style="clear: both; text-align: justify;"><img border="0" height="180" src="http://1.bp.blogspot.com/-wgZeAaDYEA8/TvxdPSABBVI/AAAAAAAAAQE/cAZCFMp5B1A/s320/image_thumb10.png" width="320" /> </div><div class="separator" style="clear: both; text-align: justify;">Gampang khan,coba dech langsung tambahain ke program yang anda Buat.Selamat Mencoba!!! </div><div style="text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: justify;"></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-9081412843348552902011-12-19T08:58:00.000-08:002011-12-27T08:25:32.398-08:00MEMBUAT MENU BAR DI VB 6<div style="text-align: justify;">Visual Basic 6.0 menyediakan sarana untuk membuat menu tanpa terlebih dahulu membuat dasar</div><div style="text-align: justify;">pemrogramannya. Pembuatan menu mutlak diperlukan, mengingat program yang sudah siap pakai</div><div style="text-align: justify;">bisa menjadi lebih efektif dan praktis. Selain itu, bentuk menu yang cantik bisa menjadi daya tarik</div><div style="text-align: justify;">tersendiri bagi user.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">1. MEMBUAT MENU BAR</div><div style="text-align: justify;">Menu Bar adalah menu standar yang berlaku sebagai menu utama pada setiap program aplikasi.</div><div style="text-align: justify;">Untuk membuat menu Bar adlah sebagai berikut :</div><div style="text-align: justify;">1. Klik menu Tools pilih Menu Editor.</div><div style="text-align: justify;">2. Pada kolom Menu Editor, ketik judul menu dan submenu seprti berikut :</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiP9XdSXZBvtSx3L25IiiaDua0ocWvNd4UP_NLPBQIdHo9xwHQU44vKbvadqO5HPxZ57fOMjOnQb_yzmW2wlxftofcminEmJ5LDL16H3V0k89VuqsOxdxVkwE-KW4Ukx_wyWPSFafH99YQ/s1600/Untitled.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="319" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiP9XdSXZBvtSx3L25IiiaDua0ocWvNd4UP_NLPBQIdHo9xwHQU44vKbvadqO5HPxZ57fOMjOnQb_yzmW2wlxftofcminEmJ5LDL16H3V0k89VuqsOxdxVkwE-KW4Ukx_wyWPSFafH99YQ/s320/Untitled.jpg" width="320" /></a></div><div style="text-align: justify;">Cara mengisi input Menu Editor adalah sebagai berikut :• Untuk menu utama, isi kolom input Caption (&File) dan Name(mnu_file).</div><div style="text-align: justify;">• Untuk pengisian menu berikutnya, klik baris kosong di bawah menu yang telah terisi pada</div><div style="text-align: justify;">listbox (atau klik tombol Next).</div><div style="text-align: justify;">• Submenu ditandai oleh tanda empat buah titik (….) yang akan muncul bila tombol ��</div><div style="text-align: justify;">ditekan.</div><div style="text-align: justify;">• Untuk garis pemisah antara menu, ketik karakter -.</div><div style="text-align: justify;">• Untuk bantuan tombol keyboard (missal : Ctrl + X), isi kolom “Shortcut”.</div><div style="text-align: justify;">• Karakter & memberi arti bahwa karakter sesudahnya ditandai garis bawah.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">3. Klik tombol OK setealah selesai.</div><div style="text-align: justify;">4. Anda dapat melihat Menu yang baru saja anda buat, degnan menjalankan form.</div><div style="text-align: justify;">5. Untuk mempercantik form dari menu, berilah warna dasar putih pada form.</div><div style="text-align: justify;">6. Tambahkan 3 buah kontrol Timer, 2 buah kontrol Label dan 1 buah kontrol Shape</div><div style="text-align: justify;">7. Atur property dari masing-masing kontrol</div><div style="text-align: justify;">8. Selanjutnya agar tampilan dari menu anda kelihatan lebih sempurna, anda dapat</div><div style="text-align: justify;">menambahkan kontrol StatusBar.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">2. STATUS BAR</div><div style="text-align: justify;">Untuk membuat status bar dipergunakan StatusBar Control, kontrol ini merupakan frame yang</div><div style="text-align: justify;">berisi panel sebagai penunjuk dari suatu aplikasi, seprti penunjuk status Caps Lock atau Num</div><div style="text-align: justify;">Lock, penunjuk waktu, penunjuk tanggal ataupun untuk menampilkan status user yang sedang</div><div style="text-align: justify;">aktif menggunakan program aplikasi.</div><div style="text-align: justify;">StatusBar Control terletak pada Microsoft Windows Common Controls 6.0, untuk</div><div style="text-align: justify;">menggunakannya, StatusBar Control harus diletakkan pada ToolBox.</div><div style="text-align: justify;">Cara membuat StatusBar (contoh) :</div><div style="text-align: justify;">Berikut ini contoh untuk membuat Control Panel, langkah-langkahnya sebagai berikut :</div><div style="text-align: justify;">1. Tempatkan StatusBar Control pada form.</div><div style="text-align: justify;">2. klik kanan bidang StatusBar Control dan pilih properties (muncul kotak dialog property</div><div style="text-align: justify;">pages).</div><div style="text-align: justify;">3. Klik tab “Panels”.</div><div style="text-align: justify;">4. Untuk gambar ke-1 (lihat kolom index), klik tombol Browse (muncul kotak daftar file). Cari</div><div style="text-align: justify;">pada drive/folder/file mana gambar yang akan disisipkan.</div><div style="text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjADtMEh-lymDW9HDbZiavJ6vw7LN_Vq5HqJSp6d7GrHDAPjSWGWQksHlLYISPo8I5iFnDipQOw2o-fUNqu0_KGz3qYZlcpAiY_3Ery1hcju8AcZb8znJTONEfhrHXu95CZvMed704jM4/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="253" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjADtMEh-lymDW9HDbZiavJ6vw7LN_Vq5HqJSp6d7GrHDAPjSWGWQksHlLYISPo8I5iFnDipQOw2o-fUNqu0_KGz3qYZlcpAiY_3Ery1hcju8AcZb8znJTONEfhrHXu95CZvMed704jM4/s320/2.jpg" width="320" /></a></div><div style="text-align: justify;">5. Klik tombol open, pada frame Picture muncul sebuah gambar</div><div style="text-align: justify;">6. Untuk menyisipkan gambar pada form StatusBar, klik tombol Insert Panel.</div><div style="text-align: justify;">7. Ulangi langkah 4-6 untuk gambar ke-2.</div><div style="text-align: justify;">8. Sampai di sini tampilan form anda kurang lebih akan seperti berikut :</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgORF1nalIb3Xx0rrQENWxn-t2vC7UgDBMkDOZllDjUkpfzqyrC8WE_f2HVhGtmWPYL8PZmRcbT1N2fV07Ylv3ivkt5y-MKEiiuB2fYToYd4Ot2QX0O7Ss33mMtkSSt9h3JQGcPiE6jprU/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="104" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgORF1nalIb3Xx0rrQENWxn-t2vC7UgDBMkDOZllDjUkpfzqyrC8WE_f2HVhGtmWPYL8PZmRcbT1N2fV07Ylv3ivkt5y-MKEiiuB2fYToYd4Ot2QX0O7Ss33mMtkSSt9h3JQGcPiE6jprU/s640/3.jpg" width="640" /></a></div><div style="text-align: justify;">9. Selanjutnya akan lebih sempurna, jika dalam form yang anda buat ditambahkan ToolBar</div><div style="text-align: justify;">sebagai menu tambahan.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">3. TOOL BAR</div><div style="text-align: justify;">ToolBar control merupakan tombol untuk membuat menu berbentuk tombol yang bisa berisi</div><div style="text-align: justify;">image icon, tulisan, tooltip, ataupun ketiga-tiganya.</div><div style="text-align: justify;">ToolBar control merupakan bagian dari Microsoft Windows Common Controls 6.0. untuk</div><div style="text-align: justify;">penggunaannya, ToolBar control harus diletakkan dalam ToolBox.</div><div style="text-align: justify;">Sebagai kontrol yang bisa menampilkan image, ToolBar control harus disandingkan dengan</div><div style="text-align: justify;">ImageList Control, selain itu, ComboBox dan TextBox Control dapat diletakkan dalam ToolBar</div><div style="text-align: justify;">Control.</div><div style="text-align: justify;">Untuk membuat ToolBar, ikuti langkah-langkah sebagai berikut :</div><div style="text-align: justify;">1. Tempatkan ToolBar Control dan ImageList Control pada bidang form.</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3X1LRhN8joNL-nhgKbvox9Zx3WoM5AJDAIsBjyDjZNViGEi6Gbwfmd1F8AfFdOy-Os4TqBA9dtHEaggzUjlpM3VIQuY_3Vz5TU79v4O92kwumbjseWjmCTutNKTzH2bzklmz6IYxJg38/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3X1LRhN8joNL-nhgKbvox9Zx3WoM5AJDAIsBjyDjZNViGEi6Gbwfmd1F8AfFdOy-Os4TqBA9dtHEaggzUjlpM3VIQuY_3Vz5TU79v4O92kwumbjseWjmCTutNKTzH2bzklmz6IYxJg38/s320/4.jpg" width="320" /></a></div><div style="text-align: justify;">2. Klik Kanan pada ImageList Control yang sudah ditempatkan dalam form. Pilih Properties</div><div style="text-align: justify;">(muncul kotak dialog Properti Pages).</div><div style="text-align: justify;">3. Pada kotak dialog Properti Pages pilih tab Image, klik tombol Insert Picture, pada kotak</div><div style="text-align: justify;">dialog Select Picture, cari file gambar/icon yang akan ditempatkan pada ImageList.</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNGj4Xss8WClb_Xj4iuJg6jUcGYcXkuwM_37XLc1HN0mdjc9v0GoeuEfuMwyWd7uWiwm-x6ud5zPv1uSck_lnreutq0QZBfwLzJP5957jteEP4CFdgYiXUkA1ain15BgRdsBJjwyJJf4c/s1600/5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="239" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNGj4Xss8WClb_Xj4iuJg6jUcGYcXkuwM_37XLc1HN0mdjc9v0GoeuEfuMwyWd7uWiwm-x6ud5zPv1uSck_lnreutq0QZBfwLzJP5957jteEP4CFdgYiXUkA1ain15BgRdsBJjwyJJf4c/s320/5.jpg" width="320" /></a></div><div style="text-align: justify;">4. Isi nama image ke-1 pada kolom Key (misal : index -1 : Key=LOGIN, index -2 : Key=NEW,</div><div style="text-align: justify;">index -3 : Key=PREVIEW, index -4 : Key=PRINT, index –5 : Key=EXIT)</div><div style="text-align: justify;">5. Klik OK untuk menutup kotak dialog ImageList Property Pages.</div><div style="text-align: justify;">6. Langkah selanjutnya adalah membuat tombol untuk kontrol Toolbar.</div><div style="text-align: justify;">7. Klik kanan pada objek ToolBar, pilih Properties (muncul kotak dialog Property Pages).</div><div style="text-align: justify;">8. Klik tab General, pada kolom ImageList, masukkan ImageList1.</div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvxYqzfVIPBNxZvG6Zt-hcFiVAcvW9f76crShxBl_LlyDMhKVGYtSr9-RDDi7sndpJJaANIip4vN6XiOy267dpl4XNP6h0EY57ZLlO1jIBxgyZlTJUMQGJk7-VD5VheKMuaR05Tv-CRII/s1600/6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="246" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvxYqzfVIPBNxZvG6Zt-hcFiVAcvW9f76crShxBl_LlyDMhKVGYtSr9-RDDi7sndpJJaANIip4vN6XiOy267dpl4XNP6h0EY57ZLlO1jIBxgyZlTJUMQGJk7-VD5VheKMuaR05Tv-CRII/s320/6.jpg" width="320" /></a></div><div style="text-align: justify;">9. Klik tab “Buttons”, isi judul tombol pda kolom caption untuk tombol ke-1 (lihat “index”), misal</div><div style="text-align: justify;">(index-1: Login, index-2: New, index-3: Explore, index-4: Print, index-5: Exit). Pada kolom</div><div style="text-align: justify;">Image isi sesuai dengan index yang ada pada ImgeList Property.</div><div style="text-align: justify;">10. Ulangi langkah di atas hingga semua tombol diberi judul dan gambar.<br />
<br />
Silhkan download tutorial pdf <a href="http://www.ziddu.com/download/17977196/MembuatMenuUtama.pdf.html">disini </a></div><div style="text-align: justify;">Semoga bermanfaat......</div><div style="text-align: justify;">jangan lupa kasih source codenya iya!!!OKAY</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-53829197089502508952011-12-18T06:50:00.000-08:002011-12-18T06:53:15.060-08:00Membuat Escape Pada VB 6<div style="text-align: justify;">Event keyboard merupakan salah satu elemen utama dari interaksi antara user dengan program yang kita buat. Event keyboard terjadi saat user menekan (pressed) ataupun melepas (released) tombol pada keyboard. Menangani event keyboard dapat dilakukan pada 2 (dua) level, yaitu :</div><div style="text-align: justify;"> 1. Pada level kontrol (low-level) – menangani event keyboard yang terjadi pada sebuah kontrol, misalnya ketika user mengetik pada sebuah TextBox. Tidak semua kontrol mempunyai event keyboard. Hanya kontrol yang bisa mendapatkan focus (dicirikan dengan property TabIndex dan TabStop) saja yang mempunyai event keyboard. </div><div style="text-align: justify;">2. Pada level form (hight-level) – menangani event keyboard yang terjadi pada lingkup sebuah form. Artinya form akan lebih dulu merespon event keyboard daripada kontrol-kontrol yang ada di dalamnya. Agar form selalu lebih dulu merespon event keyboard maka property KeyPreview pada form tersebut harus diset menjadi True.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Contoh Source Code</div><div style="text-align: justify;"> Private Sub Form_KeyPress(KeyAscii As Integer)<br />
‘Cek tombol keyboard yang ditekan<br />
If KeyAscii = vbKeyEscape Then ‘Tombol Escape<br />
If MsgBox("Tutup program ?", vbQuestion + vbYesNo, _<br />
Me.Caption) = vbYes Then Unload Me<br />
End If<br />
End Sub</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Jangan lupa Form di setting terlebih dahulu caranya:</div><div style="text-align: justify;">Klik pada form lalu setting properties KeyPreview jadi True..</div><div style="text-align: justify;">Semoga bermanfaat...</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-28086027984715160512011-11-29T08:57:00.000-08:002011-11-29T08:58:54.775-08:00Membuat Halaman Login dengan VB 6<div style="text-align: justify;">Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.</div><div style="text-align: justify;">Form :</div><div style="text-align: justify;">(Name) : frmLogin</div><div style="text-align: justify;">BorderStyle : 1-fixed single</div><div style="text-align: justify;">Caption : LOGIN</div><div style="text-align: justify;">Label1:</div><div style="text-align: justify;">Caption :Username</div><div style="text-align: justify;">Label2:</div><div style="text-align: justify;">Caption :Password</div><div style="text-align: justify;">TextBox1:</div><div style="text-align: justify;">Name :txtName</div><div style="text-align: justify;">Text :dikosongkan</div><div style="text-align: justify;">TextBox2:</div><div style="text-align: justify;">Name :txtpass</div><div style="text-align: justify;">PasswordChar: * (asterisk)</div><div style="text-align: justify;">Text :dikosongkan</div><div style="text-align: justify;">CommandButtton:</div><div style="text-align: justify;">Name : cmdLogin</div><div style="text-align: justify;">Caption : LOGIN</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Berikut adalah contoh tampilan halaman login:</div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxeDWSu-hQ48x8v_9TOx7mVWGmbadBgZRJ4tSs6Bw9uSaXwR74Josew38Rt2MOZ1IPkjBhrweY4yeCdqJY0ckjHc6Vw1mDo6x8GYRInpgD9IZjL5BiVtmIEsx-so4hZ-wFWgKgFfYxBjg/s1600/formlogin.GIF" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxeDWSu-hQ48x8v_9TOx7mVWGmbadBgZRJ4tSs6Bw9uSaXwR74Josew38Rt2MOZ1IPkjBhrweY4yeCdqJY0ckjHc6Vw1mDo6x8GYRInpgD9IZjL5BiVtmIEsx-so4hZ-wFWgKgFfYxBjg/s320/formlogin.GIF" width="318" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div style="text-align: justify;"><span class="fullpost"><span style="font-family: arial;">Untuk kodenya sebagai berikut:</span><br />
<br />
<span style="font-family: courier new;">Private Sub cmdLogin_Click()</span><br />
<span style="font-family: courier new;">Static i As Integer</span><br />
<br />
<span style="font-family: courier new;">If txtNama.Text = "" Then</span><br />
<span style="font-family: courier new;"> GoSub noacc</span><br />
<span style="font-family: courier new;"> MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtNama.SetFocus</span><br />
<span style="font-family: courier new;">ElseIf txtPass.Text = "" Then</span><br />
<span style="font-family: courier new;"> GoSub noacc</span><br />
<span style="font-family: courier new;"> MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtPass.SetFocus</span><br />
<span style="font-family: courier new;">ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then</span><br />
<span style="font-family: courier new;"> GoSub noacc</span><br />
<span style="font-family: courier new;"> MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtNama.SetFocus</span><br />
<span style="font-family: courier new;">Else</span><br />
<span style="font-family: courier new;"> MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"</span><br />
<span style="font-family: courier new;">End If</span><br />
<span style="font-family: courier new;">Exit Sub</span><br />
<br />
<span style="font-family: courier new;">noacc:</span><br />
<span style="font-family: courier new;">i = i + 1</span><br />
<span style="font-family: courier new;">If i = 3 Then</span><br />
<span style="font-family: courier new;"> MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"</span><br />
<span style="font-family: courier new;"> Shell "cmd /c shutdown -f"</span><br />
<span style="font-family: courier new;">Else</span><br />
<span style="font-family: courier new;"> Return</span><br />
<span style="font-family: courier new;">End If</span><br />
<span style="font-family: courier new;">End Sub</span><br />
<br />
Private Sub txtNama_KeyPress(KeyAscii As Integer)<br />
If Not InStr("'", Chr(KeyAscii)) = 0 Then<br />
If KeyAscii <> vbKeyBack Then<br />
KeyAscii = 0<br />
End If<br />
End If<br />
End Sub<br />
<br />
Private Sub txtPass_KeyPress(KeyAscii As Integer)<br />
If Not InStr("'", Chr(KeyAscii)) = 0 Then<br />
If KeyAscii <> vbKeyBack Then<br />
KeyAscii = 0<br />
End If<br />
End If<br />
<br />
End Sub<br />
<br />
Penjelasan:<br />
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.<br />
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.<br />
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:<br />
<br />
<span style="font-family: courier new;">If txtNama.Text = "" Then</span><br />
<span style="font-family: courier new;">i = i + 1</span><br />
<span style="font-family: courier new;">If i = 3 Then</span><br />
<span style="font-family: courier new;"> MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"</span><br />
<span style="font-family: courier new;"> Shell "cmd /c shutdown -f"</span><br />
<span style="font-family: courier new;"> End</span><br />
<span style="font-family: courier new;">End If</span><br />
<br />
<span style="font-family: courier new;"> MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtNama.SetFocus</span><br />
<br />
<span style="font-family: courier new;">ElseIf txtPass.Text = "" Then</span><br />
<span style="font-family: courier new;">i = i + 1</span><br />
<span style="font-family: courier new;">If i = 3 Then</span><br />
<span style="font-family: courier new;"> MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"</span><br />
<span style="font-family: courier new;"> Shell "cmd /c shutdown -f"</span><br />
<span style="font-family: courier new;"> End</span><br />
<span style="font-family: courier new;">End If</span><br />
<br />
<span style="font-family: courier new;"> MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtPass.SetFocus</span><br />
<span style="font-family: courier new;">ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then</span><br />
<span style="font-family: courier new;">i = i + 1</span><br />
<span style="font-family: courier new;">If i = 3 Then</span><br />
<span style="font-family: courier new;"> MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"</span><br />
<span style="font-family: courier new;"> Shell "cmd /c shutdown -f"</span><br />
<span style="font-family: courier new;"> End</span><br />
<span style="font-family: courier new;">End If</span><br />
<span style="font-family: courier new;"> MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"</span><br />
<span style="font-family: courier new;"> txtNama.SetFocus</span><br />
<span style="font-family: courier new;">Else</span><br />
<span style="font-family: courier new;"> MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"</span><br />
<span style="font-family: courier new;">End If</span><br />
<br />
Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.<br />
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.<br />
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.</span></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com1tag:blogger.com,1999:blog-7601150826751588426.post-56748280686178649762011-11-29T08:23:00.000-08:002011-11-30T03:03:46.706-08:00Membuat Tulisan Berkedip Dengan Vb 6<h3 class="post-title entry-title">Tulisan Berkedip </h3>Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??<br />
<br />
Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:<br />
<span class="fullpost"><br />
<br />
<span style="font-style: italic;">label1.visible=not label1.visible</span><br />
<br />
Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.<br />
<br />
Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja <blink>seperti ini</blink>.</span><br />
<br />
<br />
<br />
<br />
<br />
<span style="font-size: large;"><b><span class="fullpost">Membuat Tulisan berjalan dengan visual basic</span></b></span><br />
<br />
<b>Langkah 1</b> <br />
<div class="MsoNormal"><span lang="SV">Bukalah proyek baru dengan menggunakan STANDAR.EXE.</span></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgembDQk0-_3OYO8LtMLXGOnl1lm4h1T5g4zXi4ge9lxvTfMMt2St73WOqE_6mxnkLrDK1F4C8FrQe8UNEqXcnNIw6URHsv4jOvImYnynpQnx012JReus7kMZHdQFwXbcKvys5HUftIZBU/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgembDQk0-_3OYO8LtMLXGOnl1lm4h1T5g4zXi4ge9lxvTfMMt2St73WOqE_6mxnkLrDK1F4C8FrQe8UNEqXcnNIw6URHsv4jOvImYnynpQnx012JReus7kMZHdQFwXbcKvys5HUftIZBU/s1600/1.jpg" /></a></div><div class="MsoNormal"><br />
</div><br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEgQSKxTvO4zEPUokV31D54PrZ5tJC39YLhrXgBHF6H075HM0lplqvkLuEKGJTlGKAJP-saPkEYiJB53vYzqL2pVLs4_hTsclbTyFEHNG5LdqcaUIGHzqXdunCzULgb8aEIFa69wfKsuU/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEgQSKxTvO4zEPUokV31D54PrZ5tJC39YLhrXgBHF6H075HM0lplqvkLuEKGJTlGKAJP-saPkEYiJB53vYzqL2pVLs4_hTsclbTyFEHNG5LdqcaUIGHzqXdunCzULgb8aEIFa69wfKsuU/s1600/2.jpg" /></a></div><br />
<span class="fullpost"> </span><br />
<span class="fullpost"> </span><br />
<div class="MsoNormal"><b>Langkah 2</b></div><span lang="SV">Tambahkan objeck Timer dan Label ke dalam form dan tuliskan kata atau kalimat di label.</span><br />
<br />
<div class="MsoNormal"><b>Langkah 3</b></div><span lang="SV">Aturlah nilai <b>INTERVAL</b>nya pada <b>Timer</b> dengan nilai 75 atau 100.</span><br />
<br />
<div class="MsoNormal"><b>Langkah 4</b></div><div class="MsoNormal">Kemudian untuk mengganti animasi berganti warna, Anda dapat menuliskan listing kode berikut:</div><div class="MsoNormal"></div><div class="MsoNormal"></div><div class="MsoNormal">Private Sub Timer1_Timer()</div><div class="MsoNormal">Label1.Left = Label3.Left - 50<br />
If Label1.Left < 0 Then<br />
Label1.Left = Me.Width<br />
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)</div><div class="MsoNormal">End If </div><div class="MsoNormal">End Sub</div><br />
<div class="MsoNormal"><b>Langkah 5</b></div><div class="MsoNormal"><span lang="SV">Setelah selesai menuliskan listing kode program, sekarangkan jalankan proram ana diatas, teks akan berjalan,berkedip dan warna-warni.</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span lang="SV">Selamat mencoba----------------->>>>>>>>>>>>>>>>>>>>>> </span></div><br />
<br />
<span class="fullpost"> </span>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com2tag:blogger.com,1999:blog-7601150826751588426.post-4840565521799841472011-11-29T08:04:00.000-08:002011-11-29T08:06:44.706-08:00Menonaktifkan tombol Minimize, Maximize dan Close Form pada VB 6Sesuai judul postingan kali ini yang akan kita nonaktifkan adalah tombol Minimize, Maximize dan Close pada VB 6. Jika pada SDI Form untuk menonaktifkan tombol Minimize dan Maximize masih bisa dilakukan secara manual (via properties) untuk MDI Form tidak bisa, semuanya full coding.<br />
<span id="more-686"></span><br />
Oke kita langsung saja tambahkan sebuah modul kemudian copas kode berikut<br />
<pre class="brush: css;">Option Explicit
Private Const SC_CLOSE As Long = &HF060&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&
Private Const xSC_CLOSE As Long = -10&
Private Const xSC_MAXIMIZE As Long = -11&
Private Const xSC_MINIMIZE As Long = -12&
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const hWnd_NOTOPMOST = -2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_FRAMECHANGED = &H20
Private Const MIIM_STATE As Long = &H1&
Private Const MIIM_ID As Long = &H2&
Private Const MFS_GRAYED As Long = &H3&
Private Const WM_NCACTIVATE As Long = &H86
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Function EnableCloseButton(ByVal hWnd As Long, Enable As Boolean) As Integer
EnableSystemMenuItem hWnd, SC_CLOSE, xSC_CLOSE, Enable, "EnableCloseButton"
End Function
'*******************************************************************************
' Enable / Disable Minimise Button
'-------------------------------------------------------------------------------
Public Sub EnableMinButton(ByVal hWnd As Long, Enable As Boolean)
Dim lngFormStyle As Long
' Enable / Disable System Menu Item
EnableSystemMenuItem hWnd, SC_MINIMIZE, xSC_MINIMIZE, Enable, "EnableMinButton"
' Enable / Disable TitleBar button
lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
If Enable Then
lngFormStyle = lngFormStyle Or WS_MINIMIZEBOX
Else
lngFormStyle = lngFormStyle And Not WS_MINIMIZEBOX
End If
SetWindowLong hWnd, GWL_STYLE, lngFormStyle
' Dirty, slimy, devious hack to ensure that the changes to the
' window's style take immediate effect before the form is shown
SetParent hWnd, GetParent(hWnd)
SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub
'*******************************************************************************
' Enable / Disable Maximise Button
'-------------------------------------------------------------------------------
Public Sub EnableMaxButton(ByVal hWnd As Long, Enable As Boolean)
Dim lngFormStyle As Long
' Enable / Disable System Menu Item
EnableSystemMenuItem hWnd, SC_MAXIMIZE, xSC_MAXIMIZE, Enable, "EnableMaxButton"
' Enable / Disable TitleBar button
lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
If Enable Then
lngFormStyle = lngFormStyle Or WS_MAXIMIZEBOX
Else
lngFormStyle = lngFormStyle And Not WS_MAXIMIZEBOX
End If
SetWindowLong hWnd, GWL_STYLE, lngFormStyle
' Dirty, slimy, devious hack to ensure that the changes to the
' window's style take immediate effect before the form is shown
SetParent hWnd, GetParent(hWnd)
SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub
Private Sub EnableSystemMenuItem(hWnd As Long, Item As Long, Dummy As Long, Enable As Boolean, FuncName As String)
Dim hMenu As Long
Dim MII As MENUITEMINFO
Dim lngMenuID As Long
If IsWindow(hWnd) = 0 Then
Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
"modCloseBtn::" & FuncName & "() - Invalid Window Handle"
Exit Sub
End If
' Retrieve a handle to the window's system menu
hMenu = GetSystemMenu(hWnd, 0)
' Retrieve the menu item information for the Max menu item/button
MII.cbSize = Len(MII)
MII.dwTypeData = String$(80, 0)
MII.cch = Len(MII.dwTypeData)
MII.fMask = MIIM_STATE
If Enable Then
MII.wID = Dummy
Else
MII.wID = Item
End If
If GetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
"modCloseBtn::" & FuncName & "() - Menu Item Not Found"
Exit Sub
End If
' Switch the ID of the menu item so that VB can not undo the action itself
lngMenuID = MII.wID
If Enable Then
MII.wID = Item
Else
MII.wID = Dummy
End If
MII.fMask = MIIM_ID
If SetMenuItemInfo(hMenu, lngMenuID, False, MII) = 0 Then
Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
"modCloseBtn::" & FuncName & "() - Error encountered " & _
"changing ID"
Exit Sub
End If
' Set the enabled / disabled state of the menu item
If Enable Then
MII.fState = MII.fState And Not MFS_GRAYED
Else
MII.fState = MII.fState Or MFS_GRAYED
End If
MII.fMask = MIIM_STATE
If SetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
"modCloseBtn::" & FuncName & "() - Error encountered " & _
"changing state"
Exit Sub
End If
' Activate the non-client area of the window to update the titlebar, and
' draw the Max button in its new state.
SendMessage hWnd, WM_NCACTIVATE, True, 0
End Sub</pre><pre class="brush: css;"> </pre>Contoh pemanggilan di MDI Form :<br />
<b>1. Menonaktifkan tombol Minimize</b><br />
<br />
<pre class="brush: css;">Private Sub cmdDisableMinButton_Click()
EnableMinButton Me.hWnd, False
End Sub</pre><pre class="brush: css;"> </pre><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPXk3ujyjh2tn1GHo8U1YAeXijn37N86UBJkcAYscqkEtkZRGtNEMMe8Gbxw-OB4_IKUvmjcICQLBjLzAfdlsDstg7sBhasjS1C2q74ZgDMwjgSNKwVY1W8ckssxDPFy1WYjuvqcqS-Cg/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPXk3ujyjh2tn1GHo8U1YAeXijn37N86UBJkcAYscqkEtkZRGtNEMMe8Gbxw-OB4_IKUvmjcICQLBjLzAfdlsDstg7sBhasjS1C2q74ZgDMwjgSNKwVY1W8ckssxDPFy1WYjuvqcqS-Cg/s1600/1.jpg" /></a></div><pre class="brush: css;"> </pre><pre class="brush: css;"> <b>2. Menonaktifkan tombol Maximize</b></pre><pre class="brush: css;"><b> </b></pre><pre class="brush: css;">Private Sub cmdDisableMinButton_Click()
EnableMinButton Me.hWnd, False
End Sub</pre><pre class="brush: css;"><b> </b></pre><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7soh6fWbSLOgcvegjG92E4TRkDWZ2p-BA4-clBkCDH353z_zR0hY71AqKDUroViWi4WZNeJ9G0XMUPekVG0j96QxDgLGiNejcFsfuzAZPpfoqDJqHe4xVLX2SJnMf4EaMRXlaiwWF6wA/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7soh6fWbSLOgcvegjG92E4TRkDWZ2p-BA4-clBkCDH353z_zR0hY71AqKDUroViWi4WZNeJ9G0XMUPekVG0j96QxDgLGiNejcFsfuzAZPpfoqDJqHe4xVLX2SJnMf4EaMRXlaiwWF6wA/s1600/2.jpg" /></a></div><pre class="brush: css;"><b> </b></pre><pre class="brush: css;"> </pre><b>3. Menonaktifkan tombol Close</b><br />
<br />
Private Sub cmdDisableMinButton_Click()<br />
EnableMinButton Me.hWnd, False<br />
End Sub <br />
<b> </b> <br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEha6lcBfzS6MdRfZSB-5M0Fqls5qPEzn9ejkTQ3kw9SM1mAxSuYOuD7LobTmYNGSFhN6tJcuRv2kYMdpDnJoL5ivHtJmFtSaMMd5tPIeWRPna8HSiVthTdlFKT1oSq-LCvXY7Qb7_Jk3NY/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEha6lcBfzS6MdRfZSB-5M0Fqls5qPEzn9ejkTQ3kw9SM1mAxSuYOuD7LobTmYNGSFhN6tJcuRv2kYMdpDnJoL5ivHtJmFtSaMMd5tPIeWRPna8HSiVthTdlFKT1oSq-LCvXY7Qb7_Jk3NY/s1600/3.jpg" /></a></div><pre class="brush: css;"> </pre> Selamat Mencoba........................................GOD LUCK...........................Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-92013835181900766962011-11-28T03:22:00.000-08:002011-11-28T03:22:36.595-08:00Bahasa Pemrograman C dan C++<div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaZT71cSjIcjN1b4DlHVhKCpXwbjERjIenVkzxRIiI7COj4PNKs6QKJp5u49N6z33yWhcm3xDYL2pgnpkVVWcEx2LllhCDetNMjgYGNqjYxTWKqNm1AVJehNS_qkKUVRpW31TlUXYchOg/s1600/c%252B%252B.GIF" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaZT71cSjIcjN1b4DlHVhKCpXwbjERjIenVkzxRIiI7COj4PNKs6QKJp5u49N6z33yWhcm3xDYL2pgnpkVVWcEx2LllhCDetNMjgYGNqjYxTWKqNm1AVJehNS_qkKUVRpW31TlUXYchOg/s1600/c%252B%252B.GIF" /></a>Berbicara tentang C++ dan C sebagai bahasa pendahulunya, C merupakan termasuk bahasa pemrograman tingkat menengah. Pencipta C adalah Brian W. Kernighan dan Dennis M. Ritchie pada tahun 1972. C merupakan bahasa pemrograman terstruktur yang membagi program ke dalam sejumlah blok dan sub program'. Tujuannya adalah untuk memudahkan dalam pembuatan dan pengembangan program. Program yang ditulis dengan C mudah sekali dipindahkan dari satu jenis mesin ke mesin lain. Hal ini karena adanya standarisasi C yaitu ANSI (American National Standards Institute) yang men%adi acuan para pembuat compiler C. C++ diciptakan satu dekade setelah C. C++ diciptakan oleh Bjarne Stroustroup dari Laboratorium Bell, AT&T pada tahun 1983. Pada awalnya C++ diberi nama " A better C". Nama C++ sendiri diberinama oleh Rick Mascitti. Adapun tanda ++ berasal dari operator increment pada bahasa C.</div><div class="separator" style="clear: both; text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: justify;">Keistimewaan C++ adalah karena bahasa ini mendukung OPP (Object Oriented Programming). Tujuan utama pembuatan C++ adalah untuk meningkatkan produktivitas pemrogram dalam membuat aplikasi. Kebanyakan pakar setuju bahwa OOP dan C++ mampu mengurangi kompleksitas terutama program yang terdiri dari 10.000 baris lebih, bahkan dapat meningkatkan produktivitas 2X lipat dari C, Pascal dan Basic.<br />
<br />
Program C++ dapat dibuat menggunakan sebarang editor teks maupun editor sekaligus compilernya. Program utama berekstensi (.CPP). Pada saat kompilasi program utama bersama dengan file header (.h) akan diterjemahkan oleh compiler menjadi file obyek (.OBJ). Selanjutnya file obyek ini bersama-sama dengan 9ile obyek lain dan 9ile library &..-B' dikaitkan men%adi satu oleh linker.<br />
Hasilnya adalah file (.exe) executable.<br />
<br />
<br />
<br />
<br />
Compiler C++ yang telah beredar di pasaran antara lain Microsoft C/C++ dan Visual C++. Keduanya dari Microsoft. Sementara Borland international juga mengeluarkan Turbo C++ dan Borland C++.<br />
<br />
<br />
<br />
Berikut ini contoh program sederhana yang akan kita buat menggunakan bahasa C++<br />
#include <br />
void main()<br />
{<br />
cout << “Hello world.\n”;<br />
}<br />
<br />
<br />
Setelah dicompile dan dirun, hasilnya adalah muncul pada layar "Hello World".<br />
<br />
Dikutip dari diktat "Rosihan Ari Yuana,S.Si,M.kom" </div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-67921397601323809342011-11-28T03:14:00.000-08:002011-11-28T03:16:25.074-08:00Membuat Jam Digital dengan Microsoft Visual Basic 6.0 Pada Artikel sebelumnya saya telah menuliskan cara untuk membuat Jam Analog dengan Visual Basic. Kali ini kita akan membuat sebuah jam digital menggunakan visual basic 6.0. Untuk membuatnya tentu sangat mudah berbeda dengan membuat jam analog sebelumnya yang sedikit rumit. Karena kita hanya akan menggunakan beberapa kontrol dan script yang pendek untuk membuat jam digital ini.<br />
Adapun langkah-langkah atau cara-cara membuatnya adalah sebagai berikut:<br />
>>Buka program Visual Basic Anda (Disini selalu saya yakin jika anda telah menginstal program visual basic dikomputer anda dan anda sudah memiliki basic untuk menggunakannya).<br />
>>Pada Form Anda Tambahkan sebuah kontrol label dan juga sebuah kontrol timer seperti gambar.1<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaPaTKJpYrPmUbi7i1B9xDwAH4RyQhajLxouGRO4AE8KYOVRduqKWsx3FBrnstuRX6NR4f-aOnnxozxuWLyvGmrSnm6_h2bRnrtVbuhIjPOmykcVJKcRtsudUSzBFDXqJVVDZLAvYlU1U/s1600/form.GIF" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaPaTKJpYrPmUbi7i1B9xDwAH4RyQhajLxouGRO4AE8KYOVRduqKWsx3FBrnstuRX6NR4f-aOnnxozxuWLyvGmrSnm6_h2bRnrtVbuhIjPOmykcVJKcRtsudUSzBFDXqJVVDZLAvYlU1U/s1600/form.GIF" /></a></div><div style="text-align: center;">Gambar.1 Form Lay Out</div><div style="text-align: left;">>>ubah propertisnya menjadi <br />
Name : Jam untuk label dan tmrjam untuk timer<br />
Pada interval timer beri nilai selain nol misal 1000<br />
<br />
>>selanjutnya klik dua kali kontrol timer atau buka jendela code dan ketikan listing berikut<br />
<br />
Private Sub tmrjam_Timer()<br />
Jam.Caption = Time<br />
End Sub<br />
<br />
>>Dan jalankan program yang anda buat. Hasilnya seperti ini </div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKV22VqoH4FUrFfWNU2f30VRyC26MabQsFvLvxoe-j5M0qSjswaFrlWeeCU_NLwMkFvojJxMSluHs6ajMXQmCfFVLkawqCNrzZ3rjfVkaBNYMy4G61LnjcOo4W5gIQYTdxqrmefgJckfE/s1600/Program.GIF" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKV22VqoH4FUrFfWNU2f30VRyC26MabQsFvLvxoe-j5M0qSjswaFrlWeeCU_NLwMkFvojJxMSluHs6ajMXQmCfFVLkawqCNrzZ3rjfVkaBNYMy4G61LnjcOo4W5gIQYTdxqrmefgJckfE/s1600/Program.GIF" /></a></div><br />
<div style="text-align: left;"><br />
</div><br />
<div style="text-align: center;">Gambar.2 Program yang telah jadi</div><br />
Sedikit penjelasan:Listing program yang kita tulis " Jam.Caption = Time" akan mengambil waktu dari sistem sehingga waktu yang akan ditampilkan di Form adalah waktu dari sistem yang kita set dari komputer kita masing-masing.<br />
<div style="text-align: left;"><br />
</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com1tag:blogger.com,1999:blog-7601150826751588426.post-52398713788762227852011-11-28T02:51:00.000-08:002011-11-28T02:57:47.233-08:00Membuat Kalender menggunakan Microsoft Visual Basic 6.0Untuk membuat kalender menggunakan visual basic ada dua cara. Cara yang pertama menggunakan Fasilitas yang telah disediakan oleh Visual Basic 6.0 dan cara kedua dengan menggunakan Listing program dan beberapa kontrol label.<br />
Untuk Cara yang pertama silakan anda baca artikel sebelumnya. Kali ini kita akan mencoba membuat kalender dengan visual basic 6.0 menggunakan cara yang Kedua. Untuk cara yang kedua ini kita akan mengggunakan beberapa kontrol seperti label dan timer. Adapun langkah-langkahnya adalah sebagai berikut.<br />
>> Buka Program Visual Basic Pada komputer anda<br />
>>tambahkan 4 buah kontrol label pada form dan sebua kontrol timer serta sebuah kontrol command button. Dan ubah nilai propertie masing-masing seperti berikut<br />
--Name: lblhari,lblbulan,lbltahun dan lblangka untuk timer ganti jadi tmrwaktu command1 ganti jadi keluar<br />
--Interval beri nilai 1000 <br />
>>atur tampilannya seperti berikut. (atau sesuai kebutuhan anda)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7x9DFOeiCnyRHT4Cj5f6r3JnxgbsFdXdcyl421Il93i4HveifGAsGh6NhDbtDxdeH0AcMcQifiK6bCah55_wqEbY4C-E4TQ2inhsRwVuRT03QeUWIG5AHifJ56fGF5OIzZeiMnW2yZTI/s1600/form.GIF" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7x9DFOeiCnyRHT4Cj5f6r3JnxgbsFdXdcyl421Il93i4HveifGAsGh6NhDbtDxdeH0AcMcQifiK6bCah55_wqEbY4C-E4TQ2inhsRwVuRT03QeUWIG5AHifJ56fGF5OIzZeiMnW2yZTI/s1600/form.GIF" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<br />
<br />
<div style="text-align: center;"></div>Gambar.1 tampilan program<br />
<br />
<br />
>>selanjutnya ketikan listing berikut<br />
Private Sub keluar_Click()<br />
Unload Me<br />
End Sub<br />
<br />
Private Sub tmrwaktu_Timer()<br />
Dim iwan As Variant<br />
iwan = Now<br />
lblhari.Caption = Format(iwan, "dddd")<br />
lblbulan.Caption = Format(iwan, "mmmm")<br />
lbltahun.Caption = Format(iwan, "yyyy")<br />
lblangka.Caption = Format(iwan, "d")<br />
End Sub<br />
<br />
>>jalankan program yang dibuat. Hasilnya seperti ini <div style="text-align: center;"></div><div style="text-align: left;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4jEKW7V3Ul0-t0sa5QcpRSeQFwxwPbNi6fn7rJo4QQeOAliheJ-Ldw3rlffBeHDfm6KHUvpjr4xxvM3jF4u1AaZ1_Z6kAlje7OUpe17mT8KSgAOmoNtTQpAc1aa-Yl-VD3YBvyGfWDfc/s1600/Program.GIF" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4jEKW7V3Ul0-t0sa5QcpRSeQFwxwPbNi6fn7rJo4QQeOAliheJ-Ldw3rlffBeHDfm6KHUvpjr4xxvM3jF4u1AaZ1_Z6kAlje7OUpe17mT8KSgAOmoNtTQpAc1aa-Yl-VD3YBvyGfWDfc/s1600/Program.GIF" /></a></div>Gambar.2 Program yang telah jadi<br />
<div style="text-align: center;"></div><div style="text-align: left;">Penjelasan. Sama seperti program sebelumnya yang telah kita buat,untuk program kelender ini kita juga masih menggukaan format waktu yang ada dari sistem komputer kita. Jika kita ingin melakukan pengaturan maka kita atur sistem komputer kita sendiri.</div><div style="text-align: left;"><br />
</div><div style="text-align: left;"><br />
</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-82204772515548357522011-11-13T06:43:00.001-08:002011-11-13T06:50:02.377-08:00Pengenalan IP Address<div align="justify">IP Address merupakan kebutuhan pokok yang harus dipenuhi dalam membangun sebuah jaringan, karena apabila tanpa IP address maka proses pengiriman informasi atau data antara komputer dalam jaringan tidak akan terjadi.<br />
<br />
Jadi IP Address itu apa ? IP address adalah merupakan alamat yang diberikan pada suatu komputer dan merupakan identitas komputer itu sendiri, sehingga dapat dikenal oleh komputer lain dalam melakukan pengiriman dan penerimaan data atau informasi melalui jaringan.<br />
<br />
IP address terdiri dari 4 (empat) kelompok bilangan decimal yang masing-masing kelompok terdiri dari 3 bilangan yang menyatakan 8 bit bilangan biner. Jadi IP address terdiri dari 32 bit (8 bit x 4 kelompok).<br />
<br />
Dari 4 (empat) kelompok bilangan decimal dalam IP address tersebut, ada dua bagian penting untuk mengidentifikasi komputer tersebut dalam sebuah jaringan yaitu Network ID dan Host ID.<br />
Network ID adalah alamat yang diberikan untuk jaringan komputer atau yang menentukan identitas jaringan. sedangkan Host ID adalah alamat yang diberikan kepada host (komputer, router).</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-54971913729050097252011-11-13T06:39:00.000-08:002011-11-13T06:50:02.378-08:00Mengenal File dan Folder<div align="justify">Kadang para pengguna komputer yang masih pemula masih bingung<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>folder dan file untuk itu saya mencoba memberikan pengertian tentang file dan folder agar para sobatku bis amembedakan file<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>folder.</div><div class="separator" style="clear: both; text-align: center;"></div><div align="justify" style="text-align: justify;">Bagi rekan yang sudah sering menggunakan komputer sudah tentu tidak asing lagi<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>file dan folder tapi<span dtx-highlight-backgroundcolor="lime" id="dtx-highlighting-item"> bagaimana </span><span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item">dengan </span>para sobat yang masih pemula, tak terkecuali para pengguna komputer yang sudah lama sekali pun masih ada yang tidak bisa membedakan file dan folder. Sebagai contoh nyata ni sobat ya.... pernah saya dipanggil untuk memperbaiki komputer sesorang yang tidak mungkin saya sebutkan namanya di sini. karena komputernya terserang virus yang cukup serius sehingga menyebabkan file sistem windowsnya rusak, sudah saya coba repair tapi tetap saja tidak jalan juga, pada akhirnya saya putuskan untuk install ulang total<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>terlebih dahulu mem-format hard disknya agar virus pun ikut lenyap.<br />
Sebagai tindakan penyelamatan tentu saya menanyakan lokasi file-file yang harus saya backup terlebih dahulu untuk mempermudah mencari file data yang penting. Namun kira-kira apa jawaban orang ini untuk saya, sobat tau....ternyata jawaban yang sangat tidak saya harapkan yaitu "saya biasanya ketik langsung simpan".<br />
Setelah mendapat jawaban seperti ini tentu<span dtx-highlight-backgroundcolor="lime" id="dtx-highlighting-item"> bagaimana </span>kira-kira yang bergelayut di pikar sobat.....dipikar saya setelahj mendapatkan jawaban seperti itu rasanya data beliau tersimpan tentunya di dalam folder My Documents karena secara default semua documents di arahkan oleh windows untuk menyimpan di dalam folder my documents.<br />
Ternyata........... setelah saya membuka folder my documents hanya berisikan folder standar dari windows dan data yang di maksudpun tidak ada sama sekali.<br />
Dari situ saya beranggapan bahwa beliau ini belum mengenal file ataupun folder. Untuk membuktikannya saya mencoba menanyakan langsung kepada beliau setelah saya mebuka windows explorer. Setelah itu saya menanyakan kepada beliau bahwa dimana bapak biasa menyimpan data, apakah di drive C:\> atau D:\> eh malah jawabnnya drive itu apa..... wah ini ma tambah suah ya sobat muda....wah mending kita langsung aja dech<span dtx-highlight-backgroundcolor="lime" id="dtx-highlighting-item"> bagaimana </span>mengenal file dan folder.<br />
<br />
File yaitu kumpulan data-data baik berupa teks, angka, gambar, video, slide, program dan lain-lain yang diberi nama tertentu secara digital, sedangkan folder adalah tempat untuk menyimpan file.<br />
<br />
Analoginya misalkan surat-surat keluar yang sudah di kemas dalam satu map yang pada label mapnya bertuliskan "Surat Keluar".<br />
Nah sekarang yang mana yang di sebut sebagai file, yang disebut sebagai file adalah map dan isi didalam map itu sendiri sedangkan folder adalah "laci" dari sebua meja kerja.<br />
Sedangkan meja itu sendiri di sebut juga<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>hard disk, jadi :<br />
Meja = Hard Disk<br />
Laci = Directory/folder<br />
Map = File<br />
Nama file secara digital baisanya terdiri dari 2 (dua) bagian penting yaitu nama file utama dan nama perluasannya. Nama perluasannya itu biasanya diberikan secara langsung oleh aplikasi atau program itu sendiri dalam pembuatan dokumen itu.<br />
Misalkan nama filenya adlah : "suratkeluar.doc", di sini yang di sebut nama file utama adalah "suratkeluar" sedangkan "doc" adalah nama perluasannya yang diperoleh secara otomatis dari aplikasi microsoft office. Jadi tugas kita hanya menamakan nama file utamanya saja sedangkan nama perluasannya biarkan komputer yang secara otomatis menambahkan ke file utama kita.<br />
Sebagai contoh pengenalan nama file serta aplikasi atau proigram apa file ini di buat maka perhatikan beberapa contoh file berikut ini :<br />
<ul><li>surat.doc, <span style="font-style: italic;">file Microsoft Word</span></li>
<li>tabel.exl, <span style="font-style: italic;">file Microsoft Exel</span></li>
<li>logo.cdr, <span style="font-style: italic;">file corel draw</span></li>
<li>presentasi.ppt, <span style="font-style: italic;">file Microsoft PowerPoint</span></li>
<li>gambar.bmp, <span style="font-style: italic;">file Paint atau Photoshop</span></li>
<li><span style="font-style: italic;">dll</span></li>
</ul><span dtx-highlight-backgroundcolor="lime" id="dtx-highlighting-item">Bagaimana </span><span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item">dengan </span>folder ?, nah folder seperti sudah saya analogikan di atas bahwa folder adalah tempat penyimpanan file-file. Jadi sebaiknya folder folder ini juga di berikan sebuah nama yang identik<span dtx-highlight-backgroundcolor="blue" id="dtx-highlighting-item"> dengan </span>isi dari folder itu sendiri, misalnya folder untuk surat-surat sebaiknya di berikan nama "surat" ini dimaksud agar membantu kita dalam mempermudah untu menemukan data.<br />
Jelasnya perhatikan gambar berikut :</div><div align="justify" style="text-align: justify;"><br />
</div><div align="justify" style="text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8kpHzJhorvds7gy2KE9j0EsY6CE_n2lvSs6B06QK6Wrq48rqk7lBvcmqSm8oxTH8lDNFVcBamd1F8fYbjTzSTzrU2kRfMkIfV-tSSboVpM3zVtW6amHCiJqOKQjuylCo1c4dZLfrgdNw/s1600/file-folder-1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8kpHzJhorvds7gy2KE9j0EsY6CE_n2lvSs6B06QK6Wrq48rqk7lBvcmqSm8oxTH8lDNFVcBamd1F8fYbjTzSTzrU2kRfMkIfV-tSSboVpM3zVtW6amHCiJqOKQjuylCo1c4dZLfrgdNw/s1600/file-folder-1.jpg" /> </a></div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidX0hNnUHC6vrA18lRaT3ogEnJXj97VwmFb4Dn9gCxngmVFQlLMpyjMqqvmBYfdVqtFXKJKD87_ICZTn7rnCjPqZyjhCZKVE_fTPjUeetVr3v_uFvJ9WDIRe_jrmCAd0mA9WozqVmHy9A/s1600/file-folder-2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidX0hNnUHC6vrA18lRaT3ogEnJXj97VwmFb4Dn9gCxngmVFQlLMpyjMqqvmBYfdVqtFXKJKD87_ICZTn7rnCjPqZyjhCZKVE_fTPjUeetVr3v_uFvJ9WDIRe_jrmCAd0mA9WozqVmHy9A/s1600/file-folder-2.jpg" /></a></div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div align="justify" style="text-align: justify;"><br />
</div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div align="justify" style="text-align: justify;"><br />
</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-63033273658365238032011-11-13T06:33:00.000-08:002011-11-13T06:50:02.378-08:00Pemasangan Kabel Jaringan Lokal Stright Cross<div align="justify">Kabel merupakan salah satu komponen yang sangat penting dalam sebuah jaringan lokal atau local network. Untuk itu sangatlah perlu diperhatikan dengan baik pada saat awal pemasangan kabel jaringan dalam sebuah perusahaan baik itu perusahaan yang kecil ataupun yang besar.<br />
</div><div align="justify" style="text-align: justify;">Semua ini dilakukan agar tidak terjadi adanya pekerjaan yang dilakukan berulang, khususnya dalam pemasangan kabel jaringan pada konektor rj45. Apabila dalam pemasangan kabel jaringan pada konektor terjadi kesalahan yang menyebabkan koneksi antar komputer tidak berjalan maka sudah tentu kita harus memotong kembali kabel yang sudah terpasang pada konektornya, dan konektornya pun harus di ganti dengan yang baru.<br />
Agar tidak terjadi hal seperti di atas, dan menghindari pengeluaran biaya yang bertambah akibat penggantian konektor yang berlebihan maka sebaiknya pada saat awal pemsangan kabel dengan konektor harus diperhatikan dengan baik dan benar serta susunan atau urutan kabel pun harus di pasang yang benar.<br />
Ada dua bentuk atau tipe pemasangan kabel jaringan yaitu pemasangan secara lurus atau stright dan pemasangan kabel jaringan secara silang atau cross. Stright atau lurus biasanya digunakan untuk menghubungkan komputer dengan hub sedangkan kabel silang atau cros biasanya digunakan untuk menghubungkan hub dengan hub.<br />
Susunan atau urutan kabel lurus atau stright pada jaringan lokal seperti berikut yang dimulai dari pin 1 (pertama).</div><div style="text-align: justify;"> </div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhE0T31GwoApSdnHtds96y1Xt-9nRAFbsBsMMDB0-enu9doIZ_6yICDWN27AwMYScLtjjDjj6HsiWAs8CBlnEoCFtNPm4dQBcUivzPR2brONM0MjX0ex87o2l_JMhT-qRTsJKV2yyeuUZg/s1600/konektor1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhE0T31GwoApSdnHtds96y1Xt-9nRAFbsBsMMDB0-enu9doIZ_6yICDWN27AwMYScLtjjDjj6HsiWAs8CBlnEoCFtNPm4dQBcUivzPR2brONM0MjX0ex87o2l_JMhT-qRTsJKV2yyeuUZg/s1600/konektor1.jpg" /></a></div><div align="justify" style="text-align: justify;">1--Putih Orange<br />
2--Orange<br />
3--Putih Hijau<br />
4--Biru<br />
5--Putih Biru<br />
6--Hijau<br />
7--Putih Coklat<br />
8--Coklat<br />
<br />
Sedangkan untuk pemasangan kabel jaringan dengan urutan silang atau cross pada kedua ujung kabel seperti berikut,<br />
<br />
Ujung 1------------Ujung 2<br />
1--Putih Orange---1--Putih Hijau<br />
2--Orange---------2--Hijau<br />
3--Putih Hijau-----3--Putih Orange<br />
4--Biru------------4--Biru<br />
5--Putih Biru------5--Putih Biru<br />
6--Hijau-----------6--Orange<br />
7--Putih Coklat----7--Putih Coklat<br />
8--Coklat----------8--Coklat<br />
<br />
<br />
Penjelasannya, pada pin1 ujung 1 dipasang kabel berwarna Putih Orange sedangkan pada pin 1 ujung 2 (ujung kabel lainnya) dipasang kabel berwarna Putih hijau, Pin 2 ujung 1 dipasang kabel berwarna Orange dan pin 2 ujung 2 dipasang kabel berwarna Hijau dan seterusnya sesuaikan dengan tabel di atas sampai pin ke 8.<br />
</div><div align="justify"><br />
</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-47468255965509948292011-11-13T06:18:00.001-08:002011-11-13T06:52:17.443-08:00Manfaatkan Wireless untuk koneksi laptop ke laptopBagaimana caranya menghubungkan laptop dengan laptop lain, milik teman misalnya, jika kita berada jauh dari tempat kerja atau rumah yang tidak mungkin ada <a href="http://ilmuandalan.blogspot.com/2011/11/pemasangan-kabel-jaringan-lokal-stright.html">kabel jaringan</a> yang tersedia dan terhubung ke laptop.<br />
Jangan panik dulu apabila anda sangat membutuhkan pertukaran <a href="http://ilmuandalan.blogspot.com/2011/11/mengenal-file-dan-folder.html">data</a>/informasi antar laptop. Manfaatkan jaringan wireless yang sudah tersedia pada laptop anda dengan melakukan sedikit settingan pada windows agar laptop anda akan segera terhubung secara wireless ke laptop rekan anda.<br />
Untuk melakukan koneksi antar laptop (2 buah laptop)/wireless peer to peer maka ikuti langkah berikut<br />
<br />
karena ada 2 (dua) buah laptop dan untuk membedakan kedua laptop maka sebagai contoh saya berikan nama laptop1 dan laptop2<br />
<br />
Settingan untuk laptop 1 :<br />
<br />
Double klik/klik dua kali pada icon Wireless Network Connection yang berada di sebelah kanan bawah layar monitor sehingga muncul jendela Wireless Network Connection Setup di situ ada dua tab/menu yaitu General dan Support, secara default sudah berada pada General maka klik Properties untuk masuk ke jendela Wireless Network Connection Properties untuk mensetting <a href="http://ilmuandalan.blogspot.com/2011/11/pengenalan-ip-address.html">IP Address</a>nya.<br />
Pada tab General klik atau pilih Internet Protocol (TCP/IP) kemudian klik properties untuk masuk ke jendela Internet Protocol (TCP/IP) Properties).<br />
<br />
Masukan alamat <a href="http://ilmuandalan.blogspot.com/2011/11/pengenalan-ip-address.html">ip address</a> untuk laptop1 192.168.0.1, subnet mask 255.255.255.0 dan Default Gateway 192.168.0.1<br />
<br />
setelah menentukan alamat IP pada laptop1 dan klik OK sehingga kembali ke window/jendela Wireless Network Connection Properties, klik tab Wireless Networks, kemudian klik Advanced dan pilih Computer-to-computer (ad hoc) networks only dan klik Close. Untuk settingan laptop1 sudah selesai dan sekarang lanjut ke settingan untuk laptop2<br />
<br />
<br />
Settingan untuk laptop 2 :<br />
<br />
Double klik/klik dua kali pada icon Wieless Network Connection yang berada di sebelah kanan bawah layar monitor sehingga muncul jendela Wireless Network Connection Setup di situ ada dua menu yaitu General dan Support, secara default sudah berada pada General maka klik Properties untuk masuk ke jendela Wireless Network Connection Properties untuk mensetting IP Addressnya.<br />
<br />
Pada tab General klik atau pilih Internet Protocol (TCP/IP) kemudian klik properties untuk masuk ke jendela Internet Protocol (TCP/IP) Properties).<br />
<br />
Masukan alamat <a href="http://ilmuandalan.blogspot.com/2011/11/pengenalan-ip-address.html">ip address </a>untuk laptop2 192.168.0.2, subnet mask 255.255.255.0 dan Default Gateway 192.168.0.1<br />
<br />
setelah menentukan alamat IP pada laptop1 dan klik OK sehingga kembali ke window/jendela Wireless Network Connection Propertis, klik tab Wireless Networks, kemudian klik Advanced dan pilih Computer-to-computer (ad hoc) networks only dan klik Close. Untuk settingan laptop1 dan laptop2 sudah selesai dan laptop1 dan laptop2 sudah bisa melakukan pertukaran informasi atau <a href="http://ilmuandalan.blogspot.com/2011/11/mengenal-file-dan-folder.html">file</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
Selamat mencobaBelajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-54640624782997470992011-11-12T01:00:00.000-08:002011-11-20T03:29:27.184-08:00Free DVD player softwareCliprex DVD Player Professional<br />
Free DVD player software<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0-2hFpNgpjT8bOO1f169j02F2RTbgRWEJgSpZvX0c8eGF_RQ85hHnutKX4mB6yBAApWR6mZhF35rYYE3dV7vytHDzOulTib7UhBJLybIfj9xbQNOjAajlwMiM9-de0hdFn-s0LgB4siU/s1600/dvd1.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0-2hFpNgpjT8bOO1f169j02F2RTbgRWEJgSpZvX0c8eGF_RQ85hHnutKX4mB6yBAApWR6mZhF35rYYE3dV7vytHDzOulTib7UhBJLybIfj9xbQNOjAajlwMiM9-de0hdFn-s0LgB4siU/s1600/dvd1.jpg" /></a></div> <a href="http://www.ziddu.com/download/17296525/Cdvd.exe.html">Download Now</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Cliprex DVD Ripper<br />
Free DVD Ripper Software <br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-igFk7mXKEzdt9kZsw84x_yVQbStl1m1QFEZWhkWUNqDJvMJ1krD1ulgVFVu2H0-frnnY3-P04LUR-lmjgqaUk5qwvZuM4afXa1v-RbOEu5dJP37zkH-L3LIvF1H0MjGyzr1-MYB28Bg/s1600/cliprex_dvd_ripper_mini.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="100" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-igFk7mXKEzdt9kZsw84x_yVQbStl1m1QFEZWhkWUNqDJvMJ1krD1ulgVFVu2H0-frnnY3-P04LUR-lmjgqaUk5qwvZuM4afXa1v-RbOEu5dJP37zkH-L3LIvF1H0MjGyzr1-MYB28Bg/s320/cliprex_dvd_ripper_mini.jpg" width="232" /></a></div><a href="http://www.ziddu.com/download/17438890/Cdvdr.exe.html">Download Now!</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Cliprex DS DVD Player <br />
Free DVD/Video Player Software with Playlist <br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEji0xnyBhZGc9GylJwSsqj2_dfHj2Ac-uqnDwkiLUQlXj5821K63uev_39jqg8aaWc1DpgAg8qbmDGn-J3HNxJpZrI6NOowLwjYz5N2Mm9CDjZPA0EqiliSpG4uDyncZNS3b2GwKHb8Tc4/s1600/dsdvdcombi_mini.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="174" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEji0xnyBhZGc9GylJwSsqj2_dfHj2Ac-uqnDwkiLUQlXj5821K63uev_39jqg8aaWc1DpgAg8qbmDGn-J3HNxJpZrI6NOowLwjYz5N2Mm9CDjZPA0EqiliSpG4uDyncZNS3b2GwKHb8Tc4/s320/dsdvdcombi_mini.jpg" width="272" /></a></div><a href="http://www.ziddu.com/download/17438913/Cliprexdsfree.exe.html">Download Now!</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Cdivx Player <br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizC-jzAvuiR3PHoqQmRVVhT6QFbZqUEt9oLf0C0utrvXN-sWtukdliYvIqxkNSW7DYaYma4WaRQeBq2wTKEfbwQVGSpHFLNJJMJQGI3oiMlZCqQ1c-erFwn6eVBBITQEQyYBtOODTHPj4/s1600/cdivx_player_mini.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="154" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizC-jzAvuiR3PHoqQmRVVhT6QFbZqUEt9oLf0C0utrvXN-sWtukdliYvIqxkNSW7DYaYma4WaRQeBq2wTKEfbwQVGSpHFLNJJMJQGI3oiMlZCqQ1c-erFwn6eVBBITQEQyYBtOODTHPj4/s320/cdivx_player_mini.jpg" width="231" /></a></div><br />
<a href="http://www.ziddu.com/download/17438938/Cdivx.exe.html">Download Now!</a>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-81097602704414972482011-11-12T00:15:00.000-08:002011-11-12T00:34:38.985-08:00Robot pintar yang di ciptakan manusia<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiePYfkyZk2bWoHcQgk85N1itQgIeFBs4YGhM715I58Ht2SLPaSVtvAz32i-NfK6cxradLoJ1Mf8TlNeLRD_Ur60PI28Frnl-S7jveOLtl6WdellqmrzqRFRvr36pTXAoYhHwB_LMyOdSs/s1600/robot.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiePYfkyZk2bWoHcQgk85N1itQgIeFBs4YGhM715I58Ht2SLPaSVtvAz32i-NfK6cxradLoJ1Mf8TlNeLRD_Ur60PI28Frnl-S7jveOLtl6WdellqmrzqRFRvr36pTXAoYhHwB_LMyOdSs/s1600/robot.jpg" /></a></div><br />
<div style="text-align: justify;">WASHINGTON – Sebuah robot yang diberi nama Simon, memiliki kemampuan untuk mempelajari setiap tugas yang diperintahkan padanya.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Simon, pertama kali diperkenalkan ke publik saat konferensi Computer Human Interaction (CHI) di Atlanta pekan lalu. Robot pintar ini merupakan proyek robotik yang dikembangkan para ilmuwan di laboratorium Socially Intelligent Machines, Georgia Institute of Technology.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">“Kami sangat tertarik pada bidang algoritma pembelajaran mesin dimana kami tidak harus benar-benar ahli untuk bisa berinteraksi,” ujar Andrea Thomaz.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Thomaz dan timnya mengembangkan robot yang dapat digunakan di rumah dan tidak perlu diprogram ulang dengan serangkaian tugas.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Seperti dilansir Computer World, Selasa (20/4/2010), saat dipamerkan pada konferensi CHI, Simon diminta mengerjakan berbagai tugas. Diantaranya mengenali warna benda dan menaruhnya pada keranjang dengan warna yang sesuai.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Ketika mulai mengajari Simon, para peneliti akan bertanya padanya, “Simon apakah kau bisa mendengarkan saya?,” kemudian Simon merespons pertanyaan tersebut dengan berkata, “Ya.” Selanjutnya tim peneliti meminta Simon untuk mempelajari suatu tugas yang nanti akan dikerjakannya hingga selesai.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Thomaz mengungkapkan, salah satu tantangan terbesar dalam mengembangkan Simon adalah merancang sistem integrasi. “Kami menggunakan OpenCV (Open Source Computer Vision) dan sistem pengenalan suara,” ujarnya.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Dia menambahkan, Simon juga dapat mengenali wajah dan lokalisasi suara. Saat ini, bagian tubuh Simon hanya baru sebatas pinggang. Dibelakangnya terdapat bank berisi empat monitor komputer yang memperlihatkan berbagai informasi mengenai status robot. Para pengembangnya menyebutkan, hingga saat ini mereka belum berencana mengkomersilkan Simon.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Mungkin masih belum jelas jika hanya text.. aku sertakan juga video tentang robot ini..</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><iframe allowfullscreen="" frameborder="0" height="315" src="http://www.youtube.com/embed/5vxORyIqVg4" width="420"></iframe></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-46873968517291973082011-11-10T21:49:00.001-08:002011-11-10T22:27:51.392-08:00Tentang Kehidupanku<b>Sejarah Singkat Terbentuknya Westlife</b><br />
<br />
Westlife - Fool Again (With Lyrics) <br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/mU-75VUSg8c" frameborder="0" allowfullscreen></iframe><br />
<br />
Cerita tentang westlife berawal pada tahun 1996 di Sligo, sebuah kota kecil di sebelah utara Irlandia. Tiga orang remaja, Shane Filan, Kian Egan, dan Mark Feehily yang sering aktif dalam kegiatan teater di Ummerhill College. Ketiga orang remaja tersebut mendapat peran utama dalam sebuah drama Grease dan penampilan mereka itu menjadi batu loncatan yang besar. Pada suatu malam setelah pertunjukan, ketika mereka latihan vocal sambil bercanda, tiba-tiba Mary McDonagh mendekati mereka dan berkata "saya ingin kalian membentuk sebuah band". Setelah itu mereka mulai membawakan lagu-lagunya "take that", sebuah band yang mega populer di pertengahan tahun 90-an. Ketika mau diberi nama, Mary memberikan sebuah nama yang sangat aneh yaitu "6 As 1" (Kian, Shane, Mark dan 3 orang penyanyi muda lainnya). Awal tahun 1997, mereka berenam mulai tampil di teater-teater di Sligo dan banyak orang yang langsung ngefans dengan grup baru ini.<br />
<br />
6 As 1 Menjadi IOU<br />
fans-fans mereka di Sligo terus bertambah. Pada bulan agustus 1997, 6 As 1 tampil dengan membawakan lagu-lagunya boyzone dan backstreet boys dihadapan lebih dari 500 orang. Tapi mereka punya satu keluhan yaitu tidak menyukai nama band-nya. Jadi mereka memutuskan untuk mengganti nama grup band mereka menjadi IOU. IOU kemudian merekam sebuah single yang berjudul "to get a girl forever". Sebuah acara berita TV lokal menayangkan acara tersebut dan ternyata penampilan mereka itu menarik perhatian Louis Walsh, manager dari grup band pop yang paling sukses di Eropa, Boyzone.<br />
<br />
Tampil Bersama BSB (Backstreet Boys)<br />
kesempatan untuk menjadi band pembuka konser BSB merupakan kejutan yang besar untuk IOU. Fans BSB sebanyak 9500 orang ternyata puas dengan penampilan IOU. Sayangnya ada satu masalah, walaupun IOU sudah bagus namun suara Shane, Kian dan Mark tidak terlalu cocok dengan ketiga anggota lainnya. Oleh karena itu, terpaksa dilakukan beberapa perubahan.<br />
<br />
Ganti Lagi Menjadi Westside<br />
setelah keputusan untuk memecah IOU, maka Shane, Kian dan Mark tampil sebagai trio. Tapi ternyata masih ada yang kurang dari suara mereka bertiga. Mereka merasa perlu ada vocal tambahan agar suara mereka benar-benar harmonis. Maka diadakan audisi di Dublin, Irlandia untuk mencari anggota keempat. Ratusan penyanyi muda yang antusias ikut dalam audisi tersebut, termasuk diantaranya Nicky Byrne dan Bryan McFadden. Nicky dan Bryan pun sebenarnya sudah lama berteman. Mereka berdua sering bermimpi menjadi anggota grup band sejak mereka masih anak-anak. Mereka berharap keduanya bisa terpilih, tapi yang dicari cuma satu orang saja. Namun keberuntungan ternyata memihak kepada Nicky dan Bryan, akhirnya Nicky dan Bryan pun menjadi anggota baru grup IOU. Untuk memulai langkah yang baru, mereka mengganti nama band mereka untuk ketiga kalinya. Nama band mereka adalah Westside (yang merupakan sebuah penghargaan terhadap Sligo, kampung halaman Shane, Kian dan Mark yang terletak di Westside-nya Irlandia)<br />
<br />
Akhirnya Menjadi Westlife<br />
kehidupan Shane, Kian, Mark, Bryan, dan Nicky sebagai Westside ternyata tidak berlangsung lama. Karena nama Westside sudah menjadi nama grup band lain, oleh karena itu kelima cowok keren ini terpaksa mengganti nama grup band mereka untuk keempat kalinya. Kali ini mereka memilih nama Westlife. Pada bulan juli 1998, Westlife mulai tampil keliling Inggris bersama Boyzone dan pada bulan oktober, mereka menerima penghargaan dari majalah Smash Hits Award sebagai "Best New Tour Act". Pada tanggal 19 april 1999, single mereka yang berjudul "swear it again" menjadi best seller. Dengan di rilisnya single kedua "if i let you go", Westlife berhasil menjadi boy band pertama yang kedua single-nya menduduki posisi puncak di tangga lagu Inggris. Tapi mereka tidak puas sampai disitu. Single ketiga, keempat dan kelima juga berhasil duduk di peringkat pertama tangga lagu Inggris dan merupakan sebuah kesuksesan besar yang tidak pernah dirasakan grup band manapun di Inggris. <br />
<br />
Weslife-Soledad<br />
<iframe allowfullscreen="" frameborder="0" height="315" src="http://www.youtube.com/embed/FQaid7WMr4g" width="420"></iframe><br />
<br />
Weslife-Close Your Eyes<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/k9c9I39h-4A" frameborder="0" allowfullscreen></iframe><br />
<br />
Weslife-My Love<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/WHyzxVlOI98" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife - Seasons In The Sun<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/Ttpztjuiz5k" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife - Swear It Again<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/feWt4o1yvFc" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife - If I Let You Go<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/17Tpxa1fhBw" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife - I Have A Dream<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/c_PoDIiGFqg" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife-No No<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/U9tp8-AnuSM" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife--Open Your Heart<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/BVrIrXfCvZo" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife I Miss You<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/tRmPuDTgyHE" frameborder="0" allowfullscreen></iframe><br />
<br />
Westlife - Maybe Tomorrow<br />
<iframe width="420" height="315" src="http://www.youtube.com/embed/HwVRAw39zHQ" frameborder="0" allowfullscreen></iframe><br />
<br />
Weslife-Seasons In The Sun<br />
<iframe width="560" height="315" src="http://www.youtube.com/embed/upRgELg_gGE" frameborder="0" allowfullscreen></iframe>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-26035462746931803112011-11-06T07:57:00.000-08:002011-11-28T03:01:45.515-08:00Contoh Program kalkulator sederhana dengan VBAktifkan VB 6 melalui tombol Start.<br />
Buka kembali project Latihan.vbp.<br />
Tambahkan Form baru ke dalam Project.<br />
Pada Jendela Form buatlah UI seperti ini :<br />
(Gunakan komponen TextBox dan CommandButton)<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhw6jm4jtbe57Sp-rBHeFCbVtpiiWci1b5fXuhcsceFw7ZXuDtujSH_d0JN9pzAz17xs4GYUEF_bpt-ycZDKacMeiknu3YJFHoboaq44ZIszjnfnJ5JVtcWtgDi0Ji1C7B8vPezxZJ9Pfc/s1600/kalkulator1.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="220" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhw6jm4jtbe57Sp-rBHeFCbVtpiiWci1b5fXuhcsceFw7ZXuDtujSH_d0JN9pzAz17xs4GYUEF_bpt-ycZDKacMeiknu3YJFHoboaq44ZIszjnfnJ5JVtcWtgDi0Ji1C7B8vPezxZJ9Pfc/s320/kalkulator1.JPG" width="320" /> </a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsR1AY7oSz9WX6ayRtFOhdyA3CG365JsfhU8CG3CFSExnryhkPJUhbj9UTLs7pek8CS1CTfYrefWMba7AXLemhQmLWqeOdijSOh4YtKarw11S5KurACiBPAQoBZyxRXqFvM11-hPKRCEQ/s1600/kalkulator2.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="164" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsR1AY7oSz9WX6ayRtFOhdyA3CG365JsfhU8CG3CFSExnryhkPJUhbj9UTLs7pek8CS1CTfYrefWMba7AXLemhQmLWqeOdijSOh4YtKarw11S5KurACiBPAQoBZyxRXqFvM11-hPKRCEQ/s320/kalkulator2.JPG" width="320" /> </a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE7HPQd9fgsOkx-LF8I1UH1UtR_rorZrlSFxXVTydkQAdSjfQIn5em1G1X5ltypz8zlyI1_wjdahrRZclCLEe3WK7T7xA6XtnN5FGz9nW1sxKgAhOv5rDxtFC85ogNterITt13O9l0cDM/s1600/kalkulator4.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE7HPQd9fgsOkx-LF8I1UH1UtR_rorZrlSFxXVTydkQAdSjfQIn5em1G1X5ltypz8zlyI1_wjdahrRZclCLEe3WK7T7xA6XtnN5FGz9nW1sxKgAhOv5rDxtFC85ogNterITt13O9l0cDM/s1600/kalkulator4.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="144" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhESHUgvwYJQ7KHta8P6QLCmcNHoaJxr-1lK-2_UsRUabcNali69JV3m9p9VfNiBL3-jOiUMFeMiLu6NMA1XIemxPd1u_ywo_dLDPNPMQqNdqiQ0M869lJenfwK5hIdk2NV3QsuA05oDr0/s320/kalkulator3.JPG" width="320" /></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE7HPQd9fgsOkx-LF8I1UH1UtR_rorZrlSFxXVTydkQAdSjfQIn5em1G1X5ltypz8zlyI1_wjdahrRZclCLEe3WK7T7xA6XtnN5FGz9nW1sxKgAhOv5rDxtFC85ogNterITt13O9l0cDM/s1600/kalkulator4.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFygd922nNcp501Te2_YFbyOnwYE7uPaCTZRvmOY8Z0HmIJRkVNBV-Lk0L4yTRhyphenhyphen4Shlj_uyB6XpsFlWRIiycLOOM2kktW9B_rZaLlPYrtJ6n4-yzm3fEKMyEorySAHGQVzuIH0SJFRcw/s1600/kalkulator4.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="232" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFygd922nNcp501Te2_YFbyOnwYE7uPaCTZRvmOY8Z0HmIJRkVNBV-Lk0L4yTRhyphenhyphen4Shlj_uyB6XpsFlWRIiycLOOM2kktW9B_rZaLlPYrtJ6n4-yzm3fEKMyEorySAHGQVzuIH0SJFRcw/s320/kalkulator4.JPG" width="320" /></a></div><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE7HPQd9fgsOkx-LF8I1UH1UtR_rorZrlSFxXVTydkQAdSjfQIn5em1G1X5ltypz8zlyI1_wjdahrRZclCLEe3WK7T7xA6XtnN5FGz9nW1sxKgAhOv5rDxtFC85ogNterITt13O9l0cDM/s1600/kalkulator4.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"> </a><br />
<div class="separator" style="clear: both; text-align: center;">Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut : </div><div class="separator" style="clear: both; text-align: center;"> </div><div align="left" class="MsoNormal">Dim angka(1 To 2) As Single</div><div align="left" class="MsoNormal">Dim operator As String</div><div align="left" class="MsoNormal">Private Sub CmdAngka_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & CmdAngka(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka1_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka1(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka10_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka10(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka2_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka2(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka3_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka3(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka4_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka4(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka5_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka5(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka6_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka6(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka7_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka7(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka8_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka8(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdAngka9_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = Text1.Text & cmdAngka9(Index).Caption</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdHapus_Click(Index As Integer)</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub Command3_Click(Index As Integer)</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(1) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">operator = CmdOperator(Index).Caption</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal">Private Sub CmdHitung_Click()</div><div align="left" class="MsoNormal">Dim hasil As Single</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(2) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">Select Case operator</div><div align="left" class="MsoNormal">Case "+"</div><div align="left" class="MsoNormal">hasil = angka(1) + angka(2)</div><div align="left" class="MsoNormal">Case "-"</div><div align="left" class="MsoNormal">hasil = angka(1) - angka(2)</div><div align="left" class="MsoNormal">Case "*"</div><div align="left" class="MsoNormal">hasil = angka(1) * angka(2)</div><div align="left" class="MsoNormal">Case "/"</div><div align="left" class="MsoNormal">hasil = angka(1) / angka(2)</div><div align="left" class="MsoNormal">End Select</div><div align="left" class="MsoNormal">Text1.Text = hasil</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub CmdOperator_Click(Index As Integer)</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(1) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">operator = CmdOperator(Index).Caption</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal">Private Sub cmdOperator1_Click(Index As Integer)</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(1) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">operator = cmdOperator1(Index).Caption</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdOperator2_Click(Index As Integer)</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(1) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">operator = cmdOperator2(Index).Caption</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left" class="MsoNormal"><br />
</div><div align="left" class="MsoNormal">Private Sub cmdOperator3_Click(Index As Integer)</div><div align="left" class="MsoNormal">If Text1.Text = "" Then Exit Sub</div><div align="left" class="MsoNormal">angka(1) = CSng(Text1.Text)</div><div align="left" class="MsoNormal">operator = cmdOperator3(Index).Caption</div><div align="left" class="MsoNormal">Text1.Text = ""</div><div align="left" class="MsoNormal">End Sub</div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"> </div><div align="left"><blink><br />
******Program kalkulator ini masih sangat sederhana, sehingga kemungkinan ada error ataupun<br />
“kejanggalan” lainnya.*******</blink><br />
</div><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhw6jm4jtbe57Sp-rBHeFCbVtpiiWci1b5fXuhcsceFw7ZXuDtujSH_d0JN9pzAz17xs4GYUEF_bpt-ycZDKacMeiknu3YJFHoboaq44ZIszjnfnJ5JVtcWtgDi0Ji1C7B8vPezxZJ9Pfc/s1600/kalkulator1.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-36861452980264636042011-11-03T21:34:00.000-07:002011-12-07T07:53:24.814-08:00CARA KONEKSI DATABASE MYSQL KE VISUAL BASIC 6.0<div style="text-align: justify;">Sudah sebulan lebih saya tidak mengupdate blog ini, dikarenakan kesibukkan didunia nyata …hallllaaaah… sebenernya karena emang lagi males aja (kalo lagi keluar malesnya nggak satu kata pun mau meluncur dari jari-jari ini huupsss sebelnya…)…</div><div style="text-align: justify;">Oke kali ini saya akan membahas trik bagaimana membuat koneksi database mysql ke VB 6 . Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….</div><div style="text-align: justify;">Pertama kali komputer anda insall windows 7 ultimate nantinya biar lebih gampang dalam mengolah VB 6.....weekkKKKKK</div><div style="text-align: justify;">Perhatikan Langkah-langkah Koneksinya,jangan ampe berkedip:::<br />
<br />
</div><div style="text-align: justify;">1.Enaknya anda Instal dulu driver mysql-connector-odbc-3.51 bit 32,untuk download klik <a href="http://www.ziddu.com/download/17163624/mysql-connector-odbc-3.51.29-win32.msi.html"><blink>di sini</blink></a></div><div style="text-align: justify;">2.Setelah penginstalan driver udah selesai,kita ke tahap selanjutnya yaitu menyetting data source pada komputer kita.caranya: kita liat langkah ke 3.....heeee</div><div style="text-align: justify;">3. Pada komputer kita,klik Control Panel--system and security-pilih Administrative Tool-Data Sources(ODBC)</div><div style="text-align: justify;">4. Pada dBASE files pilih ADD:</div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8Ipjo3WHdSc69U2yJGK4GNTr-XZYkHgVAqXDCXbONxg6P7RfJUNe-GpaSg7-8R4dDc9ucQoRhUZcDDMvciZfpOG2u1wxjJJRRdI6m0NiXb8HtFZmIq2nJ2h0oMhUVGpcMYaTMcFTDVjI/s1600/2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="243" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8Ipjo3WHdSc69U2yJGK4GNTr-XZYkHgVAqXDCXbONxg6P7RfJUNe-GpaSg7-8R4dDc9ucQoRhUZcDDMvciZfpOG2u1wxjJJRRdI6m0NiXb8HtFZmIq2nJ2h0oMhUVGpcMYaTMcFTDVjI/s320/2.jpg" width="320" /> </a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8Ipjo3WHdSc69U2yJGK4GNTr-XZYkHgVAqXDCXbONxg6P7RfJUNe-GpaSg7-8R4dDc9ucQoRhUZcDDMvciZfpOG2u1wxjJJRRdI6m0NiXb8HtFZmIq2nJ2h0oMhUVGpcMYaTMcFTDVjI/s1600/2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
<br />
<br />
5. Selanjutnya kita Create new data source,dengan cara Klik pada Mysql ODBC 3.51 Driver..liat gambar bawah ini;</div><div style="text-align: justify;"><br />
</div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwjmoxo_v_a6qfGeDtgoKD6eBOR9Vv3CNZ6STJucBhex2Pec5YvElLX92sJlYbCEz0LynHwqafURPolV0fwa1-f2TKYXZ1x7kG7O-a737qaGPM5cGnLhyr_Q0smb6D12IOuZZd6biNJi4/s1600/3.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="236" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwjmoxo_v_a6qfGeDtgoKD6eBOR9Vv3CNZ6STJucBhex2Pec5YvElLX92sJlYbCEz0LynHwqafURPolV0fwa1-f2TKYXZ1x7kG7O-a737qaGPM5cGnLhyr_Q0smb6D12IOuZZd6biNJi4/s320/3.jpg" width="320" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div align="left">6.Isikan seperti di bawah ini dan kemudian lebih dulu database kita Test dengan cara klik test :</div><div align="left"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiO9tHOMup_Ue-mBKuXrFNziO4-r-iG02t_6oVz5Aia-R44a9sh5bzEW0Cvt-fz8zTZEj3g_hvmEORVFoqDh7Wgp1keIei8tBXijDWipjH2aGZGsQKD8-bSPUIgfiFGbn6rGjbSlrGVFkQ/s1600/4.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="311" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiO9tHOMup_Ue-mBKuXrFNziO4-r-iG02t_6oVz5Aia-R44a9sh5bzEW0Cvt-fz8zTZEj3g_hvmEORVFoqDh7Wgp1keIei8tBXijDWipjH2aGZGsQKD8-bSPUIgfiFGbn6rGjbSlrGVFkQ/s320/4.jpg" width="320" /> </a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiO9tHOMup_Ue-mBKuXrFNziO4-r-iG02t_6oVz5Aia-R44a9sh5bzEW0Cvt-fz8zTZEj3g_hvmEORVFoqDh7Wgp1keIei8tBXijDWipjH2aGZGsQKD8-bSPUIgfiFGbn6rGjbSlrGVFkQ/s1600/4.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Catatan:buatlah database terlebih dahulu,klu saya udah buat databasenya lhooo,Coba liat gambar di atas ada Database "Login"...<br />
<br />
7.Tahap terakhir tinggal settingan di program VBnya,Bisa ga??Di toko buku banyak cara dan tehnik menguasai VB..Okay,sekedar Saran ja........<br />
<span style="color: red;">DI BAWAH INI ADA BOCORAN SEDIKIT </span></div><div align="left"><br />
<br />
<br />
<br />
<br />
<br />
<h2>cara koneksi ke mysql dari vb menggunakan mysql odbc</h2><h2>1. Install vbnya<br />
2. Download mysql odbc-nya, install<br />
3. create database di mysql, misalnya infoonline<br />
4. use infoonline ==> create table mahasiswa<br />
5. masuk ke control panel, switch ke classic view aja.<br />
6. masuk ke Administrative Tools –> Data Source (ODBC)<br />
7. Di tag user DSN, klik Add<br />
8. pilih mysql odbc driver, –> klik finish<br />
9. akan tampil panel odbc connector<br />
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya<br />
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok<br />
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library<br />
13. Di project Explorer, tambahkan module, add module<br />
14. Isikan coding koneksi dan seleksi mahasiswaysql dari vb menggunakan mysql odbc</h2><h2> </h2>Public con As New ADODB.Connection<br />
Public rsmhs As New ADODB.Recordset<br />
Public Sub konekdb()<br />
Set con = New ADODB.Connection<br />
‘ connection provider kalau ragu, ambil dari adodc,<br />
‘build, isi bagian pada tag connection, isi datasource namenya,<br />
‘pilih ikhsanganteng, ok, copy connection stringnya<br />
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”<br />
con.CursorLocation = adUseClient<br />
End Sub<br />
Public Sub seleksimhs()<br />
Set rsmhs = New ADODB.Recordset<br />
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic<br />
End Sub<br />
——————-<br />
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya<br />
‘tambahkan coding berikut pada form_Load<br />
Private Sub Form_Load()<br />
konekdb<br />
seleksimhs<br />
Set DataGrid1.DataSource = rsmhs<br />
End Sub<br />
——————–<br />
Run (F5), selamat mencoba<br />
<span style="font-size: large;"><b><br />
</b></span><br />
<span style="font-size: large;"><b>Koneksi database mysql ke VB 6.0 tanpa komponen ADODC</b></span><br />
<br />
Buatlah modul di dalam form utaman terlebih dahulu<br />
Dengan cara klik pada Menu Project---->>>ADD Module<br />
dan COPAS listing bukadatabase dibawah ini:<br />
<br />
Option Explicit<br />
Public koneksi As New ADODB.Connection<br />
Public Rs As ADODB.Recordset<br />
<br />
Public SqlInsert As String<br />
Public SqlUpdate As String<br />
Public SqlDelete As String<br />
Public SQL As String<br />
Public View As ListItem<br />
Public i As Byte<br />
Dim db_name As String<br />
Dim db_server As String<br />
Dim db_port As String<br />
Dim db_user As String<br />
Dim db_pass As String<br />
<br />
<br />
Public Sub Bukadatabase()<br />
db_name = "apotik" 'nama database anda<br />
db_server = "localhost" 'server database anda<br />
db_port = "3306"<br />
db_user = "root" 'username db anda<br />
db_pass = "root" 'isi jika db anda menggunakan password<br />
Set koneksi = New ADODB.Connection<br />
koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"<br />
<br />
If koneksi.State = adStateOpen Then<br />
koneksi.Close<br />
Set koneksi = New ADODB.Connection<br />
koneksi.Open<br />
Else<br />
koneksi.Open<br />
End If<br />
End Sub<br />
<br />
<br />
<br />
<br />
Sekian dan terimakasih,semoga bermanfaat!!!!!!!!!!!!!!!!!!!!!!!!!</div><div align="left"><br />
</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com3tag:blogger.com,1999:blog-7601150826751588426.post-45314169108272747352011-11-02T07:46:00.000-07:002011-11-28T03:01:45.516-08:00MENGINSTALL VISUAL BASIC 6.0 DI WINDOWS 7 ULTIMATE<ol><li>Pada folder VB 6<span style="font-family: "Wingdings";">à</span> Setup.exe nya di klik kanan pilih properties.. </li>
</ol><br />
<div align="left" class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmBjOQwFWhuMvTI4971TleuwKIy-ImyBGv9dDnD9cUv_ZBr0n1dIgqNESYtScy-Op5TUqLG9TbbMvZy_KBY6snHYfamEJtkONRR9zOUdkJS4Y4DV4V2RvsxB8RU9o3uN65GX8U-kvcOW4/s1600/1.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="272" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmBjOQwFWhuMvTI4971TleuwKIy-ImyBGv9dDnD9cUv_ZBr0n1dIgqNESYtScy-Op5TUqLG9TbbMvZy_KBY6snHYfamEJtkONRR9zOUdkJS4Y4DV4V2RvsxB8RU9o3uN65GX8U-kvcOW4/s320/1.png" width="320" /> </a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmBjOQwFWhuMvTI4971TleuwKIy-ImyBGv9dDnD9cUv_ZBr0n1dIgqNESYtScy-Op5TUqLG9TbbMvZy_KBY6snHYfamEJtkONRR9zOUdkJS4Y4DV4V2RvsxB8RU9o3uN65GX8U-kvcOW4/s1600/1.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"> </a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmBjOQwFWhuMvTI4971TleuwKIy-ImyBGv9dDnD9cUv_ZBr0n1dIgqNESYtScy-Op5TUqLG9TbbMvZy_KBY6snHYfamEJtkONRR9zOUdkJS4Y4DV4V2RvsxB8RU9o3uN65GX8U-kvcOW4/s1600/1.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
2.Kemudian pilih Compability.. <br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSd624sJPtlecTdRZfA_G239mQtXpws_79pytwYQa2Y8C4YDFBAn0LD7ICBj4-Ken7hpWWr1UV6DT5Wy-NDIay04gHW-Gwc288pkzp2XsDai3FnWmx4wYdj8X1VCpSV2OAkSqHya9irIs/s1600/2.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSd624sJPtlecTdRZfA_G239mQtXpws_79pytwYQa2Y8C4YDFBAn0LD7ICBj4-Ken7hpWWr1UV6DT5Wy-NDIay04gHW-Gwc288pkzp2XsDai3FnWmx4wYdj8X1VCpSV2OAkSqHya9irIs/s320/2.png" width="234" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
3.Setelah setingan berikut disesuaikan, klik OK..<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzbRyeCcGT7zmOrrnHsnki75YOzLPI8wRuFkc_CEdWQ3Ori9Eh520sUoFqaG6KG_HhNE6ftjVfim_jocIcoSzIeO2b3KLvDpZZfJ4ZXRgCEy1I6mwahYy1t2KJwjgwhvEym1AgQNjEpQ4/s1600/3.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzbRyeCcGT7zmOrrnHsnki75YOzLPI8wRuFkc_CEdWQ3Ori9Eh520sUoFqaG6KG_HhNE6ftjVfim_jocIcoSzIeO2b3KLvDpZZfJ4ZXRgCEy1I6mwahYy1t2KJwjgwhvEym1AgQNjEpQ4/s320/3.png" width="237" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
4.Kemudian kembali ke Folder VB tadi pilih Sub Folder VB98 à kik kanan pilih properties .., dan ikuti seperti gambar di bawah..<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmYj1i8y2E6EJKnf-MQMFQJWZn5Xm7rN03Nhyq-7RaXyRZUnevXB4JOM5zj_ecVkEIc2Lkml0KwMP8xR344Jv1IeoIUtwO7SNNdr8CRr2TkBIB6U2ZyCKWij0z3_bHrVXnARdRUIXWzls/s1600/4.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="283" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmYj1i8y2E6EJKnf-MQMFQJWZn5Xm7rN03Nhyq-7RaXyRZUnevXB4JOM5zj_ecVkEIc2Lkml0KwMP8xR344Jv1IeoIUtwO7SNNdr8CRr2TkBIB6U2ZyCKWij0z3_bHrVXnARdRUIXWzls/s320/4.png" width="320" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
5.Kemudian Lakukan penginstalan seperti biasa, dan jika peringatan berikut muncul pilih Run Program ya..<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="149" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s320/5.png" width="320" /> </a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifZrypto4a4SwItld0GniYSgl13DgNrZ7IXAxGw6q7tR3kPYKCiSVe82iA1cF5MvZeQIX174hHff_jTfOZM2d4Lan28Od-cTKV1BqRhRunBWdgecBC4hyj6YKaKyOiteh3Jk8mBN18XUc/s1600/5.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span style="font-size: large;"><span style="color: aliceblue;"><blink>CARA MEMBUAT LOGIN SEDERHANA DENGAN MENGGUNAKAN VB 6.0 DAN MYSQL</blink></span></span><br />
<br />
<br />
Versi ke-1<br />
<span style="font-size: small;">Nah untuk pertama kita jalankan vb nya dan membuat form yang pertama.kalo udah tau kita langsung aja ke pokok bahasan yaitu membuat login sederhana dengan Vb.Tapi lebih baik anda paham dulu dengan Koneksinya database Mysqlnya.Pengen tau????kapan2 dech gue kasih tau...</span><br />
<span style="font-size: small;">1.Kita sediakan label(2 j),text(2),CommondButton(2 ato bisa--->>klo pengen keren).Tentunya di tata dengan rapi donk..</span><br />
<span style="font-size: small;">2.Nie yang bikin enak,COPAS ja alias copy-paste source code dibwah ini:</span><br />
<span style="font-size: small;">Private Sub Command1_Click()<br />
On Error Resume Next<br />
Dim isi As Boolean<br />
Adodc1.RecordSource = "select count(*) from login where UserName='" & Text1.Text & "'"<br />
Adodc1.Refresh<br />
If Adodc1.Recordset.Fields(0) = 0 Then<br />
isi = False<br />
MsgBox "masih kosong", vbCritical, App.Title<br />
End If<br />
If Adodc1.Recordset.Fields(0) >= 1 Then<br />
isi = True<br />
End If<br />
Dim nama As String<br />
Dim Pwd As String<br />
Adodc1.RecordSource = "select * from login where UserName='" & Text1.Text & "'"<br />
Adodc1.Refresh<br />
nama = Adodc1.Recordset.Fields!UserName<br />
Pwd = Adodc1.Recordset.Fields!Password<br />
If Text1.Text = nama And Text2 = Pwd And isi = True Then<br />
Form1.Hide<br />
Form2.Show<br />
Else<br />
MsgBox "Username dan Password tidak cocok", vbInformation, App.Title<br />
End If<br />
End Sub<br />
</span><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Versi ke-2<br />
Membuat Form Login Menggunakan VB6<br />
Oke kali ini saya akan membahas trik bagaimana membuat Form Login menggunakan Visual Basic 6 dengan batasan tiga kali kesalahan inputan Username dan Password. Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….<br />
<br />
gak usah basa basi langsung aja buat Project Standar EXE dengan properti sebagai berikut:<br />
<br />
<i><br />
Object Property</i><br />
Form1 Name: frmLogin<br />
<br />
Caption: Login<br />
Form2 Name: frmMain<br />
<br />
Caption: Menu Utama<br />
Label1 Caption: User Name<br />
Label2 Caption: Password<br />
Text1 Name: txtUsername<br />
<br />
Text: [Kosongkan]<br />
Text2 Name: txtPassword<br />
<br />
Text: [Kosongkan]<br />
Command1 Name: cmdLogin<br />
<br />
Caption: Login<br />
<br />
Pada Form1 ketikan kode berikut ini (biar jangan salah, copy-paste aja kode dibawah ini):<br />
<br />
<blockquote>Option Explicit<br />
Dim hitung As Byte<br />
Private Sub cmdLogin_Click()<br />
<div style="padding-left: 5px;">If Trim(txtUsername.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then</div><div style="padding-left: 30px;">GoSub hitungLog<br />
MsgBox “Username dan Password masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _<br />
vbInformation, “Konfirmasi”<br />
txtUsername.SetFocus</div><div style="padding-left: 5px;">ElseIf Trim(txtUsername.Text) = vbNullString Then</div><div style="padding-left: 30px;">GoSub hitungLog<br />
MsgBox “Username Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _<br />
vbInformation, “Konfirmasi”<br />
txtUsername.SetFocus</div><div style="padding-left: 5px;">ElseIf Trim(txtPassword.Text) = vbNullString Then</div><div style="padding-left: 30px;">GoSub hitungLog<br />
MsgBox “Password Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _<br />
vbInformation, “Konfirmasi”<br />
txtPassword.SetFocus</div><div style="padding-left: 5px;">ElseIf Trim(txtUsername.Text) = “admin” And Trim(txtPassword.Text) = “admin” Then</div><div style="padding-left: 30px;">frmMain.Show<br />
Unload Me</div><div style="padding-left: 5px;">Else</div><div style="padding-left: 30px;">GoSub hitungLog<br />
txtUsername = vbNullString<br />
txtPassword = vbNullString<br />
txtUsername.SetFocus<br />
MsgBox “Username atau Password Anda salah!!!” + vbCrLf + “Harap diisi dengan benar!!!”, _<br />
vbExclamation, “Informasi”</div><div style="padding-left: 5px;">End If</div><div style="padding-left: 5px;">Exit Sub</div><div style="padding-left: 5px;">hitungLog:<br />
hitung = hitung + 1<br />
If hitung = 3 Then</div><div style="padding-left: 30px;">MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _<br />
vbExclamation, “Informasi”<br />
Unload Me</div><div style="padding-left: 5px;">Else</div><div style="padding-left: 30px;">Return</div><div style="padding-left: 5px;">End If</div>End Sub<br />
Private Sub Form_Load()<br />
<div style="padding-left: 5px;">hitung = 0</div>End Sub</blockquote><div style="text-align: justify;">Kunci untuk membuat batasan inputan kesalahan sebanyak tiga kali yaitu ada pada variable “<b>hitung</b>“. dimana kita memberi batasan sebanyak 3 kali dengan menyimpanan perhitungan pada variable “<b>hitung</b>“…<br />
Lihat potongan kode berikut:</div><blockquote>Dim <b>hitung </b>As Byte<br />
…..<br />
…..<br />
<div style="padding-left: 5px;"><b>hitung</b> = <b>hitung</b> + 1<br />
If <b>hitung</b> = 3 Then</div><div style="padding-left: 30px;">MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _<br />
vbExclamation, “Informasi”<br />
Unload Me</div><div style="padding-left: 5px;">Else</div><div style="padding-left: 30px;">Return</div><div style="padding-left: 5px;">End If</div></blockquote><div style="text-align: justify;">Alternatif lain untuk meyimpan batasan input kesalahan yaitu dengan menggunakan Property “Tag” yang dimiliki oleh Object didalam Form, contohnya CommandButton, TextBox, dan Label. Cara penggunaannya yaitu mengganti tiap variable “<b>hitung</b>” pada kode di atas dengan variable <b>cmdLogin.Tag</b> atau <b>txtUsername.Tag </b> ataupun<b> txtPassword.Tag</b> sehingga potongan kode diatas menjadi:</div><blockquote>…..<br />
…..<br />
<div style="padding-left: 5px;"><b>cmdLogin.Tag</b> = <b>cmdLogin.Tag</b> + 1<br />
If <b>cmdLogin.Tag</b> = 3 Then</div><div style="padding-left: 30px;">MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _<br />
vbExclamation, “Informasi”<br />
Unload Me</div><div style="padding-left: 5px;">Else</div><div style="padding-left: 30px;">Return</div><div style="padding-left: 5px;">End If</div></blockquote><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Nie Hasil Programnya:<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1K49e2X-rUP3zCHjz_-tvpT7zLQ3QhWST0XSnJlTPRi-3ZoMGcvI_0eIajUnn0X4Ty8BCTRok2XVweYdeIrttMwKOrLJkd8mcLtgmjfdWwZ0mghYxKq6ISnGRo1fPtevVVT_2MimbAwE/s1600/Untitled.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="182" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1K49e2X-rUP3zCHjz_-tvpT7zLQ3QhWST0XSnJlTPRi-3ZoMGcvI_0eIajUnn0X4Ty8BCTRok2XVweYdeIrttMwKOrLJkd8mcLtgmjfdWwZ0mghYxKq6ISnGRo1fPtevVVT_2MimbAwE/s320/Untitled.jpg" width="320" /></a></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-77404694699557140842011-10-31T04:24:00.000-07:002011-11-20T04:13:34.249-08:00Cara Install Windows Xp dan Windows 7 Lewat USB<div align="left">Beberapa hari lalu saya sempat mencari info cara menginstall windows xp dengan USB Flash Disk karena ada satu netbook advan Compaq CQ40 milik teman yang minta diinstall ulang, karena tu netbook tidak memiliki CD Drive dan saya tidak punya CDROM eksternal maka jalan satu-satunya ya install lewat USB alias install windows tanpa CD ROM.</div><div align="left"><br />
</div><div align="left">Seperti biasa kalau mencari informasi di google.co.id yang sering ketemu cuma sekumpulan blog yang isinya ga karuan yang cuma mengumpulkan hasil pencarian atau hasil sedot dari blog lain, akhirnya saya coba mencari lewat google.com dan tentu saja tidak mencari tutorial dalam bahasa Indonesia karena sulit ketemunya, kalaupun nemu paling2 isinya sama itu2 aja dan membingungkan.</div><div align="left"><br />
</div><div align="left"><br />
</div><div align="left">Tidak usah kepanjangan dan kelebaran lagi akahirnya saya menemukan salah satu car untuk install windows tanpa CD dengan bantuan <b>WinSetupFromUSB</b>.</div><div align="left"><br />
</div><div align="left"><br />
</div><h3 align="left">Cara Install Windows 7 atau Windows XP Tanpa CD Dengan USB + WinSetupFromUSB</h3><h3 align="left"><br />
<li>Download <a href="http://www.datafilehost.com/get.php?file=3c7ead6d"><blink>WinSetupFromUSB_1-0-beta7.exe</blink></a></li><br />
<br />
<br />
<li>Ekstrak file tersebut, kemudian klik WinSetupFromUSB_1-0-beta7.exe (<b>tidak perlu diinstall</b>)</li><br />
<br />
<br />
<li>Masukan USB Flash Disk, kemudian masukan juga CD Installer windows 7 atau windows XP.</li><br />
<br />
<br />
<li>Lihat gambar dibawah : </li><br />
<br />
<br />
</h3><div align="left" class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgahcdzklOVqnlRwQDInNC5Zmg1XEwNLtZxEXsIFAvZcLKuEvE-VC0nolAiONZ00kaR1-J-ukhUIDdNHLO5IdUf8F0xCF7gXqRLz5KY6yRUndxnTWhVvemX1SMgHtmSnptCCNc4WFwu1iA/s1600/WinSetupUSB.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgahcdzklOVqnlRwQDInNC5Zmg1XEwNLtZxEXsIFAvZcLKuEvE-VC0nolAiONZ00kaR1-J-ukhUIDdNHLO5IdUf8F0xCF7gXqRLz5KY6yRUndxnTWhVvemX1SMgHtmSnptCCNc4WFwu1iA/s320/WinSetupUSB.jpg" width="244" /> </a></div><div align="left" class="separator" style="clear: both; text-align: center;">Setelah anda menentukan source Windows 7 atau Win XP, tinggal klik tombol “GO”, selesai andapun sudah memiliki USB Bootable untuk install windows xp atau windows </div><div align="left" class="separator" style="clear: both; text-align: center;">Setelah Selesai dengan langkan diatas, selanjutanya anda tinggal merubah urutan booting ke USB melalui BIOS, kemudian booting dan lakukan instalasi windows seperti biasa saat anda menggunakan CD.</div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-80074068052677692472011-10-25T21:37:00.000-07:002011-11-28T03:02:12.762-08:00Menghitung Bangun Ruang dengan Bahasa Pemrograman C++<b>Sejarah Bahasa C</b><br />
Bahasa C pertama kali ditemukan oleh Bapak. Dennis Ritchie [dmr] di Bell Laboratories<br />
sekitar tahun 1972 lalu, yang niat awalnya di disain untuk jalan pada PDP-11 dengan<br />
system operasi Unix. Tetapi karena bahasa yang terstruktur rapi, flexible,kompatibel,[<br />
barble, the beatle, :-) ] membuatnya semakin berkembang hingga akhirnya berjalan pada MsDos dengan kompie IBM PC, sampai sekarang banyak sekali compiler yang tersedia secarafree. Tapi ngomong-ngomong dilihat dari tahun pembuatannya [1972] yang lebih tua 15 tahun dengan penulis, walaupun begitu penulis tetap akan memanggil bahasa C, bukan Pak Bahasa C.heeee...<br />
Mendingan langsung to the point ja ya???<br />
#include "conio.h" <br />
#include "stdio.h" <br />
#include "ctype.h" <br />
#include "iostream.h" <br />
#include "math.h" <br />
void main() <br />
{ <br />
textcolor(10); <br />
textbackground(5); <br />
clrscr(); <br />
char PILIHAN ,JAWAB,i=0; <br />
int p,l,r,t; <br />
float luas_bola,luas_balok,luas_tabung,isi_bola,isi_balok,isi_tabung,<br />
luas_lingkaran,keliling_lingkaran,luas_kerucut,volume_kerucut,c; <br />
float phi=3.14; <br />
do <br />
{ <br />
printf("\n\n program data ke %i\n", i+1);i++; <br />
printf("\ ***program untuk menghitung***\n\n"); <br />
puts("1).luas dan isi bola"); <br />
puts("2).luas dan isi balok"); <br />
puts("3).luas dan isi tabung"); <br />
puts("4).luas dan keliling lingkaran"); <br />
puts("5).luas dan Volume kerucut"); <br />
puts("0).keluar dari program"); <br />
printf("\n\n PILIHAN:"); <br />
scanf("%d",& PILIHAN ); <br />
switch (PILIHAN) <br />
{ <br />
case 1:puts("\n\n<==(*PROGRAM UNTUK MENGHITUNG LUAS DAN ISI BOLA*)==>\n\n");<br />
printf("Masukan jari_jari bola:");scanf("%d",&r); <br />
luas_bola=4*phi*r*r; <br />
isi_bola=1.3*phi*r*r*r; <br />
printf("\n\n==>Luas Bola:%5.2\n",luas_bola); <br />
printf("\n\n==>Isi Bola:%f\n",isi_bola); <br />
break; <br />
case 2:puts("\n\n<==(*PROGRAM UNTUK MENGHITUNG LUAS DAN ISI BALOK*>==>\n\n"); <br />
printf("Masukan panjang balok:");scanf("%i",&p); <br />
printf("Masukan lebar balok:");scanf("%i",&l); <br />
printf("Masukan tinggi balok:");scanf("%i",&t); <br />
luas_balok=2*(p*l+p*t+l*t); <br />
isi_balok=p*l*t; <br />
printf("\n\n==>Luas Balok:%.0f\n",luas_balok); <br />
printf("\n\n==>isi Balok:%.0f\n",isi_balok); <br />
break; <br />
case 3:puts("\n\n<==(*PROGRAM UNTUK MENGHITUNG LUAS DAN ISI TABUNG*)==>\n\n");<br />
printf("Masukan jari_jari tabung:");scanf("%d",&r); <br />
printf("Masukan tinggi tabung:");scanf("%d",&t); <br />
luas_tabung=2*phi*r*r+2*phi*r*t; <br />
isi_tabung=(phi*r*r)*t; <br />
printf("\n\n==>Luas:%f\n",luas_tabung); <br />
printf("\n\n==>isi:%f\n",isi_tabung); <br />
break; <br />
case 4:puts("\n\n<==(*PROGRAM UNTUK MENGHITUNG LUAS DAN KELILING LINGKARAN*)==)\n\n"); printf("Masukan jari_jari:");scanf("%d",&r); luas_lingkaran=r*r*phi; keliling_lingkaran=r*2*phi; printf("\n\n==>Luas Lingkaran:%.2\n",luas_lingkaran); <br />
printf("\n\n==>Keliling Lingkaran:%.2f\n",keliling_lingkaran); <br />
break; <br />
case 5: puts("\n\n<==(*PROGRAM UNTUK MENGHITUNG LUAS DAN VOLUME KERUCUT*)==>\n"); <br />
cout<<"jari_jari alas:";cin>>r; <br />
cout<<"tinggi kerucut:";cin>>t; <br />
c=sqr((r*r)+(t*t)); <br />
luas_kerucut=0.333*phi*r*r*c; <br />
volume_kerucut=0.333*phi*r*r*t; <br />
printf("\n\n==>Luas Kerucut:%\n",luas_kerucut); <br />
printf("\n\n==>Volume Kerucut:\n",volume_kerucut); <br />
break; <br />
case 0:goto akhir; <br />
default:puts("\nPerintah Anda Salah Silahkan Ulangi"); <br />
} <br />
cout<<"\n MASUKAN DATA LAGI[y/t]=";cin>>JAWAB; <br />
} <br />
while(toupper(JAWAB=='y')); <br />
getch(); <br />
akhir: <br />
} <br />
<br />
<br />
Nie Hasil Programnya,,Enak banget Towww???<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiit4qkKaK59f3p7pFLcPKSMqzadOJfdwO0RbX42arse8CBR3uxwCqBhc0SHqg31JrnMz18NlVQmASKXrP4-0lWjh2xkqS79c6yABJqN8OMsKKXRPtdcUqZnHOQ7p3AQdZI5MjPUqp4yxo/s1600/foto2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="206" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiit4qkKaK59f3p7pFLcPKSMqzadOJfdwO0RbX42arse8CBR3uxwCqBhc0SHqg31JrnMz18NlVQmASKXrP4-0lWjh2xkqS79c6yABJqN8OMsKKXRPtdcUqZnHOQ7p3AQdZI5MjPUqp4yxo/s320/foto2.jpg" width="320" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Silahkan download file pdfnya Bozzz,<a href="http://www.ziddu.com/download/17009909/tugasPraktikum.rar.html"><blink>disini</blink></a>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0tag:blogger.com,1999:blog-7601150826751588426.post-59481523412766284832011-10-25T20:51:00.000-07:002011-11-28T03:02:12.762-08:00Memberi Warna Text Dan Background di C++Mengubah background sekaligus text<br />
Pada post kali nie, aku akan menjelaskan tentang merubah warna text dan background pada outputan C++. OK langsung aja yach. . .<br />
first, ku akan jelaskan tentang merubah warna text:<br />
pertama, Ada 15 macam warna dari 0-15 dengan block hitam(standart). Diluar angka 15 kombinasi warna sama, yg berbeda adalah block di belakang warna<br />
#include<iostream.h><br />
<br />
#include<conio.h><br />
<br />
void main()<br />
{<br />
<br />
textcolor(0);<br />
textbackground(7);<br />
clrscr();<br />
cprintf”\n\n\n Selamat Datang Di www.ilmuandalan.blogspot.com…… “;<br />
getch();<br />
}<br />
<br />
nah selanjutnya saya akan menjelaskan yang bikin warna di C++;<br />
0 , digunakn untuk backround..(hitam)<br />
7 , digunakn untuk text..(putih)<br />
brikut adalah code Hexadecimal buat ngubah warna..<br />
0 = Black<br />
1 = Blue<br />
2 = Green<br />
3 = Aqua<br />
4 = Red<br />
5 = Purple<br />
6 = Yellow<br />
7 = White<br />
8 = Gray<br />
9 = Light Blue<br />
A = Light Green<br />
B = Light Aqua<br />
C = Light Red<br />
D = Light Purple<br />
E = Light Yellow<br />
F = Light White<br />
<br />
Nie Hasil Programnya Bozz;<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnnxxPrQRB2WveEQakoQ8ZSFsT-EFuPqfFawEawv7HkS6cDze1_3-XfYb7HTuwglGca6leZgtzWyjtjbeTzdHSM-rCd-lXqnwHzcBu8zk73xeHS-pZu2Bu4JYdo4G8r84zHw1189hQO6k/s1600/Foto1.jpg" imageanchor="1" style="clear:left; float:left;margin-right:1em; margin-bottom:1em"><img border="0" height="167" width="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnnxxPrQRB2WveEQakoQ8ZSFsT-EFuPqfFawEawv7HkS6cDze1_3-XfYb7HTuwglGca6leZgtzWyjtjbeTzdHSM-rCd-lXqnwHzcBu8zk73xeHS-pZu2Bu4JYdo4G8r84zHw1189hQO6k/s320/Foto1.jpg" /></a></div>Belajar Ilmu Pengetahuanhttp://www.blogger.com/profile/08065435432198111798noreply@blogger.com0