Tutorial Blogger Dan Internet

Trik Mendapatkan/Membuat Link Gambar Melalui Blog

2012-09-22T09:37:00.000+08:00

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. Siapa di distribusikan sesuai keinginan kita.

Mengganti Icon Pada AdressBar

2012-09-22T09:21:00.000+08:00

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 membutukan 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 Tata Letak Atau Page Element
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

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.

Membuat Iklan Dengan Tombol Close

2012-09-22T06:43:00.000+08:00

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, Cara membuat Iklan dengan tombol close ini saya dapat dari search engine om google dan saya sudah coba berjalan dengan baik. berikut contoh scriptnya.

Login di blog anda
klik tab "Tata Letak" -->> Tambah Gadget (HTML/JavaScript)
Copy Paste code dibawah ini :

Semoga tutorial iklan melayang dengan tombol close bisa membantu teman-teman bloger seperti pada blogku ini. ~Good luck~

Sejarah Blogger

2012-09-21T21:26:00.001+08:00

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

Membuat Teks Berjalan/Marquee Dan Berkedip Di Blog

2012-09-21T16:21:00.000+08:00

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, Terimakasi.

Kode Warna HTML

2012-09-21T13:12:00.002+08:00

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.

Membuat Artikel Berhubungan Blog

2012-09-21T11:51:00.001+08:00

Membuat Artikel Berhubungan pada blog kita sangat bagus bagi pengunjung blog untuk membaca, karena kita telah menyediakan link artikel yang terkait.

Langkah-langkahnya adalah sebagai berikut:

1.Login ke blogger.com
2. Pilih Layout/Tata Letak ---> Edit HTML
3. Silahkan backup dulu, Beri centang pada kotak 'Expand Template Widget'.
4. Cari kode ini, <data:post.body/>
5. 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:

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

Cara Mendaftar Situs Web/Blog Ke Search Engine Google

2012-09-16T12:16:00.000+08:00

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

2012-09-15T15:55:00.002+08:00

Membuat aplikasi seringkali kita ingin agar aplikasi kita kelihatan menarik misalnya about me, loading form atau halaman pembuka. berikut saya berikan contoh Membuat Animasi Picture VB 6 dan bisa dikembangkan sesuai kebutuhan kita.
Contoh tampilan latihan membuat animasi picture seperti di bawah ini :

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

Kode diatas hanya sederhana, saya dapat dari internet melalui Om Googleee. dan telah membantu saya membuat aplikasi-aplikasi sederhan.

Source Code

Membuat Halaman Database VB 6

2012-09-15T15:53:00.002+08:00

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".

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.

Membuat Fungsi Terbilang

2012-09-14T11:42:00.000+08:00

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 souce code semoga bisa bermanfaat dan membantu rekan-rekan dalam pekerjaan.

Download disini