Aplikasi Penge-"Block" Website

Ini merupakan aplikasi yang digunakan untuk menge-block atau memblokir Komputer untuk mengakses website / situs tertentu dari Browser.

Menata Form Child di Form MDI

Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.

• Cascade
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbCascade
  [ VB .NET ] Me.LayoutMdi(MdiLayout.Cascade)
  


• Tile Horizontal
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbTileHorizontal
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileHorizontal)
  


• Tile Vertical
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbTileVertical
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileVertical)
  

Untuk mempermudah User untuk menggunakannya, Anda bisa membuat menu khusus seperti ini :

Membulatkan Bilangan Desimal

Banyak cara dalam VB untuk membulatkan suatu bilangan/ angka desimal menjadi bilangan bulat. Jika Anda belum paham, berikut penjelasan singkatnya :

• Pembulatan Otomatis
  Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
  Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
  Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
  i = CInt(0.4) , hasilnya 0
  i = CInt(0.5) , hasilnya 0
  i = CInt(0.6) , hasilnya 1
  i = CInt(1.4) , hasilnya 1
  i = CInt(1.5) , hasilnya 2
  i = CInt(1.6) , hasilnya 2
  


• Pembulatan Selalu ke Bawah
  Pembulatan ini dilakukan selalu ke bawah berapapun angka desimalnya. Dengan kata lain akan menghilangkan angka desimalnya.
  i = Int(1.1) , hasilnya 1
  i = Int(1.5) , hasilnya 1
  i = Int(1.8) , hasilnya 1
  


• Pembulatan Selalu ke Atas
  Pembulatan ini dilakukan selalu ke atas berapapun angka desimalnya.
  i = -Int(-(1.1)) , hasilnya 2
  i = -Int(-(1.5)) , hasilnya 2
  i = -Int(-(1.8)) , hasilnya 2


• Pembulatan Yang Ditentukan
  Pembulatan ini dilakukan sesuai dengan Batas yang telah ditentukan.
  Jadi bila angka desimalnya >= Batas maka dilakukan pembulatan ke atas dan bila angka desimalnya < Batas maka dilakukan pembulatan ke bawah.
  Misalnya Batas yang ditentukan adalah 0,4 kodenya seperti ini :
  
  Dim Nilai As Double, Hasil As Long
  
  Nilai = 1.4 'bilangan yg akan dibulatkan
  
  Hasil = Int(Nilai) + IIf(CDbl(CStr(Nilai - Int(Nilai))) >= 0.4, 1, 0) 'Batas = 0,4
  
  MsgBox Hasil 'pesan Hasil = 2

Menghitung Selisih Tanggal

Bila Anda membutuhkan kode untuk menghitung selisih antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :

Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )

Jenis Interval	Keterangan
d	Day (Hari)
m	Month (Bulan)
yyyy	Year (Tahun)
h	Hour (Jam)

n	Minute (Menit)
s	Second (Detik)
ww	Week (Minggu)
q	Quater (4 Bulan)

Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5

Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)

Menambah dan Mengurangi Tanggal

Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan operator + dan -. Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya :

Fungsi : DateAdd( Jenis interval, Besar perubahan, Tanggal yang dihitung )

Jenis Interval	Keterangan
d	Day (Hari)
m	Month (Bulan)
yyyy	Year (Tahun)

h	Hour (Jam)
n	Minute (Menit)
s	Second (Detik)
ww	Week (Minggu)
q	Quater (4 Bulan)

Misalnya Anda ingin menghitung 2 hari setelah tanggal 15 Jan 2012 (ditulis #1/15/2012#), yang berarti akan menggunakan jenis interval "d" dan besar perubahannya adalah 2
t = DateAdd("d", 2, #1/15/2012#) , hasilnya 17 Jan 2012

Sekarang jika Anda ingin menghitung 3 bulan sebelumnya, yang berarti akan menggunakan jenis interval "m" dan besar perubahaanya adalah -3.
t = DateAdd("m", -3, #1/15/2012#) , hasilnya 15 Okt 2011

Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
DateTimePicker2.Value = DateAdd("m", -3, DateTimePicker1.Value)

Fungsi-fungsi Date/Time

Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic

• Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
  d = Now , hasilnya 13/01/2012 1:22:42


• Date, digunakan untuk mendapatkan Tanggal sekarang.
  [ VB 6.0 ] d = Date , hasilnya 13/01/2012
  [ VB .NET ] d = Now.Date , hasilnya 13/01/2012


• Time, digunakan untuk mendapatkan Waktu sekarang.
  [ VB 6.0 ] d = Time , hasilnya 1:22:42
  [ VB .NET ] d = Now.ToLongTimeString , hasilnya 1:22:42


• Day(x), digunakan untuk mengambil nilai Tanggal saja dari x.
  [ VB 6.0 ] d = Day(#1/13/2012#) , hasilnya 13
  [ VB .NET ] d = #1/13/2012#.Day , hasilnya 13


• Month(x), digunakan untuk mengambil nilai Bulan saja dari x.
  [ VB 6.0 ] d = Month(#1/13/2012#) , hasilnya 1
  [ VB .NET ] d = #1/13/2012#.Month , hasilnya 1


• Year(x), digunakan untuk mengambil nilai Tahun saja dari x.
  [ VB 6.0 ] d = Year(#1/13/2012#) , hasilnya 2012
  [ VB .NET ] d = #1/13/2012#.Year , hasilnya 2012


• Hour(x), digunakan untuk mengambil nilai Jam saja dari x.
  [ VB 6.0 ] d = Hour(#1:22:42 AM#) , hasilnya 1
  [ VB .NET ] d = #1:22:42 AM#.Hour , hasilnya 1


• Minute(x), digunakan untuk mengambil nilai Menit saja dari x.
  [ VB 6.0 ] d = Minute(#1:22:42 AM#) , hasilnya 22
  [ VB .NET ] d = #1:22:42 AM#.Minute, hasilnya 22


• Second(x), digunakan untuk mengambil nilai Detik saja dari x.
  [ VB 6.0 ] d = Second(#1:22:42 AM#) , hasilnya 42
  [ VB .NET ] d = #1:22:42 AM#.Second, hasilnya 42


• DateSerial(x, y, z), digunakan untuk menghasilkan Tanggal dari kombinasi x, y, z.
  d = DateSerial(2012, 1, 13) , hasilnya 13/01/2012


• TimeSerial(x, y, z), digunakan untuk menghasilkan Waktu dari kombinasi x, y, z.
  d = TimeSerial(1, 22, 42) , hasilnya 1:22:42


• MonthName(x), digunakan untuk mendapatkan nama Bulan dari x.
  d = MonthName(2) , hasilnya Februari


• WeekdayName(x), digunakan untuk mendapatkan nama Hari dari x.
  d = WeekdayName(2, , vbSunday) , hasilnya Senin

Untuk kegunaan Fungsi-fungsi Date/Time yang lain, Anda bisa melihat postingan ini :
Nama Hari dari Tanggal
Menambah dan Mengurangi Tanggal
Menghitung Selisih Tanggal

CrystalReport Tanpa Database

Tidak selamanya penggunaan CrystalReport harus menggunakan Database. Berikut ini contoh penerapannya dalam aplikasi pembuatan Kartu Nama.

TextBox Angka Class

Biasanya ketika Anda ingin membuat TextBox yang hanya bisa diisi angka  maka dibuat prosedur di setiap TextBox-nya. Jika TextBox-nya hanya 1 atau 2 mungkin tidak masalah,
tapi bagaimana bila 10 buah. Maka akan kurang efisien karena terjadi duplikasi kode yang banyak. Karena itu perlu dibuat Class khusus TextBox angka untuk menghemat kode.

Text Berjalan di Desktop

Berikut ini contoh dasar untuk membuat Text yang berjalan di Desktop komputer. Source code ini merupakan pengembangan dari aplikasi desktop sebelumnya.