Membuat Burung Berterbangan mengikuti kursor

Tutorial kali ini saya akan membuat gambar burung ( Ikon twiter di Blog kamu )

Monggo gan,,,!! tuk anak2 KP Khusunya,,,

Log in ke blog Loe
klik rancangan / layot
klik tambah gadget
klik html / javascript
kemudian masukan kode di bawah ini

http://twitter.com/icanicank" target="_blank" style="display: block; position: absolute; width: 64px; height: 64px; background-image: url(http://techgyo.com/wp-content/FlyingTwitbird/birdsprite.png); background-attachment: initial; background-origin: initial; background-clip: initial; background-color: transparent; z-index: 947; left: 0px; top: 587px; background-position: 0px 0px; background-repeat: no-repeat no-repeat; ">

Keterangan

Ganti kode berwarna biru dengan akun twitter anda, sesuaikan aja sama alamat akun twitter anda

simpan, dan lihat hasilnya

sekian dari gue semoga bermanfaat ye,,, gan buat iseng iseng aje,,!! okey,,!!

++++++++++++++++++++++++++++++
icanitan@yahoo.com
icansakura@gmail.com
www.icanicank.co.cc
++++++++++++++++++++++++++++++

Read more »

Aku Adalah Aku Bukan Kau

"Keep Always"

PERHATIAN . . . !!

Jagalah Selau Hatimu, Tetap Focus Perlahan dan Pasti.

Read more »

Setup "DNS Server" Di LINUX menggunakan "Yast"

Instalasi & Setup DNS Di LINUX Open Suse
Contoh :
Domain name : icanicank.co.id
Name Server : ns5.icanicank.co.id, 192.168.1.27
Email Server : Mailserver.icanicank.co.id, 192168.1.27

Langkah Pertama
• Buka Yast Control Center
• Pilih Network Servis / DNS Server
• Pilih Tab Forwaders lalu pilih “Set Forwaders Manually”
• Pada Kolom IP Adres ketikan alamat DNS Forwaders (192.168.1.2)
• Klik Tombol Add





• Pilih DNS Zone
• Pada kolom name ketikan domain name (icanicank.co.id)
• Pada kolim Type pilih master





• Klik tombol add
• Klik tombol edit
• Pilih tab NS Record pada kolom “Name Server Add” Ketikan name server (ns5.icanicank.co.id). klik tombol addd





• Masuk ke Tab MX Record
• Kolom adres ketikan mailserver.icnicank.co.iddan pada priority masukan angka 00 kemudian , klik tombo add.




• Lanjut ke Tab record
• Pertama masukan ns5 pada kolom Record Key
• Lalau pada kolom Type pilih “A :domain Name Translation”
• Value – 192.168.1.27 alamat IP dari mailserver.icanicank.co.id





• Klik Tombok Ok
• FINISH

Lakukan Testing
• Buka console (ALT + F2, console)
• Login sebagai root (su)
• Restart DNS server dengan perintah
Service named restart
• Ketikan perintah dibawah ini
Nslookup ns5.icanicank.co.id
• Dan jika DNS Server anda berjalan dengan benar maka akan mundul output seperti ini :

#nslookup ns5.icanicank.co.id
Server: 192.168.1.27
Address : 192.168.1.27#53

Name: ns5.icanicank.co.id
Address: 192.168.1.27

Selesai sudah semua tahapan seting DNS Server di “Linux Open Suse” menggunakan Yasts Managemen.
Semoga Bermanfaat untuk semua….



+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Icanicank@yahoo.com
www.icanicank.co.cc
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Read more »

Mater VB.Net 24 Maret 2011

Materi Pertemuan Ke -6
Menjelaskan Tentang Pembuatan Data Base Dan di masukan ke “LIST VIEW”
Form’y adalah :





Sourche Codenya adalah :
Bikin Variabel

Public Class Form1
Dim listxt(3) As String
Dim listitem As ListViewItem

//*Doubel Klik Form’y dan Bikin Dibawah ini Call’y di bikin terlebih dahulu

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlist()
End Sub

//* Buton Klik Simpan Double Untuk Eksekuasi,


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

listxt(0) = Trim(TextBox1.Text)
listxt(1) = Trim(TextBox2.Text)
listxt(2) = Trim(TextBox3.Text)

listitem = New ListViewItem(listxt)
ListView1.Items.Add(listitem)
End Sub

//* Bikin Method Untuk seList Nya Berkut Code’y:

Sub setlist()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

End Sub

//* Double Klik Untu ListViewnya Berikut Codenya: “jangan lupa pake Item SelectedChanged”




Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call bersih()
End Sub

//* Untuk Membersihkan Texbox yang ada :

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class


Udah Dulu Yah,,,, Terimakasih !!!!

Create By. KP.Corporation :

+++++++++++++++++++++++++++++++++++++++++++++++++++++
Ican_itan@yahoo.com
www.icanicank.co.cc
icansakura@gmail.com
+++++++++++++++++++++++++++++++++++++++++++++++++++++

Read more »

6 Pemuda Yang Berpengaruh Di Dunia Internet Versi KP.Corporation

Inilah 6 Pemuda Yang Paling Berpengaruh di Dunia Internet Versi Kp.Corporation 2011
"Jadikanlah Semangat Untuk Bisa Seperti dia,,, "
Semangat Kawan2 KP & All

--------------------------

1. Lary Page & Sergey Brin


Larry Page dan Sergey Brin

Menemukan Google pada tahun 1998 ketika mereka baru berusia 24 tahun. Mulai di dalam garasi yang menjadi “kantor” pertama mereka, dua orang ini mengilhami ribuan anak muda untuk mencari uang online. Larry dan Sergey kemudian menciptakan perusahaan senilai satu multi milyar dollar yang mengguncang Internet.

2. Mark Zuckerberg



Mark Zuckerberg, mahasiswa universitas Harvard yang menemukan Facebook sebagai satu platform jaringan sosial bagi remaja di perguruan tinggi ketika dia baru berusia 19 tahun. Facebook kini merupakan situs web jaringan sosial terbesar kedua setelah MySpace. Facebook terus tumbuh hari demi hari, dengan jutaan pengguna baru yang terus mendaftar setiap bulan.

3. Steve Chen dan Chad Hurley



Para pencipta dari situs web “berbagi video online”, YouTube. Mereka mendirikan YouTube pada 2005 ketika Chad berusia 28 tahun dan Steve 27 tahun. YouTube kemudian diakuisisi oleh Google dengan nilai $1.65 milyar.
Jerry Yang dan David Filo

Di tahun 1995 kedua orang ini menemukan Yahoo!, mesin pencari yang merupakan saingan terdekat Google. Jerry berusia 26 tahun dan David Filo 28 tahun ketika mereka menciptakan Yahoo!

4. Matt Mullenweg


Matt Mullenweg baru berusia 19 tahun ketika ia menciptakan platform blogging yang kini dipakai dimana-mana. Ia mendirikan platform blogging WordPress pada tahun 2005, dan sejak itu blogosphere pun mulai berevolusi. Orang-orang mulai berpindah dari MovableType dan platform lainnya ke WordPress, karena platform baru ini memang mudah dipakai dan selalu diperbaharui dan terus meningkat.

5. Tom Anderson




Menciptakan jaringan sosial #1 di dunia dengan lebih dari 100 juta pengguna, Tom Anderson mendirikan MySpace di tahun 2004 ketika ia baru berusia 23 tahun. Dia mungkin tidak sekaya Mark Zuckerberg, tapi ia tercatat sebagai pendiri dari jaringan sosial yang dipakai paling luas di Internet.

6. Joe Hewitt & Blake Ross



Pada tahun 2003, Blake Ross mendirikan Mozilla ketika dia baru berusia 19 tahun. Sejak itu, Mozilla tumbuh sangat pesat, menggoda pengguna Internet untuk memakai penjelajah Firefox Mozilla mereka sendiri, yang terbukti memang lebih mudah dioperasikan dibandingkan kebanyakan aplikasi penjelajah web lainnya.

6. Pierre Omidyar



Pada tahun 1995 ketika ia baru berusia 28 tahun, Pierre Omidyar mendirikan eBay, lelangan online sedunia. Sejak itu, banyak orang-orang menghargai penemuannya, sehingga mendorong eBay menjadi platform dunia.

--------------------------------------------------------------------------------(+_+)
By. Ican_itan@yahoo.com
www.icanicank.co.cc
kp.corporation Tim
--------------------------------------------------------------------------------(+_+)

Read more »

Materi VB.Net Tanggal 17 Maret 2011

Pembahasan Kuliah VB.Net Pertemuan Ke – 4 , adalah membuat Inputan Data Beserta Kelengkapannya, Di Sertai dengan Pemakaian Combo Box .
Detailnya adalah sebagai berikut :
• Yang Pertama adalah kita Bikin Desainya / Form Isinya Yaitu :
4 Label Yaitu untuk NPM,Nama,Alamat Dan Jenjang.
4 TexBox Untuk NPM,Nama,Alamat
1 Combo Box Untuk Jenjang
1 List Box

Contoh gambar Diatas :







Selanjutnya Meng Codingnya Di bawah ini
Double Klik Pada Form’y Dan Muncul Seperti Dibawah ini :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Bersih()
Call IsiCombo()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

*Method Bersih Untuk Menghilangkan, isi dari masing2 TexBox

Sub Bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub

*Method IsiCombo Untuk Mengisi Lis ComboBox

Sub IsiCombo()
ComboBox1.Items.Add("06 Tekhnik Informatika")
ComboBox1.Items.Add("07 Tekhnik Informasi")
ComboBox1.Items.Add("56 Menjemen Informatika")
ComboBox1.Items.Add("05 Tekhnik Komputer")
End Sub

*Mengisi Code pada tombol Keluar yang ada pada Form

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call Noramal()
End Sub
*Method Normal untuk tombol Default dan semuanya bisa di klik

Sub Noramal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
Button4.Enabled = True
End Sub

*Membuat code pada tombol 1 yaitu buton Tambah

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub
End Class

------------------------------------------------------------------------------------
Ket: pada buton “Tambah” apa bila di klik maka akan berubah menjadi “Simpan” dan kedua buton yaitu tombol “Ubah” & “Hapus” akan tidak bekerja / False.
Tutorial Belum Selesai, Tunggu Minngu depan,,,,,,, !!!!! 
Demikian Tutorial dari Gw, yaitu Materi VB.Net Pertemuan ke 4 semoga bermanfaat tuk lulu pade yang demen VB.Net 2008.
By. Ican_icank@yahoo.com , www.icanicank.co.cc
KP.Corporation TM
------------------------------------------------------------------------------------

Read more »

Tugas VB.Net Minggu Ke 3 ,,,,! :)

Scrip Tugas Kuliah Minggu Ke - 3.,,,
Menselekasi Hasil bagi,,,,:

Belum ada gambarnya, Cz ga bisa di UPlod sama gambarnya,,,!!!

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j As Integer
ListBox1.Items.Clear()
For j = Val(TextBox1.Text) To Val(TextBox2.Text)
If j Mod 9 = 0 And j Mod 27 = 0 Then
ListBox1.Items.Add(j)
End If
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim j As Integer
ListBox1.Items.Clear()
For j = Val(TextBox1.Text) To Val(TextBox2.Text)
If j Mod 2 = 3 Then
ListBox1.Items.Add(j)
End If
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub
End Class

Read more »