Angky Blog

Cara Menambah Reply Komentar Blogger

Reply komentar blogger yaitu cara kita membalas komentar yang ada. Fitur ini saya terinspirasi dari blog-blog yang ada, Mengapa di blog saya ngak muncul?. Setelah saya membaca di blog teman-teman yang sudah ahli ternyata apabila template hasil dari coustum, fitur ini ada yang muncul dan ada yang tidak muncul terkecuali template standar yang telah di sediakan oleh blogger.Jadi dasar inilah saya berusaha untuk mencari solusinya. Dan akhirnya saya menemukan tips Cara Menambah Reply Komentar Blogger.

Tahap-Tahap Cara Menambah Reply Komentar Blogger Sbb:

Sign in di blog anda.
Pilih Template.
Pilih Edit HTML
Download Template Lengkap untuk menghindari kesalahan.
Centang Expand template widget
Cari kode <data:commentPostedByMsg/> atau <data:comment.timestamp/>
Copy kode berikut ini lalu tempatkan di bawah kode di atas

<span><a expr:href='"https://www.blogger.com/comment.g?blogID=NOMOR-BLOG-ID-ANDA&postID=" + data:post.id + "&isPopup=true&postBody=%40%3C%61%20%68%72%65%66%3D%22%23" + data:comment.anchorName + "%22%3E" + data:comment.author + "%3C%2F%61%3E%3A%20#form"' onclick='javascript:window.open(this.href, "bloggerPopup", "toolbar=0,location=0,statusbar=1,menubar=0,scrollbars=yes,width=450,height=450"); return false;' style='padding:0px 5px; border:1px solid #999;'>Balas Komentar</a></span>

Contoh di adressbar tertera :
http://www.blogger.com/blogger.g?blogID=157642238713766667#template/src=dashboard
Tulisan berwarna merah adalah no blog id anda.

Klick Simpan Template unutk menyimpan perubahan
Klick Lihat atau Pratinjau untuk melihat hasilnya.

Perbedaan hasil dari dua pilihan di atas adalah apabila menempatkan kode Reply di bawah kode <data:commentPostedByMsg/> teks "Balas Komentar" akan berada sejajar dengan komentar pengunjung. Sedangkan apabila ditempatkan di bawah <data:comment.timestamp/> teks "Balas Komentar" akan berada di bawah komentar.

Demikian tips yang bisa saya share kepada anda jika masih ada kekurangan mohon di maafkan. Terimah Kasih.

Mengganti Tulisan Older Post, Newer Post, Home

Tulisan older post, newer post, dan home merupakan navigasi yang muncul di bawah postingan untuk beranjak ke postingan yang baru, lama, dan kembali ke homepage blog. Nha, apa pernah terpikir oleh anda untuk menggantinya dengan sebuah gambar? Saya rasa anda harus melalukannya supaya blog terlihat lebih sempurna dan berbeda dengan blog lainnya. Mau tau cara?

Berikut Cara Mengganti Navigasi Blog Dengan Gambar:

Login ke Account Blogger anda.
Plih Template.
Polih Edit HTML.
Centang Expand Widget Template.
Cari kode berikut:

<data:newerPageTitle/> ganti dengan <img src="url-gambar-next" border="0" /> <data:olderPageTitle/> ganti dengan <img src=" url-gambar-previous" border="0" /> <data:homeMsg/> ganti dengan <img src=" url-gambar-home" border="0" />

Terakhir, klik Save Template.

Sebagai contoh penerapannya kunjungi blogku Free Source Code Visual Basic.

Demikian tips saya mengenai Cara Mengganti Navigasi Blog Dengan Gambar semoga bermanfaat dan terimah kasih.

Membuat Menu Tab View Widget Di Blogger

Pada postingan pertama Membuat Menu Tab View Di Blogger dengan mengedit HTML. Sekedar memperdalam ilmu sebaiknya anda membacanya terlebih dahulu karena pada postingan kali ini saya akan memberikan tutorial Membuat Menu Tab View Widget yang sedikit lebih mudah. Mengapa? karena kita tidak perlu lagi mengedit HTML..

Berikut Langkah-langka Membuat Menu Tab View Widget:

Login ke Blogger Anda.
Pilih Tata Letak.
Posisikan dimana anda akan meletatkannya, sebaiknya pada sidebar. Kemudian pilih Add Gadget. dan masukan kode di bawah ini.

<style type="text/css">
div.TabView div.Tabs a {
float: left;
display: block;
width: 80px; /* Lebar Kotak Tab */
height: 22px; /* Tinggi Menu Utama Atas */
text-align: center; /* Posisi Teks Menu Tab */
margin: 5px 0px 0px 3px; /* Posisi Kotak Tab */
background-color: #000; /* Warna background Kotak Tab */
padding-top: 2px; /* Spasi Atas */
border: 1px solid #ffffff; /* Warna border kotak Tab */
border-bottom: 1px solid #ccc; /*Warna border bawah kotak tab */
font-family: "Arial, Helvetica, sans-serif", Arial; /* Font Kotak Tab */
font-weight: 900; /* Ketebalan Teks kotak tab */
}
div.TabView div.Tabs a:hover, div.TabView div.Tabs a.Active{
background-color: #736F6E; /* Warna background utama kotak tab */ }
div.TabView div.Pages{
clear: both;
border: 1px solid #cccccc; /* Warna border Kotak Konten */
overflow: hidden;
background-color: #ffffff; /* Warna background Kotak konten */
}
div.TabView div.Pages div.Page{
height: 100%;
padding: 5px; /* Jarak teks dalam kotak content */
overflow: hidden;
}
div.TabView div.Pages div.Page div.Pad{
padding: 3px 5px;
}
</style>
<form action="tabview.html" method="get">
<div id="TabView" class="TabView">
<div style="width: 300px;" class="Tabs">
<a><span style="color: #fff">Tab 1</span></a>
<a><span style="color: #fff">Tab 2</span></a>
<a><span style="color: #fff">Tab 3</span></a>
</div>
<div style="width: 300px; height: 200px;" class="Pages">
<div class="Page">
<div class="Pad">
konten 1</div>
</div>
<div class="Page">
<div class="Pad">
konten 2</div>
</div>
<div class="Page">
<div class="Pad">
konten 3</div>
</div>
</div></div></form>
<script src="https://masolis-javascript.googlecode.com/svn/trunk/tab-viewmaskolis.js">
</script>
<script type="text/javascript">
tabview_initialize('TabView');
</script></div>

Simpan.

Keterangan

Untuk tulisan berwarna merah di isi dengan judul dari Tab View.
Untuk tulisan berwarna biru di isi dengan konten anda.

Apabilila anda belum mengerti mengenai konten, berikut contohnya :

<div class="Page">
<div class="Pad">
<script style=text/javascript src=http://frangky-s.googlecode.com/files/recent-comments.js></script><script style=text/javascript>var a_rc=10;var m_rc=false;var n_rc=true;var o_rc=100;</script><script src=http://frangkys.blogspot.com/feeds/comments/default?alt=json-in-script&callback=showrecentcomments></script> <style type=text/css> .rcw-comments a {text-transform: capitalize;} .rcw-comments {border-bottom: 1px dotted; padding-top: 7px!important; padding-bottom: 7px!important;} </style>
</div>
</div>
<div class="Page">
<div class="Pad">
<script style="text/javascript" src="http://frangky-s.googlecode.com/files/recentposthumb.js"></script>
<script style="text/javascript">
var numposts = 10;
var showpostthumbnails = true;
var displaymore = false;
var displayseparator = true;
var showcommentnum = false;
var showpostdate = false;
var showpostsummary = true;
var numchars = 150;
</script>
<script src="http://frangkys.blogspot.com/feeds/posts/default?orderby=published&alt=json-in-script&callback=showrecentpostswiththumbs"></script>
</div>
</div>

Demikian Tutorial Membuat Menu Tab View Dengan Widget semoga dapat bermanfaat bagi teman-teman.

~God Luck~

Membuat Menu Tab View Di Blogger

Untuk menghemat tempat atau space pada blog Tab Veiw adalah solusinya. Ukurannya relatif kecil namum memuat banyak space. Membuat Menu dengan Tab View memerlukan script yang cukup banyak jadi berhati-hatilah dengan kata lain sebelum mencobanya agar templete anda di backup terlebih dahulu.

Langkah-langkahnya Membuat Menu dengan Tab View

Login di Blogger anda.
Pilih Template.
Backup Templete Anda.
Pilih Edit HTML
Kemudian letakan kode script dibawah ini sebelum kode </head>

<script type='text/javascript'>
//<![CDATA[
function tabview_aux(TabViewId, id)
{
var TabView = document.getElementById(TabViewId);
// ----- Tabs -----
var Tabs = TabView.firstChild;
while (Tabs.className != "Tabs" ) Tabs = Tabs.nextSibling;
var Tab = Tabs.firstChild;
var i = 0;
do
{
if (Tab.tagName == "A")
{
i++;
Tab.href = "javascript:tabview_switch('"+TabViewId+"', "+i+");";
Tab.className = (i == id) ? "Active" : "";
Tab.blur();
}
}
while (Tab = Tab.nextSibling);
// ----- Pages -----
var Pages = TabView.firstChild;
while (Pages.className != 'Pages') Pages = Pages.nextSibling;
var Page = Pages.firstChild;
var i = 0;
do
{
if (Page.className == 'Page')
{
i++;
if (Pages.offsetHeight) Page.style.height = (Pages.offsetHeight-2)+"px";
Page.style.overflow = "auto";
Page.style.display = (i == id) ? 'block' : 'none';
}
}
while (Page = Page.nextSibling);
}
// ----- Functions -------------------------------------------------------------
function tabview_switch(TabViewId, id) { tabview_aux(TabViewId, id); }
function tabview_initialize(TabViewId) { tabview_aux(TabViewId, 1); }
//]]>
</script>

Setelah itu letakan kode berikut di atas kode ]]></b:skin>

div.TabView div.Tabs {
height: 30px;
overflow: hidden;
}
div.TabView div.Tabs a {
float: left;
display: block;
width: 98px; /* Lebar Menu Utama Atas */
text-align: center;
height: 30px; /* Tinggi Menu Utama Atas */
padding-top: 3px;
vertical-align: middle;
border: 1px solid #BDBDBD; /* Warna border Menu Atas */
border-bottom-width: 0;
text-decoration: none;
font-family: "Verdana", Serif; /* Font Menu Utama Atas */
font-weight: bold;
color: #000; /* Warna Font Menu Utama Atas */
-moz-border-radius-topleft:10px;
-moz-border-radius-topright:10px;
}
div.TabView div.Tabs a:hover, div.TabView div.Tabs a.Active
{
background-color: #E6E6E6; /* Warna background Menu Utama Atas */
}
div.TabView div.Pages
{
clear: both;
border: 1px solid #BDBDBD; /* Warna border Kotak Utama */
overflow: hidden;
background-color: #E6E6E6; /* Warna background Kotak Utama */
}
div.TabView div.Pages div.Page
{
height: 100%;
padding: 0px;
overflow: hidden;
}
div.TabView div.Pages div.Page div.Pad {padding: 3px 5px;}

Simpan Templete.
Pilih Tata Letak Halaman.
Pilih Add Gadget.
Pilih Widgat HTML/Javascript dan anda tambahkan kode script di bawah ini.

<form action="tabview.html" method="get">
<<div class="TabView" id="TabView">
<div class="Tabs" style="width: 300px;">
<a>Tab 1</a>
<a>Tab 2</a>
<a>Tab 3</a> </div>
<div class="Pages" style="width: 300px; height: 250px;">
<div class="Page">
<div class="Pad">
Tab 1.1 <br />
Tab 1.2 <br />
Tab 1.3 <br /> </div>
</div>
<div class="Page">
<div class="Pad">
Tab 2.1 <br />
Tab 2.2 <br />
Tab 2.3 <br /> </div>
</div>
<div class="Page">
<div class="Pad">
Tab 3.1 <br />
Tab 3.2 <br />
Tab 3.3 <br /> </div>
</div>
</div>
</div>
</form>
<script type="text/javascript">
tabview_initialize('TabView');
</script>

Kemudian Simpan.

Keterangan

Untuk kode warna biru menandahkan lebar dan tinggi Tab View, ganti sessuai kebutuhan halaman blog anda.
Untuk warna merah di isi dengan judul menu Tab View.
Untuk warna hijau di isi dengan konten, gambar atau lainnya sesuai dengan kebutuhan.

Demikian Tutorial Membuat Menu Tab View Di Blogger semoga bermanfaat.

~God Luck~

Script Populer Post Widget For Blogger

Selain dua script yang saya sudah postkan sebelumnya kali ini saya juga mempostkan atau membagikan script Scipt Populer Post Widget For Blogger atau dengan bahasa indonesia Script Postingan Terkenal Di Blogger (he.he..he... maaf ya.... aku pingin belajar translate bahasa) lebih simple artinya postingan yang paling banyak di kunjungi. Langsung saja guys, begini scriptnya.

<script type="text/javascript">
function pipeCallback(obj) {
document.write('<ol style="text-transform: capitalize;">');
var i;
for (i = 0; i < obj.count ; i++)
{
var href = "'" + obj.value.items[i].link + "'";
var item = "<li>" + "<a href=" + href + ">" + obj.value.items[i].title + "</a> </li>";
document.write(item);
}
document.write('</ol>');
}
</script>
<script src="http://pipes.yahoo.com/pipes/pipe.run?_render=json&_callback=pipeCallback&_id=dc658aedc46c51ca847b4d728f2dbe6b&url=http://cerminblog.blogspot.com&tampil=10" type="text/javascript"></script>

Keterangan :

tampil=10 adalah menampilkan 10 artikel/postingan teratas.
Tulisan berwarna merah diganti dengan nama blog anda
Tulisan berwara biru adalah id dari pipes.yahoo
Tulisan tampil atau berwarna kuning, sesuaikan dengan yahoo.pipe anda. secara default "ShowHawMany=10"
Tulisan url atau berwarna coklat, sesuaikan dengan yahoo.pipe anda. secara default "YourBlogUrl=http://cerminblog.blogspot.com"

Cara daftar ke pipe yahoo :

Masuk ke Yahoo Pipe
Masuk ke account Yahoo
Klik Tombol Clone untuk membuat clone
Klik Edit Source untuk merubah sesuai keinginan anda
Jika selasai mengedit dan menyimpannya. klik ran pipe untuk mengtestnya.
Setelah selesai copy id anda dan tempatkan pada script di atas dengan mengganti tulisan berwarna biru dengan id anda.

Bagaimana teman apakah rumit? Tentu saja tidak bukan. Ilmu itu harus dicari dan dipelajari dan apabila sudah tahu dibagikan kepada yang belum tahu.

Demikian Script Populer Post Atau Postingan Terkenal semoga bermanfaat dan apabila ada kekurangan mohon dimaafkan.

~God Luck~

Script Recent Post Atau Posting/Artikel Terbaru

Setelah saya share mengenai Script Recent Comment Atau Komentar Terbaru, saya juga mendapat inspirasi bagaimana membuat Script Recent Post Atau Posting/Artikel Terbaru. Keunggulannya bagi saya mengetahui script dari widget blogsopt adalah kita bisa menempatkan atau kita bisa memodifikasi blog kita sesuai keinginan. Bagaimana dengan anda? tentu saja setiap orang mempunyai daya tarik tersendiri dalam membuat website atau blogspot. Langsung saja ke scriptnya :

<script style="text/javascript" src="http://frangky-s.googlecode.com/files/recentposthumb.js"></script>
<script style="text/javascript">
var numposts = 10;
var showpostthumbnails = true;
var displaymore = false;
var displayseparator = true;
var showcommentnum = false;
var showpostdate = false;
var showpostsummary = true;
var numchars = 150;
</script>
<script src="http://frangkys.blogspot.com/feeds/posts/default?orderby=published&alt=json-in-script&callback=showrecentpostswiththumbs"></script>

Keterangan:

Var numposts=10 adalah jumlah komentar yang di tampilkan
Var showpostdate=true adalah untuk menampilkan tanggal
Var numchar=150 adalah snipset karakter yang akan ditampilkan
Tulisan yang berwarna merah diganti dengan nama blog anda.

Demikian Script Recent Post Atau Posting/Artikel Terbaru smoga bermanfat.

~God Luck~

Script Recent Comment Atau Komentar Terakhir

Dunia internet memang sumber dari segala ilmu, apa yang tidak tahu tinggal di cari melalui Search Engine. Kebetulan saya masih pemula dengan membuat blog, awalnya saya menggunakan widget yang sudah tersedia oleh bloger. setelah itu saya pikir-pikir bagamanakah Script Recent Comment Atau Komentar Terakhir dari widget tersebut. Syukurlah setelah saya search melalui engine google dan saya ketemu Script Recent Comment. Berikut ini saya akan share mengenai script tersebut.

<script style=text/javascript src=http://frangky-s.googlecode.com/files/recent-comments.js></script><script style=text/javascript >
var a_rc=5;
var m_rc=false;
var n_rc=true;
var o_rc=100;
</script>
<script src=http://frangkys.blogspot.com/feeds/comments/default?alt=json-in-script&callback=showrecentcomments></script><style type=text/css> .rcw-comments a {text-transform: capitalize;} .rcw-comments {border-bottom: 1px dotted; padding-top: 7px!important; padding-bottom: 7px!important;} </style>

Nah... Begitulah Script Recent Comment Atau Komentar Terakhir tinggal kita tempatkan sesuai keinginan kita.

Sebelum anda mengpraktekkannya sebagai keterangan dari script diatas :

Var a_rc=5 adalah jumlah komentar yang akan di tampilkan.
m_rc=true adalah apakah judul akan di tampilkan (true=ditampilkan, false=tidak)
o_rc=100 adalah snipset jumlah karakter yang akan ditampilkan
Tulisan yang berwarna merah diganti dengan nama blog anda.

Demikian tips Script Recent Comment Atau Komentar Terakhir dari saya semoga membantu teman-teman.

~God Luck~

Trik Mendapatkan/Membuat Link Gambar Melalui Blog

Untuk mendapatkan link gambar melalui blog atau upload gambar ke blog ikuti langkah-langkah berikut:
1. Login di blogger
2. Pilih New Post atau Entri Baru
3. Pilih Insert Image pada toolbal
4. Selesai upload pilih imagenya dan klik add select.

5. Pilih Mode HTML
6. Cari link tempat tersimpan gamabar yang di upload, terus copy linknya.

7. Selesai. Siap di distribusikan sesuai keinginan kita.

Mengganti Icon Pada AdressBar

Sesuatu yang menarik dan cantik tentunya disukai setiap orang, apalagi kalau lelaki mempunyai pacar atau istri yang cantik dan seksi "~Waw..... beruntung sekali lelaki itu. Ha..ha...~". Begitu juga sebaliknya wanita mempunyai pacar atau suami yang ganteng dan tubuh atletis "Waw... beruntung sekali wanita itu. He...he....". Tetapi walaupun kita mempunyai yang cantik dan ganteng bukan berarti yang jelek diabaikan. Semua yang diciptakan di dunia ini semua sama di mata TUHAN.

Jika kita membuat suatu website atau blog tentunya kita menginginkan blog kita kelihatan menarik saat dikunjungi oleh orang. Nah... berikukut saya akan memberikan satu trik atau Tutorial Mengganti Icon Di AdressBar pada blog kita. Untuk membuat icon adressbar kita membutuhkan software pembuat icon yang anda bisa download di sini. Setelah di download instal dan ikuti instruksi selanjutnya. Kemudian buat suatu icon dan anda upload file icon ke suatu penyedia jasa atachmant. kalau saya menggunakan site google atau kunjungi Trik Mendapatkan/Membuat Link Gambar Melalui Blog. dan terserah anda mau pakai jasa apa?.

Langkah-langkanya :
1. Login pada blogger.
2. Pilih Template.
3. Pilih Edit HTML (sebelum anda merubahnya silakan bacukup dulu)
4. Cari Kode <b:skin><![CDATA[
5. Letakkan kode html berikut di atas kode pada no.4

<link href='https://sites.google.com/site/fangkys/favicon.ico' rel='shortcut icon' type='image/x-icon'/>

NB: Tulisan berwarna merah diganti dengan alamat tempat anda upload file icon.

6. Simpan Template

Setelah langkah di atas coba anda jalankan website atau blog anda, bagaimana hasilnya?. Demikian tips saya mengenai mengganti Icon Pada AdressBar semoga bisa membantu teman-teman.

~God Luck~

Membuat Iklan Dengan Tombol Close

Mungkin anda telah menemukan banyak blog yang menyediakan tentang cara membuat iklan dengan tombol close. Iklan melayang ini sangat menyebalkan bagi pengunjung blog karena tiap kali kita membuka link untuk membaca artikel lain iklan ini muncul dan harus mengikuti langkah-langkah atau mengkilk tombol close. He..he..he.. menyebalkan bukan?. Trik ini banyak kita temukan di blog-blog sekarang ini dan alasan satu-satunya yaitu agar pemilik blog mendapatkan komisi apabila kita mengklik iklan yang muncul seperti blogku ini terdapat banyak iklan hmmmm...... Tapi tak mengapa karena kita mencoba untuk mendapatkan penghasilan kecil-kecilan dengan mempublikasikan iklan mereka seperti penyedia iklan Adsense yang sangat terkenal sekarang ini, ada juga AdsenseCamp dan KumpulBlogger. Ah... lanjut saja, Berikut Cara membuat Iklan dengan tombol close:

Login di Account blogger anda
Klik tab Tata Letak
Tambah Gadget
Pilih HTML/JavaScript
Copy Paste code dibawah ini :

<style type="text/css">
#gb{position:fixed;top:10px;z-index:+1000;}
* html
#gb{position:relative;}
.gbcontent{float:right;border:2px solid #A5BD51;background:#ffffff;padding:10px;}
</style>
<script type="text/javascript">
function showHideGB(){
var gb = document.getElementById("gb");
var w = gb.offsetWidth;
gb.opened ? moveGB(0, 30-w) : moveGB(20-w, 0);
gb.opened = !gb.opened;
}
function moveGB(x0, xf){
var gb = document.getElementById("gb");
var dx = Math.abs(x0-xf) > 10 ? 5 : 1;
var dir = xf>x0 ? 1 : -1;
var x = x0 + dx * dir;
gb.style.top = x.toString() + "px";
if(x0!=xf){setTimeout("moveGB("+x+", "+xf+")", 10);}
}
</script>
<div id="gb">
<div class="gbtab" onclick="showHideGB()"> </div>
<div class="gbcontent">
<div style="text-align:right">
<a href="javascript:showHideGB()">.:[Close][Klik 2x]:.</a>
</div>
<center>
Masukan Kode iklan atau Gambar yang anda inginkan di sini
</center>
<script type="text/javascript">
var gb = document.getElementById("gb");
gb.style.center = (30-gb.offsetWidth).toString() + "px";
</script></div></div>

Simpan / save
Selesai.

Semoga tutorial iklan melayang dengan tombol close bisa membantu teman-teman.

~Good luck~

Sejarah Blogger

Sejarah Blogger (Blogspot), Blog merupakan singkatan dari "web log" adalah bentuk aplikasi web yang menyerupai tulisan-tulisan (yang dimuat sebagai posting) pada sebuah halaman web umum. Tulisan-tulisan ini seringkali dimuat dalam urut terbalik, meskipun tidak selamanya demikian. Situs web seperti ini biasanya dapat diakses oleh semua pengguna Internet sesuai dengan topik dan tujuan dari si pengguna blog tersebut.

Blog mempunyai fungsi yang sangat beragam, dari sebuah catatan harian, media publikasi dalam sebuah kampanye politik, sampai dengan program-program media dan perusahaan-perusahaan. Sebagian blog dipelihara oleh seorang penulis tunggal, sementara sebagian lainnya oleh beberapa penulis. Banyak juga weblog yang memiliki fasilitas interaksi dengan para pengunjungnya, seperti menggunakan buku tamu dan kolom komentar yang dapat memperkenankan para pengunjungnya untuk meninggalkan komentar atas isi dari tulisan yang dipublikasikan, namun demikian ada juga yang yang sebaliknya atau yang bersifat non-interaktif.

Situs-situs web yang saling berkaitan berkat weblog, atau secara total merupakan kumpulan weblog sering disebut sebagai blogosphere. Bilamana sebuah kumpulan gelombang aktivitas, informasi dan opini yang sangat besar berulang kali muncul untuk beberapa subyek atau sangat kontroversial terjadi dalam blogosphere, maka hal itu sering disebut sebagai blogstorm atau badai blog.

Ada lebih 10 juta blog yang bisa ditemukan di Internet. Dan masih bisa berkembang lagi, karena saat ini ada banyak sekali software, tool dan aplikasi Internet lain yang mempermudah para blogger (sebutan pemilik blog) untuk merawat blognya. Selain merawat dan terus melakukan pembaharuan di blognya, para blogger yang tergolong baru pun masih sering melakukan blogwalking, yaitu aktivitas dimana para blogger meninggalkan link di blog atau situs orang lain seraya memberikan komentar.

Beberapa blogger kini bahkan telah menjadikan blognya sebagai sumber pemasukan utama melalui program periklanan AdSense, posting berbayar, jualan link, afiliasi dan lain-lain. Sehingga kemudian muncullah istilah profesional blogger, atau problogger, orang yang menggantungkan hidupnya hanya dari aktivitas ngeblog. Karena memang faktanya banyak chanel-chanel pendapatan dana baik berupa dolar maupun rupiah dari aktivitas ngeblog ini.

Blogger atau yang sekarang disebut Blogspot sudah tidak asing lagi di kalangan blogger. Penyedia layanan blog gratisan ini adalah perusahaan besar yang menyaingi WordPress sehingga bisa dibilang merupakan penyedia blog gratisan nomor satu paling laris di dunia.

Berikut Sejarah Blogger

Blogger sebenarnya adalah sebuah sistem publikasi blog (blog publishing system) yang pada awalnya dibuat oleh Pyra Labs pada tanggal 23 Agustus 1999 dan merupakan sebuah dedicated blog-publishing tool pertama kali yang diperuntukkan untuk membantu mempopulerkan format tersebut.

Pada bulan Februari 2003, dikarenakan kepopulerannya, akhirnya Pyra Labs diakuisisi oleh Google. Akuisisi ini menyebabkan fitur premium yang sebelumnya dikenakan biaya, kemudian berubah gratis.

Pada tahun 2004, Google mengenalkan layanan barunya “Picasa”, yaitu sebuah aplikasi untuk mengorganisir dan mengedit foto digital. Layanan ini kemudian diintergrasikan dengan utility sharing foto Hello ke dalam layanan Blogger, sehingga memungkinkan seorang pengguna blogger untuk memposting foto-foto mereka ke dalam blog yang dibuatnya.

Pada tanggal 9 Mei 2004, “Blogger” mendesain ulang tampilan utamanya, berbagai perubahan dilakukan di dalam Blogger dengan menambahkan berbagai fitur seperti web standards-compliant template, halaman arsip individu untuk posting, komentar dan posting menggunankan email.

Pada tanggal 14 Agustus2006, “Blogger” meluncurkan rilis terbaru dalam “versi beta” dengan kode “invader”, bersamaan dengan rilis versi Gold. Ini membuat berpindahnya pengguna Blogger ke server Google dan disertai dengan ditambahkannya beberapa “fitur baru” di dalamnya.

Dalam bulan Desember 2006, akhirnya versi terbaru Blogger tersebut tidak lagi dalam “versi beta” dan dalam “bulan Mei 2007″, Blogger telah benar-benar berpindah ke server Google.

Demikian sejarah blogspot, semoga bermanfaat. Terima Kasih.

~God Luck~

Membuat Teks Berjalan/Marquee Di Blog

Teks Berjalan/Marquee Dan Berkedip Di Blog berguna untuk menarik perhatian pengunjung blog. Bisa di-isi dengan apa saja sesuai keinginan kita, bisa iklan, tukar link, ataupun informasi mengenai isi blog kita.

Login ke blogger.com
Pilih Tata Letak atau Page Elemen
Tambahkan sebuah Elemen Halaman
Pilih HTML/JavaScript -> lalu Copy/Paste code dibawah ini.
Simpan

Teks Berjalan

1. Membuat Teks Berjalan Dari Bawah Ke Atas

<marquee onmouseover="this.stop()" align="center" direction="up" width="100%" height="160" scrollamount= "2" onmouseout="this.start()">Contoh tulisan berjalan dari bawah ke atas<br />http://kodeglobal.blogspot.com</marquee>

Contoh tulisan berjalan dari bawah ke atas

2. Membuat Teks Bergerak Dari Kiri Ke Kanan

Tulisan disini akan berjalan

<marquee scrollamount="20"><b>Tulisan disini akan berjalan</b></marquee>

Keterangan :

bgcolor="warna" » Untuk mengatur warna background (latar belakang) teks
direction="left/right/up/down" » Mengatur arah gerakan teks
behavior="scroll/slide/alternate" » Untuk mengatur perilaku gerakan
Scroll » teks bergerak berputar
Slide » teks bergerak sekali lalu berhenti
Alternate » teks bergerak dari kiri kekanan lalu balik lagi ( bolak-balik bo)
title="pesan" » Pesan akan muncul saat mouse berada di atas teks
scrollmount="angka" » mengatur kecepatan gerakan, semakin besar angka semakin cepat gerakannya. Bisa diganti antara 1 s/d 10 ( 1 lambat, 2 normal, 3 dstnya makin cepat) Gunakan angka 1/2/3 saja cukup.
scrolldelay="angka" » Untuk mengatur waktu tunda gerakan dalam mili detik
align="center" » maksudnya baris teks letaknya di tengah, bisa diganti Left/Right/Justify

Membuat Teks Berkedip

Conton Teks Berkedip
Untuk contoh scriptnya :

<blink>Conton Teks Berkedip</blink>

Jika ada kekurangan mohon di maafkan, Terima Kasih.

~God Luck~

Warna banyak gunanya, apalah artinya hidup tanpa warna, monoton hanya hitam dan putih, semua di dunia ini hanya hitam putih. Kadang kita mengalami kesulitan dalam mencari kode warna sebagai referensi untuk mempercantik tampilan blog kita, misal mengganti warna template, memberi warna-warna pada isi postingan, dllnya.

Ini sebagian contoh warna-warna solid yang sering dipakai :

#000000 : black
#0000ff : blue
#800080 : purple
#808000 : olive
#ffffff : white
#ff00ff : fuchsia
#00ffff : aqua
#008000 : green
#ff0000 : red
#008080 : teal
#808080 : gray
#ffff00 : yellow
#800000 : maroon
#000080 : navy
#c0c0c0 : silver
#00ff00 : lime

Untuk melihat langsung bagaimana proses memudakan warna, menuakan warna secara online, kunjungi saja di sini. http://www.colorschemer.com/online.html

Demikian info dari saya mengenai membuat Kode Warna HTML.

~God Luck~

Membuat Artikel Berhubungan Blog

Membuat Artikel Berhubungan pada blog kita sangat bagus bagi pengunjung blog untuk membaca, karena kita telah menyediakan link artikel yang terkait selain itu juga blog kita akan kelihatan sempurna..

Langkah-langkah membuat artikel berhubungan sbb:

Login ke blogger.com.
Pilih Layout/Tata Letak ---> Edit HTML.
Silahkan backup dulu, Beri centang pada kotak 'Expand Template Widget'.
Cari kode <data:post.body/>.
Kemudian copy script di bawah ini dan letakkan di bawah kode tadi.

<b:if cond='data:blog.pageType == "item"'>
<br/>
<br/>
<H2>Artikel Terkait:</H2>
<div class='kotak'>
<div style='margin:0; padding:10px;height:200px;overflow:auto;border:1px solid #ccc;'>
<div id='albri'/>
<script type='text/javascript'>
var homeUrl3 = "<data:blog.homepageUrl/>";
var maxNumberOfPostsPerLabel = 4;
var maxNumberOfLabels = 10;
maxNumberOfPostsPerLabel = 10;
maxNumberOfLabels = 3;
function listEntries10(json) {
var ul = document.createElement('ul');
var maxPosts = (json.feed.entry.length <= maxNumberOfPostsPerLabel) ?
json.feed.entry.length : maxNumberOfPostsPerLabel;
for (var i = 0; i < maxPosts; i++) {
var entry = json.feed.entry[i];
var alturl;
for (var k = 0; k < entry.link.length; k++) {
if (entry.link[k].rel == 'alternate') {
alturl = entry.link[k].href;
break;
}
}
var li = document.createElement('li');
var a = document.createElement('a');
a.href = alturl;
if(a.href!=location.href) {
var txt = document.createTextNode(entry.title.$t);
a.appendChild(txt);
li.appendChild(a);
ul.appendChild(li);
}
}
for (var l = 0; l < json.feed.link.length; l++) {
if (json.feed.link[l].rel == 'alternate') {
var raw = json.feed.link[l].href;
var label = raw.substr(homeUrl3.length+13);
var k;
for (k=0; k<20; k++) label = label.replace("%20", " ");
var txt = document.createTextNode(label);
var h = document.createElement('b');
h.appendChild(txt);
var div1 = document.createElement('div');
div1.appendChild(h);
div1.appendChild(ul);
document.getElementById('albri').appendChild(div1);
}
}
}
function search10(query, label) {
var script = document.createElement('script');
script.setAttribute('src', query + 'feeds/posts/default/-/'
+ label +
'?alt=json-in-script&callback=listEntries10');
script.setAttribute('type', 'text/javascript');
document.documentElement.firstChild.appendChild(script);
}
var labelArray = new Array();
var numLabel = 0;
<b:loop values='data:posts' var='post'>
<b:loop values='data:post.labels' var='label'>
textLabel = "<data:label.name/>";
var test = 0;
for (var i = 0; i < labelArray.length; i++)
if (labelArray[i] == textLabel) test = 1;
if (test == 0) {
labelArray.push(textLabel);
var maxLabels = (labelArray.length <= maxNumberOfLabels) ?
labelArray.length : maxNumberOfLabels;
if (numLabel < maxLabels) {
search10(homeUrl3, textLabel);
numLabel++;
}
}
</b:loop>
</b:loop>
</script>
</div>
<script type='text/javascript'>RelPost();</script>
</div>
</b:if>

Apabila kita ingin merubah tampilan Artikel Berhubungan Di Blog, dari contoh diatas kita tambahkan script cssnya.

.kotak{border: 1px solid rgb(192, 192, 192); padding: 5px; background-color: #f0f0f0;-moz-border-radius:5px;margin:5px;}
.kotak .hover{ background-color: rgb(255, 255, 255); }

Langkah-langkahnya adalah sebagai berikut:

Login ke blogger.com
Pilih Layout/Tata Letak ---> Edit HTML
Silahkan backup dulu, Beri centang pada kotak 'Expand Template Widget'.
Cari kode ini, ]]></b:skin>
Kemudian copy script di atas dan letakkan di atas kode tadi.

Demikian tutorial Membuat Artikel Berhubungan Blog smoga bermanfaat.

~God Luck~

Cara Mendaftar Situs Web/Blog Ke Search Engine Google

Untuk mendaftarkan situs web atau blog Anda ke Search Engine Google

Sebelumnya Anda harus memiliki akun GMAIL: http://mail.google.com
Selanjutnya login dan silakan kunjungi alamat ini : http://google.com/addurl/ lalu masukan URL situs web/Blog Anda, jangan lupa masukan http:// dan Submit/kirim.

Daftarkan situs web atau blog Anda ke Sitemap google.

Sebelumnya anda masuk ke akun GMAIL dan klik Account, kemudian klik Product.

Klik Sign in to Dashboard, di sini anda diminta untuk memasukan lagi sandi mail anda. Jika sukses anda akan masuk ke halaman produknya Google. Scroll ke bawah untuk mencara produk Webmaster Tools

Klik Manage my sites, dan anda akan menuju ke halaman Webmaster Tools. Disini akan muncul situs web atau blog anda yang di daftarkan di awal tadi. apabila belum nampak tidak masalah, anda tinggal menambahnya dengan mengklik ADD THE SITE, masukan site web atau blog anda.

Setelah berhasil dan site atau blog anda muncul klik pada samping kanan Manage Site dan pilih Add or Remove User. dan tampil halaman User anda.
Setelah anda masuk di halaman user anda, cari link Optimization dan klik Sitemap kemudian di kanan atas klik Add Sitemap. masukan url post atom anda contoh :

http://kodeglobal.blogspot.com/atom.xml

http://kodeglobal.blogspot.com/atom.xml?redirect=false&start-index=1&max-results=100

Nb: Result=100 menandahkan postingan anda lebih dari 100 dan atau lebih dari 500 ratus diganti menjadi 500 dan seterusnya.

Setelah anda memasukan site xml anda dan kirim setelah itu refresh kembali halaman anda. namun status web yang anda daftarkan masih pending harap bersabar, google akan mengaktifkannya dalam waktu 24 jam. kalau belum aktif lagi anda klik link xml yang anda buat dan pada kanan atas klik Resubmit Sitemap.

Demikian tips mendaftar situs/blog ke search engine google, semoga bermanfaat dan situs/blog anda cepat terindex di google.

Membuat Animasi Picture

Membuat aplikasi seringkali kita ingin agar aplikasi kita kelihatan menarik dan sempurna misalnya about me, loading form atau halaman pembuka. berikut saya berikan contoh Membuat Animasi Picture VB 6 dan bisa dikembangkan sesuai kebutuhan kita.

Berikut Source Code Membuat Animasi Picture:

Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Dim flipped As Integer ' bit field
Private Sub Form_Load()
' we need to make the form visible, first
Show
DoEvents
' then we can show the image (this cause a refresh)
cboDissolve.ListIndex = 0
End Sub
Private Sub cboZoom_Click()
cmdShow.Value = True
End Sub
Private Sub chkTile_Click()
cmdShow.Value = True
End Sub
Private Sub cboDissolve_Click()
fraZoom.Enabled = (cboDissolve.ListIndex = 0)
cmdHorizontal.Enabled = (cboDissolve.ListIndex = 0)
cmdVertical.Enabled = (cboDissolve.ListIndex = 0)
cmdBoth.Enabled = (cboDissolve.ListIndex = 0)
cmdShow.Value = True
End Sub
Private Sub cmdShow_Click()
If cboDissolve.ListIndex = 0 Then
ShowImage
Else
DissolveImage
End If
flipped = 0
End Sub
Sub ShowImage()
' show the hidden image
Dim destWidth As Single, destHeight As Single
Dim destX As Single, destY As Single
Dim stepX As Single, stepY As Single
' determine zoom factor
Select Case cboZoom.ListIndex
Case cboZoom.ListCount - 4
' fit width
destWidth = picDest.ScaleWidth
destHeight = picSource.ScaleHeight * (destWidth / picSource.ScaleWidth)
Case cboZoom.ListCount - 3
' fit height
destHeight = picDest.ScaleHeight
destWidth = picSource.ScaleWidth * (destHeight / picSource.ScaleWidth)
Case cboZoom.ListCount - 2
' fit page (no distorsion)
destWidth = picDest.ScaleWidth
destHeight = picDest.ScaleHeight
If destWidth / picSource.ScaleWidth < destHeight / picDest.ScaleHeight Then
' fit width, adjust height
destHeight = picSource.ScaleHeight * (destWidth / picSource.ScaleWidth)
Else
' fit height, adjust width
destWidth = picSource.ScaleWidth * (destHeight / picSource.ScaleWidth)
End If
Case cboZoom.ListCount - 1
' fit page (distorsion)
destWidth = picDest.ScaleWidth
destHeight = picDest.ScaleHeight
Case Else
On Error Resume Next
destWidth = picSource.ScaleWidth * Val(cboZoom) / 100
destHeight = picSource.ScaleHeight * Val(cboZoom) / 100
If Err Then Exit Sub
End Select
picDest.Cls
If chkTile.Value = vbChecked Then
' tile images
For destX = 0 To picDest.ScaleWidth Step destWidth
For destY = 0 To picDest.ScaleHeight Step destHeight
picDest.PaintPicture picSource.Picture, destX, destY, destWidth, destHeight
Next
Next
Else
' simple copy
picDest.PaintPicture picSource.Picture, 0, 0, destWidth, destHeight
End If
End Sub
Sub DissolveImage()
' show the hidden image
Dim srcWidth As Single, srcHeight As Single
Dim srcX As Single, srcY As Single
Dim destWidth As Single, destHeight As Single
Dim destX As Single, destY As Single
Dim stepX As Single, stepY As Single
Dim i As Integer
Const DISSOLVE_STEPS = 20
' most routine below use these values
srcWidth = picSource.ScaleWidth
srcHeight = picSource.ScaleHeight
stepX = srcWidth / DISSOLVE_STEPS
stepY = srcHeight / DISSOLVE_STEPS
picDest.Cls
Select Case cboDissolve.ListIndex
Case 1
' Scroll from Left
srcX = srcWidth
For i = 1 To DISSOLVE_STEPS
srcX = srcX - stepX
picDest.PaintPicture picSource.Picture, 0, 0, , , srcX, 0
RefreshAndDelay
Next
Case 2
' Scroll from right
destX = srcWidth
For i = 1 To DISSOLVE_STEPS
destX = destX - stepX
picDest.PaintPicture picSource.Picture, destX, 0, srcWidth - destX, , , , srcWidth - destX
RefreshAndDelay
Next
Case 3
' Scroll from Top
srcY = srcHeight
For i = 1 To DISSOLVE_STEPS
srcY = srcY - stepY
picDest.PaintPicture picSource.Picture, 0, 0, , , 0, srcY
RefreshAndDelay
Next
Case 4
' Scroll from bottom
destY = srcHeight
For i = 1 To DISSOLVE_STEPS
destY = destY - stepY
picDest.PaintPicture picSource.Picture, 0, destY, , , , , , srcHeight - destY
RefreshAndDelay
Next

Case 5
' Roll from Left
destWidth = 0
For i = 1 To DISSOLVE_STEPS
destWidth = destWidth + stepX
picDest.PaintPicture picSource.Picture, 0, 0, , , 0, 0, destWidth
RefreshAndDelay
Next
Case 6
' Roll from right
destX = srcWidth
For i = 1 To DISSOLVE_STEPS
destX = destX - stepX
picDest.PaintPicture picSource.Picture, destX, 0, , , destX, 0, srcWidth - destX
RefreshAndDelay
Next
Case 7
' Roll from Top
destHeight = 0
For i = 1 To DISSOLVE_STEPS
destHeight = destHeight + stepY
picDest.PaintPicture picSource.Picture, 0, 0, , , 0, 0, , destHeight
RefreshAndDelay
Next
Case 8
' Roll from bottom
destY = srcHeight
For i = 1 To DISSOLVE_STEPS
destY = destY - stepY
picDest.PaintPicture picSource.Picture, 0, destY, , , 0, destY, , srcHeight - destY
RefreshAndDelay
Next
Case 9
' explode
destX = srcWidth / 2
destY = srcHeight / 2
srcWidth = 0
srcHeight = 0
For i = 1 To DISSOLVE_STEPS
destX = destX - stepX / 2
destY = destY - stepY / 2
srcWidth = srcWidth + stepX
srcHeight = srcHeight + stepY
picDest.PaintPicture picSource.Picture, destX, destY, , , destX, destY, srcWidth, srcHeight
RefreshAndDelay
Next
Case 10
' mosaic
' first, prepare the matrix of the (X,Y) coordinates
' for all the tiles
Dim xy(DISSOLVE_STEPS * DISSOLVE_STEPS, 1) As ShiftConstants
Dim kx As Integer, ky As Integer, ndx As Integer
destX = 0
For kx = 1 To DISSOLVE_STEPS
destY = 0
For ky = 1 To DISSOLVE_STEPS
i = i + 1
xy(i, 0) = destX
xy(i, 1) = destY
destY = destY + stepY
Next
destX = destX + stepX
Next
' this loop picks up a random tile, draws it and then
' deletes it from the xy() array so that it can't be
' selected any more
For ndx = UBound(xy) To 1 Step -1
' draw the tile
i = Int(Rnd * ndx + 1)
destX = xy(i, 0)
destY = xy(i, 1)
picDest.PaintPicture picSource.Picture, destX, destY, , , destX, destY, stepX, stepY
' delete it from xy() - actually it just replace it
' with the last item in the array
xy(i, 0) = xy(ndx, 0)
xy(i, 1) = xy(ndx, 1)
Next
End Select
End Sub
Private Sub cmdHorizontal_Click()
' flip the image horizontally
flipped = flipped Xor 1
ShowFlippedImage
End Sub
Private Sub cmdVertical_Click()
' flip the image vertically
flipped = flipped Xor 2
ShowFlippedImage
End Sub
Private Sub cmdBoth_Click()
' flip the image on both axis
flipped = flipped Xor 3
ShowFlippedImage
End Sub
Sub ShowFlippedImage()
picDest.Cls
Select Case flipped
Case 0
picDest.PaintPicture picSource.Picture, 0, 0
Case 1
' flip the image horizontally
picDest.PaintPicture picSource.Picture, picSource.ScaleWidth, 0, -picSource.ScaleWidth
Case 2
' flip the image vertically
picDest.PaintPicture picSource.Picture, 0, picSource.ScaleHeight, , -picSource.ScaleHeight
Case 3
' flip the image on both axis
picDest.PaintPicture picSource.Picture, picSource.ScaleWidth, picSource.ScaleHeight, -picSource.ScaleWidth, -picSource.ScaleHeight
End Select
End Sub
Sub RefreshAndDelay()
'Refresh
Sleep 50
End Sub

Contoh tampilan latihan membuat animasi picture seperti di bawah ini :

Kode diatas hanya sederhana, saya dapat kita gunakan dalam membuat aplikasi Source Code.
Demikian yang bisa saya share semoga bisa membantu teman-teman.

~God Luck~

Membuat Halaman Database VB 6

Membuat halaman database sangat dibutuhkan dalam pengolaan database yang cukup besar. Apabila kita menemukan suatu project demikian apa yang bisa lakukan?. Bagi anda yang mengetahui atau sudah mahir dalam programing VB 6 tentu saja sudah mengetahui solusinya. Berikut saya sharing atau berikan suatu "Tips Membuat Halaman Database atau Page Paging" dengan menggunakan database "Microsoft Access".

Berikut Source Kode Membuat Halaman Database :

Option Explicit
Dim mykoneksi As Connection
Dim WithEvents tb_1 As Recordset
Dim WithEvents tb_2 As Recordset
Dim record As Integer
Dim field As Integer
Dim page As Integer
Dim jumlah_per_halaman As Integer
Dim eop As Integer
Dim j As Integer
Private Sub cbopage_Click()
Dim i As Integer
Dim tempBottom As Integer
Dim tempTop As Integer
If cbopage.Text > 1 And _
cbopage.Text < tb_1.PageCount Then cmdprev.Enabled = True: cmdnext.Enabled = True
If cbopage.Text = tb_1.PageCount Then cmdprev.Enabled = True: cmdnext.Enabled = False
If cbopage.Text <= 1 Then cmdprev.Enabled = False: cmdnext.Enabled = True
If cbopage.ListCount = 1 Then cmdprev.Enabled = False: cmdnext.Enabled = False

If cbopage.Text = "1" Then
j = 0
tb_1.MoveFirst
For i = 1 To jumlah_per_halaman
j = j + 1
tb_1.MoveNext
If tb_1.EOF Then Exit For
Next i
Else
j = 0
tb_1.MoveFirst
eop = cbopage.Text * jumlah_per_halaman
tb_1.Move eop - jumlah_per_halaman
For i = 1 To jumlah_per_halaman
j = j + 1
tb_1.MoveNext
If tb_1.EOF Then Exit For
Next i
End If
tempBottom = (cbopage * jumlah_per_halaman) - (jumlah_per_halaman - 1)
tempTop = ((cbopage * jumlah_per_halaman) - (jumlah_per_halaman - 1)) + (j - 1)
Set tb_2 = New Recordset
tb_2.Open "SELECT * FROM table1 WHERE no_urut>=" _
& tempBottom & " AND no_urut<=" & tempTop & "", _
mykoneksi, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = tb_2.DataSource
record = tb_2.RecordCount
field = tb_2.Fields.Count
DoEvents
End Sub
Private Sub cbo_perpage_Click()
Dim i As Integer
jumlah_per_halaman = cbo_perpage.Text
tb_1.PageSize = jumlah_per_halaman
page = tb_1.PageCount
cbopage.Clear
For i = 1 To page
cbopage.AddItem i
Next i
cbopage.Text = cbopage.List(0)
End Sub
Private Sub cmdCLOSE_Click()
Unload Me
End Sub
Private Sub cmdnext_Click()
cbopage.Text = cbopage.Text + 1
If cbopage.Text > 1 Then cmdprev.Enabled = True
If cbopage.Text >= tb_1.PageCount Then cmdnext.Enabled = False: cmdprev.SetFocus
End Sub
Private Sub cmdprev_Click()
cbopage.Text = cbopage.Text - 1
If cbopage.Text > 1 Then cmdprev.Enabled = True: cmdprev.SetFocus
If cbopage.Text <= 1 Then cmdprev.Enabled = False: cmdnext.Enabled = True
End Sub
Private Sub Form_Load()
Dim i As Integer
Set mykoneksi = New Connection
mykoneksi.CursorLocation = adUseClient
mykoneksi.Open "PROVIDER=MSDataShape;Data PROVIDER=" & _
"Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\db1.mdb;"

Set tb_1 = New Recordset
tb_1.Open "SELECT * FROM table1", mykoneksi

For i = 10 To 35 Step 10
cbo_perpage.AddItem i
Next i
cbo_perpage.Text = cbo_perpage.List(0)
jumlah_per_halaman = cbo_perpage.List(0)
tb_1.PageSize = jumlah_per_halaman
page = tb_1.PageCount
cmdprev.Enabled = False
cmdnext.Enabled = True
Exit Sub
Pesan:
MsgBox Err.Number & " - " & Err.Description
End
End Sub

Contoh Kode membuat halaman vb 6 diatas masih sederhana dan bisa dikembangkan sesuai kebutuhan kita. NB : "mungkin ada rekan-rekan yang ahli mohon di share... terima kasih". Download Source disini.

~God Luck~

Membuat Fungsi Terbilang

Berikut saya akan membagikan Source Code Membuat Fungsi Terbilang dengan menggunakan Visual Basic 6. Penerapannya adalah apabila di suatu perusahaan baik di bank, pertokoan atau instansi pemerintah pembuatan nota kwitansi setoran,penarikan atau pembayaran pasti disertai dengan terbilang agar lebih akurat pengesahan nilai atau nominal angka. Memang secara manual bisa kita ketik di Microsoft Excel atau aplikasi lainnya tapi membutuhkan waktu sedikit lama.

Berikut saya memberikan contoh mengubah angka menjadi terbilang dengan menggunakan Visual Basic.

1. Source code di form

Option Explicit
Private Sub cmdClose_Click()
End
End Sub
Private Sub cmdTerbilang_Click()
Dim obj As New clsTerbilang
txtTerbilang.Text = obj.NumToText(txtNumber.Text)
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub

2. Sorce code class modul terbilang

Option Explicit
Dim Once(0 To 20) As String
Dim Tenths(9) As String
Dim Num As String
Dim n(9) As Integer
Dim i As Integer
Dim meValue As String
Private Sub Class_Initialize()
Once(0) = ""
Once(1) = " Satu"
Once(2) = " Dua"
Once(3) = " Tiga"
Once(4) = " Empat"
Once(5) = " Lima"
Once(6) = " Enam"
Once(7) = " Tujuh"
Once(8) = " Delapan"
Once(9) = " Sembilan"
Once(10) = " Sepuluh"
Once(11) = " Sebelas"
Once(12) = " Dua Belas"
Once(13) = " Tiga Belas"
Once(14) = " Empat Belas"
Once(15) = " Lima Belas"
Once(16) = " Enam Belas"
Once(17) = " Tujuh Belas"
Once(18) = " Delapan Belas"
Once(19) = " Sembilan Belas"
Tenths(2) = " Dua Puluh"
Tenths(3) = " Tiga Puluh"
Tenths(4) = " Empat Puluh"
Tenths(5) = " Lima Puluh"
Tenths(6) = " Enam Puluh"
Tenths(7) = " Tujuh Puluh"
Tenths(8) = " Delapan Puluh"
Tenths(9) = " Sembilan Puluh"
End Sub
Public Function NumToText(Num As String) As String
meValue = ""
Num = Format(Num, "000,000,000.00")
n(1) = Mid(Num, 1, 1)
n(2) = Mid(Num, 2, 1)
n(3) = Mid(Num, 3, 1)
n(4) = Mid(Num, 5, 1)
n(5) = Mid(Num, 6, 1)
n(6) = Mid(Num, 7, 1)
n(7) = Mid(Num, 9, 1)
n(8) = Mid(Num, 10, 1)
n(9) = Mid(Num, 11, 1)

'*** MILLIONS
i = n(1) & n(2) & n(3)
If i > 0 Then
If n(1) > 0 Then
meValue = Once(n(1)) & " Ratus"
End If
i = n(2) & n(3)
If i >= 20 Then
meValue = meValue & Tenths(n(2)) & Once(n(3)) & " Juta"
Else
meValue = meValue & Once(i) & " Juta"
End If
End If

'*** THOUSANDS
i = n(4) & n(5) & n(6)
If i > 0 Then
If n(4) > 0 Then
meValue = meValue & Once(n(4)) & " Ratus"
End If
i = n(5) & n(6)
If i >= 20 Then
meValue = meValue & Tenths(n(5)) & Once(n(6)) & " Ribu"
Else
meValue = meValue & Once(i) & " Ribu"
End If
End If

'*** HUNDREDS
i = n(7) & n(8) & n(9)
If i > 0 Then
If n(7) > 0 Then
meValue = meValue & Once(n(7)) & " Ratus"
End If
i = n(8) & n(9)
If i >= 20 Then
meValue = meValue & Tenths(n(8)) & Once(n(9))
Else
meValue = meValue & Once(i)
End If
End If

meValue = Replace(meValue, "Satu Ribu", "Seribu")
meValue = Replace(meValue, "Satu Ratus", "Seratus")
meValue = Trim(meValue)
NumToText = meValue
End Function

Demikian source code semoga bisa bermanfaat dan membantu rekan-rekan dalam pekerjaan. Download disini

~God Luck~

Angky Blog

Cara Menambah Reply Komentar Blogger

Mengganti Tulisan Older Post, Newer Post, Home

Membuat Menu Tab View Widget Di Blogger

Membuat Menu Tab View Di Blogger

Script Populer Post Widget For Blogger

Script Recent Post Atau Posting/Artikel Terbaru

Script Recent Comment Atau Komentar Terakhir

Trik Mendapatkan/Membuat Link Gambar Melalui Blog

Mengganti Icon Pada AdressBar

Membuat Iklan Dengan Tombol Close

Sejarah Blogger

Membuat Teks Berjalan/Marquee Di Blog

Kode Warna HTML

Membuat Artikel Berhubungan Blog

Langkah-langkah membuat artikel berhubungan sbb:

Langkah-langkahnya adalah sebagai berikut:

Cara Mendaftar Situs Web/Blog Ke Search Engine Google

Membuat Animasi Picture

Membuat Halaman Database VB 6

Membuat Fungsi Terbilang

PENCARIAN ONLINE

Link Lainnya

Popular post

Label

Archieve Blog

About Me

Follow Blog