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 »

Materi VB.net

Aplikasi VB.NET Anda Yang Pertama

Tipe2 data dalam VB.Net

Pada bagian ini anda akan membuat sebuah aplikasi sederhana menggunakan VB.NET. Meskipun aplikasi yang dibuat sangat sederhana, penulis berusaha untuk mengenalkan anda pada berbagai feature baru dan tools dasar VB.NET , sehingga dapat digunakan sebagai dasar pemrograman yang lebih kompleks.
Skenario yang digunakan dalam bab ini adalah membuat aplikasi sekaligus membahas pengenalan Integrated Development Environtment (IDE) VB.NET. Aplikasi yang akan dibuat adalah tanya jawab mengenai makanan favorit, dan aplikasi tersebut akan memberikan komentar berdasarkan jenis makanan yang diinput user.

2.1 Membuat Project Baru
Mulailah dengan membuka Visual Studio .NET, maka akan tampil Start Page yang menampilkan beberapa project terakhir yang anda akses. Pada bagian kiri terdapat beberapa baris hyperlink yang menghubungkan anda dengan beberapa informasi penting. Beberapa link memerlukan koneksi internet untuk mengaksesnya, seperti Online Community dan web Hosting.


Untuk membuat Project baru pilih New Project untuk menampilkan dialog New Project seperti berikut :


Dalam dialog New Project anda dapat memilih jenis aplikasi yang akan dibuat termasuk bahasa pemrograman digunakan. Jenis aplikasi yang dapat dibuat adalah :
• Windows Application : adalah aplikasi yang paling umum dibuat, menggunakan interface windows. Biasanya Windows Application merupakan interface aplikasi sedangakan logic aplikasi terdapat di dalam Class Library. Windows Application dapat berisi form, class, XML file, maupun file VB Script dan Jscript.
• Class Library : merupakan fondasi dasar untuk membuat komponen yang menjalankan fungsi tertentu. Class merupakan fondasi dasar untuk membentuk obyek dalam pemrograman berorientasi obyek. Class Library tidak memiliki interface tertentu seperti form, tetapi dapat diakses oleh aplikasi lain untuk menjalakan berbagai fungsi yang terdapat di dalamnya. Class Library dapat disamakan dengan teknologi ActiveX DLL (.dll) dan ActiveX EXE dalam pemrograman VB6.
• Windows Control Library : tidak puas dengan built in control yang disediakan VS .NET ? Anda dapat berkreasi membuat kontrol sendiri dan memasukkan berbagai fungsi yang anda inginkan di dalam kontrol tersebut. Fasilitas untuk membuat kontrol tersebut adalah Windows Control Library. Kontrol ini sama dengan ActiveX Control (.ocx) dalam pemrograman VB6.
• ASP .NET Web Application : adalah project yang digunakan untuk membuat aplikasi web. Teknologi yang digunakan adalah ASP .NET yang memiliki berbagai kelebihan dibandingkan ASP klasik. Perubahan utamanya adalah dapat diprogram menggunakan berbagai bahasa .NET seperti VB, C++, C# maupun J#. ASP .NET juga menyediakan berbagai kontrol yang bersifat event drivent programming sehingga lebih menghemat waktu pembuatan aplikasi.
• ASP .NET Web Service : Web service merupakan salah satu ide utama dalam .NET. Anda dapat membuat web service dan meletakkannya di web server untuk diakses berbagai aplikasi. Sebuah web service dapat diakses oleh aplikasi windows, web, console, maupun mobile device. Web service hampir sama dengan Class Library, perbedaan utamanya adalah web service tersebut diletakkan di web server sehingga dapat diakses dengan lebih mudah dan tidak terbatas pada aplikasi berbasis windows saja.
• Console Application : merupakan aplikasi dengan tampilan text mode atau DOS. Aplikasi jenis ini biasa digunakan sebagai monitoring service atau remote application dimana sumber daya komputer dan bandwith sangat terbatas.
• Windows Service : adalah aplikasi yang berjalan sebagai service di windows, yang di load bersamaan dengan proses start up windows. Aplikasi ini berjalan di background dan biasanya tidak memiliki interface. Penerapan aplikasi ini misalnya untuk pembuatan scanning antivirus, server FTP, dan remote server.
• Web Control Library : Hampir sama dengan Windows Control Library tetapi digunakan untuk aplikasi web.

2.2 VB .NET IDE
Dalam latihan ini anda akan membuat Windows Application sehingga anda harus memilih jenis project tersebut. Di bagian bawah jendela New Project terdapat dialog untuk menentukan letak file aplikasi. VB selalu membuat satu direktori untuk menyimpan satu project dengan nama sesuai nama project tersebut. Berikan nama Latihan 01 untuk project anda dan klik OK untuk melanjutkan. Tampilan Windows Form Designer adalah sebagai berikut :


Gambar di atas menjelaskan garis besar IDE yang biasa digunakan. Di bagian atas terdapat toolbar yang sudah tidak asing lagi, mencakup berbagai fasilitas editing seperti cut, copy, paste, dan tombol Start. Di bagian kanan terdapat Solution Explorer yang menampilkan berbagai obyek dalam aplikasi seperti form, class dan component.
Anda dapat berpindah dari mode View Code ke View Designer atau sebaliknya. View Code menampilkan coding untuk obyek-obyek dalam aplikasi, sedangkan View Designer menampilkan representasi fisik obyek tersebut.
Di bawah Solution Explorer terdapat Properties Window yang berisi properti obyek yang sedang aktif di bagian designer. Anda dapat mengatur properti obyek di bagian ini baik dari segi tampilan maupun perilaku obyek tersebut dalam aplikasi. Selain menetapkan properti di bagian ini dapat pula mengeset properti secara run time dengan menggunakan coding.
Bagian yang sering digunakan adalah Toolbox yang terdapat di sisi kiri, yang pada gambar di atas sengaja dihide untuk menghemat tempat. Gambar di bawah menampilkan Toolbox yang berisi berbagai macam obyek untuk ditempatkan di form.



Toolbox Windows Form berisi obyek untuk mendesain form seperti TextBox, Label, CheckBox, dll. Kontrol yang mungkin paling sering anda gunakan adalah TextBox, Label, dan Button. Anda dapat mengklik ganda atau dengan drag-drop untuk meletakkan suatu kontrol ke form.

2.3 Memulai Coding
Untuk membuat aplikasi pertama ini letakkan kontrol Label, TextBox, dan Button seperti gambar berikut :



Selanjutnya ubahlah properti Text dari TexBox menjadi Vote, dengan mengisikan text tersebut di Properties Window seperti gambar berikut.


Untuk mengisikan kode program di button, klik ganda button yang bertuliskan Vote dan tuliskan kode berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Makanan As String = TextBox1.Text
If Makanan = "sate" Then
MessageBox.Show("Enak, tetapi kolestrol tinggi", "Respon", MessageBoxButtons.OK).ToString()
ElseIf Makanan = "pecel" Then
MessageBox.Show("Murah dan sehat, :)", "Respon", MessageBoxButtons.OK) .ToString()
ElseIf Makanan = "mie ayam" Then
MessageBox.Show("Ini kurang sehat lho", "Respon", MessageBoxButtons.OK) .ToString()
Else
MessageBox.Show("Maaf, yang ini No Comment", "Respon", MessageBoxButtons.OK) .ToString()
End If
End Sub

Kode tersebut akan dieksekusi setiap kali user mengklik Button1 dan VB akan mengealuasi input dari user yang diletakkan di TextBox1. Event yang ditangkap adalah Button1_Click yang terjadi setiap kali user mengklik tombol tersebut.
Selanjutnya klik ganda di ruang kosong Form untuk menampilkan Event Form1_Load dan isikan kode berikut :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Apa makanan favorit anda ?"
End Sub

Kode tersebut akan mengeset test di Label1 yang semula blank menjadi bertuliskan "Apa makanan favorit anda ?".

Untuk mengetes program tersebut jalankan dengan menekan tombol F5 atau menekan toolbar Start. Masukkan kata “sate” dan tekan tombol Vote. VB akan menampilkan message box dengan pesan sesuai yang telah anda masukkan di kode program yaitu "Enak, tetapi kolestrol tinggi". Masukkan kata “pecel” dan “soto” lalu lihatlah bagaimana aplikasi tersebut bereaksi.


2.4 Bagaimana Cara Kerjanya ?
Aplikasi ini menggunakan kontrol alir logika IF…THEN…. Yang sangat umum dijumpai dalam setiap program. User memasukkan input di TextBoxt yang ditangkap dan dimasukkan ke variabel Makanan bertipe data String.
Dim Makanan As String = TextBox1.Text
Selanjutnya variabel makanan dievaluasi dan diberikan respon message box sesuai dengan jenis makanan yang dimasukkan.
If Makanan = "sate" Then
MessageBox.Show("Enak, tetapi kolestrol tinggi", "Respon", MessageBoxButtons.OK).ToString()

VB menampilkan message box menggunakan Class MessageBox dengan argumen yang terdiri dari pesan, caption, dan jenis button yang ditampilkan. Apabila jenis makanan ternyata bukan “sate” maka dilanjutkan dengan jenis makanan lainnya yang terdapat di bawah kriteria pertama :
ElseIf Makanan = "pecel" Then
MessageBox.Show("Murah dan sehat, :)", "Respon", MessageBoxButtons.OK)
Demikian seterusnya sampai struktur IF…THEN… tersebut berakhir.
Pada saat anda bekerja dengan kode, fasilitas intellisense sangat membantu untuk mengurangi kesalahn coding. Feature ini memunculkan berbagai properti, method, dan function dari suatu class ketika anda mengetikkan tanda dot (.).


Ketika anda memulai baris baru sebuah kode dan ingin mengetikkan obyek built in, anda dapat menampilkan daftar obyek-obyek tersebut dengan mengetikkan Ctrl+Spasi.



2.5 Meningkatkan Kinerja Aplikasi
Aplikasi yang telah anda buat mungkin cukup memadai untuk sebuah program sederhana. Namun sekarang tiba saatnya untuk benar-benar menguji kehandalan aplikasi tersebut.
Cobalah memasukkan kata “Sate”, perhatikan bahwa anda harus menggunakan huruf “S” kapital. Apa yang terjadi ? Aplikasi tersebut akan memunculkan pesan sebagai berikut :



Tentunya anda melihat sesuatu yang ganjil di sini. Pesan yang ditampilkan berbeda dengan pesan untuk kata “sate” sebagaimana telah dicobakan sebelumnya. Kata “sate” dan “Sate” seharusnya memiliki makna yang sama, sehingga pesan yang dimunculkan seharusnya sama pula. Tetapi aplikasi tersebut menganggap kedua kata tersebut sebagai sesuatu yang berbeda karena perbedaan penggunaan huruf kapital. Anda menjumpai bahwa aplikasi tersebut mengandung bug, sebuah logical bug yang dapat menyesatkan pengguna.
Untuk memperbaiki bug tersebut digunakan konversi huruf sehingga aplikasi akan menganggap semua input yang dimasukkan adalah sama. Semua input akan dikonversi terlebih dahulu menjadi huruf kapital, dan selanjutnya dievaluasi sesuai struktur IF….THEN….
Kuncinya adalah dengan mengkonversi semua input di TextBox1 menjadi huruf kapital dengan menggunakan fungsi Ucase.

Dim Makanan As String = UCase(TextBox1.Text)

Dan selanjutnya anda harus merubah semua string makanan menjadi huruf kapital. Keseluruhan kode di event Button1_Click akan menjadi sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Makanan As String = UCase(TextBox1.Text)
If Makanan = "SATE" Then
MessageBox.Show("Enak, tetapi kolestrol tinggi", "Respon", messageBoxButtons.OK).ToString()

ElseIf Makanan = "PECEL" Then
MessageBox.Show("Murah dan sehat, :)", "Respon", MessageBoxButtons.OK).ToString()

ElseIf Makanan = "MIE AYAM" Then
MessageBox.Show("Ini kurang sehat lho", "Respon", MessageBoxButtons.OK).ToString()

Else
MessageBox.Show("Maaf, yang ini No Comment", "Respon", MessageBoxButtons.OK).ToString()
End If
End Sub

Sekarang cobalah menjalankan kembali aplikasi dengan menekan tombol F5 dan masukkan kata “Sate”, atau “sAte”. Semua akan menghasilkan respon pesan yang sama dengan kata “sate”, karena VB telah mengkonversi semua input tersebut sebelum dievaluasi dengan pembanding yang telah dibuat dalam huruf kapital. Dengan demikian aplikasi anda tetap “menganalisis” input secara benar meskipun user melakukan kesalan entri jenis makanannya, terutama dalam hal pemakaian huruf kapital.


Bagaimana jika user tidak memasukan input sama sekali dan langsung menekan tombol Vote ? Dalam aplikasi lama anda, responnya adalah “No Commnet”. Anda dapat menampilkan pesan yang lebih bersahabat dengan menambahkan baris kode berikut sebelum struktur IF…THEN….berakhir, yaitu tepat di bawah variabel bernilai “MIE AYAM”

ElseIf Makanan = "" Then
MessageBox.Show("Makanan belum diisikan", "Warning", MessageBoxButtons.OK, _ MessageBoxIcon.Warning).ToString()

Sehingga apabila user tidak memasukkan makanan tertentu maka ditampilkan pesan sebagai berikut :


Anda telah mempelajari bagaimana sebuah aplikasi harusmmempertimbangkan berbagai kemungkinan kesalahan dan variasi input yang dilakukan user. Dengan demikian aplikasi anda akan tampak lebih user friendly dan lebih cerdas.

Read more »

Materi VB.Net S1/TI/3B Malam

Read more »

Kita Bisa Mencapai Sukses ( Always Keep )

NFS New

Read more »