Download Contoh Source Code Visual Basic

Souce Kode yang gue Upload ini adalah contoh-contoh program kecil yang di buat menggunakan visual basic. Total ada 37 contoh program yang dibuat menggunakan Visual Basic.
Sekali lagi saya katakan bahwa file yang gue bagi-bagi ini adalah contoh listing programnya, bukan tutorial visual basic. Jadi gue asumsikan kalian telah mengetahui dasar-dasar pemograman Visual basic sebelum mendownload.

Untuk melihat daftar-daftar program yang saya upload, silahkan klik (perbesar) gambar dibawah :



Silahkan Download source codenya dibawah :

Lokasi : Mediafire
Password : -
Ukuran : 1 MB (cuma source code)

Read More …

[Download] Kumpulan Javascript Efek

Udah lama banget gue ninggalin nih blog, soalnya lagi sibuk ama urusan dunia nyata :D. Sekarang gue kembali buat bagi-bagi kumpulan javascript buat sobat blogger-kerinci yang suka desain web atau blog.
Kurang lebih ada sekitar 3000 javascript yang udah digabungin dan bisa sobat download secara cuma-cuma.

Ukuran file : 6,3 MB
Password : blogger-kerinci
Langsung aja download dengan meng klik gambar dibawah

Download Kumpulan Javascript

Moga bermanfaat buat sobat blogger-kerinci, kunjungin terus http://blogger-kerinci.blogspot.com buat ngedapetin hal2 baru lainnya.. :)

Read More …

Memasang Widget "Blogger Kincai"

Buat Sobat-sobat Blogger Kerinci, kita pasang Widget Blogger-Kincai, biar kekompakan ama persatuan kita lebih jelas terlihat. :)
Sobat hanya menambah Gadget Baru, dan pilih HTML/Javascript, kemudian masukkan kode dibawah ini.

<script type="text/javascript" src="http://anggrie.net63.net/source/melayang.js"></script>
<script language="JavaScript" type="text/javascript"> cot("https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFE3zKv1ESQfMXVRh2WsP2nuS17EEfFQY2-Hd3mMmn6-7M_Dss2dObrLhpqYtQ3g5FRIXjy2J0Sl4ZnmW0t5mq656fq1TJOVADMO_xFnQ_l9jO85dpCcv-tYZEv_hU0XUd1e8b_xen4p0/s1600/kra.png")</script>

Bravoo..! Blogger Kincai.. :)
Read More …

Membuat Text Matrix

Kalo contohnya bisa sobat liat di sini http://project.anggrie.net63.net/textmatrix.php .

Cara bikinnya :
  • Copy skrip dibawah, trus paste di atas kode <head>
<style type="text/css">
.matrix { font-family:Lucida Console, Courier, Monotype; font-size:10pt; text-align:center; width:10px; padding:0px; margin:0px;}
</style>
<script type="text/javascript" language="JavaScript">
<!--
var rows=11; // must be an odd number
var speed=50; // lower is faster
var reveal=2; // between 0 and 2 only. The higher, the faster the word appears
var effectalign="default" //enter "center" to center it.
var w3c=document.getElementById && !window.opera;;
var ie45=document.all && !window.opera;
var ma_tab, matemp, ma_bod, ma_row, x, y, columns, ma_txt, ma_cho;
var m_coch=new Array();
var m_copo=new Array();
window.onload=function() {
 if (!w3c && !ie45) return
  var matrix=(w3c)?document.getElementById("matrix"):document.all["matrix"];
  ma_txt=(w3c)?matrix.firstChild.nodeValue:matrix.innerHTML;
  ma_txt=" "+ma_txt+" ";
  columns=ma_txt.length;
  if (w3c) {
 while (matrix.childNodes.length) matrix.removeChild(matrix.childNodes[0]);
 ma_tab=document.createElement("table");
 ma_tab.setAttribute("border", 0);
 ma_tab.setAttribute("align", effectalign);
 ma_tab.style.backgroundColor="#000000";
 ma_bod=document.createElement("tbody");
 for (x=0; x<rows; x++) {
   ma_row=document.createElement("tr");
   for (y=0; y<columns; y++) {
  matemp=document.createElement("td");
  matemp.setAttribute("id", "Mx"+x+"y"+y);
  matemp.className="matrix";
  matemp.appendChild(document.createTextNode(String.fromCharCode(160)));
  ma_row.appendChild(matemp);
   }
   ma_bod.appendChild(ma_row);
 }
 ma_tab.appendChild(ma_bod);
 matrix.appendChild(ma_tab);
  } else {
 ma_tab='<ta'+'ble align="'+effectalign+'" border="0" style="background-color:#000000">';
 for (var x=0; x<rows; x++) {
   ma_tab+='<t'+'r>';
   for (var y=0; y<columns; y++) {
  ma_tab+='<t'+'d class="matrix" id="Mx'+x+'y'+y+'"> </'+'td>';
   }
   ma_tab+='</'+'tr>';
 }
 ma_tab+='</'+'table>';
 matrix.innerHTML=ma_tab;
  }
  ma_cho=ma_txt;
  for (x=0; x<columns; x++) {
 ma_cho+=String.fromCharCode(32+Math.floor(Math.random()*94));
 m_copo[x]=0;
  }
  ma_bod=setInterval("mytricks()", speed);
}
function mytricks() {
  x=0;
  for (y=0; y<columns; y++) {
 x=x+(m_copo[y]==100);
 ma_row=m_copo[y]%100;
 if (ma_row && m_copo[y]<100) {
   if (ma_row<rows+1) {
  if (w3c) {
    matemp=document.getElementById("Mx"+(ma_row-1)+"y"+y);
    matemp.firstChild.nodeValue=m_coch[y];
  }
  else {
    matemp=document.all["Mx"+(ma_row-1)+"y"+y];
    matemp.innerHTML=m_coch[y];
  }
  matemp.style.color="#33ff66";
  matemp.style.fontWeight="bold";
   }
   if (ma_row>1 && ma_row<rows+2) {
  matemp=(w3c)?document.getElementById("Mx"+(ma_row-2)+"y"+y):document.all["Mx"+(ma_row-2)+"y"+y];
  matemp.style.fontWeight="normal";
  matemp.style.color="#00ff00";
   }
   if (ma_row>2) {
    matemp=(w3c)?document.getElementById("Mx"+(ma_row-3)+"y"+y):document.all["Mx"+(ma_row-3)+"y"+y];
  matemp.style.color="#009900";
   }
   if (ma_row<Math.floor(rows/2)+1) m_copo[y]++;
   else if (ma_row==Math.floor(rows/2)+1 && m_coch[y]==ma_txt.charAt(y)) zoomer(y);
   else if (ma_row<rows+2) m_copo[y]++;
   else if (m_copo[y]<100) m_copo[y]=0;
 }
 else if (Math.random()>0.9 && m_copo[y]<100) {
   m_coch[y]=ma_cho.charAt(Math.floor(Math.random()*ma_cho.length));
   m_copo[y]++;
 }
  }
  if (x==columns) clearInterval(ma_bod);
}
function zoomer(ycol) {
  var mtmp, mtem, ytmp;
  if (m_copo[ycol]==Math.floor(rows/2)+1) {
 for (ytmp=0; ytmp<rows; ytmp++) {
   if (w3c) {
  mtmp=document.getElementById("Mx"+ytmp+"y"+ycol);
  mtmp.firstChild.nodeValue=m_coch[ycol];
   }
   else {
  mtmp=document.all["Mx"+ytmp+"y"+ycol];
  mtmp.innerHTML=m_coch[ycol];
   }
   mtmp.style.color="#33ff66";
   mtmp.style.fontWeight="bold";
 }
 if (Math.random()<reveal) {
   mtmp=ma_cho.indexOf(ma_txt.charAt(ycol));
   ma_cho=ma_cho.substring(0, mtmp)+ma_cho.substring(mtmp+1, ma_cho.length);
 }
 if (Math.random()<reveal-1) ma_cho=ma_cho.substring(0, ma_cho.length-1);
 m_copo[ycol]+=199;
 setTimeout("zoomer("+ycol+")", speed);
  }
  else if (m_copo[ycol]>200) {
 if (w3c) {
   mtmp=document.getElementById("Mx"+(m_copo[ycol]-201)+"y"+ycol);
   mtem=document.getElementById("Mx"+(200+rows-m_copo[ycol]--)+"y"+ycol);
 }
 else {
   mtmp=document.all["Mx"+(m_copo[ycol]-201)+"y"+ycol];
   mtem=document.all["Mx"+(200+rows-m_copo[ycol]--)+"y"+ycol];
 }
 mtmp.style.fontWeight="normal";
 mtem.style.fontWeight="normal";
 setTimeout("zoomer("+ycol+")", speed);
  }
  else if (m_copo[ycol]==200) m_copo[ycol]=100+Math.floor(rows/2);
  if (m_copo[ycol]>100 && m_copo[ycol]<200) {
 if (w3c) {
   mtmp=document.getElementById("Mx"+(m_copo[ycol]-101)+"y"+ycol);
   mtmp.firstChild.nodeValue=String.fromCharCode(160);
   mtem=document.getElementById("Mx"+(100+rows-m_copo[ycol]--)+"y"+ycol);
   mtem.firstChild.nodeValue=String.fromCharCode(160);
 }
 else {
   mtmp=document.all["Mx"+(m_copo[ycol]-101)+"y"+ycol];
   mtmp.innerHTML=String.fromCharCode(160);
   mtem=document.all["Mx"+(100+rows-m_copo[ycol]--)+"y"+ycol];
   mtem.innerHTML=String.fromCharCode(160);
 }
 setTimeout("zoomer("+ycol+")", speed);
  } blog sobat
}
// -->
</script>

  • Trus kalo mau bikin tulisannya tinggal copy aja skrip dibawah ke Postingan, Gadget/Widget
 <div id="matrix">Anggrie Yulio</div>

 Tulisan yang warna merah ganti aja dengan sesuka sobat. :)
Read More …

Membuat Status Page Loading

Page Loading ini akan muncul, saat browser sedang memuat/menampilkan blog sobat hingga 100%. Contohnya pada blog gw ini..


Langkah2 buat bikinnya :
  • Copy skrip dibawah, kemudian letakkan di bawah kode <head>
 <script src='http://anggrie.net63.net/source/preloadpage.js' type='text/javascript'/>

  • Kemudian cari kode <body> dan ganti dengan kode dibawah :
<body onLoad='PreloadPage();'>
<div id='prepage' style='position: fixed; _position: absolute; top: 0px; right: 0px; clip: inherit;
_top: expression(document.documentElement.scrollTop+ document.documentElement.clientHeight-offsetHeight);
_left: expression(document.documentElement.scrollLeft+ document.documentElement.clientWidth-offsetWidth);
width: 100%; height: 100%; background-color: #000;
padding: 0px; border: 0px; text-align: center; filter: alpha(opacity=75);
-moz-opacity: .75; opacity: .75; font-family: verdana; font-weight: bold; color: #ccc;'>
<script type='text/javascript'>PreLoading();</script>
</div>



Kemudian simpan...
Read More …

Twitter Bird melayang di Blog

Maksudnya dalah gambar Twitter Bird yang melayang (terbang) berpindah2 di halamn blog sobat. :) caranya cuma dengan menambahkan gadget baru untuk skrip tersebut . :)
  • Tambah gadget
  • HTML/Javascript
  • Masukan kode dibawah
<script src="http://anggrie.net63.net/source/twittermelayang.js" type="text/javascript"></script>
<script type="text/javascript">
var birdSprite="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiey3IW6pexSfmc1HRVNcjrleJxNZ3I9wmlXqHvryJuyMih4LdxKJF3mwSzTyEZfcQmsE-8ooTg0siyKQ_8b2ATE3F_Z9dZiZlMpJdxEbpWTC0xSXn1jmX14ee-5oY4GPrpASXtI9r61j2v/s1600/original.png"; var targetElems=new Array("img","hr","table","td","div","input","textarea","button",
"select","ul","ol","li","h1","h2","h3","h4","p","code","object","a","b","strong","span"); var twitterAccount = "http://twitter.com/anggrie_yulio";var tweetThisText = "Twitter - UserID http://www.yuliosbook.blogspot.com/";tripleflapInit();
</script>

**Tulisan yang berwarna merah, ganti dengan URL Twitter sobat
**Tulisan yang berwarna biru, ganti dengan alamat blog sobat.
  • Simpan...
Dan begitulah adanya ..... :D
Read More …

Memasang Gambar Melayang

Gambar melayang maksudnya, gambar yang selalu tetap, yang tidak terpengaruh terhadap scrool mouse. Bingung??? Biasanya sih terletak di sudut atas atau bawah halaman blog. Kalo mau bikin ikutin aja step by step nya... :D
  • Tambah Gadget
  • Pilih HTML/Javascript
  • Copy Paste skrip dibawah :
<script type="text/javascript" src="http://anggrie.net63.net/source/melayang.js"></script>
<script language="JavaScript" type="text/javascript"> cot("https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFvtUrbd4DY6qYSQ-KtePjwuozbC-U-i5AdlACuvjY_vGsqHp5hP_CRoK6zvMdTmHGU2O-Dysdjangeet77qy97WrRN2uV5_LxMC_zim-UvPD4gHWoUgNj2sjGVQL0gPU-ZxQrjGq5KsY/s1600/ico.png")</script>
  • dan begitulah... :)
** link yang warna merah bisa diganti ama alamat gambarnya, atau mau pake yang itu aja juga boleh.

Simpan, dan liat hasilnya...
Read More …

Membuat Efek Salju pada Blog/Website

Trik kali ini mungkin udah agak basi, soalnya skrip ginian udah merajalela di internet. :) Skrip ini buat bikin efek salju yang berjatuhan kayak blog gw ini, tapi bisa juga di blog/web lain selain blogspot.com, dengan sedikit sentuhan pastinya, caranya :
  • Tambah Gadget
  • Pilih HTML/Javascript
  • Copas skrip dibawah ini
<script language="JavaScript" src="http://anggrie.net63.net/source/salju.js"></script>

  • Kemudian simpan, udah....
Cuma gitu aja kok, trus liat hasilnya..... :D
Read More …

Google Gravity

Nih efek keren banget, sebuah karya dari www.chromeexperiments.com, yang membuat tampilan google Runtuh hingga pecah berkeping2..

Sobat juga bisa mengklik dan tahan salah satu gambar, dan menggerakkannya, maka gambar tersebut akan terpental dan membentur gambar lainnya.http://mrdoob.com/projects/chromeexperiments/google_gravity/
Trus saya nyoba nyari tau script yang digunakan dengan melihat page sourcenya. Kemudian saya copy dan upload kembali script tersebut, hasilnya berjalan dengan baik. :)









Read More …

Powered by

Pengikut

Total Tayangan Halaman

Follow on G+