Bisa add poto lg

wordpress for blackberry

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

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

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

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.

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…

Portofolionya bisa dilihat disini . Silahkan mencoba…..

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.

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

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