tag:blogger.com,1999:blog-49678588059242433292024-03-14T00:47:37.456-07:00Tutorial Visual BasicDownload source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial phpAnonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.comBlogger228125tag:blogger.com,1999:blog-4967858805924243329.post-36625830552514612422012-06-03T02:49:00.000-07:002012-06-05T11:11:58.026-07:00Membuat PHP User Online<div dir="ltr" style="text-align: left;" trbidi="on">Ya… kali ini kita akan bermain dengan <b>session</b>… kita akan membuat satu program untuk mendeteksi berapa user yang online, baik itu yang sudah terdaftar jadi member maupun yang bukan member. <br />Perlu diketahui tips ini adalah sambungan dari tulisan sebelumnya (<a href="http://www.indrawan21.blogspot.com/2012/06/php-form-register-login-untuk.html" target="_blank">PHP Form Register & Login untuk Member</a>), disarankan sebelum anda memulai dengan satu ini supaya membaca tulisan saya sebelumnya agar nanti tidak kesulitan.Nah.. sudah ??? Ok kalau sudah mari kita mulai.. <br />Langkah pertama adalah menyiapkan databasenya <br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-sql"><li class="alt"><span class="keyword">CREATE</span> <span class="keyword">TABLE</span> dy_sessions ( </li><li class="class">session_id <span class="keyword">varchar</span>(70) <span class="op">NOT</span> <span class="op">NULL</span> <span class="keyword">default</span> <span class="string">''</span>, </li><li class="alt">session_username <span class="keyword">varchar</span>(40) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">session_usermode <span class="keyword">varchar</span>(5) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">session_time <span class="keyword">varchar</span>(40) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">session_visit <span class="keyword">varchar</span>(40) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">session_address <span class="keyword">varchar</span>(125) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">session_page <span class="keyword">varchar</span>(255) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt"><span class="keyword">PRIMARY</span> <span class="keyword">KEY</span> (session_id) </li><li class="class">) TYPE=MyISAM; </li></ol></div>sekarang kita buat script PHPnya <br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c"><li class="alt"><?php </li><li class="class"><span class="comment">/*</span> </li><li class="alt"><span class="comment">MySQL Host, User and Password Access</span> </li><li class="class"><span class="comment">Ganti nilainya sesuai dengan konfigurasi di server database kamu</span> </li><li class="alt"><span class="comment">*/</span> </li><li class="class"><span class="vars">$sqlhost</span>=<span class="string">"localhost"</span>; <span class="comment">//MySQL host</span> </li><li class="alt"><span class="vars">$sqluser</span>=<span class="string">"user"</span>; <span class="comment">//MySQL user</span> </li><li class="class"><span class="vars">$sqlpasswd</span>=<span class="string">"password"</span>; <span class="comment">//MySQL password</span> </li><li class="alt"> </li><li class="class"><span class="comment">/* MySQL Database and Table Prefix</span> </li><li class="alt"><span class="comment">Database ganti dengan nama database kamu</span> </li><li class="class"><span class="comment">*/</span> </li><li class="alt"><span class="vars">$sqldb</span>=<span class="string">"stieven"</span>; <span class="comment">//database</span> </li><li class="class"><span class="vars">$prefix</span>=<span class="string">"dy_"</span>; <span class="comment">//table prefix</span> </li><li class="alt"><span class="comment">// Sekarang lakukan Koneksi ke database MySQL</span> </li><li class="class"><span class="vars">$conn</span>=mysql_connect(<span class="string">"$sqlhost"</span>,<span class="string">"$sqluser"</span>,<span class="string">"$sqlpasswd"</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"<p</span> </li><li class="alt"><span class="string">align=center>CAN NOT CONNECT TO MYSQL SERVER"</span>); </li><li class="class">mysql_select_db(<span class="vars">$sqldb</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"Warning database not exists!"</span>); </li><li class="alt"><span class="comment">//Global Variable</span> </li><li class="class"><span class="comment">/* register global untuk variable terutama jika register_global=off */</span> </li><li class="alt">extract(<span class="vars">$_SERVER</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_ENV_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt">extract(<span class="vars">$HTTP_GET_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_POST_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt"><span class="comment">//timezone format</span> </li><li class="class"><span class="vars">$gmt</span>=<span class="func">date</span>(<span class="string">"Z"</span>); </li><li class="alt"><span class="comment">//Session Time</span> </li><li class="class"><span class="vars">$session_time</span>=<span class="func">date</span>(<span class="string">"U"</span>); </li><li class="alt"><span class="comment">//session ID</span> </li><li class="class"><span class="vars">$session_id</span>=session_id(); </li><li class="alt"><span class="comment">//cek apakah sudah login atau belum</span> </li><li class="class"><span class="keyword">if</span> (!<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]) { </li><li class="alt"><span class="vars">$session_user</span>=<span class="string">"Guest"</span>; </li><li class="class"><span class="vars">$session_mode</span>=<span class="string">"-1"</span>; </li><li class="alt">} </li><li class="class"><span class="keyword">else</span> { </li><li class="alt"><span class="vars">$session_user</span>=<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]; </li><li class="class"><span class="vars">$session_mode</span>=<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"usermode"</span>]; </li><li class="alt">} </li><li class="class"><span class="comment">//mengambil record lama session dari database</span> </li><li class="alt"><span class="vars">$sesGet</span>=mysql_query(<span class="string">"select * from "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions where</span> </li><li class="class"><span class="string">session_id='$session_id'"</span>); </li><li class="alt"><span class="vars">$session</span>=mysql_fetch_array(<span class="vars">$sesGet</span>); </li><li class="class"><span class="comment">//IP address</span> </li><li class="alt"><span class="vars">$ipaddress</span>=<span class="vars">$REMOTE_ADDR</span>; </li><li class="class"><span class="comment">//update user session jika suda ada dan jika tidak ada bikin baru</span> </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$session</span>[session_id]) { </li><li class="class">mysql_query(<span class="string">"update "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions set</span> </li><li class="alt"><span class="string">session_time='$session_time', session_page='"</span>. <span class="vars">$REQUEST_URI</span> .<span class="string">"'</span> </li><li class="class"><span class="string">,session_username='$session_user', session_address='$ipaddress'</span> </li><li class="alt"><span class="string">,session_usermode='$session_mode' where session_id='$session_id'"</span>); </li><li class="class">} </li><li class="alt"><span class="keyword">else</span> { </li><li class="class">mysql_query(<span class="string">"insert into "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions</span> </li><li class="alt"><span class="string">(session_time,session_visit,session_username,session_usermode,session_</span> </li><li class="class"><span class="string">id,session_address,session_page)</span> </li><li class="alt"><span class="string">values('$session_time','$session_time','$session_user','$sessio</span> </li><li class="class"><span class="string">n_mode','$session_id','$ipaddress','"</span>. <span class="vars">$REQUEST_URI</span> .<span class="string">"')"</span>); </li><li class="alt">} </li><li class="class"><span class="comment">//Batas Session Time</span> </li><li class="alt"><span class="vars">$cekSess</span>=<span class="vars">$session_time</span>-300; </li><li class="class"><span class="comment">//Total Semua yang online</span> </li><li class="alt"><span class="vars">$sesGets</span>=mysql_query(<span class="string">"select count(*) from "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions where</span> </li><li class="class"><span class="string">session_time>='$cekSess'"</span>); </li><li class="alt"><span class="vars">$session_crt</span>=mysql_fetch_row(<span class="vars">$sesGets</span>); </li><li class="class"><span class="comment">//Total online non member</span> </li><li class="alt"><span class="vars">$sesGetss</span>=mysql_query(<span class="string">"select count(*) from "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions where</span> </li><li class="class"><span class="string">session_time>='$cekSess' and session_usermode<=0"</span>); </li><li class="alt"><span class="vars">$session_crts</span>=mysql_fetch_row(<span class="vars">$sesGetss</span>); </li><li class="class"><span class="comment">//Total Online Member</span> </li><li class="alt"><span class="vars">$sesGetsss</span>=mysql_query(<span class="string">"select count(*) from "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions where</span> </li><li class="class"><span class="string">session_time>='$cekSess' and session_usermode>=1"</span>); </li><li class="alt"><span class="vars">$session_crtss</span>=mysql_fetch_row(<span class="vars">$sesGetsss</span>); </li><li class="class"><span class="comment">//Hapus session yang sudak ekspire</span> </li><li class="alt">mysql_query(<span class="string">"delete from "</span>. <span class="vars">$prefix</span> .<span class="string">"sessions where</span> </li><li class="class"><span class="string">session_time<'$cekSess'"</span>); </li><li class="alt"><span class="func">echo</span> <span class="string">"Online $session_crt[0] : Member $session_crtss[0] - Non Member</span> </li><li class="class"><span class="string">$session_crts[0]"</span>; </li><li class="alt">?> </li></ol></div>Jadi deh… gampang bukan ???<br /><hr /><b><u>PHP User Online </u></b><br /><span style="font-size: x-small;">Stieven R. Kalengkian stieven@kawanuanetworks.com </span><br /><span style="font-size: x-small;">http://www.php.wox.org</span></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-12578385723550319402012-06-03T02:47:00.000-07:002012-06-05T11:11:57.999-07:00PHP Form Register & Login untuk<div dir="ltr" style="text-align: left;" trbidi="on">Kali ini saya memberikan tips dan trik bagaimana cara <b>membuat form</b> untuk <b>meregister </b>sekaligus <b>login </b>untuk <b>member </b>terdaftar, dan sudah tentu kita akan menggunakan database <b>MySQL </b>untuk menyimpan data para member terdaftar.Perlu diingat source <b>PHP </b>yang saya tulis ini berjalan pada <b>PHP 4.2.3</b> atau lebih disarankan untuk menggunakan <b>PHP versi 4.3</b> atau lebih.<br />Mari kita mulai! Pertama-tama siapkan terlebih dulu databasenya. Silahkan jalankan mysql Client kamu. Masih bingung atau lupa menjalankan mysql client ?<br />Ok saya coba ingat-ingatkan kembali… Mysql client yang digunakan disini adalah yang berbasis teks dan di eskusi pada shell.<br />Dengan kata lain mysql client dijalankan dengan perintah sebagai berikut : mysql<br />Perintah ini dlakukan jika server MySQL berada pada localhost dan tidak ada password untuk user yang sedang aktif pada saat itu. <br />Untuk perintah yang lebih kompleks dapat menggunakan perintah sebagai berikut mysql –h hosttarget –u username –ppasswordaccess hosttarget adalah lokasi server MySQL berada, username adalah user untuk mengakses kedalam database dan passwordaccess adalah password username untuk mengakses kedalam database. <br />Setelah itu shell akan berganti seperti :<br /><blockquote>mysql> </blockquote>Nah selanjutnya silahkan pilih database yang akan digunakan. Jika belum memiliki database atau ingin menggunakan database lain dari yang sudah ada berarti harus membuat database baru. <br />Cara membuat database : <br /><blockquote>mysql> create database namadatabase; <br />Query OK, 1 row affected <0.00 sec> </blockquote>sedangkan untuk menggunakan database yang sudah ada <br /><blockquote>mysql> use namadatabase;<br />database changed </blockquote><br />Sebagai catatan, dalam pembuatan database jangan menggunakan tanda “-“ atau spasi untuk nama database yang terdiri lebih dari dua kata sebaiknya gunakan tanda “_” Contoh nama database yang salah : <br /><blockquote>calon-<a href="http://www.blogger.com/post-edit.g?blogID=318628296920687353&postID=2378222587752565818#" target="_blank" title="Programer">Programer</a> calon Programer calon^Programer </blockquote>Contoh nama database yang benar : <br /><blockquote>Calon_<a href="http://www.blogger.com/post-edit.g?blogID=318628296920687353&postID=2378222587752565818#" target="_blank" title="Programer">Programer</a> CalonProgramer </blockquote>Setalah database sudah disiapkan kita akan membuat tablenya. Berikut cara membuat tablenya, ingat ini masih pada shell MySQL.<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-sql"><li class="alt"><span class="keyword">CREATE</span> <span class="keyword">TABLE</span> phpschool_user ( </li><li class="class">id <span class="keyword">bigint</span>(20) unsigned <span class="op">NOT</span> <span class="op">NULL</span> auto_increment, </li><li class="alt">user_name <span class="keyword">varchar</span>(255) <span class="op">NOT</span> <span class="op">NULL</span> <span class="keyword">default</span> <span class="string">''</span>, </li><li class="class">user_pass <span class="keyword">varchar</span>(80) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">user_mode <span class="keyword">varchar</span>(5) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">admin enum(<span class="string">'yes'</span>,<span class="string">'no'</span>) <span class="keyword">default</span> <span class="string">'no'</span>, </li><li class="alt">user_email <span class="keyword">varchar</span>(60) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">user_fullname <span class="keyword">varchar</span>(80) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">user_address <span class="keyword">varchar</span>(120) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">user_telepon <span class="keyword">varchar</span>(30) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">tempat_lahir <span class="keyword">varchar</span>(60) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">tgl_lahir <span class="keyword">varchar</span>(12) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">date_register <span class="keyword">varchar</span>(70) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">user_ipaddress <span class="keyword">varchar</span>(20) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="alt">user_hostname <span class="keyword">varchar</span>(120) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class">note tinytext, </li><li class="alt">last_login <span class="keyword">varchar</span>(60) <span class="keyword">default</span> <span class="op">NULL</span>, </li><li class="class"><span class="keyword">PRIMARY</span> <span class="keyword">KEY</span> (user_name), </li><li class="alt"><span class="keyword">KEY</span> id (id) </li><li class="class">) TYPE=MyISAM; </li><li class="alt">Query OK, 0 row affected <0.00 sec> </li></ol></div>Selesai sudah persiapan database sekarang kita pindah ke bagian <a href="http://www.indrawan21.blogspot.com/2011/12/phpdesigner-v725-full-keygen.html">php</a> sourcenya. <br />Disini kita akan membuat beberapa file untuk proses pendaftaran dan login yang sudah terdaftar. <br />1. <strong>daftar.php</strong>, adalah file yang berisi form untuk pendaftaran bagi yang belum terdaftar <br />2. <strong>login.php</strong>, adalah file yang berisi form untuk proses login bagi yang sudah terdaftar sekarang kita mulai dengan daftar.php lumayan panjang sih… disini saya juga memberikan beberapa tips untuk javascript bagaimana untuk validasi penulisan email yang benar. <br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c"><li class="alt"><?php </li><li class="class">session_start(); </li><li class="alt"><span class="comment">//your mysql access for host user password, database and table prefix</span> </li><li class="class"><span class="vars">$prefix</span>=<span class="string">"phpschool_"</span>; </li><li class="alt"><span class="vars">$sqlhost</span>=<span class="string">"localhost"</span>; </li><li class="class"><span class="vars">$sqluser</span>=<span class="string">"ipen"</span>; </li><li class="alt"><span class="vars">$sqlpasswd</span>=<span class="string">"n0limited"</span>; </li><li class="class"><span class="vars">$sqldb</span>=<span class="string">"stieven"</span>; </li><li class="alt"><span class="vars">$conn</span>=mysql_connect(<span class="string">"$sqlhost"</span>,<span class="string">"$sqluser"</span>,<span class="string">"$sqlpasswd"</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"<p align=center>CAN NOT</span> </li><li class="class"><span class="string">CONNECT TO MYSQL SERVER"</span>); </li><li class="alt">mysql_query(<span class="string">"use $sqldb"</span>); </li><li class="class"><span class="comment">//Global variable register PHP 4.23 or more only</span> </li><li class="alt">extract(<span class="vars">$_SERVER</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_ENV_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt">extract(<span class="vars">$HTTP_GET_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_POST_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt"><span class="vars">$file_name</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"name"</span>]; </li><li class="class"><span class="vars">$file_size</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"size"</span>]; </li><li class="alt"><span class="vars">$file_tmp</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"tmp_name"</span>]; </li><li class="class"><span class="vars">$file_type</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"type"</span>]; </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$logout</span>) { </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userfullname"</span>]); </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"usermode"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useremail"</span>]); </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useradmin"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userlastlogin"</span>]); </li><li class="class">} </li><li class="alt"><span class="vars">$thisVersion</span>=phpversion(); </li><li class="class"><span class="vars">$php_version</span>=<span class="func">explode</span>(<span class="string">"."</span>,<span class="vars">$thisVersion</span>); </li><li class="alt"><span class="vars">$phpversion</span>=<span class="vars">$php_version</span>[0] . <span class="vars">$php_version</span>[1]; </li><li class="class"><span class="vars">$gmt</span>=<span class="func">date</span>(<span class="string">"Z"</span>); </li><li class="alt"><span class="vars">$namaBulan</span>=<span class="keyword">array</span>(<span class="string">"null"</span>,<span class="string">"Januari"</span>,<span class="string">"Februari"</span>,<span class="string">"Maret"</span>,<span class="string">"April"</span>,<span class="string">"Mei"</span>,<span class="string">"Juni"</span>,<span class="string">"Juli"</span>,<span class="string">"Agustu</span> </li><li class="class"><span class="string">s"</span>,<span class="string">"September"</span>,<span class="string">"Oktober"</span>,<span class="string">"November"</span>,<span class="string">"Desember"</span>); </li><li class="alt"><span class="keyword">if</span> (!<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]) { </li><li class="class"><span class="keyword">if</span> (<span class="vars">$submitdaftar</span>) { </li><li class="alt"><span class="vars">$user_name</span>=<span class="func">strtolower</span>(<span class="func">strip_tags</span>(trim(<span class="vars">$user_name</span>))); </li><li class="class"><span class="vars">$user_pass</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$user_pass</span>)); </li><li class="alt"><span class="vars">$user_fullname</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$user_fullname</span>)); </li><li class="class"><span class="vars">$user_address</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$user_address</span>)); </li><li class="alt"><span class="vars">$user_telepon</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$user_telepon</span>)); </li><li class="class"><span class="vars">$tempat_lahir</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$tempat_lahir</span>)); </li><li class="alt"><span class="vars">$nama_status</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$nama_status</span>)); </li><li class="class"><span class="vars">$alamat_status</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$alamat_status</span>)); </li><li class="alt"><span class="vars">$hostname</span>=<span class="func">gethostbyaddr</span>(<span class="vars">$REMOTE_ADDR</span>); </li><li class="class"><span class="vars">$note</span>=<span class="func">strip_tags</span>(trim(<span class="vars">$note</span>)); </li><li class="alt"><span class="comment">//ceking</span> </li><li class="class"><span class="vars">$getUser</span>=mysql_query(<span class="string">"insert into "</span>. <span class="vars">$prefix</span> .<span class="string">"user</span> </li><li class="alt"><span class="string">(user_name, user_pass, user_mode, user_email, user_fullname, user_address,</span> </li><li class="class"><span class="string">user_telepon, tempat_lahir,</span> </li><li class="alt"><span class="string">tgl_lahir, date_register, user_ipaddress, user_hostname, note, last_login)</span> </li><li class="class"><span class="string">values</span> </li><li class="alt"><span class="string">('$user_name','$user_pass','$mode','$user_email','$user_fullname','$user_address','$user</span> </li><li class="class"><span class="string">_telepon','$tempat_lahir',</span> </li><li class="alt"><span class="string">'$thn_lahir-$bln_lahir-$tgl_lahir','"</span>. <span class="func">date</span>(<span class="string">"U"</span>) .<span class="string">"','"</span>. <span class="vars">$REMOTE_ADDR</span> .<span class="string">"',</span> </li><li class="class"><span class="string">'$hostname','$note', '"</span>. <span class="func">date</span>(<span class="string">"U"</span>) .<span class="string">"'</span> </li><li class="alt"><span class="string">)</span> </li><li class="class"><span class="string">"</span>); </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$getUser</span>) { </li><li class="class"><span class="vars">$regOK</span>=<span class="string">"ok"</span>; </li><li class="alt"><span class="vars">$msgError</span>=<span class="string">"<br><p align=center>$user_fullname Selamat Bergabung dengan</span> </li><li class="class"><span class="string">Kami<p>"</span>; </li><li class="alt">} </li><li class="class"><span class="keyword">else</span> { </li><li class="alt"><span class="vars">$fname</span>=<span class="func">str_replace</span>(<span class="string">"."</span>,<span class="string">""</span>,<span class="vars">$user_fullname</span>); </li><li class="class"><span class="vars">$fname</span>=<span class="func">str_replace</span>(<span class="string">","</span>,<span class="string">""</span>,<span class="vars">$fname</span>); </li><li class="alt"><span class="vars">$fname</span>=<span class="func">explode</span>(<span class="string">" "</span>,<span class="vars">$fname</span>); </li><li class="class"><span class="vars">$username</span>[0]=<span class="func">strtolower</span>(<span class="vars">$user_name</span> . rand(1000,2000)); </li><li class="alt"><span class="vars">$username</span>[1]=<span class="func">strtolower</span>(<span class="vars">$fname</span>[0]. <span class="string">"_"</span> .<span class="vars">$fname</span>[1]); </li><li class="class"><span class="vars">$username</span>[2]=<span class="func">strtolower</span>(<span class="vars">$fname</span>[<span class="func">count</span>(<span class="vars">$fname</span>)-1]. <span class="string">"_"</span> .<span class="vars">$fname</span>[0]); </li><li class="alt"><span class="vars">$msgError</span>=<span class="string">"</span> </li><li class="class"><span class="string"><br><p align=center><b>$user_name</b> tidak dapat di</span> </li><li class="alt"><span class="string">daftar<br>Kemungkinan terbesar sudah pernah didaftar Coba Pilih yang lain misalkan<br></span> </li><li class="class"><span class="string"><ul></span> </li><li class="alt"><span class="string"><li>$username[0]</span> </li><li class="class"><span class="string"><li>$username[1]</span> </li><li class="alt"><span class="string"><li>$username[2]</span> </li><li class="class"><span class="string"></ul></span> </li><li class="alt"><span class="string"><p>"</span>; </li><li class="class">unset(<span class="vars">$user_name</span>); </li><li class="alt">} </li><li class="class">} </li><li class="alt">?> </li><li class="class"><script> </li><li class="alt"><span class="keyword">function</span> cekuser() { </li><li class="class"><span class="keyword">if</span> ((document.daftar.user_name.value.length < 4) || </li><li class="alt">(document.daftar.user_name.value.length > 255)) { </li><li class="class">alert(<span class="string">'Panjang Karakter untuk username harus minimal 4'</span>); </li><li class="alt">document.daftar.user_name.focus(); </li><li class="class"><span class="keyword">return</span> false; </li><li class="alt">} </li><li class="class"><span class="keyword">else</span> { </li><li class="alt"><span class="keyword">if</span> (document.daftar.user_name.value.indexOf(<span class="string">" "</span>) >= 0) { </li><li class="class">alert(<span class="string">'Jangan ada spasi pada isian username dan password'</span>); </li><li class="alt">document.daftar.user_name.focus(); </li><li class="class"><span class="keyword">return</span> false; </li><li class="alt">} </li><li class="class"><span class="keyword">else</span> { <span class="keyword">return</span> emailbenar(document.daftar.user_email.value); } </li><li class="alt">} </li><li class="class">} </li><li class="alt"><span class="keyword">function</span> ceknotchar(ftr) { </li><li class="class"><span class="keyword">var</span> charnot=<span class="keyword">new</span> Array </li><li class="alt">(<span class="string">'*'</span>,<span class="string">'%'</span>,<span class="string">'@'</span>,<span class="string">'`'</span>,<span class="string">'"'</span>,"<span class="string">'",'</span>$<span class="string">','</span>#<span class="string">','</span>~<span class="string">','</span>(<span class="string">','</span>)<span class="string">','</span>!<span class="string">','</span>^<span class="string">','</span>&<span class="string">','</span>.<span class="string">','</span>,<span class="string">','</span>*<span class="string">','</span>;<span class="string">','</span>:<span class="string">','</span><<span class="string">','</span>><span class="string">','</span>[<span class="string">'</span> </li><li class="class"><span class="string">,'</span>]<span class="string">','</span>{<span class="string">','</span>}<span class="string">','</span>|<span class="string">','</span>\\<span class="string">','</span>+<span class="string">','</span>=<span class="string">','</span>?<span class="string">','</span>/<span class="string">');</span> </li><li class="alt"><span class="string">for (i=0;i<=charnot.length;i++) {</span> </li><li class="class"><span class="string">charsek1=ftr.indexOf(charnot[i]);</span> </li><li class="alt"><span class="string">if (charsek1 >= 0) { alert('</span>Tidak di ijinkan menggunakan karakter "<span class="string">' +</span> </li><li class="class"><span class="string">charnot[i] + '</span><span class="string">"');document.daftar.user_name.focus();return false; }</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">return cekFmValid();</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">function cekFmValid() {</span> </li><li class="alt"><span class="string">if (</span> </li><li class="class"><span class="string">(document.daftar.user_fullname.value.length < 1) ||</span> </li><li class="alt"><span class="string">(document.daftar.user_address.value.length < 1) ||</span> </li><li class="class"><span class="string">(document.daftar.nama_status.value.length < 1) ||</span> </li><li class="alt"><span class="string">(document.daftar.alamat_status.value.length < 1) ||</span> </li><li class="class"><span class="string">(document.daftar.tempat_lahir.value.length < 1) || (document.daftar.status.value</span> </li><li class="alt"><span class="string">== "</span><span class="string">")</span> </li><li class="class"><span class="string">) {</span> </li><li class="alt"><span class="string">alert('Ada form yang belum diisi, kamu harus mengisi semua form');</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">else {</span> </li><li class="alt"><span class="string">if (document.daftar.mode.value == "</span>none<span class="string">") {</span> </li><li class="class"><span class="string">alert('Mode Daftar belum di pilih');</span> </li><li class="alt"><span class="string">document.daftar.mode.focus();</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">function emailbenar(str) {</span> </li><li class="alt"><span class="string">var cek1=str.indexOf("</span>@<span class="string">");</span> </li><li class="class"><span class="string">if (cek1 <= 0) {</span> </li><li class="alt"><span class="string">alert('Alamat Email harus disi dengan benar. Kesalahan pada tanda "</span>@<span class="string">"');</span> </li><li class="class"><span class="string">document.daftar.user_email.focus();</span> </li><li class="alt"><span class="string">return false;</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string">else {</span> </li><li class="class"><span class="string">var cek2=str.lastIndexOf("</span>.<span class="string">");</span> </li><li class="alt"><span class="string">//alert(cek2 + '-' + cek1);</span> </li><li class="class"><span class="string">if (cek2 <= cek1+1) {</span> </li><li class="alt"><span class="string">alert('Alamat Email harus disi dengan benar. Kesalahan pada tanda</span> </li><li class="class"><span class="string">"</span>.<span class="string">"');</span> </li><li class="alt"><span class="string">document.daftar.user_email.focus();</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">else {</span> </li><li class="alt"><span class="string">cek3=document.daftar.user_email.value.length;</span> </li><li class="class"><span class="string">if (cek2 == cek3-1) {</span> </li><li class="alt"><span class="string">alert('Anda masih salah dalam penulisan email setalah tanda "</span>.<span class="string">"</span> </li><li class="class"><span class="string">masih belum lengkap!');</span> </li><li class="alt"><span class="string">document.daftar.user_email.focus();</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">else {</span> </li><li class="alt"><span class="string">if (str.indexOf("</span> <span class="string">") >= 0) {</span> </li><li class="class"><span class="string">alert('Tidak boleh ada spasi dalam penulisan</span> </li><li class="alt"><span class="string">email');</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string">//alert('True');</span> </li><li class="class"><span class="string">return ceknotchar(document.daftar.user_name.value);</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">return false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">function setMode() {</span> </li><li class="alt"><span class="string">if (document.daftar.mode.value >=1) {</span> </li><li class="class"><span class="string">document.daftar.tahun_masuk.disabled=false;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">else {</span> </li><li class="alt"><span class="string">document.daftar.tahun_masuk.disabled=true;</span> </li><li class="class"><span class="string">document.daftar.tahun_lulus.disabled=true;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string">function setTahunlulus(defTahun) {</span> </li><li class="class"><span class="string">if (document.daftar.tahun_masuk.value < defTahun) {</span> </li><li class="alt"><span class="string">document.daftar.tahun_lulus.disabled=false;</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string">else {</span> </li><li class="class"><span class="string">document.daftar.tahun_lulus.disabled=true;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">if ((document.daftar.mode.value == "</span>none<span class="string">") || (document.daftar.mode.value == "</span><span class="string">"))</span> </li><li class="alt"><span class="string">{</span> </li><li class="class"><span class="string">document.daftar.tahun_lulus.disabled=true;</span> </li><li class="alt"><span class="string">}</span> </li><li class="class"><span class="string">}</span> </li><li class="alt"><span class="string"></script></span> </li><li class="class"><span class="string"><table width="</span>98%<span class="string">" border="</span>0<span class="string">" align="</span>center<span class="string">" cellpadding="</span>4<span class="string">" cellspacing="</span>2<span class="string">"></span> </li><li class="alt"><span class="string"><tr></span> </li><li class="class"><span class="string"><td align="</span>left<span class="string">" valign="</span>top<span class="string">" style="</span>border:1px solid #363635;text-align:justify<span class="string">"></span> </li><li class="alt"><span class="string"><?php</span> </li><li class="class"><span class="string">echo $msgError;</span> </li><li class="alt"><span class="string">if ($regOK != "</span>ok<span class="string">") {</span> </li><li class="class"><span class="string">?></span> </li><li class="alt"><span class="string"><form name="</span>daftar<span class="string">" method="</span>post<span class="string">" action="</span><span class="string">" onSubmit="</span><span class="keyword">return</span> cekuser();<span class="string">"></span> </li><li class="class"><span class="string"><table width="</span>100%<span class="string">" border="</span>0<span class="string">" cellspacing="</span>1<span class="string">" cellpadding="</span>3<span class="string">"></span> </li><li class="alt"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="class"><span class="string"><td width="</span>25%<span class="string">">Username</td></span> </li><li class="alt"><span class="string"><td width="</span>75%<span class="string">"><input name="</span>user_name<span class="string">" value="</span><?php <span class="func">echo</span> <span class="vars">$user_name</span>; ?><span class="string">"</span> </li><li class="class"><span class="string">type="</span>text<span class="string">" id="</span>user_name<span class="string">" style="</span>width:180<span class="string">" maxlength="</span>12<span class="string">"></span> </li><li class="alt"><span class="string"><br> <font color="</span>#666666<span class="string">">Minimal 4 karakter, gunakan kombinasi</span> </li><li class="class"><span class="string">huruf dan angka dan tanda &quot;_&quot; (underline)</font></td></span> </li><li class="alt"><span class="string"></tr></span> </li><li class="class"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="alt"><span class="string"><td>Password</td></span> </li><li class="class"><span class="string"><td><input name="</span>user_pass<span class="string">" type="</span>password<span class="string">" id="</span>user_pass<span class="string">" style="</span>width:180<span class="string">"></span> </li><li class="alt"><span class="string"><br> <font color="</span>#666666<span class="string">">Minumal 8 karakter, case sensitif (Huruf</span> </li><li class="class"><span class="string">besar/Kapital) memiliki perbedaan dengan huruf kecil</font></td></span> </li><li class="alt"><span class="string"></tr></span> </li><li class="class"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="alt"><span class="string"><td>Email</td></span> </li><li class="class"><span class="string"><td><input name="</span>user_email<span class="string">" type="</span>text<span class="string">" id="</span>user_email<span class="string">" value="</span><?php <span class="func">echo</span> </li><li class="alt"><span class="vars">$user_email</span>; ?><span class="string">" style="</span>width:180<span class="string">"></span> </li><li class="class"><span class="string"><br> <font color="</span>#666666<span class="string">">Penulisan bentuk email harus tepat Contoh</span> </li><li class="alt"><span class="string">: ipen22@yahoo.com dan email harus yang masih aktif</font></td></span> </li><li class="class"><span class="string"></tr></span> </li><li class="alt"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="class"><span class="string"><td>&nbsp;</td></span> </li><li class="alt"><span class="string"><td>&nbsp;</td></span> </li><li class="class"><span class="string"></tr></span> </li><li class="alt"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="class"><span class="string"><td>Nama Lengkap</td></span> </li><li class="alt"><span class="string"><td><input name="</span>user_fullname<span class="string">" value="</span><?php <span class="func">echo</span> <span class="vars">$user_fullname</span>; ?><span class="string">"</span> </li><li class="class"><span class="string">type="</span>text<span class="string">" id="</span>user_fullname<span class="string">" style="</span>width:180<span class="string">"></td></span> </li><li class="alt"><span class="string"></tr></span> </li><li class="class"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="alt"><span class="string"><td>Alamat</td></span> </li><li class="class"><span class="string"><td><input name="</span>user_address<span class="string">" type="</span>text<span class="string">" value="</span><?php <span class="func">echo</span> </li><li class="alt"><span class="vars">$user_address</span>; ?><span class="string">" id="</span>user_name6<span class="string">" style="</span>width:180<span class="string">"></td></span> </li><li class="class"><span class="string"></tr></span> </li><li class="alt"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="class"><span class="string"><td>Telepon</td></span> </li><li class="alt"><span class="string"><td><input name="</span>user_telepon<span class="string">" type="</span>text<span class="string">" value="</span><?php <span class="func">echo</span> <span class="vars">$user_telepon</span>; ?><span class="string">"</span> </li><li class="class"><span class="string">id="</span>user_name7<span class="string">" style="</span>width:180<span class="string">"></td></span> </li><li class="alt"><span class="string"></tr></span> </li><li class="class"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="alt"><span class="string"><td>Tempat Lahir</td></span> </li><li class="class"><span class="string"><td><input name="</span>tempat_lahir<span class="string">" type="</span>text<span class="string">" value="</span><?php <span class="func">echo</span> <span class="vars">$tempat_lahir</span>; ?><span class="string">"</span> </li><li class="alt"><span class="string">id="</span>user_name8<span class="string">" style="</span>width:180<span class="string">"></span> </li><li class="class"><span class="string"></td></span> </li><li class="alt"><span class="string"></tr></span> </li><li class="class"><span class="string"><tr align="</span>left<span class="string">" valign="</span>top<span class="string">"></span> </li><li class="alt"><span class="string"><td>Tanggal Lahir</td></span> </li><li class="class"><span class="string"><td><select name="</span>tgl_lahir<span class="string">"></span> </li><li class="alt"><span class="string"><?php</span> </li><li class="class"><span class="string">for ($t=1;$t<=31;$t++) {</span> </li><li class="alt"><span class="string">$tt=date("</span>d<span class="string">");</span> </li><li class="class"><span class="string">$tt=$tgl_lahir;</span> </li><li class="alt"><span class="string">if ($t == $tt) { echo "</span><option value=\<span class="string">"$t\"</span> </li><li class="class"><span class="string">selected>$t</option>"</span>; } </li><li class="alt"><span class="keyword">else</span> { <span class="func">echo</span> <span class="string">"<option</span> </li><li class="class"><span class="string">value=\"$t\">$t</option>"</span>; } </li><li class="alt">} </li><li class="class">?> </li><li class="alt"></select> <select name=<span class="string">"bln_lahir"</span>> </li><li class="class"><?php </li><li class="alt"><span class="keyword">for</span> (<span class="vars">$t</span>=1;<span class="vars">$t</span><=12;<span class="vars">$t</span>++) { </li><li class="class"><span class="vars">$tt</span>=<span class="func">date</span>(<span class="string">"m"</span>); </li><li class="alt"><span class="vars">$tt</span>=<span class="vars">$bln_lahir</span>; </li><li class="class"><span class="keyword">if</span> (<span class="vars">$t</span> == <span class="vars">$tt</span>) { <span class="func">echo</span> <span class="string">"<option value=\"$t\"</span> </li><li class="alt"><span class="string">selected>$namaBulan[$t]</option>"</span>; } </li><li class="class"><span class="keyword">else</span> { <span class="func">echo</span> <span class="string">"<option</span> </li><li class="alt"><span class="string">value=\"$t\">$namaBulan[$t]</option>"</span>; } </li><li class="class">} </li><li class="alt">?> </li><li class="class"></select> <select name=<span class="string">"thn_lahir"</span>> </li><li class="alt"><?php </li><li class="class"><span class="keyword">for</span> (<span class="vars">$t</span>=1940;<span class="vars">$t</span><=<span class="func">date</span>(<span class="string">"Y"</span>)-10;<span class="vars">$t</span>++) { </li><li class="alt"><span class="vars">$tt</span>=<span class="func">date</span>(<span class="string">"Y"</span>)-22; </li><li class="class"><span class="vars">$tt</span>=<span class="vars">$thn_lahir</span>; </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$t</span> == <span class="vars">$tt</span>) { <span class="func">echo</span> <span class="string">"<option value=\"$t\"</span> </li><li class="class"><span class="string">selected>$t</option>"</span>; } </li><li class="alt"><span class="keyword">else</span> { <span class="func">echo</span> <span class="string">"<option</span> </li><li class="class"><span class="string">value=\"$t\">$t</option>"</span>; } </li><li class="alt">} </li><li class="class">?> </li><li class="alt"></select> </td> </li><li class="class"></tr> </li><li class="alt"><tr align=<span class="string">"left"</span> valign=<span class="string">"top"</span>> </li><li class="class"><td>Note</td> </li><li class="alt"><td><textarea name=<span class="string">"note"</span> id=<span class="string">"note"</span> style=<span class="string">"width:180;height:70"</span>><?php <span class="func">echo</span> </li><li class="class"><span class="vars">$note</span>; ?></textarea></td> </li><li class="alt"></tr> </li><li class="class"><tr align=<span class="string">"left"</span> valign=<span class="string">"top"</span>> </li><li class="alt"><td>&nbsp;</td> </li><li class="class"><td><input name=<span class="string">"submitdaftar"</span> type=<span class="string">"submit"</span> id=<span class="string">"submitdaftar"</span> value=<span class="string">"D A F T</span> </li><li class="alt"><span class="string">A R"</span>></td> </li><li class="class"></tr> </li><li class="alt"></table> </li><li class="class"></form> </li><li class="alt"><script> </li><li class="class">setTahunlulus(<?php <span class="func">echo</span> <span class="func">date</span>(<span class="string">"Y"</span>); ?>); </li><li class="alt">setMode(); </li><li class="class"></script> </li><li class="alt"><?php </li><li class="class">} </li><li class="alt">?> </li><li class="class"></td> </li><li class="alt"></tr> </li><li class="class"></table> </li><li class="alt"><?php </li><li class="class">} </li><li class="alt"><span class="keyword">else</span> { </li><li class="class"><span class="func">echo</span> <span class="string">"<p align=center>Kamu sudah terdaftar dengan akses "</span>. </li><li class="alt"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>] .<span class="string">"! <p align=center> <a href=\"?logout=1\">Logout</a>"</span>; </li><li class="class">} </li><li class="alt">?> </li></ol></div>Sekarang kita beralih ke <strong>login.php</strong> <br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c"><li class="alt"><?php </li><li class="class">session_start(); </li><li class="alt"><span class="comment">//your mysql access for host user password, database and table prefix</span> </li><li class="class"><span class="vars">$prefix</span>=<span class="string">"phpschool_"</span>; </li><li class="alt"><span class="vars">$sqlhost</span>=<span class="string">"localhost"</span>; </li><li class="class"><span class="vars">$sqluser</span>=<span class="string">"ipen"</span>; </li><li class="alt"><span class="vars">$sqlpasswd</span>=<span class="string">"n0limited"</span>; </li><li class="class"><span class="vars">$sqldb</span>=<span class="string">"stieven"</span>; </li><li class="alt"><span class="vars">$conn</span>=mysql_connect(<span class="string">"$sqlhost"</span>,<span class="string">"$sqluser"</span>,<span class="string">"$sqlpasswd"</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"<p align=center>CAN NOT</span> </li><li class="class"><span class="string">CONNECT TO MYSQL SERVER"</span>); </li><li class="alt">mysql_query(<span class="string">"use $sqldb"</span>); </li><li class="class"><span class="comment">//Global variable register PHP 4.23 or more only</span> </li><li class="alt">extract(<span class="vars">$_SERVER</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_ENV_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt">extract(<span class="vars">$HTTP_GET_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="class">extract(<span class="vars">$HTTP_POST_VARS</span>,<span class="string">"EXTR_PREFIX_SAME"</span>); </li><li class="alt"><span class="vars">$file_name</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"name"</span>]; </li><li class="class"><span class="vars">$file_size</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"size"</span>]; </li><li class="alt"><span class="vars">$file_tmp</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"tmp_name"</span>]; </li><li class="class"><span class="vars">$file_type</span>=<span class="vars">$HTTP_POST_FILES</span>[<span class="string">"file"</span>][<span class="string">"type"</span>]; </li><li class="alt"><span class="vars">$thisVersion</span>=phpversion(); </li><li class="class"><span class="vars">$php_version</span>=<span class="func">explode</span>(<span class="string">"."</span>,<span class="vars">$thisVersion</span>); </li><li class="alt"><span class="vars">$phpversion</span>=<span class="vars">$php_version</span>[0] . <span class="vars">$php_version</span>[1]; </li><li class="class"><span class="vars">$gmt</span>=<span class="func">date</span>(<span class="string">"Z"</span>); </li><li class="alt"><span class="vars">$namaBulan</span>=<span class="keyword">array</span>(<span class="string">"null"</span>,<span class="string">"Januari"</span>,<span class="string">"Februari"</span>,<span class="string">"Maret"</span>,<span class="string">"April"</span>,<span class="string">"Mei"</span>,<span class="string">"Juni"</span>,<span class="string">"Juli"</span>,<span class="string">"Agustu</span> </li><li class="class"><span class="string">s"</span>,<span class="string">"September"</span>,<span class="string">"Oktober"</span>,<span class="string">"November"</span>,<span class="string">"Desember"</span>); </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$logout</span>) { </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userfullname"</span>]); </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"usermode"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useremail"</span>]); </li><li class="class">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useradmin"</span>]); </li><li class="alt">unset(<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userlastlogin"</span>]); </li><li class="class">} </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$login</span>) { </li><li class="class"><span class="keyword">if</span> (!<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]) { </li><li class="alt"><span class="vars">$getLogin</span>=mysql_query(<span class="string">"select * from "</span>. <span class="vars">$prefix</span> .<span class="string">"user where</span> </li><li class="class"><span class="string">user_name='$user_name'"</span>); </li><li class="alt"><span class="vars">$thisLogin</span>=mysql_fetch_array(<span class="vars">$getLogin</span>); </li><li class="class"><span class="keyword">if</span> (!<span class="vars">$thisLogin</span>[user_name]) { <span class="vars">$errorLogin</span>=<span class="string">"<script>alert('$user_name</span> </li><li class="alt"><span class="string">tidak terdaftar')</script>"</span>; } </li><li class="class"><span class="keyword">else</span> { </li><li class="alt"><span class="keyword">if</span> (<span class="vars">$user_pass</span> == <span class="vars">$thisLogin</span>[user_pass]) { </li><li class="class"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]=<span class="vars">$thisLogin</span>[user_name]; </li><li class="alt"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userfullname"</span>]=<span class="vars">$thisLogin</span>[user_fullname]; </li><li class="class"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"usermode"</span>]=<span class="vars">$thisLogin</span>[user_mode]; </li><li class="alt"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useremail"</span>]=<span class="vars">$thisLogin</span>[user_email]; </li><li class="class"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useradmin"</span>]=<span class="vars">$thisLogin</span>[admin]; </li><li class="alt"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userlastlogin"</span>]=<span class="vars">$thisLogin</span>[last_login]; </li><li class="class"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userhostname"</span>]=<span class="vars">$thisLogin</span>[user_hostname]; </li><li class="alt"><span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"useripaddress"</span>]=<span class="vars">$thisLogin</span>[user_ipaddress]; </li><li class="class"><span class="vars">$hostname</span>=<span class="func">gethostbyaddr</span>(<span class="vars">$REMOTE_ADDR</span>); </li><li class="alt">mysql_query(<span class="string">"update "</span>. <span class="vars">$prefix</span> .<span class="string">"user set</span> </li><li class="class"><span class="string">user_hostname='$hostname', user_ipaddress='"</span>. <span class="vars">$REMOTE_ADDR</span> .<span class="string">"', last_login='"</span>. </li><li class="alt"><span class="func">date</span>(<span class="string">"U"</span>) .<span class="string">"' where user_name='$user_name'"</span>); </li><li class="class">} </li><li class="alt"><span class="keyword">else</span> { <span class="vars">$errorLogin</span>=<span class="string">"<script>alert('$user_name password tidak</span> </li><li class="class"><span class="string">tepat')</script>"</span>; } </li><li class="alt">} </li><li class="class">} </li><li class="alt">} </li><li class="class">?> </li><li class="alt"><html> </li><li class="class"><head> </li><li class="alt"><title>Untitled Document</title> </li><li class="class"><meta http-equiv=<span class="string">"Content-Type"</span> content=<span class="string">"text/html; charset=iso-8859-1"</span>> </li><li class="alt"></head> </li><li class="class"><body> </li><li class="alt"><?php </li><li class="class"><span class="func">echo</span> <span class="vars">$errorLogin</span>; </li><li class="alt"><span class="keyword">if</span> (!<span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>]) { </li><li class="class">?> </li><li class="alt"><form name=<span class="string">"form1"</span> method=<span class="string">"post"</span> action=<span class="string">""</span>> </li><li class="class"><p align=<span class="string">"center"</span>>Username<br> </li><li class="alt"><input name=<span class="string">"user_name"</span> type=<span class="string">"text"</span> id=<span class="string">"user_name"</span> style=<span class="string">"width:180"</span>> </li><li class="class"><br> </li><li class="alt">Password <br> </li><li class="class"><input name=<span class="string">"user_pass"</span> type=<span class="string">"password"</span> id=<span class="string">"user_pass"</span> style=<span class="string">"width:180"</span>> </li><li class="alt"></p> </li><li class="class"><p align=<span class="string">"center"</span>> </li><li class="alt"><input type=<span class="string">"submit"</span> name=<span class="string">"login"</span> value=<span class="string">"Submit"</span> style=<span class="string">"border-bottom:2px solid</span> </li><li class="class"><span class="string">#363635;border-right:2px solid #363635;border-top:2px solid #82817F;border-left:2px solid</span> </li><li class="alt"><span class="string">#82817F;"</span>> </li><li class="class"></p> </li><li class="alt"></form> </li><li class="class"><center><a href=<span class="string">"daftar.php"</span>>Daftar </li><li class="alt">Disini</a></center> </li><li class="class"><?php </li><li class="alt">} </li><li class="class"><span class="keyword">else</span> { </li><li class="alt"><span class="func">echo</span> <span class="string">"Kamu sudah login dengan akses "</span>. <span class="vars">$HTTP_SESSION_VARS</span>[<span class="string">"userakses"</span>] .<span class="string">" <p> <a</span> </li><li class="class"><span class="string">href=\"?logout=1\">Logout</a>"</span>; </li><li class="alt">} </li><li class="class">?> </li><li class="alt"></body> </li><li class="class"></html> </li></ol></div>Script source ini hasil modifikasi dari PHPSchool v.2.0 September 2003 Selamat mencoba! <br /><span style="font-size: xx-small;">Stieven R. Kalengkian stieven@kawanuanetworks.com </span><br /><span style="font-size: xx-small;">http://www.php.wox.org</span> </div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-80302073414560723912012-06-03T01:41:00.000-07:002012-06-05T11:11:58.088-07:00Membuat Polling lewat PHP tanpa MySQL<p>Pertama buatlah file dengan nama pilihan.dat lewat text editor notepad. Dalam file tersebut masukan <br />data untuk pilihan polling, contoh : <br />AC Milan <br />Juventus <br />Inter Milan <br />AS Roma <br />Lazio <br />Fiorentina <br />Napoli <br />Lainnya <br />Buat juga satu file dengan nama hasil_polling.dat dan biarkan kosong, file ini untuk menyimpan hasil <br />dari polling. <br />Kemudian buat satu script php dalam file yang namanya polling.php <br />Berikut adalah script dalam polling.<a href="http://www.indrawan21.com/2011/12/phpdesigner-v725-full-keygen.html">php</a></p> <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><?  </span></span></li> <li class="class"><span><span class="comment">/* ini berfungsi untuk register global variable PHP</span> </span></li> <li class="alt"><span><span class="comment">terutama mereka yang menggunakan register_global = off</span> </span></li> <li class="class"><span><span class="comment">bila register_global = on tidak perlu menggunkan script ini</span> </span></li> <li class="alt"><span><span class="comment">untuk mengatur register_global periksa pada php.ini</span> </span></li> <li class="class"><span><span class="comment">/*</span> </span></li> <li class="alt"><span><span class="comment">extract($_SERVER,"EXTR_PREFIX_SAME");</span> </span></li> <li class="class"><span><span class="comment">extract($HTTP_ENV_VARS,"EXTR_PREFIX_SAME");</span> </span></li> <li class="alt"><span><span class="comment">extract($HTTP_GET_VARS,"EXTR_PREFIX_SAME");</span> </span></li> <li class="class"><span><span class="comment">extract($HTTP_POST_VARS,"EXTR_PREFIX_SAME");</span> </span></li> <li class="alt"><span><span class="comment">?></span> </span></li> <li class="class"><span><span class="comment"><HTML></span> </span></li> <li class="alt"><span><span class="comment"><HEAD></span> </span></li> <li class="class"><span><span class="comment"><TITLE>Polling</TITLE></span> </span></li> <li class="alt"><span><span class="comment"></HEAD></span> </span></li> <li class="class"><span><span class="comment"><BODY></span> </span></li> <li class="alt"><span><span class="comment"><?</span> </span></li> <li class="class"><span><span class="comment">//variable file</span> </span></li> <li class="alt"><span><span class="comment">$data_pilihan="pilihan.dat";</span> </span></li> <li class="class"><span><span class="comment">$hasil_polling="hasil_polling.dat";</span> </span></li> <li class="alt"><span><span class="comment">if (!file_exists($hasil_polling)) {</span> </span></li> <li class="class"><span><span class="comment">$fopen=fopen($hasil_polling,"w+");</span> </span></li> <li class="alt"><span><span class="comment">fclose($hasil_polling);</span> </span></li> <li class="class"><span><span class="comment">}</span> </span></li> <li class="alt"><span><span class="comment">/* gambar/image untuk hasil polling</span> </span></li> <li class="class"><span><span class="comment">kamu bisa mengganti sesuka kamu dengan syarat ukuran file harus lebar 100x10</span> </span></li> <li class="alt"><span><span class="comment">pixel</span> </span></li> <li class="class"><span><span class="comment">*/</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$gambar</span><span>=</span><span class="string">"persen.gif"</span><span>;  </span></span></li> <li class="class"><span><span class="vars">$judul</span><span>=</span><span class="string">"Peraih scudetto 2000/2001 ?"</span><span>;  </span></span></li> <li class="alt"><span><span class="comment">//proses polling</span><span>  </span></span></li> <li class="class"><span><span class="vars">$file_data</span><span>=file(</span><span class="string">"pilihan.dat"</span><span>);  </span></span></li> <li class="alt"><span><span class="comment">//tampilan form polling jika tombol poling belum di pilih</span><span>  </span></span></li> <li class="class"><span><span class="keyword">if</span><span> (</span><span class="vars">$go</span><span> !=1)  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<center><i>$judul</i></center><br>\n"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<form method=post>"</span><span>;  </span></span></li> <li class="class"><span><span class="keyword">for</span><span> (</span><span class="vars">$i</span><span>=0; </span><span class="vars">$i</span><span><=</span><span class="func">count</span><span>(</span><span class="vars">$file_data</span><span>)-1; </span><span class="vars">$i</span><span>++)  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<input type=radio name=\"vote\" value=\"$i\"></span> </span></li> <li class="alt"><span><span class="string">$file_data[$i]<br>\n"</span><span>;  </span></span></li> <li class="class"><span>}  </span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<input type=hidden name=go value=1>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<p><center><input type=submit value=Polling>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"</form>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<a href='polling.php?result=1&go=1'>Hasil Polling</a></center>"</span><span>;  </span></span></li> <li class="alt"><span>}  </span></li> <li class="class"><span><span class="keyword">else</span><span>  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="comment">//membaca hasil poling sebelumnya</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$file_hasil</span><span>=</span><span class="func">fopen</span><span>(</span><span class="vars">$hasil_polling</span><span>, </span><span class="string">"r"</span><span>);  </span></span></li> <li class="class"><span><span class="vars">$baris</span><span>=</span><span class="func">fgets</span><span>(</span><span class="vars">$file_hasil</span><span>, 255);  </span></span></li> <li class="alt"><span><span class="vars">$pisah</span><span>=</span><span class="func">explode</span><span>(</span><span class="string">"|"</span><span>, </span><span class="vars">$baris</span><span>);  </span></span></li> <li class="class"><span>fclose(<span class="vars">$file_hasil</span><span>);  </span></span></li> <li class="alt"><span><span class="keyword">if</span><span> (</span><span class="vars">$result</span><span>!=1)  </span></span></li> <li class="class"><span>{  </span></li> <li class="alt"><span><span class="comment">//menambah dan memasukan nilai polling</span><span>  </span></span></li> <li class="class"><span><span class="vars">$ficdest</span><span>=</span><span class="func">fopen</span><span>(</span><span class="vars">$hasil_polling</span><span>, </span><span class="string">"w"</span><span>);  </span></span></li> <li class="alt"><span><span class="keyword">for</span><span> (</span><span class="vars">$i</span><span>=0; </span><span class="vars">$i</span><span><=</span><span class="func">count</span><span>(</span><span class="vars">$file_data</span><span>)-1; </span><span class="vars">$i</span><span>++)  </span></span></li> <li class="class"><span>{  </span></li> <li class="alt"><span><span class="keyword">if</span><span> (</span><span class="vars">$i</span><span> == </span><span class="vars">$vote</span><span>)  </span></span></li> <li class="class"><span>{  </span></li> <li class="alt"><span><span class="vars">$pisah</span><span>[</span><span class="vars">$i</span><span>]+=1;  </span></span></li> <li class="class"><span>}  </span></li> <li class="alt"><span><span class="func">fputs</span><span>(</span><span class="vars">$ficdest</span><span>, </span><span class="string">"$pisah[$i]|"</span><span>);  </span></span></li> <li class="class"><span>}  </span></li> <li class="alt"><span>fclose(<span class="vars">$ficdest</span><span>);  </span></span></li> <li class="class"><span><span class="vars">$result</span><span>=1;  </span></span></li> <li class="alt"><span>}  </span></li> <li class="class"><span><span class="keyword">if</span><span> (</span><span class="vars">$result</span><span>==1)  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="comment">//menampilkan hasil polling</span><span>  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<table cellpadding=10>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<tr><td align=center><font face=Verdana size=2>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<i>Pilihan</i></font>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"</td><td align=center><font face=Verdana size=2>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<i>%</i></font></td>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<td align=center><font face=Verdana size=2>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<i>Jumlah Pemilih</i></font></td></tr>"</span><span>;  </span></span></li> <li class="class"><span><span class="keyword">for</span><span> (</span><span class="vars">$i</span><span>=0; </span><span class="vars">$i</span><span><=</span><span class="func">count</span><span>(</span><span class="vars">$file_data</span><span>)-1; </span><span class="vars">$i</span><span>++)  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="vars">$jumlah_pemilih</span><span>+=</span><span class="vars">$pisah</span><span>[</span><span class="vars">$i</span><span>];  </span></span></li> <li class="alt"><span>}  </span></li> <li class="class"><span><span class="keyword">for</span><span> (</span><span class="vars">$i</span><span>=0; </span><span class="vars">$i</span><span><=</span><span class="func">count</span><span>(</span><span class="vars">$file_data</span><span>)-1; </span><span class="vars">$i</span><span>++)  </span></span></li> <li class="alt"><span>{  </span></li> <li class="class"><span><span class="vars">$persen</span><span>[</span><span class="vars">$i</span><span>]=</span><span class="vars">$pisah</span><span>[</span><span class="vars">$i</span><span>]/</span><span class="vars">$jumlah_pemilih</span><span>*100;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<tr><td><li><font face=Verdana size=2>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"$file_data[$i]</font></td><td align=left><font face=Verdana</span> </span></li> <li class="alt"><span><span class="string">size=2>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<img src=\"$gambar\" height=10 width=$persen[$i]</span> </span></li> <li class="alt"><span><span class="string">align=middle>&nbsp;"</span><span>;  </span></span></li> <li class="class"><span>printf(<span class="string">"%.1f"</span><span>, </span><span class="string">"$persen[$i]"</span><span>);  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"%</font></td><td align=center><font face=Verdana size=2>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"$pisah[$i]</font>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"</td></tr>"</span><span>;  </span></span></li> <li class="class"><span>}  </span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"</table><p>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<center>Total: $jumlah_pemilih pemilih</center>"</span><span>;  </span></span></li> <li class="alt"><span>}  </span></li> <li class="class"><span>}  </span></li> <li class="alt"><span>?>  </span></li> <li class="class"><span></BODY>  </span></li> <li class="alt"><span></HTML>  </span></li> </ol> </div> <p>script ini hasil modifikasi dari buku Yudhi Purwanto, Pemrograman Web dengan PHP, Elex Media <br />Komputindo. 2001 dengan beberapa penyempurnaan berdasarkan penyesuaian keadaan sekarang.</p> <p align="center"><strong><u><font color="#0000ff">Semoga Bermanfaat <img style="border-bottom-style: none; border-left-style: none; border-top-style: none; border-right-style: none" class="wlEmoticon wlEmoticon-smile" alt="Smile" src="http://lh6.ggpht.com/-UKWstM268oA/T8sjID4u6KI/AAAAAAAABRw/9nEqhyJsQJA/wlEmoticon-smile%25255B2%25255D.png?imgmax=800" /></font></u></strong></p> Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-35200020388467773152012-06-03T01:28:00.000-07:002012-06-05T11:11:58.021-07:00Validasi file exists untuk mendeteksi upload file yang sama<p>Pada artikel sebelumnya mengenai <a href="http://www.indrawan21.com/2012/06/membuat-form-upload-file-php.html" target="_blank">upload file dengan</a> <a href="http://www.indrawan21.tk/2011/12/phpdesigner-v725-full-keygen.html">php</a>, kini saya akan melanjutkan atau menambahkan fitur validasi dari file yang ingin kita upload.</p> <p>Ok kita lanjutkan, dalam suatu aplikasi upload seringkali terjadi upload file dengan</p> <br />nama yang sama, padahal isinya berbeda, hal ini tentu saja tidak diinginkan karena file <br />yang lama akan ditiban dengan file yang baru, ada beberapa mekanisme yang bisa <br />dipakai untuk menanganinya : <br />1. Mengganti nama upload file, dengan cara menambahkan perpaduan angka dan <br />huruf secara random. <br />2. Memunculkan peringatan bahwa file yang diupload memiliki nama yang sama. <br />Pada tutorial ini kita akan memakai cara yang kedua. <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><?php  </span></span></li> <li class="class"><span><span class="comment">//Membaca nama file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$file_name</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'name'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Membaca ukuran file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$size</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'size'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Membaca jenis file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$file_type</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'type'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Source tempat upload file sementara</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$source</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'tmp_name'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Tempat upload file disimpan</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$direktori</span><span> = </span><span class="string">"files/$file_name"</span><span>;  </span></span></li> <li class="class"><span><span class="comment">//Mengecek apakah file yang di upload sudah ada atau belum</span><span>  </span></span></li> <li class="alt"><span><span class="keyword">if</span><span>( </span><span class="func">file_exists</span><span> (</span><span class="vars">$direktori</span><span>)) {  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"file <strong>$file_name</strong> sudah ada, upload dengan nama lain</span> </span> </li> <li class="alt"><span><span class="string"><br/> <a href=¥"</span><span>form_upload.html¥</span><span class="string">">kembali</a>"</span><span>;  </span></span></li> <li class="class"><span><span class="comment">//Keluar program</span><span>  </span></span></li> <li class="alt"><span><span class="func">exit</span><span>();  </span></span></li> <li class="class"><span>} <span class="keyword">else</span><span> {  </span></span></li> <li class="alt"><span><span class="comment">//Memindahkan upload file dari direktori sementara ke tempat permanen</span><span>  </span></span></li> <li class="class"><span>move_uploaded_file(<span class="vars">$source</span><span>,</span><span class="vars">$direktori</span><span>);  </span></span></li> <li class="alt"><span><span class="comment">//Menampilkan keterangan file</span><span>  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Direktori sementara :</strong> "</span><span>.</span><span class="vars">$source</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Folder :</strong> "</span><span>.</span><span class="vars">$direktori</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Filename :</strong>"</span><span>.</span><span class="vars">$file_name</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Size : </strong>"</span><span>.</span><span class="vars">$size</span><span>.</span><span class="string">" bytes <br/>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>File type : </strong>"</span><span>.</span><span class="vars">$file_type</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Filename :</strong>"</span><span>.</span><span class="vars">$file_name</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="class"><span>}  </span></li> <li class="alt"><span>?>  </span></li> </ol> </div> <p>Perhatikan baris berikut <br /></p> <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span class="comment">//Mengecek apakah file yang di upload sudah ada atau belum</span><span>  </span></span></li> <li class="class"><span><span class="keyword">if</span><span>( </span><span class="func">file_exists</span><span> (</span><span class="vars">$direktori</span><span>)) {  </span></span></li> </ol> </div> <p>Function <font color="#0000ff">file_exists()</font> berfungsi untuk mengecek nama file pada direktori tempat <br />penyimpanan upload file berada, jika ada maka fungsi if akan dijalankan dan <br />memunculkan pesan.</p> <p align="center"><font color="#0000ff"><strong><u>Semoga Bermanfaat <img style="border-bottom-style: none; border-left-style: none; border-top-style: none; border-right-style: none" class="wlEmoticon wlEmoticon-smile" alt="Smile" src="http://lh4.ggpht.com/-_KrGDHnEUS4/T8sgEcpr9rI/AAAAAAAABRg/F_QwDKb0vCs/wlEmoticon-smile%25255B2%25255D.png?imgmax=800" /></u></strong></font></p> Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-76978390727310233732012-06-03T01:12:00.000-07:002012-06-05T11:11:58.080-07:00Membuat Form Upload File PHPSalah satu hal terpenting ketika mempelajari PHP adalah mengenai upload file dan berbagai macam mekanismenya, dalam tutorial dibawah kita akan belajar : 1. Membuat form untuk upload file 2. Membuat script upload sederhana 3. Menambahkan fitur file_exists untuk mendekti upload file yang sama 4. Menambahkan fitur filter untuk upload jenis file tertentu Membuat form untuk upload file (form_upload.html) <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><!DOCTYPE html PUBLIC </span><span class="string">"-//W3C//DTD XHTML 1.0 Transitional//EN"</span><span>  </span></span></li> <li class="class"><span><span class="string">"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"</span><span>>  </span></span></li> <li class="alt"><span><html xmlns=<span class="string">"http://www.w3.org/1999/xhtml"</span><span>>  </span></span></li> <li class="class"><span><head>  </span></li> <li class="alt"><span><meta http-equiv=<span class="string">"Content-Type"</span><span> content=</span><span class="string">"text/html; charset=iso-8859-1"</span><span>  </span></span></li> <li class="class"><span>/>  </span></li> <li class="alt"><span><title>Upload script</title>  </span></li> <li class="class"><span></head>  </span></li> <li class="alt"><span><body>  </span></li> <li class="class"><span><form action=<span class="string">"upload.php"</span><span> method=</span><span class="string">"post"</span><span> enctype=</span><span class="string">"multipart/form-data"</span><span>  </span></span></li> <li class="alt"><span>name=<span class="string">"form1"</span><span> id=</span><span class="string">"form1"</span><span>>  </span></span></li> <li class="class"><span><h3>Upload file :</h3>  </span></li> <li class="alt"><span><label>  </span></li> <li class="class"><span><input type=<span class="string">"file"</span><span> name=</span><span class="string">"fupload"</span><span> />  </span></span></li> <li class="alt"><span></label>  </span></li> <li class="class"><span><p>  </span></li> <li class="alt"><span><label>  </span></li> <li class="class"><span><input type=<span class="string">"submit"</span><span> name=</span><span class="string">"upload"</span><span> value=</span><span class="string">"Upload"</span><span> />  </span></span></li> <li class="alt"><span></label>  </span></li> <li class="class"><span></p>  </span></li> <li class="alt"><span></form>  </span></li> <li class="class"><span></body>  </span></li> <li class="alt"><span></html>  </span></li> </ol> </div> Tampilannya kuran lebih seperti ini : <form id="form1" enctype="multipart/form-data" method="post" name="form1" action=""> <h3>Upload file :</h3> <label><input name="fupload" type="file" /> </label> <p><label><input name="upload" type="submit" /> </label></p> </form>Hal yang harus diperhatikan ketika membuat form untuk upload file ada pada baris : <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><form action=</span><span class="string">"upload.php"</span><span> method=</span><span class="string">"post"</span><span> enctype=</span><span class="string">"multipart/form-data"</span><span>  </span></span></li> <li class="class"><span>name=<span class="string">"form1"</span><span>>  </span></span></li> </ol> </div> Lupa menulis atau menambahkan parameter enctype akan menyebabkan file tidak akan dapat di upload, hal ini seringkali melanda bagi programmer yang baru belajar PHP, semoga adanya pengingatan ini dapat mengurangi kesalahan ketika coding. Membuat script upload (upload.php) Perhatikan baris kode berikut : <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><form action=</span><span class="string">"upload.php"</span><span> method=</span><span class="string">"post"</span><span> enctype=</span><span class="string">"multipart/form-data"</span><span>  </span></span></li> <li class="class"><span>name=<span class="string">"form1"</span><span>>  </span></span></li> </ol> </div> <p>Setelah berhasil membuat file form_upload.html maka langkah selanjutnya adalah membuat file upload.php, nama file ini bebas, yang penting adalah samakan nama script yang akan kita buat nanti dengan nama yang ada di parameter action.</p> (upload.php) <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span><!DOCTYPE html PUBLIC </span><span class="string">"-//W3C//DTD XHTML 1.0 Transitional//EN"</span><span>  </span></span></li> <li class="class"><span><span class="string">"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"</span><span>>  </span></span></li> <li class="alt"><span><html xmlns=<span class="string">"http://www.w3.org/1999/xhtml"</span><span>>  </span></span></li> <li class="class"><span><head>  </span></li> <li class="alt"><span><title>Upload script</title>  </span></li> <li class="class"><span></head>  </span></li> <li class="alt"><span><body>  </span></li> <li class="class"><span><p>  </span></li> <li class="alt"><span><?php  </span></li> <li class="class"><span><span class="comment">//Membaca nama file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$file_name</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'name'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Membaca ukuran file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$size</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'size'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Membaca jenis file</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$file_type</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'type'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Source tempat upload file sementara</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$source</span><span> = </span><span class="vars">$_FILES</span><span>[</span><span class="string">'fupload'</span><span>][</span><span class="string">'tmp_name'</span><span>];  </span></span></li> <li class="class"><span><span class="comment">//Tempat upload file disimpan</span><span>  </span></span></li> <li class="alt"><span><span class="vars">$direktori</span><span> = </span><span class="string">"files/$file_name"</span><span>;  </span></span></li> <li class="class"><span><span class="comment">//Memindahkan upload file dari direktori sementara ke tempat permanen</span><span>  </span></span></li> <li class="alt"><span>move_uploaded_file(<span class="vars">$source</span><span>,</span><span class="vars">$direktori</span><span>);  </span></span></li> <li class="class"><span><span class="comment">//Menampilkan keterangan file</span><span>  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Direktori sementara :</strong> "</span><span>.</span><span class="vars">$source</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Folder :</strong> "</span><span>.</span><span class="vars">$direktori</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Filename :</strong>"</span><span>.</span><span class="vars">$file_name</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Size : </strong>"</span><span>.</span><span class="vars">$size</span><span>.</span><span class="string">" bytes <br/>"</span><span>;  </span></span></li> <li class="alt"><span><span class="func">echo</span><span> </span><span class="string">"<strong>File type : </strong>"</span><span>.</span><span class="vars">$file_type</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="class"><span><span class="func">echo</span><span> </span><span class="string">"<strong>Filename :</strong>"</span><span>.</span><span class="vars">$file_name</span><span>.</span><span class="string">"<br/>"</span><span>;  </span></span></li> <li class="alt"><span>?>  </span></li> <li class="class"><span></p>  </span></li> <li class="alt"><span></body>  </span></li> <li class="class"><span></html>  </span></li> </ol> </div> Perhatikan baris kode berikut : <div id="hlDiv" class="dp-highlighter"> <div class="bar"></div> <ol class="dp-c"> <li class="alt"><span><span class="comment">//Tempat upload file disimpan</span><span>  </span></span></li> <li class="class"><span><span class="vars">$direktori</span><span> = </span><span class="string">"files/$file_name"</span><span>;  </span></span></li> </ol> </div> <p>Script diatas adalah variable untuk menyimpan file yang akan di upload, jika belum buat folder “<strong>files</strong>”, maka disarankan buat terlebih dahulu, tidak ada peraturan khusus dalam penamaan folder. </p> <p>Dibawah adalah pesan yang ditampilkan ketika upload berhasil. </p> <p><a href="http://lh4.ggpht.com/-lsG0w-GwzPY/T8scOqvOZLI/AAAAAAAABRU/OEPBNhWldEI/s1600-h/image%25255B5%25255D.png"><img style="background-image: none; border-bottom: 0px; border-left: 0px; padding-left: 0px; padding-right: 0px; display: block; float: none; margin-left: auto; border-top: 0px; margin-right: auto; border-right: 0px; padding-top: 0px" title="image" border="0" alt="image" src="http://lh4.ggpht.com/-EKe0JnyQx1c/T8sdt9J1f_I/AAAAAAAABRY/verMxWpi9OU/image_thumb%25255B3%25255D.png?imgmax=800" width="244" height="113" /></a></p> <p align="center">Upload.php</p> Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-1633737560314874952012-06-03T00:39:00.000-07:002012-06-05T11:11:58.004-07:00Validasi EditBox Anggka dan Huruf<div dir="ltr" style="text-align: left;" trbidi="on">Pada kesempatan kali ini, dimana akan saya bahas mengenai listing agar EditBox hanya bisa diinput karakter tertentu saja. <br />Misalnya agar EditBox hanya bisa diisi dengan bilangan, bukan karakter huruf.<br /><br />Program berikut menunjukkan cara agar EditBox hanya bisa diisi dengan bilangan heksadesimal, yakini (0..9) , (A..F) , atau (a..f).<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-delphi" start="1"><li class="alt">Procedure TFrom1<span class="number">.</span>Edit1KeyPress (sender: TObject; Var Key: Char); </li><li class=""><span class="keyword">begin</span> </li><li class="alt"><span class="keyword">if</span> <span class="keyword">not</span>(((Key>#<span class="number">48</span>) <span class="keyword">and</span> (key<=#<span class="number">57</span>)) 0r ((key>=#<span class="number">65</span>) <span class="keyword">and</span> (key<=#<span class="number">70</span>)) <span class="keyword">or</span> (key>=#<span class="number">97</span>) <span class="keyword">and</span> (key<=#<span class="number">102</span>)) <span class="keyword">or</span> (key=#<span class="number">8</span>)) <span class="keyword">then</span> key:= #<span class="number">0</span>; </li><li class=""><span class="keyword">end</span>; </li></ol></div><br />Listing diatas kalian gunakan pada event Keypress di EditBox yang ingin kalian berikan validasinya.<br /><div style="text-align: center;"><span style="color: blue;"><b><u>Semoga Bermanfaat :)</u></b></span></div></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-49094834386477394342012-06-02T23:18:00.000-07:002012-06-05T11:11:58.048-07:00CARA KONEKSI DATABASE MySql VB.Net<div dir="ltr" style="text-align: left;" trbidi="on">Database MySql<br />Pada artikel sebelumnya saya berikan artikel mengenai <a href="http://www.indrawan21.blogspot.com/2012/06/cara-koneksi-database-access-2000-vbnet.html" target="_blank">Koneksi database menggunakan Access 2000</a> dan <a href="http://www.indrawan21.blogspot.com/2012/06/cara-koneksi-database-access2003-vbnet.html" target="_blank">Access 2003</a>, kali ini saya akan berikan tutorial koneksi database vb.net menggunakan wamp server.<br />Berikut ini saya berikan <a href="http://www.indrawan21.blogspot.com/2012/06/cara-koneksi-database-mysql-vbnet.html" target="_blank">langkah-langkan menginstal Wamp 3.51</a><br /><a href="http://lh3.ggpht.com/-wZP1VqLL-V4/T8r5X9wteHI/AAAAAAAABG0/k0BKJmiNby4/s1600-h/image2.png"><img align="left" alt="image" border="0" height="62" src="http://lh6.ggpht.com/-jxbzOVg0EbM/T8r5dnhZteI/AAAAAAAABG8/_XOOQ2_wxiw/image_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; float: left; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="190" /></a>Lakukan Instalasi Wamp 3.51 <br /><br /><br /><br /><a href="http://lh4.ggpht.com/-tF5CY5DZZLc/T8r5vzG6KaI/AAAAAAAABHM/ceap4cNvXo4/s1600-h/image207.png"><img alt="image" border="0" height="191" src="http://lh5.ggpht.com/-5YqoGYa1_tY/T8r50uj8kfI/AAAAAAAABHU/1oYlmHdEbbc/image_thumb127.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh6.ggpht.com/-uxq50_V-b9E/T8r55WhCMmI/AAAAAAAABHc/tBU1QFj2InQ/s1600-h/image205.png"><img alt="image" border="0" height="191" src="http://lh6.ggpht.com/-oASNBrWEAKw/T8r5-gahHjI/AAAAAAAABHk/gqdtj806jxw/image_thumb125.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh3.ggpht.com/-N-965Gf5fyQ/T8r6InYKYnI/AAAAAAAABHs/gz5giOBCiH4/s1600-h/image203.png"><img alt="image" border="0" height="191" src="http://lh6.ggpht.com/-uwViOzIsEN4/T8r6Rge5FiI/AAAAAAAABH0/qJ3iET-QPJk/image_thumb123.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh5.ggpht.com/-QmHQcyvbjHA/T8r6Wpc4pjI/AAAAAAAABH8/Yqf9lY9rSQA/s1600-h/image201.png"><img alt="image" border="0" height="191" src="http://lh3.ggpht.com/-re6kudcg7LU/T8r6cCqArvI/AAAAAAAABIE/_JQ0A5a6LXg/image_thumb121.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh4.ggpht.com/-WPc3muQmhGI/T8r6g2YKPjI/AAAAAAAABIM/aOZzCNZxY84/s1600-h/image199.png"><img alt="image" border="0" height="191" src="http://lh3.ggpht.com/-64nFZ2h7OKE/T8r6lzUdQ7I/AAAAAAAABIU/W1hczWTJ11M/image_thumb119.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh5.ggpht.com/-wBGqnlA8pzI/T8r6qmlMSaI/AAAAAAAABIc/kAV1CDWz2Gs/s1600-h/image197.png"><img alt="image" border="0" height="191" src="http://lh4.ggpht.com/-clBFgDKZCck/T8r6vbCwjTI/AAAAAAAABIk/BKo6z5Xe6xM/image_thumb117.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />Lakukan Instalasi Driver ODBC 3.51<br /><a href="http://lh4.ggpht.com/-TPT6q8ZkQRs/T8r68eMAqfI/AAAAAAAABIs/6R3cdT_0EyU/s1600-h/image195.png"><img alt="image" border="0" height="190" src="http://lh4.ggpht.com/-BH2aca4xBeI/T8r7GzhqDwI/AAAAAAAABI0/xrID2QjnXUU/image_thumb115.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh4.ggpht.com/-TVImGmv2N04/T8r7OoaT-QI/AAAAAAAABI8/S_fh0QFEW70/s1600-h/image193.png"><img alt="image" border="0" height="190" src="http://lh3.ggpht.com/-p0dnNoEh_TE/T8r7Tj6ea-I/AAAAAAAABJE/vZ1E1rM5Z5w/image_thumb113.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh4.ggpht.com/-LAAXTalLLWs/T8r7ZYfAcwI/AAAAAAAABJM/pAOr1OLf6v4/s1600-h/image191.png"><img alt="image" border="0" height="190" src="http://lh3.ggpht.com/-HXuPT-IyqMo/T8r7fGVkJSI/AAAAAAAABJU/6wXhoX1SuGg/image_thumb111.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><a href="http://lh4.ggpht.com/-j4uqGE65WIE/T8r7kQG8OFI/AAAAAAAABJc/D-knYKerNKY/s1600-h/image189.png"><img alt="image" border="0" height="190" src="http://lh6.ggpht.com/-W-cmdcbTGEQ/T8r7qvhhacI/AAAAAAAABJk/gnWdIKHBLtA/image_thumb109.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />1. start > all programs <br />2. wampserver > start wampserver<br /><a href="http://lh6.ggpht.com/-aERwdUBmj7g/T8r7v7Lk5VI/AAAAAAAABJs/QhYim2_U6GI/s1600-h/image187.png"><img alt="image" border="0" height="52" src="http://lh3.ggpht.com/-tYvRJ3IP95Q/T8r8BHRM4kI/AAAAAAAABJ0/CJOHxEfOt6A/image_thumb107.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />3. klik kanan ikon wampserver (warna putih di taskbar sebelah kanan) <br />4. pilih phpmyadmin<br /><a href="http://lh4.ggpht.com/-dTma82pzDu0/T8r8LE2hTNI/AAAAAAAABJ8/RsrtCHKSeIg/s1600-h/image185.png"><img alt="image" border="0" height="244" src="http://lh6.ggpht.com/-Qvkadwk20Y0/T8r8Sj41ZHI/AAAAAAAABKE/rab9V6VkFKA/image_thumb105.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="187" /></a><br />5. ubah tampilan bahasa ke bahasa indonesia agar mudah dipahami<br /><a href="http://lh4.ggpht.com/-h4QzD6yKUcw/T8r8mk2H6xI/AAAAAAAABKM/XwwRiu76VE0/s1600-h/image183.png"><img alt="image" border="0" height="137" src="http://lh4.ggpht.com/-zz5qE7rNBL4/T8r83OwpEGI/AAAAAAAABKU/FC2TB6Vovho/image_thumb103.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a> <br />6. buatlah database dengan nama DBLatihan <br />7. klik ciptakan<br /><a href="http://lh6.ggpht.com/-jEB3D8d3Bpg/T8r88MCvkPI/AAAAAAAABKc/RcyO89Z9fK0/s1600-h/image181.png"><img alt="image" border="0" height="206" src="http://lh4.ggpht.com/-4qG1xex0P-U/T8r9BTDwMMI/AAAAAAAABKk/6joSs_v-ADA/image_thumb101.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />8. buatlah tabel siswa dengan tiga buah field <br />9. klik go<br /><a href="http://lh6.ggpht.com/-5_wtQA63Vhk/T8r9HHEXHBI/AAAAAAAABKs/MJMuMowF3P8/s1600-h/image179.png"><img alt="image" border="0" height="76" src="http://lh6.ggpht.com/-sHNDWChJ3hs/T8r9LuL9jbI/AAAAAAAABK0/1jj-VW4VBC8/image_thumb99.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a> <br />10. buat struktur tabel siswa sebagai berikut<br /><a href="http://lh3.ggpht.com/-dsB8NlS7Rd4/T8r9QP_s2gI/AAAAAAAABK8/HBwDv10pw0M/s1600-h/image177.png"><img alt="image" border="0" height="98" src="http://lh3.ggpht.com/-c3m8pfWQIO8/T8r9UMgI-5I/AAAAAAAABLE/YDgh8ub4KPM/image_thumb97.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a> <br />11. field nim dijadikan primary key <br />12. klik simpan<br /><a href="http://lh4.ggpht.com/-mRO31Hyxv5g/T8r9Y6Jm7ZI/AAAAAAAABLM/xt6racCsjAc/s1600-h/image175.png"><img alt="image" border="0" height="80" src="http://lh6.ggpht.com/-wVKvPWyWOSY/T8r9fTc6F4I/AAAAAAAABLU/1nzSWKAh0xk/image_thumb95.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />13. indikasi keberhasilan pembuatan tabel siswa<br /><a href="http://lh6.ggpht.com/-CPhQXTSZdtA/T8r9lq6p8aI/AAAAAAAABLc/0cLoCNhXEHY/s1600-h/image173.png"><img alt="image" border="0" height="186" src="http://lh3.ggpht.com/-ssuzTXo_vto/T8r9rGwIgEI/AAAAAAAABLk/AyYHcfpUAL0/image_thumb93.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="163" /></a> <br />14. klik sisipkan untuk menambahkan data secara manual<br /><a href="http://lh6.ggpht.com/-e2TP6OewqYY/T8r9wIOjNsI/AAAAAAAABLs/QC98VC8HNcw/s1600-h/image171.png"><img alt="image" border="0" height="176" src="http://lh3.ggpht.com/-mTBHNwC_cfE/T8r-HiD6ofI/AAAAAAAABL0/lw9zv6-ZpUc/image_thumb91.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a> <br />15. isilah data sebagai berikut kemudian klik GO<br /><a href="http://lh5.ggpht.com/-SUM7CKyCAQ0/T8r-M-Rvz5I/AAAAAAAABL8/bXC2QRGgetE/s1600-h/image169.png"><img alt="image" border="0" height="176" src="http://lh5.ggpht.com/-Bvs_sNwSIW0/T8r-UfRlDYI/AAAAAAAABME/miEaDUgHnBw/image_thumb89.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />16. indikasi keberhasilan penambahan data<br /><a href="http://lh4.ggpht.com/-QDdis4lX_wY/T8r-aPQVdfI/AAAAAAAABMM/yv4JAtHplYw/s1600-h/image167.png"><img alt="image" border="0" height="176" src="http://lh3.ggpht.com/-NJqXQMhg12s/T8r-fZWTnxI/AAAAAAAABMU/SrgJ7RxbHAc/image_thumb87.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />17. klik BROWSE untuk meihat data hasil entri<br /><a href="http://lh6.ggpht.com/-DyyaUKHXchU/T8r-kXHqVrI/AAAAAAAABMc/yyl-XC4HtNs/s1600-h/image165.png"><img alt="image" border="0" height="164" src="http://lh5.ggpht.com/-cX9eva7CpWA/T8r-qfeNqhI/AAAAAAAABMk/2V8rIAIbJ0U/image_thumb85.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />18. tambahkan dua data berikutnya<br /><a href="http://lh6.ggpht.com/-b9Ycke6JF4U/T8r-usapMhI/AAAAAAAABMs/YP-Q6By2aIA/s1600-h/image163.png"><img alt="image" border="0" height="137" src="http://lh3.ggpht.com/-LAwXZY-cmeY/T8r-0OAEKNI/AAAAAAAABM0/0ZjfrEcufg8/image_thumb83.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><strong>Koneksi Vb.Net Dengan Database Mysql <br /></strong>9. Buka vb.net <br />10. Buatlah form seperti gambar di bawah ini<br /><a href="http://lh3.ggpht.com/-F4jtJebT0K4/T8r-4fuPdOI/AAAAAAAABM8/B4TVVJQPKfY/s1600-h/image161.png"><img alt="image" border="0" height="149" src="http://lh3.ggpht.com/-sYgDaW9BT3o/T8r-9QoP5mI/AAAAAAAABNE/JqlB5GYRXgQ/image_thumb81.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />11. ubah nama Datagridview1 menjadi GDV<br /><a href="http://lh4.ggpht.com/-kRgzeRjYg4U/T8r_B0uu0vI/AAAAAAAABNM/PdzXQ_ygV0c/s1600-h/image159.png"><img alt="image" border="0" height="187" src="http://lh5.ggpht.com/-7dJcaYVL__0/T8r_GcTtTqI/AAAAAAAABNU/dMPD1DhQs2Q/image_thumb79.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="207" /></a> <br />12. buka jendela coding dan tulis coding berikut :<br /><div class="wlWriterEditableSmartContent" id="scid:812469c5-0cb0-4c63-8c15-c81123a09de7:53afb73a-e2ea-4fcc-abcc-dba766f297cd" style="display: inline; float: none; margin: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><pre class="vb" name="code"></pre></div><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Imports</span> System.Data.Odbc </li><li class=""><span class="keyword">Public</span> <span class="keyword">Class</span> TampilGrid </li><li class="alt"><span class="keyword">Dim</span> Conn <span class="keyword">As</span> OdbcConnection </li><li class=""><span class="keyword">Dim</span> da <span class="keyword">As</span> OdbcDataAdapter </li><li class="alt"><span class="keyword">Dim</span> ds <span class="keyword">As</span> DataSet </li><li class=""><span class="keyword">Sub</span> Koneksi() </li><li class="alt">str = <span class="string">"Driver={MySQL ODBC 3.51</span> </li><li class=""><span class="string">Driver};database=DBLatihan;server=localhost;uid=root"</span> </li><li class="alt">Conn = <span class="keyword">New</span> OdbcConnection(str) </li><li class=""><span class="keyword">If</span> Conn.State = ConnectionState.Closed <span class="keyword">Then</span> </li><li class="alt">Conn.Open() </li><li class=""><span class="keyword">End</span> <span class="keyword">If</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""><span class="keyword">Private</span> <span class="keyword">Sub</span> TampilGrid_Load(<span class="keyword">ByVal</span> sender <span class="keyword">As</span> System.<span class="keyword">Object</span>, <span class="keyword">ByVal</span> e </li><li class="alt"><span class="keyword">As</span> System.EventArgs) <span class="keyword">Handles</span> <span class="keyword">MyBase</span>.Load </li><li class="">Koneksi() </li><li class="alt">da = <span class="keyword">New</span> OdbcDataAdapter(<span class="string">"Select * from siswa"</span>, Conn) </li><li class="">ds = <span class="keyword">New</span> DataSet </li><li class="alt">ds.Clear() </li><li class="">da.Fill(ds, <span class="string">"Siswa"</span>) </li><li class="alt">DGV.DataSource = (ds.Tables(<span class="string">"Siswa"</span>)) </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Class</span> </li></ol></div>Hasil program :<br /><a href="http://lh6.ggpht.com/-PAgd1Ph_t2s/T8r_Kyxwv9I/AAAAAAAABNc/ZBZdMVgkLBs/s1600-h/image157.png"><img alt="image" border="0" height="149" src="http://lh6.ggpht.com/-8XvQvciBLXo/T8r_PyfcwAI/AAAAAAAABNk/7novmE82l0s/image_thumb77.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><strong>Cara membuat string koneksi database mysql</strong> <br /><br />1. klik kanan toolbox <br /><br /><br />2. choose items <br /><br /><br />3. ketik odbc <br /><br /><br />4. centang odbcconnection <br /><br /><br />5. klik dua kali object odbcconnection <br /><br /><br />6. klik dropdown connetionstring <br /><br /><br />7. pilih new connection<br /><br /><br /><a href="http://lh4.ggpht.com/-7Us1JjZ-QDs/T8r_U386ggI/AAAAAAAABNs/eHj_ERzuswM/s1600-h/image155.png"><img alt="image" border="0" height="244" src="http://lh3.ggpht.com/-rK9I4ce0hVc/T8r_a5BhjjI/AAAAAAAABN0/UcFz3kprFKE/image_thumb75.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="218" /></a><br /><br /><br /><a href="http://lh3.ggpht.com/-lAbLUaMSjLE/T8r_fodO3mI/AAAAAAAABN8/4Gf-Wa_8Sgs/s1600-h/image153.png"><img alt="image" border="0" height="215" src="http://lh3.ggpht.com/-Msl62tbxsow/T8r_lMvoVkI/AAAAAAAABOE/mma3ZdEgk5k/image_thumb73.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh3.ggpht.com/-TzK_w4vhaeA/T8r_pzHtyWI/AAAAAAAABOM/q06X4Rq2oqY/s1600-h/image151.png"><img alt="image" border="0" height="185" src="http://lh5.ggpht.com/-EM4Cy_uIUTg/T8r_vpNM3nI/AAAAAAAABOU/Ymh-8iW6hJs/image_thumb71.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh4.ggpht.com/-krou27v94tk/T8r_1uzLULI/AAAAAAAABOc/goVIf2EXmCM/s1600-h/image149.png"><img alt="image" border="0" height="185" src="http://lh4.ggpht.com/-K1QNhtCW2h8/T8r_6Ufwm9I/AAAAAAAABOk/qW_4mG6FvIM/image_thumb69.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh3.ggpht.com/-f3-jbzQoW5I/T8sAAhS133I/AAAAAAAABOs/teWHHMTG6ak/s1600-h/image147.png"><img alt="image" border="0" height="182" src="http://lh3.ggpht.com/-dlzdX5v5UJU/T8sAFema6AI/AAAAAAAABO0/zT6ILRdkt_o/image_thumb67.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh6.ggpht.com/-SbBxJH9W7AI/T8sAJ_5DKNI/AAAAAAAABO8/vIBQGjJKa9w/s1600-h/image145.png"><img alt="image" border="0" height="185" src="http://lh5.ggpht.com/--cNIRnUc37A/T8sAPeBUEMI/AAAAAAAABPE/jHY5w5p7Yts/image_thumb65.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh3.ggpht.com/-sxn5xMTG2k4/T8sAUcA-iVI/AAAAAAAABPM/7K-FdfPfjt4/s1600-h/image143.png"><img alt="image" border="0" height="185" src="http://lh3.ggpht.com/-OwRlIIy8QJI/T8sAaAGzEBI/AAAAAAAABPU/LpLeQSaPFrA/image_thumb63.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh3.ggpht.com/-EhbjmqBMvdk/T8sAetzxM0I/AAAAAAAABPc/eFGRkCwm4V0/s1600-h/image141.png"><img alt="image" border="0" height="180" src="http://lh3.ggpht.com/-FXxAERVk3-8/T8sAjsOt_zI/AAAAAAAABPk/MOOl0foukpk/image_thumb61.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh5.ggpht.com/-I9v0-SAbErQ/T8sAoFC5k1I/AAAAAAAABPs/SipbuHDiOm8/s1600-h/image138.png"><img alt="image" border="0" height="81" src="http://lh3.ggpht.com/-DCv8uAvIH7s/T8sAs-08ztI/AAAAAAAABP0/veTPJ7z722E/image_thumb58.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh6.ggpht.com/-nGYVt-zLmLk/T8sAx2djQGI/AAAAAAAABP8/fHk0KYYc7js/s1600-h/image136.png"><img alt="image" border="0" height="180" src="http://lh3.ggpht.com/-RyUO6c99530/T8sA3ZKykKI/AAAAAAAABQE/71ZEzPQB1hU/image_thumb56.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh5.ggpht.com/-g8m7zPi-1Nw/T8sBIrzzlgI/AAAAAAAABQM/f2rzD5zN4JQ/s1600-h/image134.png"><img alt="image" border="0" height="215" src="http://lh6.ggpht.com/-k6gQSsBFbH0/T8sBQs60khI/AAAAAAAABQU/LIeB-T0S2QE/image_thumb54.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><br /><a href="http://lh5.ggpht.com/-204pFQ30-Zw/T8sBYNHJMfI/AAAAAAAABQc/hjWFNTnIO1U/s1600-h/image132.png"><img alt="image" border="0" height="244" src="http://lh4.ggpht.com/-efS5rtUWAaI/T8sBdPww0qI/AAAAAAAABQk/2xv50l3kTec/image_thumb52.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="218" /></a><br /><br /><br /><a href="http://lh5.ggpht.com/-Qubo8RgPctI/T8sBhvQLSaI/AAAAAAAABQs/3C2BBmWdukE/s1600-h/image128.png"><img alt="image" border="0" height="172" src="http://lh6.ggpht.com/-l4VM2xtmaV0/T8sBnL2a-FI/AAAAAAAABQ0/4_0iZLdxtP4/image_thumb48.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="404" /></a><br /><br /><br />21. paste string koneksi ke dalam coding</div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-23512797332255619662012-06-02T23:01:00.000-07:002012-06-05T11:11:58.009-07:00Menyimpan Foto ke database di Visual Basic<div dir="ltr" style="text-align: left;" trbidi="on"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Karena banyak pertanyaan dari teman-teman dan <a href="http://www.indrawan21.com/2011/12/membuat-animasi-vb-bag2.html?showComment=1338267314225#c6308424048895508326" target="_blank">komentar request</a> tentang bagaimana membuat program <b>menyimpan foto atau gambar di vb 6</b>.</span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Maka pada pembahasan kali ini saya akan membahas tentang bagaimana <b>cara menampilkan dan menyimpan foto</b> pada folder yang kita buat <b>menggunakan visual basic 6</b>.</span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.<br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;"></span></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.</span></span><br /></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Kemudian buat <b>database access</b> dengan nama <b>dblatihan.mdb</b> seperti dibawah ini :</span></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Nama Database : dblatihan</span></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Nama Tabel : data</span></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><table border="0" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; color: black; font-family: Helvetica, Arial, sans-serif; font-size: 12px; text-align: left; width: 234px;"><tbody><tr><td style="border-bottom-color: black; border-bottom-style: solid; border-bottom-width: 1pt; border-image: initial; border-left-color: black; border-left-style: solid; border-left-width: 1pt; border-right-color: black; border-right-style: solid; border-right-width: 1pt; border-top-color: black; border-top-style: solid; border-top-width: 1pt; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 54.9pt;" valign="top" width="73"><div align="center" class="MsoNormal" style="text-align: center;"><span style="font-size: small;"><span style="font-size: 12pt;">Field</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: solid; border-top-width: 1pt; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 58.5pt;" valign="top" width="78"><div align="center" class="MsoNormal" style="text-align: center;"><span style="font-size: small;"><span style="font-size: 12pt;">Data Type</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: solid; border-top-width: 1pt; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 31.5pt;" valign="top" width="42"><div align="center" class="MsoNormal" style="text-align: center;"><span style="font-size: small;"><span style="font-size: 12pt;">Size</span></span></div></td></tr><tr><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: solid; border-left-width: 1pt; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 54.9pt;" valign="top" width="73"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">NRP</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 58.5pt;" valign="top" width="78"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">Text</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 31.5pt;" valign="top" width="42"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">10</span></span></div></td></tr><tr><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: solid; border-left-width: 1pt; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 54.9pt;" valign="top" width="73"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">Nama</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 58.5pt;" valign="top" width="78"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">Text</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 31.5pt;" valign="top" width="42"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">30</span></span></div></td></tr><tr><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: solid; border-left-width: 1pt; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 54.9pt;" valign="top" width="73"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">Jurusan</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 58.5pt;" valign="top" width="78"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">Text</span></span></div></td><td style="border-bottom-style: solid; border-bottom-width: 1pt; border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1pt; border-top-style: none; border-top-width: medium; padding-bottom: 0in; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0in; width: 31.5pt;" valign="top" width="42"><div class="MsoNormal" style="text-align: justify;"><span style="font-size: small;"><span style="font-size: 12pt;">35</span></span></div></td></tr></tbody></table><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.</span></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;">Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :</span></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;"> </span><img alt=" " height="224" src="http://komputerkampus.com./editor/gambar/Image/visualbasic/latfoto/latfoto.PNG" width="381" /></span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;"> </span>Componen tambahan yang digunakan pada desain form diatas adalah :</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Microsoft ADO Data Control 6.0</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Microsoft Common Dialog Control 6.0</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Microsoft DataGrid Control 6.0</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Kemudian ubah properti name pada masing-masing command menjadi seperti ini :</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">untuk command Simpan = cmdsimpan</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Edit = cmdedit</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Hapus = cmdhapus</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Bersihkan = cmdbersih</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Cari Foto = cmdcari</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">- Keluar = cmdkeluar</span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Public</span> conn <span class="keyword">As</span> <span class="keyword">New</span> ADODB.Connection </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""> </li><li class="alt"><span class="keyword">Public</span> RSdata <span class="keyword">As</span> <span class="keyword">New</span> ADODB.Recordset </li><li class=""> </li><li class="alt"> </li><li class=""> </li><li class="alt"><span class="keyword">Sub</span> koneksi() </li><li class=""> </li><li class="alt"><span class="keyword">Set</span> conn = <span class="keyword">New</span> ADODB.Connection </li><li class=""> </li><li class="alt"><span class="keyword">Set</span> RSdata = <span class="keyword">New</span> ADODB.Recordset </li><li class=""> </li><li class="alt">conn.Open <span class="string">"Provider=microsoft.jet.oledb.4.0;data source = "</span> & App.Path & <span class="string">"\dblatihan.mdb"</span> </li><li class=""> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Kemudian pada form activate dan form load ketikkan kode perintah berikut :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> Form_Activate() <span class="comment">' perintah untuk koneksi database saat form aktif</span> </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""><span class="keyword">Call</span> koneksi </li><li class="alt"> </li><li class="">Adodc1.ConnectionString = <span class="string">"provider=microsoft.jet.oledb.4.0;data source="</span> & App.Path & <span class="string">"\dblatihan.mdb"</span> </li><li class="alt"> </li><li class="">Adodc1.RecordSource = <span class="string">"data"</span> </li><li class="alt"> </li><li class="">Adodc1.Refresh </li><li class="alt"> </li><li class=""><span class="keyword">Set</span> DataGrid1.DataSource = Adodc1 </li><li class="alt"> </li><li class="">DataGrid1.Refresh </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Form_Load() </li><li class="">Text1.Text = <span class="string">""</span> </li><li class="alt">Text2.Text = <span class="string">""</span> </li><li class="">Text3.Text = <span class="string">""</span> </li><li class="alt">Text4.Text = <span class="string">""</span> </li><li class="">Text4.Enabled = <span class="keyword">False</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> TampilkanData() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">Text2 = RSdata!nama </li><li class="alt"> </li><li class="">Text3 = RSdata!jurusan </li><li class="alt"> </li><li class="">Text4 = App.Path & <span class="string">"\folderfoto\NRP_"</span> & Text1.Text & <span class="string">".jpg"</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk mencari data dengan acuan dari Text1 :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Function</span> CariData() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""> <span class="keyword">Call</span> koneksi </li><li class="alt"> </li><li class=""> RSdata.Open <span class="string">"Select * From data where nrp='"</span> & Text1 & <span class="string">"'"</span>, conn </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Function</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk mengosongkan text inputan :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Function</span> CariData() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""> <span class="keyword">Call</span> koneksi </li><li class="alt"> </li><li class=""> RSdata.Open <span class="string">"Select * From data where nrp='"</span> & Text1 & <span class="string">"'"</span>, conn </li><li class="alt"><span class="keyword">End</span> FunctionPrivate <span class="keyword">Sub</span> kosong() </li><li class=""> </li><li class="alt">Text1.Text = <span class="string">""</span> </li><li class="">Text2.Text = <span class="string">""</span> </li><li class="alt">Text3.Text = <span class="string">""</span> </li><li class="">Text4.Text = <span class="string">""</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div></div><div style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> simpan() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">SavePicture Image1.Picture, App.Path & <span class="string">"\folderfoto\NRP_"</span> & Text1.Text & <span class="string">".jpg"</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> cmdcari_Click() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">cmndialog.ShowOpen </li><li class="alt">Text4 = cmndialog.FileName </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> cmdsimpan_Click() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""> </li><li class="alt"><span class="keyword">Dim</span> SQLTambah <span class="keyword">As</span> <span class="keyword">String</span> </li><li class=""> </li><li class="alt"> <span class="keyword">Call</span> simpan </li><li class=""> </li><li class="alt"> SQLTambah = <span class="string">"Insert Into data (nrp,nama,jurusan) values ('"</span> & Text1 & <span class="string">"','"</span> & Text2 & <span class="string">"','"</span> & Text3 & <span class="string">"')"</span> </li><li class=""> </li><li class="alt"> conn.Execute SQLTambah </li><li class=""> </li><li class="alt"> Form_Activate </li><li class=""> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> cmdedit_Click() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""> <span class="keyword">Dim</span> SQLEdit <span class="keyword">As</span> <span class="keyword">String</span> </li><li class="alt"> <span class="keyword">Call</span> simpan </li><li class=""> </li><li class="alt"> SQLEdit = <span class="string">"Update data Set nama= '"</span> & Text2 & <span class="string">"',"</span> & <span class="string">" jurusan='"</span> & Text3 & <span class="string">"' where nrp='"</span> & Text1 & <span class="string">"'"</span> </li><li class=""> </li><li class="alt"> conn.Execute SQLEdit </li><li class=""> Form_Activate </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> smdhapus_Click() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">Adodc1.Recordset.Delete </li><li class="alt">Adodc1.Recordset.Update </li><li class="">DataGrid1.Refresh </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><br /></span><br /><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> cmdbersih_Click() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">Text1.Text = <span class="string">""</span> </li><li class="alt">Text2.Text = <span class="string">""</span> </li><li class="">Text3.Text = <span class="string">""</span> </li><li class="alt">Text4.Text = <span class="string">""</span> </li><li class="">Text1.SetFocus </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> Text1_LostFocus() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class=""><span class="keyword">Call</span> CariData </li><li class="alt"> </li><li class=""> <span class="keyword">If</span> <span class="keyword">Not</span> RSdata.EOF <span class="keyword">Then</span> </li><li class="alt"> </li><li class=""> TampilkanData </li><li class="alt"> </li><li class=""> MsgBox <span class="string">"Data Ditemukan"</span> </li><li class="alt"> </li><li class=""> <span class="keyword">Else</span> </li><li class="alt"> </li><li class=""> Text2.Text = <span class="string">""</span> </li><li class="alt"> </li><li class=""> Text3.Text = <span class="string">""</span> </li><li class="alt"> </li><li class=""> Text4.Text = <span class="string">""</span> </li><li class="alt"> </li><li class=""> <span class="keyword">End</span> <span class="keyword">If</span> </li><li class="alt"> </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.</span><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span class="keyword">Private</span> <span class="keyword">Sub</span> Text4_Change() </span></li><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><li class="">Image1.Picture = LoadPicture(Text4) </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></span></ol></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :</span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-size: 12pt;"> </span><img alt=" " height="243" src="http://komputerkampus.com./editor/gambar/Image/visualbasic/latfoto/hasilfoto.PNG" width="411" /></span></div><div class="MsoNormal" style="font-family: Helvetica, Arial, sans-serif; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;">Oke sampai disini dulu pembahasannya, semoga bermanfaat dan bisa membantu ^_^</span></div><span style="font-family: Helvetica, Arial, sans-serif; font-size: 12pt; text-align: justify;"><span style="font-family: Helvetica, Arial, sans-serif;"><br /><br /><span style="font-size: xx-small;"> Read more: http://komputerkampus.com/artikel-70/contoh-program-simpan-foto-menggunakan-visual-basic-60/#ixzz1whtrnSN5</span></span> </span></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com3tag:blogger.com,1999:blog-4967858805924243329.post-39685364312208810382012-06-02T22:40:00.000-07:002012-06-05T11:11:58.031-07:00CARA KONEKSI DATABASE Access2003 VB.NET 2005<div dir="ltr" style="text-align: left;" trbidi="on">Pada artikel sebelumnya telah saya berikan <a href="http://www.indrawan21.com/2012/06/cara-koneksi-database-access-2000-vbnet.html" target="_blank" title="Koneksi Database Ke VB.Net">cara koneksi database Access 2000 ke VB.Net</a>, kini saya akan berikan cara <a href="http://www.indrawan21.com/2012/06/cara-koneksi-database-access2003-vbnet.html" target="_blank">koneksi database 2003 ke VB.Net</a><br /><strong>Database Access 2003 <br /></strong>1. Buka project vb.net 2005 pertemuan sebelumnya <br />2. buat form baru dengan nama ACCESS2003 <br />3. buka access 2003 <br />4. Create a new file<br /><a href="http://lh4.ggpht.com/-GncHU-swgtk/T8r2qze2oYI/AAAAAAAABEM/H3CVmuYQxks/s1600-h/image%25255B2%25255D.png"><img alt="image" border="0" height="134" src="http://lh4.ggpht.com/-6EVSk_zHDAQ/T8r23XVECXI/AAAAAAAABEU/BTHSTSjMQRY/image_thumb%25255B2%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="202" /></a><br />5. Blank database<br /><a href="http://lh3.ggpht.com/-b1x_iVCmd-c/T8r3KH3g2EI/AAAAAAAABEc/cm-gn1NeJVk/s1600-h/image%25255B4%25255D.png"><img alt="image" border="0" height="125" src="http://lh3.ggpht.com/-YlKbtgq1Vk8/T8r3PnciAgI/AAAAAAAABEs/0f9u5p9wk1E/image_thumb%25255B4%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="204" /></a><br />6. Tulis nama file <br />7. simpan database (di folder project di posisi bin >debug)<br /><a href="http://lh3.ggpht.com/-tFWuaHwPA-o/T8r3ZE7MnZI/AAAAAAAABE0/U53KPocDTEU/s1600-h/image%25255B6%25255D.png"><img alt="image" border="0" height="161" src="http://lh5.ggpht.com/-bWuKwiqEgAI/T8r3fCjWkrI/AAAAAAAABE8/aOJ_M8ejdAQ/image_thumb%25255B6%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />8. Create <br />9. Klik dua kali object create table in desain view<br /><a href="http://lh3.ggpht.com/-hK0EIbLfAU4/T8r3kS4r2uI/AAAAAAAABFE/WIeJ3_rkx6o/s1600-h/image%25255B8%25255D.png"><img alt="image" border="0" height="176" src="http://lh3.ggpht.com/-3FVEEGmnIVs/T8r3pZkT3hI/AAAAAAAABFM/I5B-itlZgMg/image_thumb%25255B8%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />10. Buatlah struktur tabel sebagai berikut <br /><br /><table border="2" cellpadding="2" cellspacing="1" style="width: 346px;"><tbody><tr> <td valign="top" width="16">No</td> <td valign="top" width="86">Nama Field</td> <td valign="top" width="115">Type</td> <td valign="top" width="31">Size</td> <td valign="top" width="88">Ket</td> </tr><tr> <td valign="top" width="16">1</td> <td valign="top" width="86">Kode_barang</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">13</td> <td valign="top" width="88">Primary Key</td> </tr><tr> <td valign="top" width="16">2</td> <td valign="top" width="86">Nama_barang</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">30</td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">3</td> <td valign="top" width="86">Harga_beli</td> <td valign="top" width="115">Long Integer</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">4</td> <td valign="top" width="86">Harga_jual</td> <td valign="top" width="115">Long Integer</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">5</td> <td valign="top" width="86">Jumlah_barang</td> <td valign="top" width="115">Numeric</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">6</td> <td valign="top" width="86">Satuan</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">15</td> <td valign="top" width="88"></td> </tr></tbody></table>12. Klik kanan field kode_Barang <br />13. Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)<br /><a href="http://lh5.ggpht.com/-JfOl4v9wCR4/T8r3t9-bdfI/AAAAAAAABFU/b_2pKdrDeWY/s1600-h/image%25255B10%25255D.png"><img alt="image" border="0" height="213" src="http://lh5.ggpht.com/-xyqfJNExVGE/T8r3zJaWnfI/AAAAAAAABFc/JzPhyeSEsDQ/image_thumb%25255B10%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />14. Simpan struktur tabel > Klik ikon save (gambar disket) <br />15. Tulis nama tabel (barang) <br />16. Klik OK<br /><a href="http://lh3.ggpht.com/-y8yRoHVW5E0/T8r33ehrP4I/AAAAAAAABFk/eue2s1yO2i0/s1600-h/image%25255B12%25255D.png"><img alt="image" border="0" height="84" src="http://lh3.ggpht.com/-tDwt9n0QOHE/T8r38ehDtpI/AAAAAAAABFs/4RFFcDmV1tA/image_thumb%25255B12%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br />17. Isilah tabel barang secara manual dengan data sebagai berikut<br /><a href="http://lh6.ggpht.com/-DdxTXmtN2Xw/T8r4CW8i7KI/AAAAAAAABF0/vr7lkIZWqno/s1600-h/image%25255B14%25255D.png"><img alt="image" border="0" height="85" src="http://lh6.ggpht.com/-I99UW_EVZxk/T8r4HGzzslI/AAAAAAAABF8/cI3z3Eeyw5A/image_thumb%25255B14%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a><br /><br /><strong>Koneksi Vb.Net 2005 Dengan Database Access 2003 <br /></strong>1. Buka vb.net <br />2. Buatlah form seperti gambar di bawah ini<br /><a href="http://lh5.ggpht.com/-X89dYt8wNLc/T8r4LAlKZSI/AAAAAAAABGE/T47cgXWJ74M/s1600-h/image%25255B16%25255D.png"><img alt="image" border="0" height="117" src="http://lh6.ggpht.com/-4-Ym91EovK8/T8r4Pufxl1I/AAAAAAAABGM/KVD1BsgIvyw/image_thumb%25255B16%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a> <br />3. ubah nama Datagridview1 menjadi GDV<br /><a href="http://lh6.ggpht.com/-FD2LzW4RpKc/T8r4YRd2qYI/AAAAAAAABGU/D9NcBpz1tPQ/s1600-h/image%25255B18%25255D.png"><img alt="image" border="0" height="187" src="http://lh4.ggpht.com/-oEgWaHBqmUE/T8r4lY7s4SI/AAAAAAAABGc/pNzKRJKTIYo/image_thumb%25255B18%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="207" /></a><br />4. buka jendela coding dan tulis coding berikut :<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Imports</span> System.Data.OleDb </li><li class=""><span class="keyword">Public</span> <span class="keyword">Class</span> TampilGrid </li><li class="alt"><span class="keyword">Dim</span> Conn <span class="keyword">As</span> OleDbConnection </li><li class=""><span class="keyword">Dim</span> da <span class="keyword">As</span> OleDbDataAdapter </li><li class="alt"><span class="keyword">Dim</span> ds <span class="keyword">As</span> DataSet </li><li class=""><span class="keyword">Sub</span> Koneksi() </li><li class="alt">str = <span class="string">"provider=microsoft.jet.oledb.4.0;data source=db1.mdb"</span> </li><li class="">Conn = <span class="keyword">New</span> OleDbConnection(str) </li><li class="alt"><span class="keyword">If</span> Conn.State = ConnectionState.Closed <span class="keyword">Then</span> Conn.Open() </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> TampilGrid_Load(<span class="keyword">ByVal</span> sender <span class="keyword">As</span> System.<span class="keyword">Object</span>, <span class="keyword">ByVal</span> e </li><li class=""><span class="keyword">As</span> System.EventArgs) <span class="keyword">Handles</span> <span class="keyword">MyBase</span>.Load </li><li class="alt">Koneksi() </li><li class="">da = <span class="keyword">New</span> OleDbDataAdapter(<span class="string">"Select * from barang"</span>, Conn) </li><li class="alt">ds = <span class="keyword">New</span> DataSet </li><li class="">ds.Clear() </li><li class="alt">da.Fill(ds, <span class="string">"Barang"</span>) </li><li class="">DGV.DataSource = (ds.Tables(<span class="string">"Barang"</span>)) </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""><span class="keyword">End</span> <span class="keyword">Class</span> </li></ol></div><br /><br />Hasil program :<br /><a href="http://lh5.ggpht.com/-SWaVf0gxZFM/T8r4r737blI/AAAAAAAABGk/xK9YdYW5anI/s1600-h/image%25255B20%25255D.png"><img alt="image" border="0" height="117" src="http://lh5.ggpht.com/-5hYMwCnCxSI/T8r4xWWJdFI/AAAAAAAABGs/Imsq9Of-Wck/image_thumb%25255B20%25255D.png?imgmax=800" style="background-image: none; border-bottom: 0px; border-left: 0px; border-right: 0px; border-top: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image" width="244" /></a></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-28619454583260346142012-06-02T22:16:00.000-07:002012-06-05T11:11:58.014-07:00CARA KONEKSI DATABASE Access 2000 VB.Net<div dir="ltr" style="text-align: left;" trbidi="on">Kini saya berikan cara mengkoneksikan database Access 2000 ke vb.net.<br /><br /><strong>Cara membuat string koneksi access 2000 <br /></strong><br />1. klik kanan toolbox <br />2. pilih choose items <br />3.<a href="http://lh6.ggpht.com/-HrBuI7tWKAE/T8ruH1ag-pI/AAAAAAAAA_Y/PrADYv_zebI/s1600-h/image_thumb102.png"><img alt="image_thumb[10]" border="0" height="243" src="http://lh5.ggpht.com/-qzqrBwWRAQA/T8ruMm0gaXI/AAAAAAAAA_g/dfbtcOBC3bg/image_thumb10_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[10]" width="177" /></a> <br />4. ketik oledd <br />5. centang oledbconnection <br />6. OK<br />7.<a href="http://lh5.ggpht.com/-8CxGkFBa13M/T8ruRudAuCI/AAAAAAAAA_o/XFfRoqXHoqM/s1600-h/image_thumb112.png"><img alt="image_thumb[11]" border="0" height="173" src="http://lh5.ggpht.com/-_x2_ZSLM5nY/T8ruWb2pmJI/AAAAAAAAA_w/6oFJkyr9_-k/image_thumb11_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[11]" width="244" /></a><br /><br />8. klik dua kali oledbconnection <br />9.<a href="http://lh4.ggpht.com/-pDEsfBuLE8s/T8rublb7PFI/AAAAAAAAA_4/SorkIbdXcS0/s1600-h/image_thumb122.png"><img alt="image_thumb[12]" border="0" height="244" src="http://lh4.ggpht.com/-gRyOKdVQ-xE/T8ruhMl1awI/AAAAAAAABAA/ueSh7QQk5zA/image_thumb12_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[12]" width="154" /></a><br /><br />10.<a href="http://lh5.ggpht.com/-u5jeJEIuD5c/T8ru4UqpkmI/AAAAAAAABAI/K4holppH_uw/s1600-h/image_thumb132.png"><img alt="image_thumb[13]" border="0" height="140" src="http://lh4.ggpht.com/-cQVTY7-MHdw/T8rvbccwqHI/AAAAAAAABAQ/516ARwHhGG0/image_thumb13_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[13]" width="244" /></a><br /><br />11.<a href="http://lh3.ggpht.com/-pj-VcKingAQ/T8rv2-QlGNI/AAAAAAAABAY/C3gIh-70DxE/s1600-h/image_thumb142.png"><img alt="image_thumb[14]" border="0" height="117" src="http://lh4.ggpht.com/-YHIudTBOuRU/T8rv_lL_PjI/AAAAAAAABAg/mD5MLtjw8F8/image_thumb14_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[14]" width="244" /></a><br /><br />12.<a href="http://lh3.ggpht.com/-bodDbJnSxAE/T8rwEcOvU6I/AAAAAAAABAo/RCTZrniigQU/s1600-h/image_thumb152.png"><img alt="image_thumb[15]" border="0" height="145" src="http://lh3.ggpht.com/-Cs4cdMZxUas/T8rwJScn3BI/AAAAAAAABAw/ESzrGlD6yjQ/image_thumb15_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[15]" width="244" /></a><br /><br />13.<a href="http://lh3.ggpht.com/-meDJeMx3MPs/T8rwcLWsNUI/AAAAAAAABA4/n0X9kam9dw8/s1600-h/image_thumb162.png"><img alt="image_thumb[16]" border="0" height="244" src="http://lh6.ggpht.com/-xKiQhuCV1M8/T8rwjUtGB3I/AAAAAAAABBA/3ikYV6LOvfE/image_thumb16_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[16]" width="224" /></a><br /><br />14.<a href="http://lh4.ggpht.com/-3AG0hcMR6LA/T8rw2MVp_wI/AAAAAAAABBI/sTCN48y_ppw/s1600-h/image_thumb172.png"><img alt="image_thumb[17]" border="0" height="183" src="http://lh3.ggpht.com/-3AYN1iqLaWQ/T8rxD5ZVmsI/AAAAAAAABBQ/2afuU_qJeRU/image_thumb17_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[17]" width="244" /></a><br /><br />15.<a href="http://lh6.ggpht.com/-xHuXJcY1XBM/T8rxLdhSYjI/AAAAAAAABBY/ny7UKuTBF5s/s1600-h/image_thumb182.png"><img alt="image_thumb[18]" border="0" height="244" src="http://lh3.ggpht.com/-_Yos5KjQcOI/T8rxTZVbD0I/AAAAAAAABBg/D2uzwrSuup0/image_thumb18_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[18]" width="224" /></a><br /><br />16. string koneksi yang dihasilkan adalah <br />Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\1 vb.net 2005\modul vb.net <br />2005 April 2011\Latihan1\Latihan1\bin\Debug\db1.mdb" <br />Catatan : posisi drive dan folder dapat dilepas menjadi : <br />Str= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb" <br />Database access 2007 <br />1. Buka project vb.net 2005 pertemuan sebelumnya <br />2. buka access 2007 <br />3. Blank Database<br /><br /><a href="http://lh5.ggpht.com/-OQyax-zxPiU/T8rxXCJqkbI/AAAAAAAABBo/ftD3vKhfL-w/s1600-h/image_thumb192.png"><img alt="image_thumb[19]" border="0" height="119" src="http://lh6.ggpht.com/-jbuG1XRHAPM/T8rxc0UYKDI/AAAAAAAABBw/-tPAXkz6-cI/image_thumb19_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[19]" width="204" /></a><br /><br />6. Ketik nama file dan simpan di folder BIN > DEBUG <br />7. Create<br /><br /><a href="http://lh5.ggpht.com/-a8JuTnRH4Ao/T8rxkVNJB3I/AAAAAAAABB4/Qpm6z2fJ0Go/s1600-h/image_thumb202.png"><img alt="image_thumb[20]" border="0" height="146" src="http://lh3.ggpht.com/-XatAZFjWOmk/T8rxpmGCJsI/AAAAAAAABCA/oT0kuCAB6qg/image_thumb20_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[20]" width="244" /></a><br /><br />8.Memberi Nama Tabel<br /><br /><a href="http://lh6.ggpht.com/-c3nuucTy2KQ/T8rxuXvmG3I/AAAAAAAABCI/K10GnNIjkHU/s1600-h/image_thumb212.png"><img alt="image_thumb[21]" border="0" height="148" src="http://lh3.ggpht.com/-S-TNpD19yvE/T8rxznSOM4I/AAAAAAAABCQ/7PytHvx6xE0/image_thumb21_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[21]" width="244" /></a><br /><br /><a href="http://lh5.ggpht.com/-2j72xx3J9EY/T8rx4Hk--WI/AAAAAAAABCY/o8wrDIYT38c/s1600-h/image_thumb222.png"><img alt="image_thumb[22]" border="0" height="110" src="http://lh5.ggpht.com/-v3w5OygiWTo/T8rx9i7sG-I/AAAAAAAABCg/EcUJLz6DlJ4/image_thumb22_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[22]" width="244" /></a><br /><br />Rancangan Struktur Tabel Barang:<br /><br /><table border="2" cellpadding="2" cellspacing="1" style="width: 346px;"><tbody><tr> <td valign="top" width="16">No</td> <td valign="top" width="86">Nama Field</td> <td valign="top" width="115">Type</td> <td valign="top" width="31">Size</td> <td valign="top" width="88">Ket</td> </tr><tr> <td valign="top" width="16">1</td> <td valign="top" width="86">Kode_barang</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">13</td> <td valign="top" width="88">Primary Key</td> </tr><tr> <td valign="top" width="16">2</td> <td valign="top" width="86">Nama_barang</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">30</td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">3</td> <td valign="top" width="86">Harga_beli</td> <td valign="top" width="115">Long Integer</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">4</td> <td valign="top" width="86">Harga_jual</td> <td valign="top" width="115">Long Integer</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">5</td> <td valign="top" width="86">Jumlah_barang</td> <td valign="top" width="115">Numeric</td> <td valign="top" width="31"></td> <td valign="top" width="88"></td> </tr><tr> <td valign="top" width="16">6</td> <td valign="top" width="86">Satuan</td> <td valign="top" width="115">Text</td> <td valign="top" width="31">15</td> <td valign="top" width="88"></td> </tr></tbody></table><br /><a href="http://lh5.ggpht.com/-W5PPW7qe9bU/T8ryGT2FDHI/AAAAAAAABCo/3yZNyVaAX3c/s1600-h/image_thumb232.png"><img alt="image_thumb[23]" border="0" height="112" src="http://lh4.ggpht.com/-GOZkOtQy_Sc/T8ryLbegFII/AAAAAAAABCw/luZU1M_PR4A/image_thumb23_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[23]" width="244" /></a><a href="http://lh4.ggpht.com/-WDyWESLS0I4/T8ryQQQ0suI/AAAAAAAABC4/C_eZsS0-Tfw/s1600-h/image_thumb242.png"><img alt="image_thumb[24]" border="0" height="98" src="http://lh3.ggpht.com/-buV84HeKOgI/T8ryVFegWQI/AAAAAAAABDA/W9WWztzLrdk/image_thumb24_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[24]" width="53" /></a><br /><br />atau<br /><br /><a href="http://lh4.ggpht.com/-qyu7BEOrLzQ/T8ryaiif44I/AAAAAAAABDI/IQGIL5Rvfmo/s1600-h/image_thumb252.png"><img alt="image_thumb[25]" border="0" height="175" src="http://lh6.ggpht.com/-eT57fFTdd1U/T8ryir0lzTI/AAAAAAAABDQ/0kKwuPYKp-4/image_thumb25_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[25]" width="244" /></a><br /><br />Mengisi Data Secara Manual (Klik Dua Kali Nama Tabel)<br /><br /><a href="http://lh5.ggpht.com/-fzzjUSH9rdM/T8rym5abt7I/AAAAAAAABDY/l1I1Yjl8ogA/s1600-h/image_thumb262.png"><img alt="image_thumb[26]" border="0" height="62" src="http://lh5.ggpht.com/-sMz35wey-d0/T8ryz3XHdKI/AAAAAAAABDg/2Idu54mQuCQ/image_thumb26_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[26]" width="244" /></a> <br />Koneksi Vb.Net 2005 Dengan Database Access 2007 <br />5. Buka vb.net <br />6. Buatlah form seperti gambar di bawah ini<br /><br /><a href="http://lh6.ggpht.com/-m7tMuBOgrB8/T8ry45B0qWI/AAAAAAAABDo/RVSlvevrTUw/s1600-h/image_thumb272.png"><img alt="image_thumb[27]" border="0" height="117" src="http://lh5.ggpht.com/-IADvTv-pKow/T8ry-8HfJNI/AAAAAAAABDw/n8RU9HvQydE/image_thumb27_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[27]" width="244" /></a><br /><br />7. ubah nama Datagridview1 menjadi GDV <br />8. buka jendela coding dan tulis coding berikut :<br /><div class="class" id="scid:812469c5-0cb0-4c63-8c15-c81123a09de7:e4383151-4984-4207-8bda-e96a81c792f8" style="display: inline; float: none; margin: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><div class="dp-highlighter"><div class="bar"><div class="tools"><a href="about:blank#">+ expand source</a><a href="about:blank#">view plain</a><a href="about:blank#">copy to clipboard</a><a href="about:blank#">print</a></div></div><ol class="dp-vb"><li class="alt"><span class="keyword">Imports</span> System.Data.OleDb </li><li><span class="keyword">Public</span> <span class="keyword">Class</span> TampilGrid </li><li class="alt"><span class="keyword">Dim</span> Conn <span class="keyword">As</span> OleDbConnection </li><li><span class="keyword">Dim</span> da <span class="keyword">As</span> OleDbDataAdapter </li><li class="alt"><span class="keyword">Dim</span> ds <span class="keyword">As</span> DataSet </li><li><span class="keyword">Sub</span> Koneksi() </li><li class="alt">str = "provider=microsoft.ACE.OLEDB.12.0;data </li><li>source=LATIHAN1.ACCDB.mdb" </li><li class="alt">Conn = <span class="keyword">New</span> OleDbConnection(str) </li><li><span class="keyword">If</span> Conn.State = ConnectionState.Closed <span class="keyword">Then</span> Conn.Open() </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li><span class="keyword">Private</span> <span class="keyword">Sub</span> TampilGrid_Load(<span class="keyword">ByVal</span> sender <span class="keyword">As</span> System.<span class="keyword">Object</span>, <span class="keyword">ByVal</span> e </li><li class="alt"><span class="keyword">As</span> System.EventArgs) <span class="keyword">Handles</span> <span class="keyword">MyBase</span>.Load </li><li>Koneksi() </li><li class="alt">da = <span class="keyword">New</span> OleDbDataAdapter(<span class="string">"Select * from barang"</span>, Conn) </li><li>ds = <span class="keyword">New</span> DataSet </li><li class="alt">ds.Clear() </li><li>da.Fill(ds, <span class="string">"Barang"</span>) </li><li class="alt">DGV.DataSource = (ds.Tables(<span class="string">"Barang"</span>)) </li><li><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Class</span> </li></ol></div></div><br />Hasil program :<br /><br /><a href="http://lh4.ggpht.com/--BBEuGLKR9A/T8rzDRZE0RI/AAAAAAAABD4/WWSbowuZ9eA/s1600-h/image_thumb282.png"><img alt="image_thumb[28]" border="0" height="117" src="http://lh6.ggpht.com/-W_nhk8RhDwU/T8rzKmVFyaI/AAAAAAAABEA/EzD5SxejH4Y/image_thumb28_thumb.png?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; margin: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="image_thumb[28]" width="244" /></a></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-60279694993891110362012-05-29T09:34:00.000-07:002012-06-05T11:11:58.063-07:00Daftar Key Code Visual Basic (VB6)<div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEYVeC7jsNcHTgK07-HOgIUQoki6CQbzOzDDyvnbY6p9hwZVUgJ7VZtJ4Kyr3qXHXUo0bk4cbj0-4Qgrhi2Q9pKgzthAGcvJr29kkSCa-mhLVFz0sE333vdLymgvwVXvD3aeEG0GDLjco4/s1600/x68keycode.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="271" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEYVeC7jsNcHTgK07-HOgIUQoki6CQbzOzDDyvnbY6p9hwZVUgJ7VZtJ4Kyr3qXHXUo0bk4cbj0-4Qgrhi2Q9pKgzthAGcvJr29kkSCa-mhLVFz0sE333vdLymgvwVXvD3aeEG0GDLjco4/s400/x68keycode.png" width="400" /></a></div>Dalam membuat sebuah aplikasi, ubtuk membuat fungsi-fungsi short cut keyboard untuk mengeksekusi script,inilah shortcut keyboard selain dari fungsi KEYASCII.Disini saya berikan list KEYCODE dalam visual basic6.0.<br /><br /><span class="LW_CollapsibleArea_Title"><b>Key Code Constants</b></span><br /><hr class="LW_CollapsibleArea_Hr" /><table border="1"><tbody><tr bgcolor="#3399FF"> <th><span style="text-align: left;">Visual Basic 6.0</span></th> <th><span style="text-align: left;">Visual Basic 2005 Equivalent</span></th> </tr><tr> <td><b>vbKeyLButton (1)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">LButton</a></span> </td> </tr><tr> <td><b>vbKeyRButton (2)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">RButton</a></span> </td> </tr><tr> <td><b>vbKeyCancel (3)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Cancel</a></span> </td> </tr><tr> <td><b>vbKeyMButton (4)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">MButton</a></span> </td> </tr><tr> <td><b>vbKeyBack (8)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Back</a></span> </td> </tr><tr> <td><b>vbKeyTab (9)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Tab</a></span> </td> </tr><tr> <td><b>vbKeyClear (12)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Clear</a></span> </td> </tr><tr> <td><b>vbKeyReturn (13)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Return</a></span> </td> </tr><tr> <td><b>vbKeyShift (16)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">ShiftKey</a></span> </td> </tr><tr> <td><b>vbKeyControl (17)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">ControlKey</a></span> </td> </tr><tr> <td><b>vbKeyMenu (18)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Menu</a></span> </td> </tr><tr> <td><b>vbKeyPause (19)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Pause</a></span> </td> </tr><tr> <td><b>vbKeyCapital (20)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Capital</a></span> </td> </tr><tr> <td><b>vbKeyEscape (27)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Escape</a></span> </td> </tr><tr> <td><b>vbKeySpace (32)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Space</a></span> </td> </tr><tr> <td><b>vbKeyPageUp (33)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">PageUp</a></span> </td> </tr><tr> <td><b>vbKeyPageDown (34)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">PageDown</a></span> </td> </tr><tr> <td><b>vbKeyEnd (35)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">End</a></span> </td> </tr><tr> <td><b>vbKeyHome (36)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Home</a></span> </td> </tr><tr> <td><b>vbKeyLeft (37)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Left</a></span> </td> </tr><tr> <td><b>vbKeyUp (38)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Up</a></span> </td> </tr><tr> <td><b>vbKeyRight (39)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Right</a></span> </td> </tr><tr> <td><b>vbKeyDown (40)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Down</a></span> </td> </tr><tr> <td><b>vbKeySelect (41)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Select</a></span> </td> </tr><tr> <td><b>vbKeyPrint (42)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Print</a></span> </td> </tr><tr> <td><b>vbKeyExecute (43)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Execute</a></span> </td> </tr><tr> <td><b>vbKeySnapshot (44)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Snapshot</a></span> </td> </tr><tr> <td><b>vbKeyInsert (45)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Insert</a></span> </td> </tr><tr> <td><b>vbKeyDelete (46)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Delete</a></span> </td> </tr><tr> <td><b>vbKeyHelp (47)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Help</a></span> </td> </tr><tr> <td><b>vbKeyNumlock (144)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Numlock</a></span> </td> </tr><tr> <td><b>vbKeyScrollLock (145)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Scroll</a></span> </td> </tr></tbody></table><br /><hr /><span class="LW_CollapsibleArea_Title"><b>Alphabetic Key Code Constants</b></span><br /><hr class="LW_CollapsibleArea_Hr" /><table border="1"><tbody><tr bgcolor="#3399FF"> <th><span style="text-align: left;">Visual Basic 6.0 </span></th><th><span style="text-align: left;">Visual Basic 2005 Equivalent</span></th> </tr><tr> <td><b>VbKeyA (65)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">A</a></span> </td> </tr><tr> <td><b>VbKeyB (66)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">B</a></span> </td> </tr><tr> <td><b>VbKeyC (67)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">C</a></span> </td> </tr><tr> <td><b>VbKeyD (68)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D</a></span> </td> </tr><tr> <td><b>VbKeyE (69)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">E</a></span> </td> </tr><tr> <td><b>VbKeyF (70)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F</a></span> </td> </tr><tr> <td><b>VbKeyG (71)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">G</a></span> </td> </tr><tr> <td><b>VbKeyH (72)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">H</a></span> </td> </tr><tr> <td><b>VbKeyI (73)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">I</a></span> </td> </tr><tr> <td><b>VbKeyJ (74)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">J</a></span> </td> </tr><tr> <td><b>VbKeyK (75)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">K</a></span> </td> </tr><tr> <td><b>VbKeyL( 76)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">L</a></span> </td> </tr><tr> <td><b>vbKeyM (77)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">M</a></span> </td> </tr><tr> <td><b>VbKeyN (78)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">N</a></span> </td> </tr><tr> <td><b>VbKeyO (79)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">O</a></span> </td> </tr><tr> <td><b>VbKeyP( 80)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">P</a></span> </td> </tr><tr> <td><b>VbKeyQ (81)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Q</a></span> </td> </tr><tr> <td><b>VbKeyR (82)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">R</a></span> </td> </tr><tr> <td><b>VbKeyS (83)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">S</a></span> </td> </tr><tr> <td><b>VbKeyT (84)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">T</a></span> </td> </tr><tr> <td><b>VbKeyU (85)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">U</a></span> </td> </tr><tr> <td><b>VbKeyV (86)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">V</a></span> </td> </tr><tr> <td><b>VbKeyW (87)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">W</a></span> </td> </tr><tr> <td><b>VbKeyX (88)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">X</a></span> </td> </tr><tr> <td><b>VbKeyY (89)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Y</a></span> </td> </tr><tr> <td><b>VbKeyZ (90)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Z</a></span> </td> </tr></tbody></table><br /><hr /><span class="LW_CollapsibleArea_Title"><b>Numeric Key Constants</b></span><br /><hr class="LW_CollapsibleArea_Hr" /><br /><br /><table border="1"><tbody><tr bgcolor="#3399FF"> <th><span style="text-align: left;">Visual Basic 6.0 </span></th> <th><span style="text-align: left;">Visual Basic 2005 Equivalent</span></th> </tr><tr> <td><b>vbKey0 (48)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D0</a></span> </td> </tr><tr> <td><b>vbKey1 (49)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D1</a></span> </td> </tr><tr> <td><b>vbKey2 (50)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D2</a></span> </td> </tr><tr> <td><b>vbKey3 (51)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D3</a></span> </td> </tr><tr> <td><b>vbKey4 (52)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D4</a></span> </td> </tr><tr> <td><b>vbKey5 (53)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D5</a></span> </td> </tr><tr> <td><b>vbKey6 (54)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D6</a></span> </td> </tr><tr> <td><b>vbKey7 (55)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D7</a></span> </td> </tr><tr> <td><b>vbKey8 (56)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D8</a></span> </td> </tr><tr> <td><b>vbKey9 (57)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">D9</a></span> </td> </tr></tbody></table><br /><hr /><span class="LW_CollapsibleArea_Title"><b>Numeric Keypad Key Constants</b></span><br /><hr class="LW_CollapsibleArea_Hr" /><br /><table border="1"><tbody><tr bgcolor="#3399FF"> <th><span style="text-align: left;">Visual Basic 6.0</span></th> <th><span style="text-align: left;">Visual Basic 2005 Equivalent</span></th> </tr><tr> <td><b>vbKeyNumpad0 (96)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad0</a></span> </td> </tr><tr> <td><b>vbKeyNumpad1 (97)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad1</a></span> </td> </tr><tr> <td><b>vbKeyNumpad2 (98)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad2</a></span> </td> </tr><tr> <td><b>vbKeyNumpad3 (99)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad3</a></span> </td> </tr><tr> <td><b>vbKeyNumpad4 (100)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad4</a></span> </td> </tr><tr> <td><b>vbKeyNumpad5 (101)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad5</a></span> </td> </tr><tr> <td><b>vbKeyNumpad6 (102)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad6</a></span> </td> </tr><tr> <td><b>vbKeyNumpad7 (103)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad7</a></span> </td> </tr><tr> <td><b>vbKeyNumpad8 (104)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad8</a></span> </td> </tr><tr> <td><b>vbKeyNumpad9 (105)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">NumPad9</a></span> </td> </tr><tr> <td><b>VbKeyMultiply (106)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Multiply</a></span> </td> </tr><tr> <td><b>VbKeyAdd (107)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Add</a></span> </td> </tr><tr> <td><b>VbKeySeparator (108)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Separator</a></span> </td> </tr><tr> <td><b>VbKeySubtract (109)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Subtract</a></span> </td> </tr><tr> <td><b>VbKeyDecimal (110)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Decimal</a></span> </td> </tr><tr> <td><b>VbKeyDivide (111)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">Divide</a></span> </td> </tr></tbody></table><br /><hr /><span class="LW_CollapsibleArea_Title"><b>Function Key Constants</b></span><br /><hr class="LW_CollapsibleArea_Hr" /><table border="1"><tbody><tr bgcolor="#3399FF"> <th><span style="text-align: left;">Visual Basic 6.0</span></th> <th><span style="text-align: left;">Visual Basic 2005 Equivalent</span></th> </tr><tr> <td><b>vbKeyF1 (112)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F1</a></span> </td> </tr><tr> <td><b>vbKeyF2 (113)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F2</a></span> </td> </tr><tr> <td><b>vbKeyF3 (114)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F3</a></span> </td> </tr><tr> <td><b>vbKeyF4 (115)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F4</a></span> </td> </tr><tr> <td><b>vbKeyF5 (116)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F5</a></span> </td> </tr><tr> <td><b>vbKeyF6 (117)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F6</a></span> </td> </tr><tr> <td><b>vbKeyF7 (118)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F7</a></span> </td> </tr><tr> <td><b>vbKeyF8 (119)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F8</a></span> </td> </tr><tr> <td><b>vbKeyF9 (120)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F9</a></span> </td> </tr><tr> <td><b>vbKeyF10 (121)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F10</a></span> </td> </tr><tr> <td><b>vbKeyF11 (122)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F11</a></span> </td> </tr><tr> <td><b>vbKeyF12 (123)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F12</a></span> </td> </tr><tr> <td><b>vbKeyF13 (124)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F13</a></span> </td> </tr><tr> <td><b>vbKeyF14 (125)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F14</a></span> </td> </tr><tr> <td><b>vbKeyF15 (126)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F15</a></span> </td> </tr><tr> <td><b>vbKeyF16 (127)</b> </td> <td><span class="linkTerms"><a href="http://www.indrawan21.com/">F16</a></span> </td> </tr></tbody></table><br /><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share to FB</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-85177267110525972162012-05-28T18:59:00.000-07:002012-06-05T11:11:58.100-07:00CARA MENGGANTI LOGON SCREEN WINDOWS 7<div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="http://www.indrawan21.com/2012/05/cara-mengganti-logon-screen-windows-7.html" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="http://memikatcahaya.com/images/stories/login-windows7.jpg" /></a></div><b>Cara mengganti logon screen Windows 7</b> atau cara mengubah logon screen Windows 7 adalah cara yang digunakan untuk mengganti atau mengubah tampilan layar atau background atau gambar Windows 7 saat logon maupun saat logout. Sebagaimana diketahui, bahwa secara standar di saat Windows 7 logon maupun Windows 7 logout selalu menampilkan gambar desktop Windows 7 berupa wallpaper langit biru dengan setangkai daun di sisi sebelah kanan. Gambar atau wallpaper Windows 7 saat login dan logout tersebut memang sudah bagus dan khas Windows, tetapi karena faktor rasa bosan yang selalu ada di pikiran kita sebagai pengguna Windows 7, maka sistem Windows 7 memberikan kesempatan atau celah untuk merubah logon screen Windows 7atau mengganti tampilan logon screen dan logout screen Windows 7. <b>Cara mengganti logon screen Windows 7 </b>atau cara mengubah tampilan logon Windows 7 secara otomatis akan berpengaruh juga pada berubahnya tampilan logout screen Windows 7. <br />Cara mengganti gambar logon screen Windows 7 atau cara mengganti gambar logout screen Windows 7 dapat dilakukan dengan tweak pada Windows 7 melalui sistem registry atau regedit, maupun dengan menggunakan tool atau aplikasi pengubah logon Windows 7 yang sering dikenal dengan Logon Changer software maupun Logon Screen Rotator. Cara mengubah tampilan logon screen Windows 7, baik itu yang menggunakan tweak pada registry atau regedit dan maupun yang menggunakan Windows 7 Logon Changer ada hal yang perlu diperhatikan, yaitu gambar atau wallpaper yang hendak digunakan untuk mengganti wallpaper logon screen Windows 7 sebaiknya jangan berukuran lebih dari 256 KB, gambar berformat JPG, dan dimensi gambar disesuaikan dengan ukuran atau resolusi layar monitor Anda. Untuk ukuran gambar yang akan dijadikan wallpaper logon screen Windows 7 misalnya 800 x 600 pixel, 1024 x 768 pixel, 1280 x 600 pixel, dan seterusnya. Mengapa hal itu harus diperhatikan, karena apabila ukuran gambar yang hendak digunakan sebagai wallpaper logon screen Windows 7 terlalu besar, maka akan memberatkan proses loading saat Windows 7 logon maupun saat Windows 7 logout, dan tampilan gambarnya pun akan kurang pas apabila tidak sesuai dengan ukuran resolusi layar monitornya.<br /><br /><b>Cara mengganti Logon Screen Windows 7</b> atau cara mengubah Logout Screen Windows 7 dengan sistem registri / REGEDIT adalah :<br /><blockquote class="tr_bq">- klik Start, kemudian ketik REGEDIT pada kotak Search, lalu tekan Enter<br />- setelah jendela Registry Editor terbuka, cari dan kemudian klik pada HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background<br />- di layar sebelah kanan klik 2X pada OEMBackground dan set nilainya (value data) menjadi 1 lalu tekan OK. Jika key OEMBackground tidak ada, Anda bisa membuatnya dengan cara klik kanan New > DWORD (32-bit) Value dan set nilainya menjadi 1 lalu tekan OK.<br />- tutup Registry Editor, lalu siapkan file gambar yang akan dijadikan wallpaper logon screen Windows 7 dan ubah namanya menjadi backgroundDefault.jpg<br />- pindahkan file backgroundDefault.jpg tersebut ke folder C:\Windows\system32\oobe\info\backgrounds (pada contoh ini lokasi Windows 7 ada di Drive C)<br />- apabila folder \info\backgrounds tidak ada, Anda bisa membuatnya sendiri lalu taruh file backgroundDefault.jpg ke dalamnya<br />- kemudian restart komputer, dan apabila langkah-langkah di atas sudah benar dilakukan, maka bisa Anda saksikan tampilan wallpaper logon screen Windows 7 telah berubah.</blockquote><br />Tips atau cara mengubah tampilan logon screen Windows 7 dengan sistem registri atau Regedit di atas, hanya berlaku pada satu gambar wallpaper saja, sehingga apabila Anda hendak menggantinya dengan gambar yang lain lagi, harus dilakukan dengan satu persatu yaitu dengan mengganti atau me-replace file backgroundDefault.jpg dengan gambar yang baru. Hal ini tentu dirasa kurang bervariasi dan manual cara mengubah tampilan Windows 7 logon. <br />Sebagai alternatif dari cara mengganti Windows 7 logon screen yang lebih bervariasi dan otomatis adalah dengan menggunakan aplikasi Logon Screen Rotator.<br /><br />Cara mengganti atau mengubah logon screen Windows 7 dengan Logon Screen Rotator adalah :<br />- download software Logon Screen Rotator di link ini > http://www.lukepaynesoftware.com/lsr/updates/4.1/setup.exe <br />- setelah di download, lalu Anda install Logon Screen Rotator<br />- lalu jalankan program Logon Screen Rotator sehingga tampil seperti gambar di bawah ini :<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://www.indrawan21.com/2012/05/cara-mengganti-logon-screen-windows-7.html" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="285" src="http://memikatcahaya.com/images/stories/logon-screen-rotator.jpg" width="400" /></a></div><br />- dari gambar <b>Logon Screen Rotator</b> di atas ada empat menu yang perlu diperhatikan, yaitu Change Image, Images, Folders, Settings.<br />- pada menu Change Image di bagian bawah ada sub menu Change : To Random Image dan To Specific Image<br />- Change To Random Image adalah pilihan untuk mengubah logon screen Windows 7 dengan banyak gambar dan berubah-ubah disesuaikan dengan file gambar yang tersimpan di folder gambar. Pilihan gambar dan folder gambar yang akan dijadikan wallpaper logon screen bisa diatur pada menu Folders.<br />- Change To Specific Image adalah pilhan untuk mengganti logon screen Windows 7 dengan satu atau beberapa gambar yang Anda tentukan langsung pada menu Images (gunakan klik kanan untuk melakukan pengaturan di menu Images.<br />- menu Settings adalah fasilitas untuk melakukan pengaturan dari wallpaper yang akan digunakan sebagai logon screen Windows 7. Silahkan, Anda berkreasi sendiri dengan pengaturan-pengaturan yang ada.<br />- setelah pengaturan <b>Logon Screen Rotator</b> selesai dilakukan, silahkan restart komputer untuk melihat hasilnya.<br /><blockquote class="tr_bq">Referensi : http://memikatcahaya.com/tips-trik/cara-mengganti-logon-screen-windows-7</blockquote><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share to FB</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-72949430307537472932012-05-21T05:32:00.000-07:002012-06-05T11:11:58.076-07:00Upload website ke 000webhost.com dengan FileZilla<div style="text-align: left" dir="ltr" trbidi="on">Jika anda masih bingung mau menyimpan file atau data website anda, dengan alasan belum punya cukup uang untuk membeli hosting berbayar. sekarang anda tidak perlu khawatir lagi, karena ada sebuah website milik orang luar negri yang menyediakan web hosting atau penyimpanan data lainnya yang menawarkan kepada kita sebuah keistimewaan yaitu gratis alias tidak berbayar. memang banyak orang mengatakan <a href="http://www.000webhost.com/585659.html" target="_blank">000webhost</a> kurang bagus untuk menyimpan data website yang berukuran besar, yang berasumsi karena sering maintance atau koneksi yang tidak baik. tapi bagi anda seorang pemula tidak salahnya untuk mencoba sebelum melanjutkan ke hosting berbayar. ayo buruan daftar mumpung masih geratis klik disini untuk registrasi. Materi kali ini kita akan membahas tentang cara transfer file ke hosting <a href="http://www.000webhost.com/585659.html" target="_blank">000webhost</a> : Pertama tentunya anda sudah mempunyai software untuk mentansfer file tersebut, seperti Filizilla, Smart Ftp, Explorer Ftp dll. disini saya akan menggunakan Filezilla anda bisa download disini Jalankan program Filezilla <div style="text-align: center; clear: both" class="separator"><a style="margin-left: 1em; margin-right: 1em" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioXaO72SRrvG7MI136hAskfXkrM7tdbKMKoyPQy-yptkclygh85Itt4DnVc1G_85AesBO_AYXhK_Y7fjkanluBP12cO82drhh5XP5qEHS_jyFq2SMzhaU-TdGpktoz2Vc6gxTf8iUUcdSB/s1600/ftp-1.png" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioXaO72SRrvG7MI136hAskfXkrM7tdbKMKoyPQy-yptkclygh85Itt4DnVc1G_85AesBO_AYXhK_Y7fjkanluBP12cO82drhh5XP5qEHS_jyFq2SMzhaU-TdGpktoz2Vc6gxTf8iUUcdSB/s400/ftp-1.png" width="400" height="122" /></a></div> pada capture diatas terdapat 4 kolom yang harus anda isi Host : Nama Domain website anda Username : username dari akun <a href="http://www.000webhost.com/585659.html" target="_blank">000webhost</a> Password : password dari akun <a href="http://www.000webhost.com/585659.html" target="_blank">000webhost</a> port : port disisi 21 Klik Quickconnection, jika berhasil akan ada pesan "Directory Listing succesful Masuk ketahap kedua <div style="text-align: center; clear: both" class="separator"><a style="margin-left: 1em; margin-right: 1em" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpmW-_3yNHBGlX2A1j1atPP6VlAVFdoKec19EgAOO_w5MF-ewJUqP_KTtJksc1mu76j3qUlHO6Ran4NO9EvzHb3IKlV9JJHNAH3rbhiAIecgWJwdK0ojWHl6b_2jgNdVr_tWVu9JFQ-DE2/s1600/ftp-2.png" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpmW-_3yNHBGlX2A1j1atPP6VlAVFdoKec19EgAOO_w5MF-ewJUqP_KTtJksc1mu76j3qUlHO6Ran4NO9EvzHb3IKlV9JJHNAH3rbhiAIecgWJwdK0ojWHl6b_2jgNdVr_tWVu9JFQ-DE2/s400/ftp-2.png" width="400" height="170" /></a></div> Pada bagian Local site : tempat untuk mencari file folder yang akan ditransfer Pada bagian Remote site : tempat dimana file website anda akan disimpan di hosting Pada bagian Filename : tempat untuk memilih semua file yang akan ditransfer, agar lebih gampang cukup dengan Ctrl + A Klik kanan dan klik Upload Selanjutnya anda tinggal tunggu proses transfer file selesai, ini memakan waktu lama tergantung spek hardware dan koneksi internet <hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"><br /></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" type="button_count" name="fb_share">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"><br /></script> <div style="border-bottom: rgb(204,204,204) 1px solid; background-color: white; width: 600px; display: none; overflow: hidden; border-top: rgb(204,204,204) 1px solid" id="TICKER" onmouseover="TICKER_PAUSED=true" onmouseout="TICKER_PAUSED=false"><span style="background-color: #7fb51a">    <span style="color: white"><b>Syarat Tukar Link/Banner</b></span>    </span>  <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b>  <span style="background-color: #ffaa00">    <span style="color: white"><b>Terdaftar</b></span>    </span>  <b>Terdapat meta tag search engine pada template.</b>  <span style="background-color: #0088ff">    <b><span style="color: white">Terindeks</span></b>    </span>  <b>Halaman blog muncul pada hasil pencarian Google... </b>  </div> <script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"><br /></script> <hr /></div> Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-44825647360865392032012-05-19T12:40:00.000-07:002012-06-05T11:11:58.039-07:00Cara Daftar di 000webhost.com<div style="text-align: left" dir="ltr" trbidi="on"><a href="http://www.000webhost.com/585659.html" target="_blank"><img border="0" alt="Web hosting" src="http://www.000webhost.com/images/banners/120x60/banner1.gif" width="120" height="60" /></a> Untuk kalian yang masih bingung ingin mendaftarkan Hosting yang GRATIS dan Akses cepat.Saatnya kalian mencoba untuk membangun website anda dengan menggunakan HOSTING GRATIS dari <a title="Daftar 000webhost gratis" href="http://www.000webhost.com/585659.html" target="_blank">000webhost.com</a> ini.Adapun fitur GRATIS yang akan kalian dapatkan adalah: </div><div style="text-align: left" dir="ltr" trbidi="on"><ol style="text-align: left"><li>Disk Space 1500 MB </li><li>Data Transfer 100 GB / month </li><li>Add-on Domains 5 </li><li>Sub-domains 5 </li><li>E-mail Addresses 5 </li><li>MySQL Databases 2 </li></ol></div><p>Belum tau cara daftar di 000webhost???Ikuti tahap-tahap pendaftarannya: </p><p>1. Silahkan klik Link berikut untuk menuju halaman <a title="Daftar gratis 000webhost" href="http://www.000webhost.com/585659.html" target="_blank">000webhost</a> <a href="http://www.000webhost.com/585659.html" target="_blank">Klik</a> </p><p>2. Setelah terbuka halaman 000webhost, klik tombol "order" pada kolom Free </p><p><a href="http://lh5.ggpht.com/-RAipOwVlRIs/T7f2Dwn6NjI/AAAAAAAAA8k/k9iyN5FiTyw/s1600-h/daftar-1%25255B5%25255D.png"><img style="background-image: none; border-right-width: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px; padding-top: 0px" title="Daftar webhost" border="0" alt="Daftar webhost" src="http://lh3.ggpht.com/-txRUVcymgBk/T7f2J0IY0nI/AAAAAAAAA8s/Obcps5XSvb8/daftar-1_thumb%25255B3%25255D.png?imgmax=800" width="240" height="235" /></a></p><p>3. Lalu kalian akan dibawa menuju pengisian formulir pendaftarannya,isikan sesuai dengan ketentuannya.</p><p><a href="http://lh3.ggpht.com/-_bOgHQnCAvM/T7f2RVAWz3I/AAAAAAAAA80/XI0DSYcA0pk/s1600-h/daftar-2%25255B4%25255D.png"><img style="background-image: none; border-right-width: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px; padding-top: 0px" title="daftar-2" border="0" alt="daftar-2" src="http://lh6.ggpht.com/-Jsl_BriXoNk/T7f2WwjTCoI/AAAAAAAAA88/Qxf8k2Qy5Gk/daftar-2_thumb%25255B2%25255D.png?imgmax=800" width="188" height="244" /></a></p><p>4. Jika tahap pengisian formulir selesai, kalian akan menuju halaman berikut</p><p><a href="http://lh4.ggpht.com/-KSoSm2Qk_uI/T7f2dF706kI/AAAAAAAAA9E/l9Qe_NryB5U/s1600-h/daftar-3%25255B7%25255D.png"><img style="background-image: none; border-right-width: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px; padding-top: 0px" title="daftar-3" border="0" alt="daftar-3" src="http://lh5.ggpht.com/-mzqL3VFmVGY/T7f2j2zGxaI/AAAAAAAAA9M/RZQWfeLPbPY/daftar-3_thumb%25255B3%25255D.png?imgmax=800" width="244" height="207" /></a></p><p>5. Selamat kamu sudah berhasil mendaftar di 000webhost, hosting kamu akan aktif dalam 24 jam.</p><p><a href="http://lh4.ggpht.com/-Zxba-a0Au9w/T7f2vVpnW3I/AAAAAAAAA9U/TgixzBAK_Bk/s1600-h/daftar-4%25255B12%25255D.png"><img style="background-image: none; border-right-width: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px; padding-top: 0px" title="daftar-4" border="0" alt="daftar-4" src="http://lh4.ggpht.com/-QwinCmWQMCM/T7f2zY9PGKI/AAAAAAAAA9c/gWEntBAn0KU/daftar-4_thumb%25255B10%25255D.png?imgmax=800" width="244" height="104" /></a></p><p>*Sambil nunggu proses selesai (24jam) kurang lebih, mending kalian baca-baca artikel di indrawan21.com dulu aja deh yah <img style="border-bottom-style: none; border-left-style: none; border-top-style: none; border-right-style: none" class="wlEmoticon wlEmoticon-openmouthedsmile" alt="Open-mouthed smile" src="http://lh5.ggpht.com/-Xi0d9FPo8bg/T7f223c2cOI/AAAAAAAAA9k/pLaR6LaNdO4/wlEmoticon-openmouthedsmile%25255B2%25255D.png?imgmax=800" /></p><p> </p><p><strong>Setelah 24jam</strong></p><p>Buka kembali halaman 000webhost,dan login dengan username yang kalian daftarkan kemarin.</p><p><a href="http://lh5.ggpht.com/-Sz_H6F5mDMc/T7f27xyi9CI/AAAAAAAAA9s/exCXrrZ0aFw/s1600-h/daftar-5%25255B2%25255D.png"><img style="background-image: none; border-right-width: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px; padding-top: 0px" title="daftar-5" border="0" alt="daftar-5" src="http://lh3.ggpht.com/-pE_x4aE3-WM/T7f3A1FEpkI/AAAAAAAAA90/mI-ffh26L5g/daftar-5_thumb.png?imgmax=800" width="244" height="207" /></a></p><p>Tanda tersebut sudah berubah menjadi “<strong>Go To CPanel</strong>”…</p><p>Proses pendaftaran pada 000webhost.com sampai disini sudah selesai,selanjutnya kalian tinggal meng-upload website kalian dari CPanel tsb, selain itu juga kalian dapat menggunakan tools File Transfer Protokol seperti FileZilla,dll.</p><p align="center"><strong><font color="#0000ff"><img style="border-bottom-style: none; border-left-style: none; border-top-style: none; border-right-style: none" class="wlEmoticon wlEmoticon-smile" alt="Smile" src="http://lh3.ggpht.com/-0xtzAezYX2M/T7f3E_XwrGI/AAAAAAAAA98/YrAd6lqYvuA/wlEmoticon-smile%25255B2%25255D.png?imgmax=800" />Semoga Bermanfaat <img style="border-bottom-style: none; border-left-style: none; border-top-style: none; border-right-style: none" class="wlEmoticon wlEmoticon-smile" alt="Smile" src="http://lh3.ggpht.com/-0xtzAezYX2M/T7f3E_XwrGI/AAAAAAAAA98/YrAd6lqYvuA/wlEmoticon-smile%25255B2%25255D.png?imgmax=800" /></font></strong></p><hr /><p>Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like show_faces="false" send="false" layout="button_count" href="" font=""></fb:like><a href="http://www.facebook.com/sharer.php" type="button_count" name="fb_share">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script> </p><div style="border-bottom: rgb(204,204,204) 1px solid; background-color: white; width: 600px; display: none; overflow: hidden; border-top: rgb(204,204,204) 1px solid" id="TICKER" onmouseover="TICKER_PAUSED=true" onmouseout="TICKER_PAUSED=false"><span style="background-color: #7fb51a">    <span style="color: white"><b>Syarat Tukar Link/Banner</b></span>    </span>  <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b>  <span style="background-color: #ffaa00">    <span style="color: white"><b>Terdaftar</b></span>    </span>  <b>Terdapat meta tag search engine pada template.</b>  <span style="background-color: #0088ff">    <b><span style="color: white">Terindeks</span></b>    </span>  <b>Halaman blog muncul pada hasil pencarian Google... </b>  </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script> <hr />Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-52257771387824548432012-05-18T21:37:00.000-07:002012-06-05T11:11:58.052-07:00Cyber Crime di dalam TI<div dir="ltr" style="text-align: left;" trbidi="on"><div style="text-align: justify;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuVXwR2JWBKzXc6whWfiIHtUygU2wsemklaTtKvv-H8fw4XBhW_2z7IWQTDUmFlO6bV2qwZBWGRe3S6-D4JaKAySd4OFdGQVMd0mGTKyWhsSccIO4mxp0VK6HU8KzjLTH6-J2fAVLVastt/s1600/grafisbukangratis_200.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/AVvXsEjuVXwR2JWBKzXc6whWfiIHtUygU2wsemklaTtKvv-H8fw4XBhW_2z7IWQTDUmFlO6bV2qwZBWGRe3S6-D4JaKAySd4OFdGQVMd0mGTKyWhsSccIO4mxp0VK6HU8KzjLTH6-J2fAVLVastt/s1600/grafisbukangratis_200.gif" /></a></div><b>Kejahatan dunia maya</b> atau bahasa Inggrisnya “<b>cybercrime</b>” <b>adalah</b> istilah yang mengacu kepada aktivitas kejahatan dengan komputer atau jaringan komputer menjadi alat, sasaran atau tempat terjadinya kejahatan. Sudah tak asing lagi di zaman TI (teknologi Informasi) tindakan kejahatan dunia maya yang kini telah merembet ke dunia real. Sesungguhnya sebagai media, TI memberikan sejuta manfaat dan kemudahan kepada pemakainya. Namun juga mengundang ekses negatif, dalam berbagai tindak kejahatan yang menggloblal. </div><div style="text-align: justify;"><br /></div><div style="text-align: justify;">Contoh seperti <b>spamming</b> (menyebar sampah), <b>pelangaran hak cipta</b> dan <b>kekayaan intelektual</b>, <b>pengaksesan ilegal</b> (mengelabui kontrol akses) seperti menyebar malware dan serangan DoS, <b>penipuan identitas</b>, <b>pornografi</b> anak dan <b>judi online</b>. Yang semua bersumber karena kemudahan media komunikasi yang semakin hari semakin berkembang.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>Karakteristik Cybercrime</b></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;">Selama ini dalam kejahatan konvensional, dikenal adanya dua jenis kejahatan sebagai berikut:</div><div style="text-align: justify;">Kejahatan kerah biru (blue collar crime)</div><div style="text-align: justify;">jenis kejahatan atau tindak kriminal yang dilakukan secara konvensional seperti misalnya perampokkan, pencurian, pembunuhan dan lain-lain.</div><div style="text-align: justify;">Kejahatan kerah putih (white collar crime)</div><div style="text-align: justify;">Kejahatan jenis ini memiliki empat kelompok kejahatan, yakni kejahatan korporasi, kejahatan birokrat, malpraktek, dan kejahatan individu.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>Jenis Cybercrime</b></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;">Berdasarkan jenis aktifitas yang dilakukannya, cybercrime dapat digolongkan menjadi beberapa jenis sebagai berikut:</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>a. <u>Unauthorized Access</u></b></div><div style="text-align: justify;">kejahatan yang terjadi ketika seseorang memasuki atau menyusup ke dalam suatu sistem jaringan komputer secara tidak sah, tanpa izin, atau tanpa sepengetahuan dari pemilik sistem jaringan komputer yang dimasukinya. Probing dan port merupakan contoh kejahatan ini.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>b. <u>Illegal Contents</u></b></div><div style="text-align: justify;">kejahatan yang dilakukan dengan memasukkan data atau informasi ke internet tentang suatu hal yang tidak benar, tidak etis, dan dapat dianggap melanggar hukum atau menggangu ketertiban umum, contohnya adalah penyebaran pornografi.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>c. <u>Penyebaran virus secara sengaja</u></b></div><div style="text-align: justify;">Penyebaran virus pada umumnya dilakukan dengan menggunakan email. Sering kali orang yang sistem emailnya terkena virus tidak menyadari hal ini. Virus ini kemudian dikirimkan ke tempat lain melalui emailnya.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>d. <u>Data Forgery</u></b></div><div style="text-align: justify;">Kejahatan yang dilakukan dengan tujuan memalsukan data pada dokumen-dokumen penting yang ada di internet. Dokumen-dokumen ini biasanya dimiliki oleh institusi atau lembaga yang memiliki situs berbasis web database.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>e. <u>Cyber Espionage, Sabotage, and Extortion</u></b></div><div style="text-align: justify;">Cyber Espionage merupakan kejahatan yang memanfaatkan jaringan internet untuk melakukan kegiatan mata-mata terhadap pihak lain, dengan memasuki sistem jaringan komputer pihak sasaran.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>f. <u>Cyberstalking</u></b></div><div style="text-align: justify;">Kejahatan jenis ini dilakukan untuk mengganggu atau melecehkan seseorang dengan memanfaatkan komputer.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>g. <u>Carding</u></b></div><div style="text-align: justify;">Carding merupakan kejahatan yang dilakukan untuk mencuri nomor kartu kredit milik orang lain dan digunakan dalam transaksi perdagangan di internet.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>h. <u>Hacking dan Cracker</u></b></div><div style="text-align: justify;">Istilah hacker biasanya mengacu pada seseorang yang punya minat besar untuk mempelajari sistem komputer secara detail dan bagaimana meningkatkan kapabilitasnya. Adapun mereka yang sering melakukan aksi-aksi perusakan di internet lazimnya disebut cracker. Boleh dibilang cracker ini sebenarnya adalah hacker yang yang memanfaatkan kemampuannya untuk hal-hal yang negatif.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>i. <u>Cybersquatting and Typosquatting</u></b></div><div style="text-align: justify;">Cybersquatting merupakan kejahatan yang dilakukan dengan mendaftarkan domain nama perusahaan orang lain dan kemudian berusaha menjualnya kepada perusahaan tersebut dengan harga yang lebih mahal.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>j. <u>Hijacking</u></b></div><div style="text-align: justify;">Hijacking merupakan kejahatan melakukan pembajakan hasil karya orang lain.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b>k. <u>Cyber Terorism</u></b></div><div style="text-align: justify;">Suatu tindakan cybercrime termasuk cyber terorism jika mengancam pemerintah atau warganegara, termasuk cracking ke situs pemerintah atau militer. </div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><br /></div><blockquote><div style="text-align: justify;">Referensi:</div><div style="text-align: justify;">http://id.wikipedia.org/wiki/Kejahatan_dunia_maya</div><div style="text-align: justify;">http://laluilmi.blogspot.com/2010/05/modus-modus-kejahatan-dalam-it.html</div></blockquote><hr style="text-align: justify;" /><div style="text-align: justify;">Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script></div><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr style="text-align: justify;" /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-7840185369648497492012-05-18T03:23:00.000-07:002012-06-05T11:11:58.084-07:00Mengatur Posisi Form MDI Child<div dir="ltr" style="text-align: left;" trbidi="on">Pada sebagian besar orang atau programer melupakan fitur yang satu ini.Fitur ini diperlukan untuk menata <b>posisi</b> form-form <b>MDI CHILD</b> jika dalam pembuatan aplikasi menggunakan<b> form MDI</b> untuk menu utama nya.<br />Fitur yang dimaksud adalah fitur dimana posisi form-form mdichild tersusun rapih pada form utamanya,berikut tampilannya dan juga listing untuk menatanya.<br />Selain itu juga saya lampirkan listing untuk VB.NET juga...<br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaUAbWWEonkJiouuw5UC6Ihqjc7bmPdsPwBORD-mTAOLGx4j2yKWa31nOR_KUgq1d3j9nzMacu6Evzgkg632LhMSAG2azf7T6XfKsjHW79QKwBy92Di8f4oSHhsMALBEQSaRdL7qQ8tq4/s1600/c3.jpg" style="color: #3366cc; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial; text-decoration: none;" target="_blank"><img height="150" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaUAbWWEonkJiouuw5UC6Ihqjc7bmPdsPwBORD-mTAOLGx4j2yKWa31nOR_KUgq1d3j9nzMacu6Evzgkg632LhMSAG2azf7T6XfKsjHW79QKwBy92Di8f4oSHhsMALBEQSaRdL7qQ8tq4/s1600/c3.jpg" style="background-attachment: scroll; background-clip: initial; background-color: #eeeeee; background-image: none; background-origin: initial; background-position: 0px 0px; background-repeat: repeat repeat; border-bottom-color: rgb(221, 221, 221); border-bottom-style: solid; border-bottom-width: 1px; border-image: initial; border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(221, 221, 221); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(221, 221, 221); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; max-width: 99%; padding-bottom: 5px; padding-left: 5px; padding-right: 5px; padding-top: 5px;" width="300" /></a></div><br /><br />Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.<br /><ul><li><b>Cascade</b><br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxUlO_XPYesf9rFvndQBp4jWhLnzbedhcsqYkKDAHWnoD_jU2CzpYBhWRpOh3o6K59JhMJYlChKHl8VrwZvl-kpRCx5uMJQFR6yt0tZfo81EDPPXELVKSKwwjQZ8F6FCfFLal33jsrUn8/s1600/c1.jpg" style="color: #3366cc; outline-color: initial; outline-style: none; outline-width: initial; text-decoration: none;" target="_blank"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxUlO_XPYesf9rFvndQBp4jWhLnzbedhcsqYkKDAHWnoD_jU2CzpYBhWRpOh3o6K59JhMJYlChKHl8VrwZvl-kpRCx5uMJQFR6yt0tZfo81EDPPXELVKSKwwjQZ8F6FCfFLal33jsrUn8/s1600/c1.jpg" style="background-attachment: scroll; background-clip: initial; background-color: #eeeeee; background-image: none; background-origin: initial; background-position: 0px 0px; background-repeat: repeat repeat; border-bottom-color: rgb(221, 221, 221); border-bottom-style: solid; border-bottom-width: 1px; border-image: initial; border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(221, 221, 221); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(221, 221, 221); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; max-width: 99%; padding-bottom: 5px; padding-left: 5px; padding-right: 5px; padding-top: 5px;" /></a></li></ul><blockquote>Kode :<br />[ VB 6.0 ] <span style="background-color: #ffffcc;">Me.Arrange vbCascade</span><br />[ VB .NET ] <span style="background-color: #ffffcc;">Me.LayoutMdi(MdiLayout.Cascade)</span></blockquote><ul><li><b>Tile Horizontal</b><br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgT6Wn-X4BUWCwVu2rJWwVEI4pTPvL5VubT4QnWeLlEPjQFkszotuFwNJFBIrSVzjPDyJc2IJqB6ApDgPOK-YVnB5QllSpmT3OYBHNRmsXce6rrz_VYMR5qne_D65bHtnBGWo7JLStJ7QI/s1600/c2.jpg" style="color: #3366cc; outline-color: initial; outline-style: none; outline-width: initial; text-decoration: none;" target="_blank"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgT6Wn-X4BUWCwVu2rJWwVEI4pTPvL5VubT4QnWeLlEPjQFkszotuFwNJFBIrSVzjPDyJc2IJqB6ApDgPOK-YVnB5QllSpmT3OYBHNRmsXce6rrz_VYMR5qne_D65bHtnBGWo7JLStJ7QI/s1600/c2.jpg" style="background-attachment: scroll; background-clip: initial; background-color: #eeeeee; background-image: none; background-origin: initial; background-position: 0px 0px; background-repeat: repeat repeat; border-bottom-color: rgb(221, 221, 221); border-bottom-style: solid; border-bottom-width: 1px; border-image: initial; border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(221, 221, 221); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(221, 221, 221); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; max-width: 99%; padding-bottom: 5px; padding-left: 5px; padding-right: 5px; padding-top: 5px;" /></a></li></ul><blockquote>Kode :<br />[ VB 6.0 ] <span style="background-color: #ffffcc;">Me.Arrange vbTileHorizontal</span><br />[ VB .NET ] <span style="background-color: #ffffcc;">Me.LayoutMdi(MdiLayout.TileHorizontal)</span></blockquote><ul><li><b>Tile Vertical</b><br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaUAbWWEonkJiouuw5UC6Ihqjc7bmPdsPwBORD-mTAOLGx4j2yKWa31nOR_KUgq1d3j9nzMacu6Evzgkg632LhMSAG2azf7T6XfKsjHW79QKwBy92Di8f4oSHhsMALBEQSaRdL7qQ8tq4/s1600/c3.jpg" style="color: #3366cc; outline-color: initial; outline-style: none; outline-width: initial; text-decoration: none;" target="_blank"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaUAbWWEonkJiouuw5UC6Ihqjc7bmPdsPwBORD-mTAOLGx4j2yKWa31nOR_KUgq1d3j9nzMacu6Evzgkg632LhMSAG2azf7T6XfKsjHW79QKwBy92Di8f4oSHhsMALBEQSaRdL7qQ8tq4/s1600/c3.jpg" style="background-attachment: scroll; background-clip: initial; background-color: #eeeeee; background-image: none; background-origin: initial; background-position: 0px 0px; background-repeat: repeat repeat; border-bottom-color: rgb(221, 221, 221); border-bottom-style: solid; border-bottom-width: 1px; border-image: initial; border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(221, 221, 221); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(221, 221, 221); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; max-width: 99%; padding-bottom: 5px; padding-left: 5px; padding-right: 5px; padding-top: 5px;" /></a></li></ul><blockquote>Kode :<br />[ VB 6.0 ] <span style="background-color: #ffffcc;">Me.Arrange vbTileVertical</span><br />[ VB .NET ] <span style="background-color: #ffffcc;">Me.LayoutMdi(MdiLayout.TileVertical)</span></blockquote><br /><br />Untuk mempermudah User untuk menggunakannya, Anda bisa membuat menu khusus seperti ini :<br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCg8DXC1j7731XzYPeVCjBJxlqpw-M-HzgKkhmQHG2cJUkfpm-cioI46texgXDLkGpIkSARMhYFNtPibZg3BC4KyS2dPV3LPwz7zuuOf0ZkK3REgHtpuLqQgwWItvzHHs07vcmEovHoH8/s1600/c4.JPG" style="background-color: white; color: #3366cc; font-family: Arial, Verdana; font-size: 14px; line-height: 20px; outline-color: initial; outline-style: none; outline-width: initial; text-decoration: none;" target="_blank"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCg8DXC1j7731XzYPeVCjBJxlqpw-M-HzgKkhmQHG2cJUkfpm-cioI46texgXDLkGpIkSARMhYFNtPibZg3BC4KyS2dPV3LPwz7zuuOf0ZkK3REgHtpuLqQgwWItvzHHs07vcmEovHoH8/s1600/c4.JPG" style="background-attachment: scroll; background-clip: initial; background-color: #eeeeee; background-image: none; background-origin: initial; background-position: 0px 0px; background-repeat: repeat repeat; border-bottom-color: rgb(221, 221, 221); border-bottom-style: solid; border-bottom-width: 1px; border-image: initial; border-left-color: rgb(221, 221, 221); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(221, 221, 221); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(221, 221, 221); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; max-width: 99%; padding-bottom: 5px; padding-left: 5px; padding-right: 5px; padding-top: 5px;" /></a><br /><br /><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-81135471276055483092012-05-16T09:20:00.000-07:002012-06-05T11:11:58.092-07:00Web Flash Tugas Eptik<div dir="ltr" style="text-align: left;" trbidi="on"><div dir="ltr" style="text-align: left;" trbidi="on">Baru beberapa waktu kemarin,dari tanggal artikel ini di buat (16-Mei-2012) allhamdulillah sudah terlaksana tugas dari ibu dosen kampus yang menginginkan dalam memenuhi nilai matakuliah Etika Profesi Teknologi Informasi (<b>EPTIK</b>) dengan membuat persentasi mengenai cyber crime dan cyber law.<br />Dalam persentasi tersebut saya diwajibkan membuat sebuah website pula dengan tema cyber crime dan cyber law,yg kebetulan saya memilih tema mengenai <b>Kejahatan Pembajakan Software </b>dan untuk salah satu persentasinya telah saya buat sebuah file flash, maksud ingin membuat sesuatu yg berbeda dengan manyajikan persentasi menggunakan flash.dan website nya pun menggunakan basis nya flash(web flash).<br />Untuk bentuk dari persentasinya bisa kalian download contoh persentasi kami (<a href="http://dl.dropbox.com/u/25942952/Deni.Indrawan/EPTIK%20KELOMPOK%202.swf">download persentasi flash</a>).<br />Dan bagi kalian yang ingin sekedar melihat bentuk tampilan web flash dari kami,kalian dapat mengunjungi link ( <a href="http://bsi-bekasi.co.cc/" target="_blank">bsi-bekasi.co.cc</a> ).<br />Karena tema kami adalah <b>pembajakan mengenai software</b>,dan untuk <b>menekan angka pembajakan</b> itu sendiri,di sini kami akan membuat web tugas kami tersebut menjadi <b>Opensource.</b>Dimana kalian dapat memiliki source dari website kami tsb,dan bebas mengembangkan source tsb,namun jika berkenan kalian cantumkan asal dari kalian mendaptkan source tsb (walau hanya link ke web saya ini).<br />Bagi kalian yang sudah mengunjungi website tugas kami yang tersebut diatas,silahkan kalian kirim email kalian ke e-mail saya di Gmail.Atau dengan meninggalkan komentar dan mencantumkan email kalian di kolom komentar,tenang saja.source saya berikan secara GRATIS tanpa meminta imbalan apapun.<br /><div style="text-align: center;"><span style="color: blue;"><b>Semoga bermanfaat :)</b></span></div><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://indrawan21.mobie.in/js/webticker.js" type="text/javascript"></script><br /><hr /></div><br /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-65291413048488113452012-05-11T09:58:00.000-07:002012-06-05T11:11:58.072-07:00Menampilkan Data Ke Samping di PHP<div dir="ltr" style="text-align: left;" trbidi="on">Huft . . . Akhirnya selesai sudah menyelesaikan tantangan dari salah satu teman di kampus.<br />Dia bertanya tentang menampilkan data dari database menggunakan php, yang menariknya adalah biasanya data yang ditampilkan berulang kebawah, namun kali ini ia ingin data yang ditampilkan berulang kesamping.<br />Nah bagaimana cara menampilkan data kesamping secara berulang???<br />OK,langsung aja kita buat studi kasus disini,dimana kalian buat satubuah database, dan satu buah table (misal:barang).<br />Struktur table sbb :<br /><table border="1"><thead><tr> <th id="th2">Field</th> <th id="th3">Type</th> </tr></thead> <tbody><tr class="odd"> <th nowrap="nowrap"><label for="checkbox_row_1"><u>idbarang</u></label></th> <td nowrap="nowrap">char(12)<bdo dir="ltr"></bdo></td> </tr><tr class="even"> <th nowrap="nowrap"><label for="checkbox_row_2">nmbarang</label></th> <td nowrap="nowrap">varchar(100)<bdo dir="ltr"></bdo></td> </tr><tr class="odd"> <th nowrap="nowrap"><label for="checkbox_row_3">deskripsi</label></th> <td nowrap="nowrap">text<bdo dir="ltr"></bdo></td> </tr><tr class="even"> <th nowrap="nowrap"><label for="checkbox_row_4">harga</label></th> <td nowrap="nowrap">int(11)<bdo dir="ltr"></bdo></td> </tr><tr class="odd"> <th nowrap="nowrap"><label for="checkbox_row_5">stok</label></th> <td nowrap="nowrap">int(11)<bdo dir="ltr"></bdo></td> </tr><tr class="even"> <th nowrap="nowrap"><label for="checkbox_row_6">nmgambar</label></th> <td nowrap="nowrap">varchar(100)<bdo dir="ltr"></bdo></td> </tr></tbody> </table><br />Lalu kalian buatlah satu file untuk koneksi nya:<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c" start="1"><li class="alt"><?php </li><li class=""><span class="vars">$server</span> = <span class="string">"localhost"</span>; </li><li class="alt"><span class="vars">$username</span> = <span class="string">"root"</span>; </li><li class=""><span class="vars">$password</span> = <span class="string">"password"</span>; </li><li class="alt"><span class="vars">$database</span> = <span class="string">"nim_mhs"</span>; </li><li class=""> </li><li class="alt"><span class="comment">// Koneksi dan memilih database di server</span> </li><li class="">mysql_connect(<span class="vars">$server</span>,<span class="vars">$username</span>,<span class="vars">$password</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"Koneksi gagal"</span>); </li><li class="alt">mysql_select_db(<span class="vars">$database</span>) <span class="keyword">or</span> <span class="keyword">die</span>(<span class="string">"Database tidak bisa dibuka"</span>); </li><li class=""><span class="vars">$koneksi</span>=mysql_connect(<span class="vars">$server</span>, <span class="vars">$username</span>, <span class="vars">$password</span>) </li><li class="alt">?> </li></ol></div><br />Setelah kalian buat database dan table nya,sekarang saatnya membuat file tampil_barang.php nya.<br />Saat ini saya akan membuat dua versi untuk menampilkan datanya, versi pertama adalah dengan menampilkan data kebawah seperti biasa, dan kdua menampilkan data kesamping seperti permintaan teman saya ini.<br /><br />Kasus pertama (Menampilkan data ke bawah):<br />Script<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c" start="1"><li class="alt"><p><strong>DATA BARANG</strong></p> </li><li class=""> <br> </li><li class="alt"><table width=<span class="string">"100%"</span> border=<span class="string">"1"</span>> </li><li class=""> <tr bgcolor=<span class="string">"#99FF00"</span>> </li><li class="alt"> <th>NOMOR</th> </li><li class=""> <th>ID BARANG</th> </li><li class="alt"> <th>NAMA BARANG </th> </li><li class=""> <th>DESKRIPSI</th> </li><li class="alt"> <th>HARGA BARANG</th> </li><li class=""> <th>STOK BARANG</th> </li><li class="alt"> <th>AKSI</th> </li><li class=""></tr> </li><li class="alt"><?php </li><li class=""> <span class="keyword">include</span> <span class="string">"koneksi.php"</span>; </li><li class="alt"> <span class="vars">$no</span>=1; </li><li class=""> <span class="vars">$tampil</span> = mysql_query(<span class="string">"SELECT * FROM barang order by idbarang"</span>); </li><li class="alt"> <span class="keyword">while</span>(<span class="vars">$r</span>=mysql_fetch_array(<span class="vars">$tampil</span>)){ </li><li class=""> <span class="func">echo</span><span class="string">"</span> </li><li class="alt"><span class="string"> <tr></span> </li><li class=""><span class="string"> <td>$no</td></span> </li><li class="alt"><span class="string"> <td>$r[0]</td></span> </li><li class=""><span class="string"> <td>$r[1]</td></span> </li><li class="alt"><span class="string"> <td>$r[2]</td></span> </li><li class=""><span class="string"> <td>$r[3]</td></span> </li><li class="alt"><span class="string"> <td>$r[4]</td></span> </li><li class=""><span class="string"> <td></span> </li><li class="alt"><span class="string"> <a href='detailbarang.php?idbarang=$r[0]'>DETAIL</a></span> </li><li class=""><span class="string"> <a href='editbarang.php?idbarang=$r[0]'>EDIT</a></span> </li><li class="alt"><span class="string"> <a href='hapusbarang.php?idbarang=$r[0]'>HAPUS</a></span> </li><li class=""><span class="string"> </td> </span> </li><li class="alt"><span class="string"> </tr>"</span>; </li><li class=""> <span class="vars">$no</span>++; </li><li class="alt"> } </li><li class="">?> </li><li class="alt"></table> </li><li class=""><a href=<span class="string">"formbarang.php"</span>>Input Data Produk lagi ...</a> </li></ol></div>Hasilnya akan tampil sbb:<br /><strong>DATA BARANG</strong><br /><br /><br /><table border="1"><tbody><tr bgcolor="#99FF00"> <th>NOMOR</th> <th>ID BARANG</th> <th>NAMA BARANG </th> <th>DESKRIPSI</th> <th>HARGA BARANG</th> <th>STOK BARANG</th> <th>AKSI</th> </tr><tr> <td>1</td> <td>2121</td> <td>barang2</td> <td>isi dari deskripsi barang ke 2</td> <td>25000</td> <td>25</td> <td><br /><a href="http://www.blogger.com/">DETAIL</a><br /><a href="http://www.blogger.com/">EDIT</a><br /><a href="http://www.blogger.com/">HAPUS</a></td> </tr><tr> <td>2</td> <td>BR002</td> <td>LANGKAH MASTER TI PHP</td> <td>KARYA LUKMANUL HAKIM</td> <td>50000</td> <td>20</td> <td><br /><a href="http://www.blogger.com/">DETAIL</a><br /><a href="http://www.blogger.com/">EDIT</a><br /><a href="http://www.blogger.com/">HAPUS</a></td> </tr></tbody></table><a href="http://www.blogger.com/">Input Data Produk lagi ...</a><br /><hr />Lalu kasus kedua yaitu menampilkan data kesamping:<br />Script<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c" start="1"><li class="alt"><p><strong>DATA BARANG</strong></p> </li><li class=""> <br> <table height=<span class="string">"91"</span> border=<span class="string">"0"</span>> </li><li class="alt"> <tr><td> </li><li class=""><table width=<span class="string">"100%"</span> border=<span class="string">"0"</span>> </li><li class="alt"> <tr> </li><li class=""> <td bgcolor=<span class="string">'#99FF00'</span>>NOMOR</td> </li><li class="alt"> </tr> </li><li class=""> <tr> </li><li class="alt"> <td>ID BARANG</td> </li><li class=""> </tr> </li><li class="alt"> <tr> </li><li class=""> <td bgcolor=<span class="string">'#99FF00'</span>>NAMA BARANG </td> </li><li class="alt"> </tr> </li><li class=""> <tr> </li><li class="alt"> <td>DESKRIPSI</td> </li><li class=""> </tr> </li><li class="alt"> <tr> </li><li class=""> <td bgcolor=<span class="string">'#99FF00'</span>>HARGA BARANG</td> </li><li class="alt"> </tr> </li><li class=""> <tr> </li><li class="alt"> <td>STOK BARANG</td> </li><li class=""> </tr> </li><li class="alt"> <tr> </li><li class=""> <td bgcolor=<span class="string">'#99FF00'</span>>AKSI</td> </li><li class="alt"> </tr> </li><li class=""></table></td> </li><li class="alt"><?php </li><li class=""> <span class="keyword">include</span> <span class="string">"koneksi.php"</span>; </li><li class="alt"> <span class="vars">$no</span>=1; </li><li class=""> <span class="vars">$tampil</span> = mysql_query(<span class="string">"SELECT * FROM barang order by idbarang"</span>); </li><li class="alt"> <span class="keyword">while</span>(<span class="vars">$r</span>=mysql_fetch_array(<span class="vars">$tampil</span>)){ </li><li class=""> <span class="func">echo</span><span class="string">"<td><table border='0'><tr></span> </li><li class="alt"><span class="string"> <td bgcolor='#99FF00'>$no</td></tr><tr></span> </li><li class=""><span class="string"> <td>$r[0]</td></tr><tr></span> </li><li class="alt"><span class="string"> <td bgcolor='#99FF00'>$r[1]</td></tr><tr></span> </li><li class=""><span class="string"> <td>$r[2]</td></tr><tr></span> </li><li class="alt"><span class="string"> <td bgcolor='#99FF00'>$r[3]</td></tr><tr></span> </li><li class=""><span class="string"> <td>$r[4]</td></tr><tr></span> </li><li class="alt"><span class="string"> <td bgcolor='#99FF00'></span> </li><li class=""><span class="string"> <a href='detailbarang.php?idbarang=$r[0]'>DETAIL</a></span> </li><li class="alt"><span class="string"> <a href='editbarang.php?idbarang=$r[0]'>EDIT</a></span> </li><li class=""><span class="string"> <a href='hapusbarang.php?idbarang=$r[0]'>HAPUS</a></span> </li><li class="alt"><span class="string"> </td></tr></table></td> </span> </li><li class=""><span class="string"> "</span>; </li><li class="alt"> <span class="vars">$no</span>++; </li><li class=""> } </li><li class="alt">?> </li><li class=""></tr></table> </li><li class="alt"><a href=<span class="string">"formbarang.php"</span>>Input Data Produk lagi ...</a> </li></ol></div>Dan Hasilnya:<br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixkgeEkgDKuzG5OiQRKEMBPN5XZBZBnk1G2tHOMJmk1jXC65wU_vG8U9c7qCi_tVL2-HczITXTvQPkNXjwrRaei-IJVMsH_D3VP3cSxeAKS3-SiJgXSEdGDWbNEdODvFs7ot-LsCrm41Q3/s1600/menampilkan+data+php.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixkgeEkgDKuzG5OiQRKEMBPN5XZBZBnk1G2tHOMJmk1jXC65wU_vG8U9c7qCi_tVL2-HczITXTvQPkNXjwrRaei-IJVMsH_D3VP3cSxeAKS3-SiJgXSEdGDWbNEdODvFs7ot-LsCrm41Q3/s400/menampilkan+data+php.png" width="400" /></a></div><hr />Dari hasil perbandingan diatas dapat kita lihat perbedaan pada struktur tampilannya,pada file yg pertama (menampilkan kebawah) hanya berbentuk satu buah table.<br />Namun pada file kedua(menampilkan kesamping) terdapat beberapa table untuk mengatur layout dari tampilan data nya...<br />Saya rasa cukup jelas sampai sini untuk penjelasannya,jika masih ada yang belum di fahami.silahkan tinggalkan komentar kalian.<br /><div style="text-align: center;"><b><i><span style="color: blue;">Semoga bermanfaat :)</span></i></b></div><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-4812865755508115402012-05-11T05:29:00.000-07:002012-06-05T11:11:58.043-07:00Srcollable Gallery Image with Jquery<div dir="ltr" style="text-align: left;" trbidi="on"><div style="text-align: justify;">Semenjak lagi musim Tugas Akhir, banyak pertanyaan dan permintaan baik langsung atau pun online.</div><div style="text-align: justify;">Tapi saya disini slalu menyarankan agar request dng meninggalkan pesan di web,karena supaya ga kelupaan kalo udah ada permintaan :D</div><div style="text-align: justify;">Kali ini mengenai design web atau yg tenar dengan web design.</div><div style="text-align: justify;">Buat kalian yang masih butuh akan inspirasi untuk web design, saya berikan sedikit untuk design image atau gambar-gambar pada gallery kalian.Selain itu juga artikel ini request dari kolom request di <a href="http://www.facebook.com/l.php?u=http%3A%2F%2Fwww.indrawan21.com%2F2011%2F12%2Frequest-disini.html%3Ffb_comment_id%3Dfbc_10150694685508620_22707719_10150889304543620&h=9AQFZzdA1" target="_blank">sini</a>.</div><div style="text-align: justify;">Design kali ini dinamakan dengan Scrollable Gallery Image, tentunya dengan efek jquery untuk mempercanti tampilannya ^.^</div><div style="text-align: justify;">Untuk penampakannya silahkan dilihat:</div><div style="text-align: justify;"><br /></div><table cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgc9mq2pmOygxRE-4f35DF_Xe5G1qNpd0vRMsrGhIJVzQMXXJhdPXaI1hN7WLKDz1ia5C5vGHYbAMRguNPkkrmbd2EAY1yJZ-qnKmquiVIXu8WfoklUNJrGo9mN4pdnIvaHicnnKjFTJ0Fi/s1600/gallery-jqery.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="59" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgc9mq2pmOygxRE-4f35DF_Xe5G1qNpd0vRMsrGhIJVzQMXXJhdPXaI1hN7WLKDz1ia5C5vGHYbAMRguNPkkrmbd2EAY1yJZ-qnKmquiVIXu8WfoklUNJrGo9mN4pdnIvaHicnnKjFTJ0Fi/s320/gallery-jqery.png" width="320" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Gallery-jquery 1</td></tr></tbody></table><div style="text-align: justify;"><br /></div><table cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6T2HOaG5cResWGKZ-xFO8hkYtVQTNp3tdtivQR1XBKe0evTRbS6U5W_TEyur9TgkQtZb8GUwvugwHyTKDT90_4fm3cZsbD_wsmZS7eG6o1UaqZD5GPePaGIC7A5izXMHpeJJaEtnZkNrL/s1600/gallery-jquery2.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="91" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6T2HOaG5cResWGKZ-xFO8hkYtVQTNp3tdtivQR1XBKe0evTRbS6U5W_TEyur9TgkQtZb8GUwvugwHyTKDT90_4fm3cZsbD_wsmZS7eG6o1UaqZD5GPePaGIC7A5izXMHpeJJaEtnZkNrL/s320/gallery-jquery2.png" width="320" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Gallery Jquery 2 (mouse over)</td></tr></tbody></table><table cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqubUvvP-JgZUgSOUMof-SbZS-a6uCNmkkossZHluk1mK7uCfumq8v7yT7TQecEWE_QOYgRtnIUSh1dt3tf9k6F7KtRAp_IqPfOpMpb8eViyr0btxOoHIkGdayPtTdQtg67tAODieaRjgR/s1600/galler-jquery3.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="161" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqubUvvP-JgZUgSOUMof-SbZS-a6uCNmkkossZHluk1mK7uCfumq8v7yT7TQecEWE_QOYgRtnIUSh1dt3tf9k6F7KtRAp_IqPfOpMpb8eViyr0btxOoHIkGdayPtTdQtg67tAODieaRjgR/s320/galler-jquery3.png" width="320" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Gallery Jquery (Img Klik)</td></tr></tbody></table><div style="text-align: justify;">Nah kira2 seperti penampakan diatas...</div><div style="text-align: justify;">Download langsung ajah source nya,kalo bingung codingnya,silahkan ditanyakan...</div><script type="text/javascript">function confirmation() { var answer = confirm("Tinggalkan Komentar anda atau share jika artikel ini bermanfaat") if (answer){ alert("Terimakasih telah mendownload Srcollable Gallery Image with Jquery") window.location = "http://goo.gl/LI9J3"; } else{ alert("Thanks") } } </script><br /><div style="text-align: justify;">Untuk Download sample project Srcollable Gallery Image with Jquery link ada di tombol bawah ini:</div><form><div style="text-align: justify;"><input onclick="confirmation()" type="button" value="scrollable-gallery-with-tooltips.zip" /><span style="font-family: Arial;"><span style="font-size: 14px; white-space: pre;"> </span></span>| <a href="http://www.indrawan21.com/" target="_blank">Calon Programer</a></div></form><hr style="text-align: justify;" /><div style="text-align: justify;">Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script></div><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr style="text-align: justify;" /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-85057019482360964902012-05-08T10:30:00.000-07:002012-06-05T11:11:58.096-07:00Macam-macam Struktur Navigasi<div dir="ltr" style="text-align: left;" trbidi="on"><div align="justify"><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi</a> digunakan sebagai penuntun alur sebuah aplikasi multimedia atau dapat pula dianalogikan sebagai diagram alur dalam perancangan bahasa pemrograman. <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi</a> berfungsi untuk menggambarkan dengan jelas hubungan dan rantai kerja seluruh elemen yang akan digunakan dalam aplikasi.</div><div align="justify">Dengan penggambaran <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi</a>, pembuatan sebuah aplikasi dapat sistematis dan mudah. Jenis <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi</a> dikelompokkan menjadi 4 struktur yang berbeda yaitu linier, hirarki, non linier dan campuran yang mempunyai perbedaan dalam bentuk rangkaiannya.</div><div align="justify"><br /></div><div align="justify"><b><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur Navigasi Linier</a></b></div><div align="justify">Merupakan struktur yang hanya memiliki 1 rangkaian cerita yang terurut dan tidak diperkenankan adanya percabangan dan cocok digunakan untuk presentasi multimedia yang tidak terlalu membutuhkan interaktifitas.</div><div align="justify"><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Tampilan struktur navigasi linier</a> dapat dilihat pada gambar di bawah ini:</div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://wenythepooh.files.wordpress.com/2011/03/linier.jpg" style="margin-left: auto; margin-right: auto;"><img alt="Struktur Navigasi Linier" border="0" height="59" src="http://lh5.ggpht.com/-tBX7Sc3sNMw/T6fEDW4kM8I/AAAAAAAAA30/n2b_Kbz9hi4/clip_image001%25255B7%25255D.jpg?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="Struktur Navigasi Linier" width="400" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Navigasi Linier</td></tr></tbody></table><div align="justify"></div><div align="justify"><br /></div><div align="justify"><b><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur Navigasi Hirarki</a></b></div><div align="justify"><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi hirarki</a> sering disebut <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">struktur navigasi bercabang</a>, yaitu merupakan suatu struktur yang mengandalkan percabangan untuk menampilkan data atau gambar pada layer dengan kriteria tertentu. Tampilan pada menu utama disebut master page (halaman utama satu), halaman tersebut mempunyai halaman percabangan yang disebut slave page (halaman pendukung) dan jika dipilih akan menjadi halaman kedua, begitu seterusnya. <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Tampilan struktur navigasi hirarki</a> dapat dilihat pada gambar dibawah ini:</div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://wenythepooh.files.wordpress.com/2011/03/hirarki.jpg" style="margin-left: auto; margin-right: auto;"><img alt="Struktur Navigasi Hirarki" border="0" height="165" src="http://lh4.ggpht.com/-BXSt3f1vNcc/T6fEG0_1gEI/AAAAAAAAA38/y9xpauLYwwo/clip_image002%25255B6%25255D.jpg?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="Struktur Navigasi Hirarki" width="400" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Navigasi Hirarki</td></tr></tbody></table><div align="justify"></div><div align="justify"><br /></div><div align="justify"><b><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur Navigasi Non Linier</a></b></div><div align="justify"><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur navigasi non linier (tidak terurut)</a> merupakan pengembangan dari <a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">struktur navigasi</a> linier, hanya saja pada struktur ini diperkenankan untuk membuat percabangan. Percabangan pada struktur non linier berbeda dengan percabangan pada struktur hirarki, pada struktur ini kedudukan semua page sama, sehingga tidak dikenal adanya master atau slave page. Tampilan struktur navigasi non linier dapat dilihat pada gambar dibawah ini:</div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://wenythepooh.files.wordpress.com/2011/03/non-linier.jpg" style="margin-left: auto; margin-right: auto;"><img alt="Struktur Navigasi Non Linier" border="0" height="160" src="http://lh3.ggpht.com/-jcQ5BQk4D64/T6fEJ8NYNTI/AAAAAAAAA4E/9OO2UEW274w/clip_image003%25255B6%25255D.jpg?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="Struktur Navigasi Non Linier" width="400" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Navigasi Non Linear</td></tr></tbody></table><div align="justify"></div><div align="justify"><br /></div><div align="justify"><b><a href="http://www.indrawan21.com/2012/05/macam-macam-struktur-navigasi.html">Struktur Navigasi Campuran (Composit)</a></b></div><div align="justify">Struktur navigasi campuran (composite) merupakan gabungan dari struktur sebelumnya dan disebut juga struktur navigasi bebas, maksudnya adalah jika suatu tampilan membutuhkan percabangan maka dibuat percabangan. Struktur ini paling banyak digunakan dalam pembuatan aplikasi multimedia. Tampilan struktur navigasi campuran dapat dilihat pada gambar di bawah ini:</div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://wenythepooh.files.wordpress.com/2011/03/campuran.jpg" style="margin-left: auto; margin-right: auto;"><img alt="Struktur Navigasi Campuran" border="0" height="118" src="http://lh4.ggpht.com/-slxP8R_RCho/T6fENwqx5qI/AAAAAAAAA4M/m-0aPBHTn3M/clip_image004%25255B3%25255D.jpg?imgmax=800" style="background-image: none; border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="Struktur Navigasi Campuran" width="244" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;">Navigasi Campuran</td></tr></tbody></table><div align="justify"></div><br /><div dir="ltr" style="text-align: left;" trbidi="on"><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script> <br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: rgb(204,204,204) 1px solid; border-top: rgb(204,204,204) 1px solid; display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"><b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"><b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;">Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script> <br /><hr /></div></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com2tag:blogger.com,1999:blog-4967858805924243329.post-57820257094228245042012-05-08T08:34:00.000-07:002012-06-05T11:11:58.059-07:00Sebab-sebab Programer Galau<div dir="ltr" style="text-align: left;" trbidi="on"><div style="text-align: justify;">Siapa bilang Cuma manusia biasa aja yang bisa galau?? Jangan salah jou, para <a href="http://www.blogger.com/post-edit.g?blogID=318628296920687353&postID=3679993172051615127#" target="_blank" title="Programer">programer</a> pun kadang ngerasain galau yang tak terperikan itu. Nih Nyankod kasih tau beberapa hal yang bisa menyebabkan kegalauan para programer.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><strong><a href="http://www.indrawan21.com/2012/05/sebab-sebab-programer-galau.html">Komputer/Laptop Tersayang Rusak</a></strong></div><div style="text-align: justify;">Mendingan ditinggal pacar deh daripada komputer/laptop kesayangan rusak. Apalagi kalo datanya banyak juga menyimpan banyak kenangan. Bayangin jou, dialah yang selalu menemanimu dan mengerti kamu di saat orang lain nggak ada yang mampu mengerti, kini dia pergi meninggalkanmu...</div><div class="separator" style="clear: both; text-align: center;"></div><div style="margin-left: 1em; margin-right: 1em;"><img height="280" src="https://lh3.googleusercontent.com/-yo72ipqyt38/T6D9Bjh47sI/AAAAAAAAACc/q1hxZcKZSdU/s400/nyankomik_2_3.jpg" width="400" /></div><br /><div style="text-align: justify;"></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><strong><a href="http://www.indrawan21.com/2012/05/sebab-sebab-programer-galau.html">Mati Lampu Berkepanjangan</a></strong></div><div style="text-align: justify;">Hidup sendiri itu rasanya nggak enak banget lho. Sepi.... bikin mello hati. Cuma ngelamun ngeliatin langit dan meratapi nasib. Ya itu mungkin terjadi kalo lagi mati lampu. Pokoknya nyebelin banget deh. Rasanya dunia ini sepi sekali. Coba kalo bisa ngeluarin listrik sendiri dari dalam tubuh, pasti nggak bakalan ngerasain kesepian deh. Bisa selalu bersamanya.</div><div class="separator" style="clear: both; text-align: center;"></div><div style="margin-left: 1em; margin-right: 1em;"><img height="380" src="https://lh6.googleusercontent.com/-XxapBHHSPSc/T6D9X3JqzSI/AAAAAAAAACs/flhyjuNTUMM/s400/nyankomik_2_4.jpg" width="400" /></div><br /><div style="text-align: justify;"></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><strong><a href="http://www.indrawan21.com/2012/05/sebab-sebab-programer-galau.html">Error Terus Pas Coding</a></strong></div><div style="text-align: justify;">Yang namanya error pas lagi coding itu hal yang wajar, bisa jadi karena salah ngetik atau salah logikanya. Ya itu wajar banget kok. Dan itu emang hal yang lumrah terjadi. Tapi masalahnya kalo errornya itu terus-terusan, dan nggak tau dimana letak kesalahannya. Hadeeuuuh bikin stress dan super galau. Mau dilanjutin tapi bingung, mau ditinggalin tapi udah tanggung. Akhirnya Cuma bisa meratapi nasib dengan bershower di kamar mandi.</div><div class="separator" style="clear: both; text-align: center;"></div><div style="margin-left: 1em; margin-right: 1em;"><img height="297" src="https://lh6.googleusercontent.com/-DgJnoMeAvko/T6D9UFWJ3xI/AAAAAAAAACk/wO7G1Hb34Ag/s400/nyankomik_2_5.jpg" width="400" /></div><br /><div style="text-align: justify;"></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><strong><a href="http://www.indrawan21.com/2012/05/sebab-sebab-programer-galau.html">Nggak Ada Project</a></strong></div><div style="text-align: justify;">Nggak punya duit emang bikin galau tingkat nasional. Nungguin project yang tak kunjung datang. Kenapa dari sekian banyak project di dunia ini tak ada satu pun yang datang menghampiri. Entah apa yang salah. Tuhaaaaan.......... haruskah aku mengamen di jalan...!!</div><div class="separator" style="clear: both; text-align: center;"></div><div style="margin-left: 1em; margin-right: 1em;"><img height="302" src="https://lh3.googleusercontent.com/-rLgqSILJ9ro/T6EAdkqng6I/AAAAAAAAADI/MsV7kze5NNU/s400/nyankomik_2_1.jpg" width="400" /></div><br /><div style="text-align: justify;"></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><strong><a href="http://www.indrawan21.com/2012/05/sebab-sebab-programer-galau.html">Nggak Ada Koneksi Internet</a></strong></div><div style="text-align: justify;">Internet udah jadi kebutuhan, ya termasuk programer. Entah itu buat nyari referensi, belajar atau paling nggak buat eksis di social media. Dan ketiadaan koneksi internet akan menghasilkan kegalauan tingkat tinggi...</div><div class="separator" style="clear: both; text-align: center;"></div><div style="margin-left: 1em; margin-right: 1em;"><img height="296" src="https://lh5.googleusercontent.com/-5CY3bBIp18k/T6D9A7rhSbI/AAAAAAAAACU/QynTUTHTrek/s400/nyankomik_2_2.jpg" width="400" /></div><br /><div style="text-align: justify;"></div><blockquote><div style="text-align: justify;">Referensi http://www.nyankod.com/blog/2012/05/hal-hal-yang-menyebabkan-kegalauan-programer </div></blockquote><hr style="text-align: justify;" /><div style="text-align: justify;">Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script> </div><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: rgb(204,204,204) 1px solid; border-top: rgb(204,204,204) 1px solid; display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"><b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"><b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;">Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script> </div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-6401882656696253622012-05-06T02:02:00.000-07:002012-06-05T11:11:58.067-07:00Scroll text visual basic<div dir="ltr" style="text-align: left;" trbidi="on">Untuk kalian yang ingin design <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">animasi pada visual basic</a>, ini ada <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">animasi text berjalan</a> atau <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">scrolling text</a>. Mungkin kalian biasa lihat seperti di form about atau di form lainnya.<br />Gimana <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">cara buat scrolling text di visual basic</a>??<br />Cara pertama ada yang menggunakan manual yang membutuhkan satu <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">komponen timer</a>. Tapi kali ini yang akan saya bahas adalah <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">file .ocx</a> khusus untuk <a href="http://www.indrawan21.com/2012/05/scroll-text-visual-basic.html">membuat animasi scrooling text</a>.<br />Lebih mudah dan cepat daripada kalian buat secara manual dengan menggunakan timer.<br />Sample nya :<br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrYSb_pbn9HWfg0AEDfWWyqwGU1aJysIiLd80G5UYZexKFlQ4UdLD7P3mkGLwO_VqQv6N_Y4AxumWQAbuTISCPW-Zy0K1OHWQ60NJcTsvcf8HoBQR0ZPNa3HxF3YKdY5TOGlLD_U82fgqg/s1600/scroll.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="156" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrYSb_pbn9HWfg0AEDfWWyqwGU1aJysIiLd80G5UYZexKFlQ4UdLD7P3mkGLwO_VqQv6N_Y4AxumWQAbuTISCPW-Zy0K1OHWQ60NJcTsvcf8HoBQR0ZPNa3HxF3YKdY5TOGlLD_U82fgqg/s320/scroll.png" width="320" /></a></div>Untuk listing nya :<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Command1_Click() </li><li class=""><span class="comment">'memulai scroll</span> </li><li class="alt">scroltext1.scrolstart </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class="alt"> </li><li class=""><span class="keyword">Private</span> <span class="keyword">Sub</span> Command2_Click() </li><li class="alt"><span class="comment">'menghentikan scroll</span> </li><li class="">scroltext1.scrolstop </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Form_Load() </li><li class="">scroltext1.scrolstart </li><li class="alt">cap = <span class="string">"Contoh text 1"</span> & vbCrLf </li><li class="">cap = cap & <span class="string">"Contoh text 2"</span> & vbCrLf </li><li class="alt">cap = cap & <span class="string">"Contoh text 3"</span> </li><li class="">scroltext1.Caption = cap </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></ol></div>Baris listing diatas itu dari keseluruhan listing dari sample. Dimana dapat kalian lihat untuk animasi scrolling text dapat di mulai dan di hentikan secara manual.<br />Perhatikan listing berikut :<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt">scroltext1.scrolstart <span class="comment">'untuk mulai scroll</span> </li><li class=""> </li><li class="alt">scroltext1.scrolstop <span class="comment">'untuk menghentikan scroll</span> </li></ol></div><br />Lalu untuk menabahkan text yang mau di buat scroll ada pada listing berikut:<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt">cap = <span class="string">"Contoh text 1"</span> & vbCrLf <span class="comment">'vbCrLf perintah untuk pindah baris</span> </li><li class="">cap = cap & <span class="string">"Contoh text 2"</span> & vbCrLf </li><li class="alt">cap = cap & <span class="string">"Contoh text 3"</span> </li><li class="">scroltext1.Caption = cap </li></ol></div><script type="text/javascript">function confirmation() { var answer = confirm("Tinggalkan Komentar anda atau share jika artikel ini bermanfaat") if (answer){ alert("Terimakasih telah mendownload Scrolling Text Calon Programer") window.location = "http://goo.gl/Rs3Hd"; } else{ alert("Thanks") } } </script><br />Untuk Download sample project scrolling text link ada di tombol bawah ini:<br /><form><input onclick="confirmation()" type="button" value="scrollingtext.zip" /><span style="font-family: Arial;"><span style="font-size: 14px; white-space: pre;"> </span></span>| <a href="http://www.indrawan21.com/" target="_blank">Calon Programer</a></form>Semoga bermanfaat :)<br /><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-41998298612432996352012-05-06T00:44:00.000-07:002012-06-05T11:11:58.035-07:00Free Flash Banner .fla<div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIWs9RzSdmkT6Yf110eG4wGJw1Ys-AluH38uVPYuq_VEx_KGvT_-VGGcU0KhRip2_sJcMLSNPJaAffk5JvOCmPNoBGe-jsMkoQdRmZzVn5KOLr3VwEfw4AuzvUTt_zdsB9p-pdhLSVUkUJ/s1600/dancing-icon-013.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIWs9RzSdmkT6Yf110eG4wGJw1Ys-AluH38uVPYuq_VEx_KGvT_-VGGcU0KhRip2_sJcMLSNPJaAffk5JvOCmPNoBGe-jsMkoQdRmZzVn5KOLr3VwEfw4AuzvUTt_zdsB9p-pdhLSVUkUJ/s200/dancing-icon-013.gif" width="161" /></a></div><span style="text-align: justify;">Buat kalian yang lagi pada sibuk design Tugas Akhir khusus nya Web Design,ini adalah contoh contoh </span>flash<span style="text-align: justify;"> </span>banner<span style="text-align: justify;"> (</span>swf<span style="text-align: justify;">) dan </span>project<span style="text-align: justify;"> </span>file<span style="text-align: justify;"> nya (</span>fla<span style="text-align: justify;">), setelah mendownloadnya anda dapat mengedit </span>project<span style="text-align: justify;"> </span>file<span style="text-align: justify;">-nya (</span>fla<span style="text-align: justify;">) dengan </span>Adobe<span style="text-align: justify;"> </span>Flash. Silahkan di lihat dan di pelajari lebih lanjut :)sesuai dengan kebutuhan.<br /><br /><br /><br /><br /><div style="text-align: justify;"><script src="https://sites.google.com/site/djiesoft/jquery-1.7.1.min.js" type="text/javascript"></script><br /><script type="text/javascript"> $(document).ready(function(){ $("#click1").click(function(){$("#div1").slideToggle("fast");}); $("#click2").click(function(){$("#div2").slideToggle("fast");}); $("#click3").click(function(){$("#div3").slideToggle("fast");}); $("#click4").click(function(){$("#div4").slideToggle("fast");}); $("#click5").click(function(){$("#div5").slideToggle("fast");}); }); </script><br /><br /><style type="text/css">.divtoggle { display:none; } </style><br /><br /><br /><button id="click1"> View Flash Banner 001 - 010 </button> <br /><br /><br /><div class="divtoggle" id="div1" style="display: none;"><table><tbody><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_001.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_001.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/5orfh8pj15mr" target="_blank">Download 001.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_002.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_002.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/gblzacqlwg6a" target="_blank">Download 002.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_003.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_003.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/5idc1g2q6149" target="_blank">Download 003.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_004.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_004.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/vqba7wg29qbe" target="_blank">Download 004.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_005.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_005.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/jy1vdq35qwtf" target="_blank">Download 005.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_006.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_006.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/4rjes2t2eyko" target="_blank">Download 006.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_007.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_007.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/7s0d2s4dyg8m" target="_blank">Download 007.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_008.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_008.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/y7n1s8du2dqp" target="_blank">Download 008.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_009.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_009.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/qjjg3kfqhv73" target="_blank">Download 009.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_010.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_010.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/npc5m2e3ns8r" target="_blank">Download 010.swf+.fla</a></td> </tr></tbody></table></div><br /><br /><a href="http://www.blogger.com/post-create.g?blogID=318628296920687353" name="more"></a><button id="click2"> View Flash Banner 011 - 020 </button> <br /><br /><br /><div class="divtoggle" id="div2" style="display: none;"><table><tbody><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_011.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_011.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/4gw1za1i97sl" target="_blank">Download 011.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_012.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_012.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/4tc42c0sf6r7" target="_blank">Download 012.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_013.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_013.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/w5fdm7hgdrmo" target="_blank">Download 013.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_014.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_014.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/b4q14i1m54p0" target="_blank">Download 014.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_015.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_015.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/5zz57l3wad43" target="_blank">Download 015.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_016.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_016.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/f353e7rw326k" target="_blank">Download 016.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_017.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_017.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/xf36b5w53d9y" target="_blank">Download 017.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_018.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_018.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/bay2zsv19lh7" target="_blank">Download 018.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_019.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_019.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/e78mhy6ff6v4" target="_blank">Download 019.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_020.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_020.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/8pdldqjtl538" target="_blank">Download 020.swf+.fla</a></td> </tr></tbody></table></div><br /><br /><button id="click3"> View Flash Banner 021 - 030 </button> <br /><br /><br /><div class="divtoggle" id="div3" style="display: none;"><table><tbody><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_021.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_021.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/9x4xzj6o1srp" target="_blank">Download 021.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_022.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_022.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/imfhejeuwi7i" target="_blank">Download 022.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_023.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_023.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/sofx88j34v95" target="_blank">Download 023.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_024.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_024.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/0kyshkq0uqm2" target="_blank">Download 024.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_025.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_025.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/fhveedhhwmsc" target="_blank">Download 025.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_026.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_026.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/83jx78b0a6r0" target="_blank">Download 026.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_027.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_027.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/a1zfz5k3d52p" target="_blank">Download 027.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_028.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_028.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/je7wehvabuxk" target="_blank">Download 028.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_029.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_029.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/rapj98bkorn2" target="_blank">Download 029.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_030.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_030.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/ukwmhps4i5m4" target="_blank">Download 030.swf+.fla</a></td> </tr></tbody></table></div><br /><br /><button id="click4"> View Flash Banner 031 - 040 </button> <br /><br /><br /><div class="divtoggle" id="div4" style="display: none;"><table><tbody><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_031.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_031.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/xxksukpp8lq3" target="_blank">Download 031.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_032.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_032.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/4u0loqhj7l1q" target="_blank">Download 032.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_033.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_033.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/jmr27agujfo2" target="_blank">Download 033.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_034.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_034.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/2i0j58zztl3r" target="_blank">Download 034.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_035.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_035.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/d5iva6l6enr4" target="_blank">Download 035.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_036.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_036.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/itpczeiq7s6k" target="_blank">Download 036.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_037.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_037.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/1hzccsdajpgw" target="_blank">Download 037.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_038.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_038.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/two4za9oeabk" target="_blank">Download 038.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_039.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_039.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/xu6hxznmk61n" target="_blank">Download 039.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_040.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_040.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/v3t2939z65us" target="_blank">Download 040.swf+.fla</a></td> </tr></tbody></table></div><br /><br /><button id="click5"> View Flash Banner 041 - 050 </button> <br /><br /><br /><div class="divtoggle" id="div5" style="display: none;"><table><tbody><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_041.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_041.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/wdc7es8skulf" target="_blank">Download 041.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_042.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_042.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/xa8ihw5s3ec5" target="_blank">Download 042.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_043.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_043.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/z5l76ro0soln" target="_blank">Download 043.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_044.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_044.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/9w2laqs8b5ze" target="_blank">Download 044.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_045.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_045.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/d5l4bflg72xk" target="_blank">Download 045.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_046.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_046.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/226n1gd3k829" target="_blank">Download 046.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_047.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_047.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/ihy7ozfydl8t" target="_blank">Download 047.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_048.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_048.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/v3m79iiim7wj" target="_blank">Download 048.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_049.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_049.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/l8k10vn4vk4a" target="_blank">Download 049.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_050.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_050.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/rz6tcxe0quyz" target="_blank">Download 050.swf+.fla</a></td> </tr><tr> <td align="center"><param name="movie" value="https://sites.google.com/site/djiesoft/banner_051.swf" /><embed height="100" src="https://sites.google.com/site/djiesoft/banner_051.swf" width="400"></embed><br /><br /><br /><a href="http://www.sharebeast.com/a2u9ybt3dszz" target="_blank">Download 051.swf+.fla</a></td> </tr></tbody></table></div><br /><br />Tags:<br /><br /><div style="text-align: justify;"><a href="http://www.indrawan21.com/2012/05/free-flash-banner-fla.html">free swf for blog, free swf for website, free download swf banner, flash swf gratis, banner swf garis untuk blog, download animation flash, cara memasang banner swf di blog, download contoh swf, cara membuat flash swf, free animation flash swf fla</a></div></div><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-73498540368525265852012-05-04T09:25:00.000-07:002012-06-05T11:12:20.539-07:00Membuat animated accordion tab<div dir="ltr" style="text-align: left;" trbidi="on">Setelah beberapa waktu lalu saya membuat artikel mengenai <a href="http://www.indrawan21.com/2012/04/membuat-accordion-menu-script.html" target="_blank">membuat menu accordion</a>, kali ini saya ingin sedikit explorasi mengenai <a href="http://www.indrawan21.com/2012/05/membuat-animated-accordion-tab.html">accordion</a>. Kali ini yang akan di bahas mengenai <a href="http://www.indrawan21.com/2012/05/membuat-animated-accordion-tab.html">membuat animated accordion tab</a> atau <a href="http://www.indrawan21.com/2012/05/membuat-animated-accordion-tab.html">animasi pada accordion</a>, bagi yang masih bingung mungkin sedikit gambaran yaitu accordion yang pada saat kita klik dapat berubah warna latar nya, warna berubah pada saat efek <a href="http://www.indrawan21.com/2012/05/membuat-animated-accordion-tab.html">sliding </a>berlangsung, dan kembali normal saat selesai sliding nya. :D<br />Contoh:<br /><link href="http://dl.dropbox.com/u/25942952/Deni.Indrawan/labs/css/tabs-accordion.css" rel="stylesheet" type="text/css"></link> <br /><script src="http://dl.dropbox.com/u/25942952/Deni.Indrawan/labs/js/jquery.tools.min.js" type="text/javascript"></script><br /><br /><script type="text/javascript"> $(document).ready(function(){ $("#accordion").tabs("#accordion div.pane", {tabs: 'h2', effect: 'slide', initialIndex: null}); // tambahkan efek baru ke tabs $.tools.tabs.addEffect("slide", function(i, done){ // 1. ketika pane dibuka, maka akan terlihat efek slide dengan efek kedipan warna ungu this.getPanes().slideUp().css({backgroundColor: "#b8128f"}); // 2. setelah pane terbuka, maka kembalikan warnanya ke warna semula (transparent) this.getPanes().eq(i).slideDown(function(){ $(this).css({backgroundColor: 'transparent'}); done.call(); // fungsi call harus dipanggil setelah efek selesai }); }); }); </script><br /><div id="accordion"><h2 class="current">Bagian Web Designer</h2><div class="pane" style="display: block;"><img src="http://dl.dropbox.com/u/25942952/Deni.Indrawan/labs/images/koder-icon.png" style="float: left; margin: 0pt 15px 15px 0pt;" /><br /><h3>Web Designer</h3><strong>Web designer bertugas sebagai juru gambar, yaitu mendesain website.</strong><br /><div style="clear: both;">Web designer biasanya memiliki kemampuan mengolah gambar menggunakan Photoshop.<br />Disamping itu, dia juga memiliki kemampuan mengatur layout menggunakan <br />Dreamweaver, HTML, CSS, Javascript (jQuery). </div></div><br /><h2>Bagian Web Programmer</h2><div class="pane"><h3>Web Programmer</h3>Web programmer bertugas sebagai juru coding, yaitu melakukan pemrograman website.</div><br /><h2>Bagian Web Administrator</h2><div class="pane"><h3>Web Administrator</h3>Web administrator bertugas sebagai juru maintenance, yaitu melakukan pemeliharaan dan penjagaan website.</div></div><hr />Tampilan bisa dilihat contoh nya, tapi untuk lebih pasti, kalian bisa download source nya pada akhir artikel ini...<br /><br />Sedikit penjelasan dan cara modifikasinya:<br />Script Js<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-c" start="1"><li class="alt"><script type=<span class="string">"text/javascript"</span>> </li><li class=""> $(document).ready(<span class="keyword">function</span>(){ </li><li class="alt"> $(<span class="string">"#accordion"</span>).tabs(<span class="string">"#accordion div.pane"</span>, {tabs: <span class="string">'h2'</span>, effect: <span class="string">'slide'</span>, initialIndex: <span class="keyword">null</span>}); </li><li class=""> </li><li class="alt"> <span class="comment">// tambahkan efek baru ke tabs</span> </li><li class=""> $.tools.tabs.addEffect(<span class="string">"slide"</span>, <span class="keyword">function</span>(i, done){ </li><li class="alt"> </li><li class=""> <span class="comment">// 1. ketika pane dibuka, maka akan terlihat efek slide dengan efek kedipan warna ungu</span> </li><li class="alt"> <span class="keyword">this</span>.getPanes().slideUp().css({backgroundColor: <span class="string">"#b8128f"</span>}); </li><li class=""> </li><li class="alt"> <span class="comment">// 2. setelah pane terbuka, maka kembalikan warnanya ke warna semula (transparent)</span> </li><li class=""> <span class="keyword">this</span>.getPanes().eq(i).slideDown(<span class="keyword">function</span>(){ </li><li class="alt"> $(<span class="keyword">this</span>).css({backgroundColor: <span class="string">'transparent'</span>}); </li><li class=""> done.call(); <span class="comment">// fungsi call harus dipanggil setelah efek selesai</span> </li><li class="alt"> }); </li><li class=""> }); </li><li class="alt"> }); </li><li class=""> </script> </li></ol></div>Dari script diatas dapat kalian baca dan fahami maksudnya, karena tiap baris sudah diberikan komentar nya...<br /><br />Script di dalam tag <br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-xml" start="1"><li class="alt"><span class="tag"><</span><span class="tag-name">body</span><span class="tag">></span> <span class="tag"></</span><span class="tag-name">body</span><span class="tag">></span> </li></ol></div><br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-xml" start="1"><li class="alt"><span class="tag"><</span><span class="tag-name">div</span> <span class="attribute">id</span>=<span class="attribute-value">"accordion"</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">h2</span> <span class="attribute">class</span>=<span class="attribute-value">"current"</span><span class="tag">></span>Bagian Web Designer<span class="tag"></</span><span class="tag-name">h2</span><span class="tag">></span> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">div</span> <span class="attribute">class</span>=<span class="attribute-value">"pane"</span> <span class="attribute">style</span>=<span class="attribute-value">"display: block;"</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">img</span> <span class="attribute">width</span>=<span class="attribute-value">"100"</span> <span class="attribute">src</span>=<span class="attribute-value">"css/img/CP.jpg"</span> <span class="attribute">style</span>=<span class="attribute-value">"margin: 0pt 15px 15px 0pt; float: left;"</span><span class="tag">></span> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">h3</span><span class="tag">></span>Web Designer<span class="tag"></</span><span class="tag-name">h3</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">p</span><span class="tag">></span><span class="tag"><</span><span class="tag-name">strong</span><span class="tag">></span>Web designer bertugas sebagai juru gambar, yaitu mendesain website.<span class="tag"></</span><span class="tag-name">strong</span><span class="tag">></span><span class="tag"></</span><span class="tag-name">p</span><span class="tag">></span> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">p</span> <span class="attribute">style</span>=<span class="attribute-value">"clear: both;"</span><span class="tag">></span> </li><li class=""> Web designer biasanya memiliki kemampuan mengolah gambar menggunakan Photoshop. </li><li class="alt"> Disamping itu, dia juga memiliki kemampuan mengatur layout menggunakan </li><li class=""> Dreamweaver, HTML, CSS, Javascript (jQuery). <span class="tag"></</span><span class="tag-name">p</span><span class="tag">></span> </li><li class="alt"> <span class="tag"></</span><span class="tag-name">div</span><span class="tag">></span> </li><li class=""> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">h2</span><span class="tag">></span>Bagian Web Programmer<span class="tag"></</span><span class="tag-name">h2</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">div</span> <span class="attribute">class</span>=<span class="attribute-value">"pane"</span><span class="tag">></span> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">h3</span><span class="tag">></span>Web Programmer<span class="tag"></</span><span class="tag-name">h3</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">p</span><span class="tag">></span>Web programmer bertugas sebagai juru coding, yaitu melakukan pemrograman website.<span class="tag"></</span><span class="tag-name">p</span><span class="tag">></span> </li><li class="alt"> <span class="tag"></</span><span class="tag-name">div</span><span class="tag">></span> </li><li class=""> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">h2</span><span class="tag">></span>Bagian Web Administrator<span class="tag"></</span><span class="tag-name">h2</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">div</span> <span class="attribute">class</span>=<span class="attribute-value">"pane"</span><span class="tag">></span> </li><li class="alt"> <span class="tag"><</span><span class="tag-name">h3</span><span class="tag">></span>Web Administrator<span class="tag"></</span><span class="tag-name">h3</span><span class="tag">></span> </li><li class=""> <span class="tag"><</span><span class="tag-name">p</span><span class="tag">></span>Web administrator bertugas sebagai juru maintenance, yaitu melakukan pemeliharaan dan penjagaan website.<span class="tag"></</span><span class="tag-name">p</span><span class="tag">></span> </li><li class="alt"> <span class="tag"></</span><span class="tag-name">div</span><span class="tag">></span> </li><li class=""> <span class="tag"></</span><span class="tag-name">div</span><span class="tag">></span> </li></ol></div>Dan script diatas adalah script untuk mengatur header dan isi content dari accordion tab yang di buat, silahkan kalian explorasi lebih lagi...<br /><br />Download Source code accordion tabs<br /><script type="text/javascript">function confirmation() { var answer = confirm("Tinggalkan Komentar anda atau share jika artikel ini bermanfaat") if (answer){ alert("Terimakasih telah mendownload Animated accordion Calon Programer") window.location = "http://goo.gl/voQF6"; } else{ alert("Thanks") } } </script><br /><form><input onclick="confirmation()" type="button" value="animated accordion.zip" /><span style="font-family: Arial;"><span style="font-size: 14px; white-space: pre;"> </span></span>| <a href="http://www.indrawan21.com/" target="_blank">Calon Programer</a></form><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0tag:blogger.com,1999:blog-4967858805924243329.post-43268867838204338122012-04-28T09:15:00.000-07:002012-06-05T11:12:20.518-07:00Animasi VB Form keliling Layar<div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMr1Zx7oQDIlFA1l0t0qqEWmv7I9hrSCaxtso28mieTfrtDpvRW27y1IJ5YtqtPvNTRPpsbm2Cgwkm_FPdEtXBOEAR19OwmKvGXyL-mQk5yrYxU9J0ROU6bjJBYMWspkymU11IY2Fltsu8/s1600/CP.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMr1Zx7oQDIlFA1l0t0qqEWmv7I9hrSCaxtso28mieTfrtDpvRW27y1IJ5YtqtPvNTRPpsbm2Cgwkm_FPdEtXBOEAR19OwmKvGXyL-mQk5yrYxU9J0ROU6bjJBYMWspkymU11IY2Fltsu8/s1600/CP.png" /></a></div>Hmmmm... udah ga ada ide mau buat apa lagi untuk kali ini, tapi iseng ajah deh ini buat <b>animasi tentang visual basic 6</b>. Sebelum nya banyak artikel mengenai <a href="http://www.indrawan21.com/search/label/VBA" target="_blank">animasi menggunakan visual basic 6</a> yang telah saya berikan di web ini.<br />Kali ini animasi yang dibahas adalah <b>animasi form pada visual basci 6</b>, dimana <b>form bergerak mengelilingi layar monitor</b> laptop atau komputer kalian, semoga aja ga kesasar ke monitor lain :p<br /><br />Persiapan dalam project :<br /><br /><ol style="text-align: left;"><li>Buat project baru "Standart.exe"</li><li>Sediakan satu buah Timer</li><li>Dan 1 buah Button (untuk keluar/berhenti)</li><li>Segelas kopi susu biar tetep melek depan coding :p</li></ol><br />Untuk Coding preview nya :<br /><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="comment">'---------------------------------------------------------------------------------------</span> </li><li class=""><span class="comment">' Module : Form1</span> </li><li class="alt"><span class="comment">' Author : indrawan</span> </li><li class=""><span class="comment">' Date : 28/04/2012</span> </li><li class="alt"><span class="comment">' Purpose : www.indrawan21.com</span> </li><li class=""><span class="comment">'---------------------------------------------------------------------------------------</span> </li><li class="alt"> </li><li class=""><span class="keyword">Dim</span> ZigZagY <span class="keyword">As</span> <span class="keyword">Integer</span> </li><li class="alt"><span class="keyword">Dim</span> ZigZagX <span class="keyword">As</span> <span class="keyword">Integer</span> </li><li class=""><span class="keyword">Sub</span> keliling() </li><li class="alt"><span class="keyword">Me</span>.Move <span class="keyword">Me</span>.Left + ZigZagX, <span class="keyword">Me</span>.Top + ZigZagY </li><li class=""> <span class="keyword">If</span> <span class="keyword">Me</span>.Left < 0 <span class="keyword">Then</span> </li><li class="alt"> ZigZagX = 20 </li><li class=""> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Left + <span class="keyword">Me</span>.Width > Screen.Width + 0 <span class="keyword">Then</span> </li><li class="alt"> ZigZagX = -20 </li><li class=""> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Top <= 0 <span class="keyword">Then</span> </li><li class="alt"> ZigZagY = 20 </li><li class=""> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Top + <span class="keyword">Me</span>.Height > Screen.Height + 0 <span class="keyword">Then</span> </li><li class="alt"> ZigZagY = -20 </li><li class=""> <span class="keyword">End</span> <span class="keyword">If</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Cexit_Click() </li><li class=""><span class="keyword">End</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Form_Load() </li><li class="">ZigZagY = 20 </li><li class="alt">ZigZagX = 20 </li><li class="">Timer1.Enabled = <span class="keyword">True</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li><li class=""> </li><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Timer1_Timer() </li><li class="">keliling </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></ol></div>Penjelasan sedikit... <br /><blockquote><br />'---------------------------------------------------------------------------------------<br />' Module : Form1<br />' Author : indrawan<br />' Date : 28/04/2012<br />' Purpose : www.indrawan21.com<br />'---------------------------------------------------------------------------------------</blockquote>*numpang eksis sedikit pada coding, ga ngaruh apa2... dihapus atau dganti juga <strike>gpp kok</strike> #Hidup Open Source :p <br /><hr /><br /><blockquote><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Dim</span> ZigZagY <span class="keyword">As</span> <span class="keyword">Integer</span> </li><li class=""><span class="keyword">Dim</span> ZigZagX <span class="keyword">As</span> <span class="keyword">Integer</span> </li><li class="alt"><span class="keyword">Sub</span> keliling() </li><li class=""><span class="keyword">Me</span>.Move <span class="keyword">Me</span>.Left + ZigZagX, <span class="keyword">Me</span>.Top + ZigZagY </li><li class="alt"> <span class="keyword">If</span> <span class="keyword">Me</span>.Left < 0 <span class="keyword">Then</span> </li><li class=""> ZigZagX = 20 </li><li class="alt"> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Left + <span class="keyword">Me</span>.Width > Screen.Width + 0 <span class="keyword">Then</span> </li><li class=""> ZigZagX = -20 </li><li class="alt"> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Top <= 0 <span class="keyword">Then</span> </li><li class=""> ZigZagY = 20 </li><li class="alt"> <span class="keyword">ElseIf</span> <span class="keyword">Me</span>.Top + <span class="keyword">Me</span>.Height > Screen.Height + 0 <span class="keyword">Then</span> </li><li class=""> ZigZagY = -20 </li><li class="alt"> <span class="keyword">End</span> <span class="keyword">If</span> </li><li class=""><span class="keyword">End</span> <span class="keyword">Sub</span> </li></ol></div></blockquote>*Pendeklarasian Variable, dalam hal ini saya menggunakan <b>ZigZagY</b> dan<b> ZigZagX</b> yang <b>ber-tipe data integer</b>(penggunaan variable bebas dan disesuaikan)<br /><hr /><br /><blockquote><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Form_Load() </li><li class="">ZigZagY = 20 </li><li class="alt">ZigZagX = 20 </li><li class="">Timer1.Enabled = <span class="keyword">True</span> </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></ol></div></blockquote>*Pemberian value terhadap variable tsb, saya berikan nilai 20 <br /><hr /><br /><blockquote><div class="dp-highlighter" id="hlDiv"><div class="bar"></div><ol class="dp-vb" start="1"><li class="alt"><span class="keyword">Private</span> <span class="keyword">Sub</span> Timer1_Timer() </li><li class="">keliling </li><li class="alt"><span class="keyword">End</span> <span class="keyword">Sub</span> </li></ol></div></blockquote>*Pemanggilan Sub animasi nya,menggunakan <b>Timer</b>, Untuk <b>Timer</b> itu sendiri silahkan kalian <b>Set Interval</b>-nya(<b>misal 50</b>). <b>Semakin kecil</b> Interval-nya, maka <b>semakin cepat</b> form tsb bergerak.<br /><br /><script type="text/javascript">function confirmation() { var answer = confirm("Tinggalkan Komentar anda atau share jika artikel ini bermanfaat") if (answer){ alert("Terimakasih telah mendownload Animasi form.zip") window.location = "http://goo.gl/iau3F"; } else{ alert("Thanks") } } </script><b><u>Download Source nya</u></b>:<br /><form><input onclick="confirmation()" type="button" value="Animasi form.zip" /><br /><hr />Klik Like/share jika anda menyukai tulisan <script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like font="" href="" layout="button_count" send="false" show_faces="false"></fb:like><a href="http://www.facebook.com/sharer.php" name="fb_share" type="button_count">Share</a><script src="http://static.ak.fbcdn.net/connect.php/js/FB.Share" type="text/javascript"></script><br /><div id="TICKER" onmouseout="TICKER_PAUSED=false" onmouseover="TICKER_PAUSED=true" style="background-color: white; border-bottom: 1px solid rgb(204, 204, 204); border-top: 1px solid rgb(204, 204, 204); display: none; overflow: hidden; width: 600px;"><span style="background-color: #7fb51a;"> <span style="color: white;"> <b>Syarat Tukar Link/Banner</b></span> </span> <b>Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.</b> <span style="background-color: #ffaa00;"> <span style="color: white;"> <b>Terdaftar</b></span> </span> <b>Terdapat meta tag search engine pada template.</b> <span style="background-color: #0088ff;"> <b><span style="color: white;"> Terindeks</span></b> </span> <b>Halaman blog muncul pada hasil pencarian Google... </b> </div><script language="javascript" src="http://discovernine.webs.com/zoomimage/webticker_lib.js" type="text/javascript"></script><br /><hr /></form></div>Anonymoushttp://www.blogger.com/profile/10280146939160942496noreply@blogger.com0