tag:blogger.com,1999:blog-63236032086469978262024-02-21T14:32:46.937+07:00Tips dan Trik NgeblogBy: Dedy E HutaurukDedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.comBlogger11125tag:blogger.com,1999:blog-6323603208646997826.post-59967881008962480262008-12-18T21:14:00.006+07:002008-12-18T22:59:36.416+07:00Berapa Umur Anda<div style="text-align: justify;">Artikel kali ini akan membahas bagaimana membuat form untuk mengetahui berapa umur anda. Dengan hanya memasukkan tanggal lahir anda, maka program akan menghitung berapa umur anda pada saat ini.<br /></div>Cara membuatnya:<br />1. Buka program Visual Basic anda<br />2. Buat sebuah Label-->(Tgl Lahir) dan sebuah CommandButton-->(CBHitung)<br />3. Aktifkan komponen Microsoft Windows Common Controls-2 6.0 ke dalam Toolbox<br />4. Masukkan komponen DTPicker ke Form-->Format ubah ke 0-dtpLongDate<br /><br /><span class="fullpost"><br />5. Klik double pada CBHitung dan ketikkan kode berikut<br /><p class="alert"><span style="font-weight: bold;">Private Sub CBHitung_Click()</span><br />Dim jumlahhari As Integer<br />Dim umur As Integer<br />Dim hari As Integer<br />jumlahhari = DateDiff("d", DTPicker1.Value, Date)<br />umur = jumlahhari / 365<br />hari = jumlahhari - (umur * 365)<br />MsgBox "Umur Anda Saat Ini " & umur & " tahun " & hari & " hari"<br /><span style="font-weight: bold;">End Sub</span></p><br />Untuk lebih <span style="font-style: italic;">sregnya</span> lihat hasil program pada gambar berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgke0XPHmLQg-izUeFMXtR9fPGngQouVAmi8-qlGiHqg8-EeSLMnxrBbui3403usgfrm6DJfBjBOsiF8UFnQKuowSHD3Qr-qwRjQ-Tttbzzlur5xo7IlRGXRPq2hs7OS2wJzBsKuGxzME-p/s1600-h/UMUR+HITUNG.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 276px; height: 250px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgke0XPHmLQg-izUeFMXtR9fPGngQouVAmi8-qlGiHqg8-EeSLMnxrBbui3403usgfrm6DJfBjBOsiF8UFnQKuowSHD3Qr-qwRjQ-Tttbzzlur5xo7IlRGXRPq2hs7OS2wJzBsKuGxzME-p/s320/UMUR+HITUNG.jpg" alt="" id="BLOGGER_PHOTO_ID_5281157301104706098" border="0" /></a><br />6. Klik pada ComboBox maka akan muncul sebuah kalender<br />7. Klik pada bulan dan tahun untuk menuju bulan dan tahun yang diinginkan<br />8. Klik pada tanggal<br />9. Klik pada CommandButton Hitung Umur<br />10.Selesai<br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com1tag:blogger.com,1999:blog-6323603208646997826.post-55200566855627066742008-12-14T23:29:00.016+07:002008-12-15T01:32:52.668+07:00Membuat Icon Back To Top<div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgG6hAW4sJa4CvDochRgkQbRzFGUP0f1TybIT5kZJ7SDlA6BtyGwv_kkUMpPkYAlRvmJ1kLWgMfX9TsoeCZJ_Rkld13l4IwlZX66mB-gNzJNAE849Nzk60FIc2zprMxhgMnpTdWxM6OSCqv/s1600-h/arrow+up+green.png"><img style="margin: 0pt 10px 10px 0pt; float: left; cursor: pointer; width: 88px; height: 88px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgG6hAW4sJa4CvDochRgkQbRzFGUP0f1TybIT5kZJ7SDlA6BtyGwv_kkUMpPkYAlRvmJ1kLWgMfX9TsoeCZJ_Rkld13l4IwlZX66mB-gNzJNAE849Nzk60FIc2zprMxhgMnpTdWxM6OSCqv/s200/arrow+up+green.png" alt="" id="BLOGGER_PHOTO_ID_5279695070393313410" border="0" /></a>Coba lihat sudut kanan bawah halaman blog saya ini, atau kanan bawah layar monitor kamu. Ada gambar icon sama seperti gambar disamping. Icon apaan tuhh..? Icon ini jika di klik akan mengembalikan halaman ke paling atas. Jadi jika blog kamu memanjang ke bawah, untuk kembali ke atas tidak usah scroll -up mouse kamu, cukup dengan klik icon tersebut, maka kamu akan kembali ke halaman paling atas. Oh ya, posisi icon ini akan selalu tetap disitu. Tidak akan bergeser. Mau tahu cara membuatnya? Berikut penjelasannya!<br /></div><span class="fullpost"><br /></span><div style="text-align: justify;"><span class="fullpost">Sebelumnya siapkan terlebih dahulu sebuah icon "Back To Top", terserah saja yang mana menarik menurut kamu. Bisa tanya ke Om Google atau jika kamu jagoan Photoshop bisa juga menciptakan icon sendiri. Kemudian simpan gambar tersebut di penyimpanan gambar di internet. Contoh yang saya buat ini, saya simpan di <a href="http://photobucket.com/">Photobucket</a>. Lalu langkah selanjutnya adalah:</span><br /></div><span class="fullpost"><br />1. Masuk ke Dasbor blog kamu<br />2. Layout<br />3. Tambah Gadget<br />4. Pada HTML/Javascript copy paste kode dibawah ini<br /><br /><p class="alert"><a style="display:scroll;position:fixed;bottom:5px;right:5px;" href="#" title="Ke Atas"><img border="0" alt="Photobucket" src="http://i444.photobucket.com/albums/qq163/dedy_eryanto/mulaktuginjang-2.png"/></a></p><br />5. Simpan<br /><span style="font-style: italic;">Udah deh selesai</span><br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-88954690210585448152008-12-13T00:41:00.010+07:002008-12-14T17:47:30.084+07:00Recent Posts Lebih Dari 5 Postingan<div style="text-align: justify;">Secara default dari Blogger untuk membuat Recent Posts atau dalam bahasa Indonesia disebut Postingan Terbaru, adalah maksimal 5 Postingan. Jika tertarik untuk membuat lebih dari 5 posting silahkan copy paste script berikut ke Blog kamu</div><br /><br /><span class="fullpost"><br /><p class="alert">&ltscript style="" src="http://jimmyjackbob.googlepages.com/Recent_posts_widget_blogger.js">&ltscript style=""&gtvar <span style="color: rgb(51, 102, 255); font-weight: bold;">numposts = 10</span>;var showpostdate = false;var showpostsummary = false;var numchars = 100;var standardstyling = true;&ltscript src="http://<span style="font-weight: bold; color: rgb(51, 102, 255);">nama blog kamu.blogspot.com</span>/feeds/posts/default?orderby=published&alt=json-in-script&callback=showrecentposts"></p><br />Perhatikan script kode yang berwarna biru:<br /><span style="font-weight: bold; color: rgb(51, 102, 255);">numpost = 10</span>, adalah jumlah postingan yang akan anda tampilkan (terserah saja)<br /><span style="font-weight: bold; color: rgb(51, 102, 255);">nama blog kamu.blogspot.com =</span> ganti dengan nama blog kamu<br />Untuk cara pasang:<br />Layout - Tambah Gadget - HTML/javascript - copy paste kode diatas<br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-5176136840486055552008-12-12T22:48:00.002+07:002008-12-12T22:50:20.864+07:00Arti Iklan Lowongan Kerja<div style="text-align: justify;">Mencari kerja sekarang ini tentulah sangat susah akibat krisis global yang mendera. Malah yang ada pengurangan karyawan dimana-mana. Sejalan dengan itu maka pengangguran pun bertambah banyak dan tentu saja angka pencari kerja akan terus bertambah. Nah..bagi kamu para pencari kerja, ada baiknya tetap teliti dengan iklan lowongan kerja yang mungkin bisa ditemukan di Internet, Koran, Radio, TV dan yang ditempel di batang pohon. Berikut beberapa ungkapan yang biasa ditemui pada iklan lowongan kerja dan apa artinya. Yang bisa anda jadikan juga sebagai penilaian awal terhadap perusahaan yang akan anda lamar.<br /></div><br /><span class="fullpost"><br /><span style="font-weight: bold;">1. Bersedia kerja shift</span><br /><span>artinya</span>: Anda harus siap kerja malam, dan siap-siap kena damprat atasan anda manakala anda ngantuk atau tertidur<br /><br /><span style="font-weight: bold;">2. Pengalaman Tidak Diutamakan</span><br />artinya: Anda harus siap dibayar dengan gaji ala kadarnya<br /><br /><span style="font-weight: bold;">3. Berpenampilan menarik</span><br />artinya: Anda siap-siap jadi sales. Dan jika anda perempuan siap-siap digoda calon bos anda<br /><br /><span style="font-weight: bold;">4. Domisili Dekat Dengan Perusahaan</span><br />artinya: Anda harus siap dipanggil kerja pada waktu kapan saja di luar jam kerja anda. Tak perduli larut malam sekalipun.<br /><br /><span style="font-weight: bold;">5. Berwawasan Luas</span><br />artinya: Anda harus bisa mengerjakan apa saja bahkan di luar job yang sudah ditetapkan<br /><br /><span style="font-weight: bold;">6. Mempunyai Kendaraan Sendiri</span><br />artinya: Perusahaan tidak punya modal untuk memberikan fasilitas kendaraan kepada anda. Malah kendaraan anda akan dimanfaatkan untuk kepentingan perusahaan<br /><br /><span style="font-weight: bold;">7. Memiliki SIM</span><br />artinya: Anda sewaktu-waktu bisa jadi supir pribadi bos anda<br /><br /><span style="font-weight: bold;">8. Bersedia Kerja Dibawah Tekanan</span><br />artinya: Management perusahaan tidak cukup bagus untuk membuat suatu sistem selain menekan dan memarahi bawahan<br /><br /><span style="font-weight: bold;">9. Mempunyai Koneksi Yang Luas</span><br />artinya: MLM<br /><br /><span style="font-weight: bold;">10. Bersedia Dengan Sistem Kerja Kontrak</span><br />artinya: Anda harus siap mencari pekerjaan lagi seusai masa kontrak<br /><br /><span style="font-weight: bold;">11. Orientasi Target</span><br />artinya: Anda hanya akan dipakai jika target yang diberikan tercapai<br /><br /><span style="font-weight: bold;">12. Mempunyai Daya Analitical Tinggi</span><br />artinya: Anda harus bisa menganalisa suatu permasalahan yang selama ini mereka tidak bisa pecahkan<br /><br /><span style="font-weight: bold;">13. Jenjang Karir Yang Jela</span>s<br />artinya: Sales<br /><br /><span style="font-weight: bold;">14. Strong Leadership</span><br />artinya: Anda akan jadi centeng bagi bawahan anda yang selama ini mungkin mereka takuti<br /><br /><span style="font-weight: bold;">15. Memiliki Kemampuan Bahasa Asing</span><br />artinya: Anda siap-siap menjadi penterjemah manual book perusahaan. Mungkin mesin-mesinnya masih menggunakan bahasa asing<br /><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-79146393830082078042008-12-11T21:30:00.005+07:002008-12-11T22:07:07.818+07:00Membuat Read More Plus Judulnya<div style="text-align: justify;">Coba perhatikan halaman utama blog saya ini. Pada penggalan artikel disitu saya terlihat Lanjut Membaca + Judulnya. Kebanyakan blog menggunakan Read More ini sebatas kalimat itu saja. Cth:Baca Selengkapnya, Baca Selanjutnya dll tetapi tidak dengan judul postingannya. Mungkin sebagian lebih menyukai yang seperti itu. Tapi bagi kamu yang tertarik model Read More nya seperti punya saya ini, silahkan menyimak lebih lanjut. Oh ya.. bagi kamu yang belum bisa membuat Read More yang "biasa", silahkan buat permintaan di kotak komentar postingan ini.<br /></div><br /><span class="fullpost">Langkah Pertama: Cari kode di bawah ini di HTML blog kamu:<br /><p class="alert"><b:if cond='data:blog.pageType == "item"'><br /><style>.fullpost{display:inline;}</style><br /><p><data:post.body/></p><br /><b:else/><br /><style>.fullpost{display:none;}</style><br /><p><data:post.body/><br /><span style="font-weight: bold; color: rgb(51, 102, 255);"><a expr:href='data:post.url'><strong>Lanjut Membaca...</strong></a></p></span><br /></b:if></p></span><div style="text-align: justify;"><span class="fullpost">Perhatikan kode yang berwarna biru. Rubah kode tersebut dengan kode warna biru dibawah ini. Maka kode akan menjadi seperti ini</span><br /></div><span class="fullpost"><br /><p class="alert"><b:if cond='data:blog.pageType == "item"'><br /><style>.fullpost{display:inline;}</style><br /><p><data:post.body/></p><br /><b:else/><br /><style>.fullpost{display:none;}</style><br /><p><data:post.body/></p><br /><span style="font-weight: bold; color: rgb(51, 102, 255);"><strong><a expr:href='data:post.url'>Lanjut membaca “<data:post.title/>” »» </a></strong></span><br /></b:if></p><br />Langkah Kedua: Simpan Template<br /><br /><span style="font-weight: bold; color: rgb(255, 102, 102);">Langkah Ketiga: Klik Iklan di bawah ini .............(gak nyambung dheenk)</span><br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-1888833120674688862008-12-09T23:24:00.022+07:002008-12-14T22:19:43.810+07:00Menampilkan Judul Tanpa Isi Posting di Label<div style="text-align: justify;"><span style="font-size:100%;">Sebelum melanjutkan membaca postingan ini, alihkan pandangan sejenak ke sidebar kanan atas blog saya ini. Disitu ada Kategori, sekarang coba klik salah satu Kategori atau nama resmi dari Bloggernya adalah Label.....................Sudah Belum...???. Apa yang terlihat?. Ya..hasil klik tersebut dihalaman posting ini yang muncul judul posting dari kategori (label) itu saja. Tidak ada isi postingnya. Ini tentu saja akan memudahkan para penggemar blog kamu jika mau mencari sesuatu yang diminati di blog kamu. Pada Label "original" tentu yang tampil pasti beserta isinya. Jika isi label ada 20-an misalnya, kan pegal tuh telunjuk mencetin scroll maouse. Cara ini juga efektif untuk mempercepat loading page blog kamu.(mau tahu size dan loading page blog kamu? monggo periksa <a href="http://tipsvb-blog.blogspot.com/2008/12/kkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkk.html"> disini</a>)</span></div><br /><br /><span class="fullpost" style="font-size:100%;"><br /><span style="font-weight: bold;">Pertamax</span><br />Buka Template -> Edit HTML -> centang pada kotak kecil Expand Widget Templates<br /><br /><span style="font-weight: bold;">Keduax<br /></span>Cari kode ini:<br /><p class="alert"><!-- posts --><br /><div class='blog-posts hfeed'><br /><b:include data='top' name='status-message'/><br /><data:adStart/><br /><b:loop values='data:posts' var='post'><br /><b:if cond='data:post.dateHeader'><br /><h2 class='date-header'><data:post.dateHeader/></h2><br /></b:if><br /><span style="font-weight: bold; color: rgb(51, 102, 255);"><b:include data='post' name='post'/></span> </p><br />Perhatikan kode warna biru. Ganti kode tersebut dengan kode di bawah ini (timpa dengan cara copy paste)<br /><br /><p class="alert"><b:if cond='data:blog.homepageUrl !=<br /> data:blog.url'><br /> <b:if cond='data:blog.pageType != "item"'><br /> <a expr:href='data:post.url'><br /> <data:post.title/></a><br/><br/><br /> <b:else/><br /> <b:include data='post' name='post'/><br /> </b:if><br /><b:else/><br /> <b:include data='post' name='post'/><br /></b:if></p><br /><br />Ketigax:<br />Simpan, lalu lihat hasilnya...<br /><br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-22865925226663380602008-12-08T21:10:00.020+07:002008-12-14T22:58:11.328+07:00Mengetahui Size Blog Kita<div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgy_jexbBTjUyK8aLdkkCW5yextUiX3rs82y1mUTcdkxRj2qKPBZwx_XyP-GogntF0iMhNSRzB-0tmNqKAQjmELC5R_pm_zoOyAMc-NI6yCPWEQa8EYQZyocZZx2cgRQAel7E_C6OxAYEN2/s1600-h/timbangan.jpg"><img style="margin: 0pt 10px 10px 0pt; float: left; cursor: pointer; width: 89px; height: 114px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgy_jexbBTjUyK8aLdkkCW5yextUiX3rs82y1mUTcdkxRj2qKPBZwx_XyP-GogntF0iMhNSRzB-0tmNqKAQjmELC5R_pm_zoOyAMc-NI6yCPWEQa8EYQZyocZZx2cgRQAel7E_C6OxAYEN2/s200/timbangan.jpg" alt="" id="BLOGGER_PHOTO_ID_5279670436560803202" border="0" /></a>Rata-rata blogger baru (seperti saya juga) dalam membuat blog sangat getol untuk menambahkan segala macam pernak-pernik untuk mempercantik blog. Widget-widget baru dicari sana-sini yang penting tampil di blog walau terkadang tidak ada hubungannya dengan isi blog itu sendiri. Itu sich..sah-sah saja menurut KUHP (lho...). Tetapi kalau kemudian pernak-pernik tersebut membuat blog kita menjadi berat, tentu akan menjadi masalah. <span style="font-style: italic;">"Masalahnya apa ya..?"</span> Masalahnya adalah blog kita akan lambat saat di buka (loading), dan bukan mustahil pengunjung blog kita akan buru-buru kabur akibat kelamaan nunggu. Menunggu kan pekerjaan paling bete. Untuk mengatasi permasalahan ini, akan saya berikan sebuah alat deteksi berat atau speed blog. Alat ini akan berfungsi mengontrol blog sehingga tahu mengatur pernak-pernik apa yang perlu dan tidak usah dimasukkan</div><div style="text-align: justify;"><span class="fullpost">Alat deteksi ini akan menampilkan hasil Size (berat/ukuran), Load Time (waktu loading) dan Avarege Speed per KB (Kecepatan rata-rata / KB). Yang paling penting diperhatikan adalah <span style="font-weight: bold;">SIZE</span>, Angka yang keluar akan mengindikasikan kecepatan loading blog kita. <span style="font-weight: bold;">Size ideal adalah Maksimal 100 KB. </span>Jika melebihi 100 KB loading blog akan mulai melambat. Segera tata kembali blog dan buang pernak-pernik yang tidak perlu. Seperti Jam dan Kalender (ngapain juga ya pakai ini???, emangnya pengunjung blog kita gak punya kalender atau jam ).</span><br />Nah..jika sudah jelas silahkan masukkan alamat blog kamu atau bisa juga bareng dengan blog teman kamu sebagai perbandingan (ngintip gituh..). Maksimal 10 buah ya</span></div><br /><span class="fullpost"><form method="get" name="pageform" action="http://www.iwebtool.com/tool/tools/speed_test/speed_test.php" target="pageframe" onsubmit="return validate(this);"><table style="border-collapse: collapse;" border="0" width="100%"><tbody><tr><td valign="top" height="91"><table class="tooltop" style="border-collapse: collapse;" width="100%" height="76"><tbody><tr><td><table style="border-collapse: collapse;" border="0" cellspacing="5" width="100%"><tbody><tr><td colspan="5" valign="top"><span style="font-weight: bold;">Masukkan Alamat Web atau Blog (Maksimal 10)</span></td></tr><tr><td colspan="4" valign="top"><textarea rows="11" name="domain" style="width: 100%;"></textarea></td><td><br /></td></tr><tr><td><input value="Periksa!" style="float: left;" type="submit"></td><td><span style="font-size:78%;">(Cth: tipsvb-blog.blogspot.com)</span></td><td><br /></td><td colspan="2"><br /></td></tr></tbody></table></td></tr></tbody></table></td></tr><tr><td><iframe name="pageframe" class="toolbot" width="100%" frameborder="0" height="251"></iframe><br /></td></tr><tr><td height="39"><br /></td></tr></tbody></table></form><script language="JavaScript">function validate(theform) {if (theform.domain.value == "") { alert("No domain provided"); return false; }return true;}</script><p><a href="http://www.iwebtool.com/" target="_blank"><span style="font-size:78%;">Powered byiWEBTOOL</span></a></p><br /><span></span><br /><br /><br /><!-- Begin: http://adsensecamp.com/ --><br /><script src="http://adsensecamp.com/show/?id=Jd2TVAE7FSI%3D&cid=sO23aMPfjUo%3D&chan=fAVLSSbxF4I%3D&type=5&title=3D81EE&text=000000&background=FFFFFF&border=000000&url=2BA94F" type="text/javascript"><br /></script><br /><!-- End: http://adsensecamp.com/ --><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com1tag:blogger.com,1999:blog-6323603208646997826.post-80655569526848822712008-12-08T14:47:00.003+07:002008-12-10T22:29:27.775+07:00Visual Basic Dalam Sebuah Segitiga<div style="text-align: justify;"> Segitiga adalah: Nama suatu bentuk yang dibuat dari tiga sisi yang berupa garis lurus dan tiga sudut. Matematikawan Euclid yang hidup sekitar tahun 300 SM menemukan bahwa jumlah ketiga sudut di suatu segi tiga adalah 180 derajat. Hal ini memungkinkan kita menghitung besarnya salah satu sudut bila dua sudut lainnya sudah diketahui. Dalam postingan ini saya menggunakan segitiga siku-siku sebagai bahan untuk contoh pemrograman Visual Basic. Ciri segitiga siku-siku adalah salah satu sudutnya bernilai 90 derajat. Dengan program ini kita akan mudah menghitung secara otomatis komponen-komponen yang ada pada sebuah segitiga siku-siku dengan hanya meng-input 2 komponen yang diketahui. Komponen tersebut adalah:<br /></div>- Besar sudut<br />- Nilai Alas,Tinggi dan Sisi Miringnya --> <span style="color: rgb(51, 102, 255);">Rumus Phytagoras</span><br /><br />Untuk memulai membuat program, persiapkan dulu hal-hal berikut<br />- Atur sebuah layout seperi gambar (lihat di bagian bawah postingan ini.<br />- Atur propertinya sbb:<br /><br />* TextBox = TTinggi, TAlas, TAtas, TBawah, TSisi<br />* Label = LLuas<br />* CommandButton = CReset, CHitung, CKeluar<br />* Line untuk membentuk gambar segittiga<br /><span class="fullpost"><br /><p class="alert"><span style="font-size:100%;"><span style="font-weight: bold;">Option Explicit</span><br />Dim rAtas As String<br />Dim rBawah As String<br />Dim pi As String<br />Dim Opp As String<br />Dim SisiMiring As String<br />Dim Adj As String<br />Dim Sudut As String<br />Dim X As String</span></p><br /><p class="alert"><span style="font-weight: bold;">Sub Reset()</span><br />TTinggi.Text = ""<br />TAlas.Text = ""<br />TSisi.Text = ""<br />TAtas.Text = ""<br />TBawah.Text = ""<br />LLuas = ""<br />pi = 3.14159265358979<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Sub Konversi()</span><br />Opp = ""<br />SisiMiring = ""<br />Sudut = ""<br />Adj = ""<br />rAtas = ""<br />rBawah = ""<br />If TAtas.Text <> "" Then rAtas = TAtas.Text * pi / 180<br />If TBawah.Text <> "" Then rBawah = TBawah.Text * pi / 180<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Private Sub CHitung_Click(Index As Integer)</span><br />Call HitungSudut<br />If TTinggi.Text <> "" Or TAlas.Text <> "" Or TSisi.Text <> "" Then<br />Call Konversi<br />If rBawah <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then<br />Sudut = rBawah<br />Opp = TTinggi.Text<br />SisiMiring = TSisi.Text<br />Call Calcsin<br />TTinggi.Text = Opp<br />TSisi.Text = SisiMiring<br />End If<br />If rAtas <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then<br />Opp = TAlas.Text<br />SisiMiring = TSisi.Text<br />Sudut = rAtas<br />Call Calcsin<br />TAlas.Text = Opp<br />TSisi.Text = SisiMiring<br />End If<br />If rBawah <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then<br />Sudut = rBawah<br />Adj = TAlas.Text<br />SisiMiring = TSisi.Text<br />Call Calccos<br />TAlas.Text = Adj<br />TSisi.Text = SisiMiring<br />End If<br />If rAtas <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then<br />Sudut = rAtas<br />Adj = TTinggi.Text<br />SisiMiring = TSisi.Text<br />Call Calccos<br />TTinggi.Text = Adj<br />TSisi.Text = SisiMiring<br />End If<br />If rAtas <> "" And TAlas.Text <> "" Or rAtas <> "" And TTinggi.Text <> "" Then<br />Sudut = rAtas<br />Adj = TTinggi.Text<br />Opp = TAlas.Text<br />Call Calctan<br />TTinggi.Text = Adj<br />TAlas.Text = Opp<br />End If<br />If rBawah <> "" And TAlas.Text <> "" Or rBawah <> "" And TTinggi.Text <> "" Then<br />Sudut = rAtas<br />Adj = TAlas.Text<br />Opp = TTinggi.Text<br />Call Calctan<br />TAlas.Text = Adj<br />TTinggi.Text = Opp<br />End If<br />If rAtas = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then<br />Sudut = rAtas<br />Opp = TAlas.Text<br />Adj = TTinggi.Text<br />Call InvTan<br />TAtas.Text = Sudut * 180 / pi<br />End If<br />If rBawah = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then<br />Sudut = rAtas<br />Opp = TTinggi.Text<br />Adj = TAlas.Text<br />Call InvTan<br />TBawah.Text = Sudut * 180 / pi<br />End If<br />If rAtas = "" And TAlas.Text <> "" And TSisi.Text <> "" Then<br />Sudut = rAtas<br />Opp = TAlas.Text<br />SisiMiring = TSisi.Text<br />Call InvSin<br />TAtas.Text = Sudut * 180 / pi<br />End If<br />If rBawah = "" And TTinggi.Text <> "" And TSisi.Text <> "" Then<br />Sudut = rBawah<br />Opp = TTinggi.Text<br />SisiMiring = TSisi.Text<br />Call InvSin<br />TBawah.Text = Sudut * 180 / pi<br />End If<br />End If<br />LLuas = (TAlas.Text * TTinggi.Text) / 2<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Private Sub CKeluar_Click(Index As Integer)</span><br />Unload Me<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Private Sub CReset_Click()</span><br />Call Reset<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Private Sub Form_Load()</span><br />Call Reset<br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Function Calcsin() As Single</span><br />If Opp = "" And SisiMiring <> "" And Sudut <> "" Then Opp = SisiMiring * Sin(Sudut)<br />If SisiMiring = "" And Opp <> "" And Sudut <> "" Then SisiMiring = Opp / Sin(Sudut)<br /><span style="font-weight: bold;">End Function</span></p><br /><p class="alert"><span style="font-weight: bold;">Function Calccos() As Single</span><br />If Adj = "" And SisiMiring <> "" And Sudut <> "" Then Adj = SisiMiring * Cos(Sudut)<br />If SisiMiring = "" And Adj <> "" And Sudut <> "" Then SisiMiring = Adj / Cos(Sudut)<br /><span style="font-weight: bold;">End Function</span></p><br /><p class="alert"><span style="font-weight: bold;">Sub HitungSudut()</span><br />If TBawah.Text <> "" And TAtas.Text <> "" Then<br />If Val(TAtas.Text) + Val(TBawah.Text) <> "90" Then MsgBox ("Tidak Bisa Diproses")<br />End If<br />If TBawah.Text <> "" And TAtas.Text = "" Then TAtas.Text = 90 - Val(TBawah.Text)<br />If TAtas.Text <> "" And TBawah.Text = "" Then TAtas.Text = 90 - Val(TAtas.Text)<br />If Val(TAtas.Text) > 90 Or Val(TAtas.Text) <> 90 Or Val(TBawah.Text) <><br /><span style="font-weight: bold;">End Sub</span></p><br /><p class="alert"><span style="font-weight: bold;">Function Calctan() As String</span><br />If Opp = "" And Adj <> "" And Sudut <> "" Then Opp = Adj * Tan(Sudut)<br />If Adj = "" And Opp <> "" And Sudut <> "" Then Adj = Opp / Tan(Sudut)<br /><span style="font-weight: bold;">End Function</span></p><br /><p class="alert"><span style="font-weight: bold;">Function InvTan() As String</span><br />If Opp <> "" And Adj <> "" And Sudut = "" Then Sudut = Atn(Opp / Adj)<br /><span style="font-weight: bold;">End Function</span></p><br /><p class="alert"><span style="font-weight: bold;">Function InvSin() As String</span><br />X = Opp / SisiMiring<br />Sudut = Atn(X / Sqr(-X * X + 1))<br /><span style="font-weight: bold;">End Function</span></p></span><p></p><br /><br />Maka hasil program akan seperti gambar di bawah ini:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnrNwxHddx8csK87yREU98s02iRW5yKuclp724HN7h4tqH8hyeJ6v1tAKDkQDPomRTUnOPTOXI4DOJCeXetPV8KzF4H2iLbPfH_DaS44Ww_mfNyj4fXs6_4LtQGP7CeyvkKXsDTolFdEc/s1600-h/New+Picture+copy.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 311px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnrNwxHddx8csK87yREU98s02iRW5yKuclp724HN7h4tqH8hyeJ6v1tAKDkQDPomRTUnOPTOXI4DOJCeXetPV8KzF4H2iLbPfH_DaS44Ww_mfNyj4fXs6_4LtQGP7CeyvkKXsDTolFdEc/s320/New+Picture+copy.jpg" alt="" id="BLOGGER_PHOTO_ID_5276753649414205698" border="0" /></a><span class="fullpost"><br /></span><div style="text-align: justify;"><span class="fullpost">Dalam contoh ini, data diinput pada Tinggi dan Alas lalu klik tombol Hitung. Maka hasilnya seperti yang terlihat pada gambar diatas. Bagi anda pakar Matematika silahkan dibuktikan hasil tersebut, jika ada kesalahan tolong dikoreksi yach...!!</span><br /></div><span class="fullpost"><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-82941793943241143522008-12-08T14:45:00.000+07:002008-12-08T14:47:00.653+07:00Transfer Data Dari VB Ke Excel<div style="text-align: justify;">Postingan kali ini akan menjelaskan cara <span style="font-weight: bold;">Transfer data dari Visual Basic ke Exce</span>l. Melalui form Visual Basic kita dapat menentukan ke baris dan kolom mana data tersebut akan ditempatkan di sheet Excel.<br /></div><br /><div style="text-align: justify;"><span style="font-weight: bold; color: rgb(51, 102, 255);">Caranya:</span><br />1. Buat 2 buah kontrol TextBox dan 1 buah kontrol CommandButton pada form Visual Basic<br />2. Ubah Properties kontrol tersebut--->Ini bisa terserah anda<br /></div><br />Dalam contoh ini propertiesnya sebagai berikut:<br />- TextBox = T1 dan T2<br />- CommandButton = CB1 --> Pada Caption ketik Transfer Data Ke Excel<br />- Hasil pengaturan lihat gambar hasil program (di bagian bawah postingan ini<span class="fullpost"><br />- Pada Jendela Kode ketikkan kode berikut ini:<br /><br /><span style="font-weight: bold; color: rgb(51, 102, 255);">Kode:<br /></span><span style="color: rgb(0, 0, 0);">Dim Transfer As Excel.Application<br />-------------------------------------------------------<br /><span style="font-weight: bold;">Private Sub CB1_Click()</span><br />Transfer.Workbooks.Add<br />Transfer.Range(T1.Text).Value = T2.Text<br />Transfer.Visible = True<br /><span style="font-weight: bold;">End Sub<br /></span>-------------------------------------------------------<span style="font-weight: bold;"><br />Private Sub Form_Load()</span><br />Set Transfer = CreateObject("excel.application")<br /><span style="font-weight: bold;">End Sub<br /></span>-------------------------------------------------------<span style="font-weight: bold;"><br />Private Sub Form_Unload(Cancel As Integer)</span><br />Transfer.Quit<br /><span style="font-weight: bold;">End Sub</span></span><span style="font-weight: bold; color: rgb(51, 102, 255);"><br /><br /></span>- Setelah Run Program, maka hasilnya akan seperti ini:<br /><br /></span><div style="text-align: justify;"><span class="fullpost"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6vsIi84BbaBAPmKLroBr1vAMwEynqLGC9QWw2s17l4JDSCcEHHh-NOcJRnHmd8djWOgSY5ZFe2CrimIa8tVM1ou8KS8GhzMfRiUakJGTu02uTAn4AZiQfIL-mDJpXSr1Qv_9SPSyysfE/s1600-h/New+Picture.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 220px; height: 154px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6vsIi84BbaBAPmKLroBr1vAMwEynqLGC9QWw2s17l4JDSCcEHHh-NOcJRnHmd8djWOgSY5ZFe2CrimIa8tVM1ou8KS8GhzMfRiUakJGTu02uTAn4AZiQfIL-mDJpXSr1Qv_9SPSyysfE/s320/New+Picture.jpg" alt="" id="BLOGGER_PHOTO_ID_5276362244983242914" border="0" /></a></span><span class="fullpost">- Kotak pendek (TextBox T1) merupakan tempat mengetikkan baris dan kolom yang akan di tuju di sheet Excel. Sedangkan kotak panjang (TextBox T2) tempat mengetikkan teks.</span><br /><span class="fullpost">- Data akan berpindah setelah Transfer Data Ke Excel di klik</span><br /><span class="fullpost">- Selamat Mencoba.......</span><br /></div><span class="fullpost"><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-9174305613133734162008-12-08T14:40:00.000+07:002008-12-08T14:42:57.201+07:00Ubah Warna Form Dengan HScrollBar<div style="text-align: justify;"><span style="font-weight: bold; font-style: italic;">HScrollBar atau Horizontal ScrollBar</span> ternyata dapat digunakan untuk merubah warna form Visual Basic anda. Mau tahu caranya??Ikuti langkah-langkah berikut ini.<br /></div>1.Buka form Visual Basic anda<br />2.Buat 4 buah kontrol label, 3 buah HScrollBar dan 1 buah CommandButton<br />3.Atur propertiesnya sehingga menjadi gambar 1 <span style="font-style: italic;">(dibawah)</span><br /><span style="font-style: italic;"><br />Dalam hal ini: </span><br /><span style="color: rgb(51, 102, 255);">Label paling atas = LB1</span> ------> Caption dikosongkan saja<br /><span style="color: rgb(51, 102, 255);">HScrollBar = HS1, HS2,HS3</span>----> Ketik pada properti Name<br /><span style="color: rgb(51, 102, 255);"> CommandButton = CB1</span>-----> Di Caption ketikkan "KELUAR"<br /><br />4.Ketikkan kode berikut pada masing-masing kontrol:<span class="fullpost"><span style="color: rgb(51, 102, 255);font-size:100%;" ><span style="font-weight: bold;"><br /><br />Kode:</span></span><br /><span style="font-weight: bold;">Private Sub Form_Load()</span><br />Me.Caption = "Warna Form"<br /><span style="font-weight: bold;">End Sub<br />------------------------------------------------------------------------------------------------<br />Private Sub HS1_Change()</span><br />Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)<br />LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value<br /><span style="font-weight: bold;">End Sub</span><br /></span><span class="fullpost"><span style="font-weight: bold;">------------------------------------------------------------------------------------------------</span></span><br /><span class="fullpost"><span style="font-weight: bold;">Private Sub HS2_Change()</span><br />Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)<br />LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value<br /><span style="font-weight: bold;">End Sub</span><br /></span><span class="fullpost"><span style="font-weight: bold;">------------------------------------------------------------------------------------------------</span></span><br /><span class="fullpost"><span style="font-weight: bold;">Private Sub HS3_Change()</span><br />Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)<br />LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value<br /><span style="font-weight: bold;">End Sub</span><br /></span><span class="fullpost"><span style="font-weight: bold;">------------------------------------------------------------------------------------------------</span></span><br /><span class="fullpost"><span style="font-weight: bold;">Private Sub CB1_Click()</span><br />End<br /><span style="font-weight: bold;">End Sub</span><br /><br />Hasilnya lihat pada gambar 1 berikut ini:<br /><br /></span><div style="text-align: justify;"><span class="fullpost"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh73yY4-C-OcFqEMFOMnBk6jQVr_lKURK7qJpUOPIGTw-Be5mpozAsTIRlgQawc6eVGsXEuADNZqNOQ_W-UVXiIXuQLUU_Xjd6C2-YM0lh5EXhg0avN8lXyyo0hb29S6AH0mA7dCymuDv8/s1600-h/WARNA.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 224px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh73yY4-C-OcFqEMFOMnBk6jQVr_lKURK7qJpUOPIGTw-Be5mpozAsTIRlgQawc6eVGsXEuADNZqNOQ_W-UVXiIXuQLUU_Xjd6C2-YM0lh5EXhg0avN8lXyyo0hb29S6AH0mA7dCymuDv8/s320/WARNA.jpg" alt="" id="BLOGGER_PHOTO_ID_5275962647828686562" border="0" /></a>Anda tinggal geser HSrollBar ke arah kanan sejauh keinginan anda, maka warna form akan otomatis berubah. Seperti gambar di atas HScrollBar di label MERAH digeser penuh, maka form berubah menjadi warna <span style="font-weight: bold; color: rgb(255, 102, 102);">MERAH</span>. Berminat mencoba <span style="color: rgb(51, 255, 51); font-weight: bold;">HIJAU</span> dan <span style="font-weight: bold; color: rgb(51, 51, 255);">BIRU</span>???<br />Coba aja trik ini..!!!<br /></span></div><span class="fullpost"><br /><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6323603208646997826.post-77081049018617119622008-12-08T14:38:00.000+07:002008-12-08T14:39:33.993+07:00Membuat Form dengan VBA di Excel<div style="text-align: justify;">Bagi anda pengguna Excel tentu tidak jauh dari mengisi data ke dalam sheet pada kolom dan baris. Untuk mempermudah pengisian apalagi jika datanya banyak alangkah lebih baik menggunakan form. Menggunakan form akan lebih simple karena anda tidak harus selalu kembali ke kolom awal jika baris pada kolom terakhir sudah selesai di input. Keuntungan lain anda diingatkan jika belum mengisi data.<br /></div><span class="fullpost"><br /><span style="font-weight: bold;">Langkah Membuat Form</span><br /><br />- Buka aplikasi Excel pada MS Office (disini saya menggunakan Excel 2007)<br />- Buat tabel seperti gambar berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2hjEZfJYFnKu4aok0wO7DvurstkuEkPWI_Ucu7e-xcL5DwiY-dVWVOJqgiT9-53KKxcADEZV8shTmdj6Cqiu5JLt18lTWm9yYmSncgiK_OpoAV-bEpFYRsn9vCGxzTddx5xFHnrxkrYA/s1600-h/layar+sheet.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 65px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2hjEZfJYFnKu4aok0wO7DvurstkuEkPWI_Ucu7e-xcL5DwiY-dVWVOJqgiT9-53KKxcADEZV8shTmdj6Cqiu5JLt18lTWm9yYmSncgiK_OpoAV-bEpFYRsn9vCGxzTddx5xFHnrxkrYA/s320/layar+sheet.jpg" alt="" id="BLOGGER_PHOTO_ID_5275920382013220994" border="0" /></a><br />- Ganti nama Sheet1 menjadi INPUTDATA<br />- Klik Developer pada Menubar<br />- Klik Visual Basic<br />- Klik Insert New Form<br />- Buat pada form 10 buah label, 9 buah TextBox dan 2 buah CommandButton<br />- Atur posisi dan properties kontrol sehingga menjadi seperti gambar berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeNNOFrQRS8Rmo7RNqhvQDECUMavTfEU7HyQEsWjDdwl5E9J0BFcYjk4Nd-0-Xeag3C9KxJurx_xy-6Ga8RD6ljYQ9dToPUBX2GkYXv1WSDd0ZX9bgockQzjrLadbdENDIvoTPqnHnlyk/s1600-h/New+Picture.jpg"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 254px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeNNOFrQRS8Rmo7RNqhvQDECUMavTfEU7HyQEsWjDdwl5E9J0BFcYjk4Nd-0-Xeag3C9KxJurx_xy-6Ga8RD6ljYQ9dToPUBX2GkYXv1WSDd0ZX9bgockQzjrLadbdENDIvoTPqnHnlyk/s320/New+Picture.jpg" alt="" id="BLOGGER_PHOTO_ID_5275921198555974194" border="0" /></a><br />- Untuk label Nama properti TextBox beri nama: TxNama<br />- Untuk label NIS properti TextBox beri nama: TxNIS<br />- Untuk label Matematika properti TextBox beri nama: TxMatematika<br />- Untuk label PMP properti TextBox beri nama: TxPMP<br />- Untuk label IPS properti TextBox beri nama: TxIPS<br />- Untuk label IPA properti TextBox beri nama: TxIPA<br />- Untuk label B.Indonesia properti TextBox beri nama: TxBind<br />- Untuk label B.Inggris properti TextBox beri nama: TxBing<br />- Untuk label Orkes properti TextBox beri nama: TxOrkes<br />- Untuk label CommandButton beri nama SIMPAN dan KELUAR<br /><br />Udah belum...??? Jika sudah mari kita teruskan<br /><br />- Klik ganda pada CommandButton SIMPAN<br />- Lalu ketikkan kode berikut:<br /><br /><span style="font-weight: bold;">Private Sub SIMPAN_Click()</span><br />TxNama.SetFocus ---><span style="color: rgb(51, 102, 255);">Untuk menempatkan kursor awalnya selalu di TextBox Nama</span><br />If TxNama.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nama", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxNIS.Text = "" Then<br />MsgBox "Anda Belum Mengisi NIS", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxMatematika.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai Matematika", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxPMP.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai PMP", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxIPS.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai IPS", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxIPA.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai IPA", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxBind.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai B.Indonesia", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxBing.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai B.Inggris", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />If TxOrkes.Text = "" Then<br />MsgBox "Anda Belum Mengisi Nilai Orkes", vbInformation, "PESAN"<br />Exit Sub<br />End If<br />ActiveWorkbook.Sheets("INPUTDATA").Activate<br />Range("B2").Select<br />Do<br />If IsEmpty(ActiveCell) = False Then<br />ActiveCell.Offset(1, 0).Select<br />End If<br />Loop Until IsEmpty(ActiveCell) = True<br />ActiveCell.Value = TxNama.Value<br />ActiveCell.Offset(0, 1) = TxNIS.Value<br />ActiveCell.Offset(0, 2) = TxMatematika.Value<br />ActiveCell.Offset(0, 3) = TxPMP.Value<br />ActiveCell.Offset(0, 4) = TxIPS.Value<br />ActiveCell.Offset(0, 5) = TxIPA.Value<br />ActiveCell.Offset(0, 6) = TxBind.Value<br />ActiveCell.Offset(0, 7) = TxBing.Value<br />ActiveCell.Offset(0, 8) = TxOrkes.Value<br />Call HAPUS ---> Fungsinya untuk mengosongkan form pada saat SIMPAN diklik<br />Exit Sub<br /><span style="font-weight: bold;">End Sub</span><br /><br /><span style="font-weight: bold;">Private Sub HAPUS()</span><br />TxNama.Text = ""<br />TxNIS.Text = ""<br />TxMatematika.Text = ""<br />TxPMP.Text = ""<br />TxIPS.Text = ""<br />TxIPA.Text = ""<br />TxBind.Text = ""<br />TxBing.Text = ""<br />TxOrkes.Text = ""<br /><span style="font-weight: bold;">End Sub</span><br /><br />- Kemudian klik ganda pada CommandButton KELUAR<br />- Lalu ketikkan kode berikut:<br /><br /><span style="font-weight: bold;">Private Sub KELUAR_Click()</span><br />End --> <span style="color: rgb(51, 102, 255);">Untuk keluar dari program</span><br /><span style="font-weight: bold;">End Sub</span><br /><br />- Jalankan program dengan meng-klik Run-->Run Sub/UserForm atau tekan F5<br /><br /></span><div style="text-align: justify;"><span class="fullpost">Isi data data pada form, untuk pindah ke TextBox berikutnya tekan Enter. Setelah diisi lalu klik SIMPAN maka otomatis data akan pindah ke sheet Excel dan form akan kosong siap diisi kembali. Coba juga kosongkan salah satu, maka akan muncul pesan untuk mengingatkan yang belum diisi tadi.</span><br /><span class="fullpost">Tak percaya?? Buktiin aja Ndiri....</span><br /></div><span class="fullpost"><br /></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0