Enak jg ya blogging lewat HP hehe,sayang fitur2nya masih kurang lengkap cuman ada stat,post & bookmark..

Pasti keren klo bisa upload foto..,
trus bisa ga seh klo liat comment2 yg masuk?(ga bs ya)

Ngetiknya bs sambil tiduran,sampe ngantuk hahahaha

Sip deh ditunggu inovasinya dr wordpress ato kita (sbg praktisi IT) harus berinovasi hehe kerenkan..

Langkah-langkah membuat User Control “Text Box Email Checker” di VB.Net 2005

1. Klik MenuFile –> New –> Windows Control Library, Isi nama Project-nya misalnya TextBoxEmailChecker.
2. Masukkan komponen TextBox kedalam area yang telah di sediakan di view design

1. Masukkan juga komponen ErrorProvider untuk memberikan alert kepada user bahwa email yang dimasukkan tidak valid.
2. Buatlah event validating di komponen textbox

Ketiklah beberapa code dibawah ini

Public Class controlTxtEmail

Dim emailAt() As String

Dim emailDot() As String

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmail.Validating

emailAt = Split(txtEmail.Text, “@”)

emailDot = Split(txtEmail.Text, “.”)

If emailAt.Length – 1 = 1 And (emailDot.Length – 1 > 0 And emailDot.Length – 1 < 3)      Then

ErrorProvider1.SetError(txtEmail, “”)

Else

ErrorProvider1.SetError(txtEmail, “Masukan Email dengan Benar” & vbCrLf & “Contoh: admin@domain.com atau admin@domain.co.id”)

txtEmail.Focus()

End If

End Sub

End Class

Skenarionya email yang valid seperti admin@domain.co.id atau admin@domain.com.

Kita menggunakan method split untuk memisahkan string menjadi array yg bertipe data String. Jadi misalkan kita memisahkan alamat email dengan karakter “@” maka seharusnya akan menjadi 2 buah array yg nilainya array yg ke-1 bernilai admin dan yg kedua bernilai domain.com jika nilainya 3 maka email tersebut tidak valid misalnya admin@kantor@domain.com.

Yang kedua kita cek karakter “.” sama seperti karakter “@” kita cek jika hasil split antara 2 dan 3 maka email tersebut valid jika lebih dari 4 maka email tersebut tidak valid. Jika email yg dimasukkan tidak valid maka aka muncul errorProvider berisi “Masukkan email dengan benar”

Setelah itu jalankan atau tekan tombol run untuk mengetest user control yg barusan kita buat.

Kita juga bisa memasukkan beberapa property tambahan misalnya untuk mengetahui domain dari alamat email yg dimasukkan, tambahkan code dibawah ini..

Public ReadOnly Property domain() As String

Get

Dim hasil As String = “”

emailAt = Split(txtEmail.Text, “@”)

If emailAt.Length – 1 = 1 Then

hasil = emailAt(1)

End If

Return hasil

End Get

End Property

Artinya, property domain hanya bisa diambil nilainya, kita tidak bisa memasukkan nilai ke dalam property tsb.

Misalnya : justienadambakhtiar@gmail.com maka hasilnya gmail.com

Untuk memasukkan user control tersebut

klik kanan di toolbox, tekan Choose Item –> tekan tombol browse. Masukkan file .dll yang kita buat tadi.. maka user control yg kita buat tadi akan muncul di toolbox,tinggal drag user control tsb ke dalam form lalu jalankan….

semoga membantu….

   OOP mempunyai kepanjangan Object Oriented Programming, kalau diterjemahkan ke Bahasa Indonesia berarti Pemrograman Berorientasi Objek. Pemrograman Berorientasi Objek adalah pemrograman yang memiliki konsep objek seperti halnya objek di dunia nyata.

Contoh :

Class : Media Elektronik
Object : Radio
Data Member : Volume, Frekuensi (Tune)
Property : FM/AM
Method : Radio Menyala

Class adalah pola atau cetak biru dari sebuah objek yang terdiri dari beberapa atribut dan operasi dari objek tersebut.

Object adalah bentuk instant dari sebuah class.

Data Member dan Property adalah Atribut yang dimiliki oleh class. Property adalah untuk mengubah atau mengambil nilai dari Data Member.

Method adalah Operasi yang dapat dilakukan oleh class tersebut. Method dapat berupa Procedure dan Function.

Istilah lain yang sering disebut OOP adalah Constructor dan Destructor.

Constructor adalah method yang dijalan pertama kali pada saat meng-instant-kan sebuah object. Biasanya diikuti dengan keyword NEW.

Destructor adalah method yang dijalankan sebelum suatu objek tidak digunakan lagi atau pada saat objek dihancurkan. Biasanya diikuti dengan keyword FINALIZE.

Contoh Sintak:
Public Class cRadio
'-----------
'data member
'-----------
'Biasanya tipe acces mmodifier nya bertipe private untuk menghindari diakses dari luar class ini.
'Gunakan tipe acces mmodifier nya bertipe public untuk bisa diakses dari luar class ini. Private volume As Integer
Private frekuensi As Decimal
Private modeFrekuensi As String'-----------
'constructor
'-----------
Sub New()
volume = 0
frekuensi = 0
modeFrekuensi = ""
End SubSub New(ByVal vol As Integer, ByVal frek As Decimal, ByVal mode As String)
volume = vol
frekuensi = frek
modeFrekuensi = mode
End Sub

'--------
'property
'--------
Public Property propVolume() As Integer
Get
Return volume
End Get
Set(ByVal value As Integer)
volume = value
End Set
End Property

Public Property propFrekuensi() As Decimal
Get
Return frekuensi
End Get
Set(ByVal value As Decimal)
frekuensi = value
End Set
End Property

Public Property propModeFrek() As String
Get
Return modeFrekuensi
End Get
Set(ByVal value As String)
modeFrekuensi = value
End Set
End Property

'------
'method
'------
'Gunakan public jika ingin diakses class lain
'Gunakan private jika ingin hanya bisa diakses didalam class ini

Public Sub nyala()
'Radio menyala
End Sub
Public Function apakahStereo() As Boolean
'radio mati
Return True
End Function

End Class

Sintak untuk membuat object dari sebuah class adalah seperti dibawah ini.

Dim [nama object] as New [nama class]
Dim radioku as New cRadio
radioku = New cRadio()
atau
radioku = New cRadio(100,89.7,”FM”)

Sintak untuk mengubah/mengambil property seperti dibawah ini.

radioku.modeFrekuensi=”FM”
msgbox(“Sekarang menggunakan mode frekuensi=” & radioku.modeFrekuensi)

Sintak untuk menjalankan method seperti dibawah ini.

radioku.nyala
msgbox(“Apakah suaranya stereo ? ” & radioku.apakahStereo )

Keuntungan dari OOP
- Modularity
Dengan modul kita dapat mengatur aplikasi kita berdasar modul, seperti modul pembelian, modul penjualan. Dengan modul kita lebih mudah dalam pembetulan atau revisi aplikasi.
- Reusability (Pengunaan Kembali)
Aplikasi yang telah kita buat dapat dipakai lagi, jika kita ingin membuat aplikasi dengan coding yang sama. Jadi kita tidak perlu membuat lagi dari awal.
- Extendibility (Perluasan)
Aplikasi yang telah kita buat pasti berbeda-beda, sehingga diperlukan kemampuan untuk dapat memperluas class yang ada agar sesuai dengan keperluan saat ini.

1. InvalidCastException
InvalidCastException adalah menangkap kemungkinan terjadinya error karena kesalahan tipe data ke dalam variabel.
Contoh :

Try
Dim a As Integer
a = "tipe string"
Catch ex As InvalidCastException
MsgBox("Kesalahan Input Data")
End Try

2. IndexOutOfRangeException
IndexOutOfRangeException adalah menangkap kemungkinan terjadinya error karena index telah melebihi batas. Misalnya array yang telah di deklarasi mempunyai index sampai dengan 3, tapi pengaksesannya lebih dari index yang telah ditentukan.
Contoh :

Try
Dim a(4) As String
For i As Int16 = 0 To 5
a(i) = CStr(i)
Next
Catch ex As IndexOutOfRangeException
MsgBox("Index melebihi batas")
End Try

3. OverflowException
OverflowException adalah menangkap kesalahan yang terjadi karena kelebihan nilai dari suatu variabel dengan tipe data tertentu. Misalnya Integer mempunyai range data mulai -2147483648 sampai +2147483647
Contoh :

Try
Dim a As Integer = 2147483647
a += 1
Catch ex As OverflowException
MsgBox("Nilai melebihi batas")
End Try


Netvibes.com situs ini memberikan layanan personalisasi halaman utama (atau istilah lainnya dashboard) ,halaman ini terdiri dari situs favorites websites, blog, email accounts, social networks, search engines, instant messengers, photos, videos, podcasts, widgets pokonya semuanya ada di situs ini…

Secara teknis situs ini dibuat dengan teknologi AJAX . Kuuueren poolll…. tinggak klik tulis dan drag n drop.. Jadi kita tinggal buka satu halaman, bisa cek email, baca berita, tahu cuaca sekarang(penting ga????),googling, isi album poto, liat video wah banyak deh… dan yang pasti di halaman ini bisa di customize sesuai dengan keinginan kita.. wow…

Bagi yang gemar mendesain web atau desain grafis ada situs/blog yg bagus banget, tutorialnya lengkap ttg mendesain…. cewek dari belgia namanya veerle ,dia berprofesi sebagai graphic/web designer.

Portofolionya bisa dilihat disini . Silahkan mencoba…..

StatusBar

Fungsi:
Status bar berfungsi untuk menambahkan informasi di bagian bawah dari form, misalnya untuk menampilkan nama file yang sedang dibuka, menampilkan tanggal, waktu, dan status dari keyboard.

Penggunaan:
1. Masukan kontrol StatusBar dari toolbox
2. Ubah properti ShowPanel menjadi “true”, jika nilai properti tersebut “false” maka kita tidak bisa menampilkan panel dalam StatusBar,yang akan ditampilkan adalah properti Text
3.Sintak untuk menambah panel:
StatusBar1.Panels.Add(now()) ‘untuk menampilkan tanggal & waktu
StatusBar1.Panels.Add("Ready") ‘untuk menampilkan teks pada status bar

Menambah panel pada view design:
- Tekan tombol property panels,lalu akan muncul StatusBarPanel CollectionEditor

- Tekan Add untuk menambah panel. Disebelah kanan ada properti dari panel tersebut,antara lain : Text, Icon, Style, dll

- Pada saat dijalankan panel akan otomatis muncul di StatusBar.
4. Sintak untuk merubah isi text dari panel:
StatusBar1.Panels(0).Text = now() ‘untuk menampilkan tanggal & waktu sekarang

ToolBar

Fungsi:
Toolbar adalah fungsi standart dari aplikasi berbasis windows. Toolbar menampilkan sebaris dari buttons dan dropdown menus. Toolbar biasanya diisi dengan fungsi aplikasi misalnya fungsi Cut,Copy,Paste,dll. Toolbar juga untuk mempercepat user dalam mengakses fungsi aplikasi.

Penggunaan:
1. Masukkan control Toolbar dari toolbox
2. Sintak untuk menambah button di toolbar:
ToolBar1.Buttons.Add("New") ‘menambah button dengan mana “New”

Menambah button di toolbar pada view design:
- Tekan tombol di property Buttons,lalu akan muncul ToolbarButton CollectionEditor

- Tekan Add untuk menambah button, disebelah kanan terdapat pilihan property dari button antara lain: Text, Style, Visible,dll.
3. Untuk menulis statement dari tombol yang kita tekan
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
MsgBox("New")
End Select
End Sub


4. Untuk menampilkan gambar/icon di button adalah:
ToolBar1.ImageList = ImageList1

Sebelumnya kita harus membuat Imagelist yang didalamnya terdiri dari kumpulan dari beberapa gambar/icon

ToolBar1.Buttons.Item(0).ImageIndex = 0

Setelah itu set ImageIndex button tersebut dari gambar di image list,biasanya dimulai dari index 0.

Fungsi:

Salah satu komponen yang memudahkan kita dalam melakukan validasi terhadap kemungkinan error yang terjadi khususnya untuk melakukan validasi pada inputan yang berhubungan dengan user interface.

Error provider akan mamberikan sebuah notifikasi yang akan ditampilkan dengan tooltip dan icon disamping kanan dari sebuah komponen.

Method yang digunakan untuk menampilkan pesan ke user adalah method SetError.

Contoh Penggunaan:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
ErrorProvider1.SetError(TextBox1, "Masukkan angka!")
Else
ErrorProvider1.SetError(TextBox1, "")
End Sub

Fungsi:

1. Try..Catch..Finally

Vb.net mempunyai keyword untuk menghindari error yaitu try, catch, dan finally dalam melakukan exception handling.

 

syntax:

 

Try

Statement yang berpotensi dapat menyebabkan error

Catch variable As jenis exception

Statement untuk meng-handle error ayng mungkin terjadi

Finally

Statement final untuk membersihkan error

End Try

Kita juga bisa menggunakan multiple catch pada satu blok try, dimana masing-masing catch akan menangani exception yang berbeda-beda.

 

Jika compiler tidak menemukan block catch yang sesuai dengan exception maka compiler akan menjalankan statement yang ada di block Finally. Dan pastinya block Finally akan dijalan oleh compiler.

 

Kita juga dapat meng-handle error secara spesifik sesuai dengan error yang terjadi. Biasanya bisa menggunakan jenis exception seperti DivideByZeroException dan OverflowException.

2.Throw Exception

Selain menangkap error kita juga bisa melempar error (throw exception),cara ini biasanya menggunakan keyword throw. Penggunaan throw ini bisa digunakan seperti contoh kita akan melakukan validasi terhadap data yang akan dimasukkan dalam sebuah property jika nilai yang dimasukkan kurang dari 0 maka akan melempar exception tidak boleh dibawah 0.

3. Contoh Penggunaan

Single catch

Private sub getFile(xpath as string)
Try
fs=New FileStream(xpath,FileMode.Open)
Catch ex as Exception
MessageBox.Show(ex.Message)
Finally
If Not (fs is Nothing) then fs.Close()
End Try
End sub

Mutiple catch

Private sub getFile(xpath as string)
Try
fs=New FileStream(xpath,FileMode.Open)
Catch ex as FileNotFoundException
MessageBox.Show(“Data is Missing”)
Catch ex as Exception
MessageBox.Show(ex.Message)
Finally
If Not (fs is Nothing) then fs.Close()
End Try
End sub

Throw Exception

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myValue As Integer
Dim lop As Short = 0
Try
If TextBox1.Text = "" Then
Throw New Exception("please enter a numeric")
Else
Randomize()
Do
lop += 1
myValue = CInt(Int((10 * Rnd()) + 0))
If myValue = TextBox1.Text Then
Exit Do
End If
Loop
MsgBox("Value " & myValue & " Looping ke " & lop)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


Perbedaan Procedure & Function

	Procedure	Function
Definisi	Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya	Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
Parameter	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
Deklarasi	Menggunakan keyword “Sub”.	Menggunakan keyword “Function”, untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.

Contoh Sintak di VB.Net

Sintak Procedure

• Tanpa Parameter

[Access Modifier] Sub NamaProcedure()
'Statement
End Sub

Ket. Access modifier = Private, Public, dan Friend.

Contoh:

Private sub phi ()
Dim xVar as Double = 3.14
MsgBox (“Nilai phi =” & xVar)
End Sub

• Menggunakan Parameter

[Access Modifier] Sub NamaProcedure(Parameter As TipeData, Parameter2 As TipeData)
'Statement
End Sub

Contoh:

Private sub pesan(ByVal xVar as String)
MsgBox (“Pesan =” & xVar)
End Sub

Sintak Function

• Tanpa Parameter

[Access Modifier] Function NamaFunction() as TipeDataUntukNilaiBalik
'Statement
End Function

Contoh:

Private Function hitung() as Integer
Dim xVar as Integer = 10
Dim xVar2 as Integer = 20 Return (xVar * xVar2)
'Atau hitung = (xVar * xVar2)
End Sub

• Menggunakan Parameter

[Access Modifier] Function NamaFunction(Parameter As TipeData, Parameter2 As TipeData) as TipeDataUntukNilaiBalik
'Statement
End Function

Contoh:

Private function hitung(ByVal xVar as integer, ByVal xVar2 as integer) as integer
Return (xVar * xVar2)
End function

Cara pemanggilan procedure & Function

Pemanggilan untuk procedure

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Pemanggilan tanpa parameter
phi()
'Pemanggilan dengan parameter
pesan("Hello World.")
End Sub

Pemanggilan untuk function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Pemanggilan tanpa parameter
MsgBox( hitung() )
'Pemanggilan dengan parameter
MsgBox( hitung (10,20) )
End Sub