VB 2010 : Menghilangkan bunyi Beep setelah menekan tombol ENTER

Bagi programmer VB 6, pasti familiar dengan kode berikut ini : Private Sub txtfields_KeyPress(Index As Integer, KeyAscii As Integer)  If mbEditFlag = True Or mbAddNewFlag = True Then      If KeyAscii = 13 Then       If Index <= 2 Then          Me.txtFields(Index + 1).SetFocus       ElseIf Index = 3 Then Me.cmbTitle.SetFocus           ElseIf Index = 4 Then Me.cmbCompany.SetFocus                  Else: Me.cmdUpdate.SetFocus                 End If      ...

Read more »

TIPS: Network Design Example

Berikut ini adalah salah satu contoh Network Design. Beberapa Label Ruangan sengaja saya hapus untuk menyamarkan Nama dan Environment dari Client saya. ...

Read more »

Fitur Table Type di SQL Server 2008

Tabel Type adalah fitur yang baru diperkenalkan di SQL SERVER 2008, yang belum pernah ada di SQL SERVER versi-versi sebelumnya. Kegunaan fitur ini antara lain ketika:  Mengirimkan data multiple rows ke Stored Procedure atau Function tidak perlu membuat temporary table Mengirimkan multple parameter ke Stored Prcedure atau Funtion dapat disederhanakan dengan adanya fitur ini. Untuk memperjelas penggunaannya perhatikan contoh berikut ini.  Misalkan kita ingin menginsert isi tabel berikut  ke tabel : 1. Buat User Define Table Type di SQL Server 2008 seperti contoh berikut : USE SITCGOCREATE TYPE SysAdmType AS TABLE (    KODESEKOLAH VARCHAR(5),    NO_FORMULIR VARCHAR(20) NULL,   ...

Read more »

DataGridView : Changing Row Color based on Row Value

Berikut ini adalah contoh coding di VB 2010 untuk memberi warna Row pada DataGridView sesuai dengan Value nya. Dalam contoh ini saya memberi warna yang berbeda untuk Kodesekolah SD, SMP dan SMA. Coding ini saya ambil dari Project yang sedang saya kerjakan yaitu Software PPDB (Penerimaan Peserta Didik Baru) atau yang sebelumnya dikenal sebagai PSB (Penerimaan Siswa Baru) pada salah satu sekolah di Bogor Jawa Barat. Semoga bermanfaat. Private Sub dgSysAdm_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgSysAdm.CellFormatting         Dim currentRow As DataRowView         If e.RowIndex >= 0 Then            ...

Read more »

Membuat Chart di VB 2010

Sekitar 1 bulan lalu saya diminta oleh seorang sahabat untuk mengajari beliau cara membuat Chart di VB 2010.  Karena waktu beliau juga sangat padat akhirnya saya buatkan coding yang disesuaikan dengan kebutuhan beliau sebagai contoh untuk pelajari. Berikut ini saya share codingnya, semoga bermanfaat. Imports System.Windows.Forms.DataVisualization.Charting Public Class frmExample6     Private dtTest As New DataTable         Private Sub cmdProses_Click(sender As System.Object, e As System.EventArgs) Handles cmdProses.Click         Dim i As Integer         Dim j As Integer        ...

Read more »