Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET (Part 3) [END]

Posting ini saya buat untuk menyempurnakan source code saya sebelumnya. Hasilnya :

• Textbox hanya bisa menerima input angka.
• Textbox hanya bisa diinput dengan 1 huruf pemisah desimal (koma atau titik).
• Textbox hanya bisa diinput huruf minus (-) jika textbox masih kosong.
• Textbox akan otomatis memberikan pemisah ribuan. (seperti kalkulator windows jika diaktifkan fitur digit grouping)

Untuk mencoba source code berikut, anda cukup menambahkan 1 buah textbox ke dalam form. Selanjutnya, tinggal dipastekan pada bagian source code form tersebut. Berikut adalah source codenya :

Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET (Part 2)

Pada posting saya sebelumnya, saya ada menulis tentang cara membuat textbox agar hanya bisa menerima input angka saja dan huruf pemisah desimal (koma). Untuk huruf pemisah desimal, hanya bisa diinput 1 kali saja. Validasi tersebut sudah cukup bagus. Namun masih ada kekurangan yakni textbox tidak bisa menerima input huruf - (minus / negatif). Untuk menjawab kekurangan tersebut, pada posting ini saya akan menyempurnakan source code sebelumnya sehingga textbox hanya hanya bisa menerima input angka, pemisah desimal dan tombol negatif saja. Jika pada source code sebelumnya ditulis dengan statement IF, maka pada source code ini saya ubah dengan statement Select Case. Hasilnya tetap sama. Penulisan source code juga masih dilakukan di event KeyPress textbox. Untuk textbox tersebut, saya set property TextAlign = Right dan MaxLength = 20 pada event Form Load-nya.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TextBox1.TextAlign = HorizontalAlignment.Right
    Me.TextBox1.MaxLength = 20
End Sub

Berikut source pada event KeyPress textbox tersebut :

Validasi Penulisan Angka Desimal pada Textbox dengan VB.NET

Posting ini merupakan gabungan source code pada posting-an saya sebelumnya yakni Membatasi Textbox agar bisa diInput Angka saja dengan VB.NET, Mengubah Huruf Koma dan Titik menjadi Huruf Pemisah Desimal dengan VB.NET dan Membatasi Huruf diInput 2 kali atau lebih pada Textbox dengan VB.NET. Dengan 3 dasar tersebut, kita dapat membuat validasi pada textbox agar bisa diinput angka desimal saja (angka yang memiliki komponen desimal / pecahan). Agar tampilan-nya bagus, set property TextAlign pada textbox menjadi Right atau set programmatically dengan perintah sebagai berikut :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TextBox1.TextAlign = HorizontalAlignment.Right
End Sub

Oke tanpa basa basi lagi, berikut adalah source codenya lengkap dengan komentar-komentar agar mudah dipelajari.

Membatasi Huruf diInput 2 kali atau lebih pada Textbox dengan VB.NET

Dalam pemograman, kadang-kadang kita diwajibkan untuk membatasi penginputan huruf yang sama dalam sebuah textbox. Contoh : Angka pemisah desimal (koma) hanya boleh diinput 1 kali dalam penulisan harga atau quantity barang. Dengan menggunakan pemograman VB.NET, kita cukup menggunakan event KeyPress pada textbox yang bersangkutan. Berikut source code nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA TEXTBOX SUDAH MEMILIKI HURUF PEMISAH DESIMAL
    If Me.TextBox1.Text.Contains(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator) = True Then
        'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
        If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
        e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
            e.Handled = True 'STOP INPUT
        Else
            e.Handled = False 'LANJUTKAN INPUT
        End If
    Else 'JIKA BELUM
        'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
        If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
        e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
            'UBAH HURUF TERSEBUT MENJADI HURUF PEMISAH DESIMAL
            e.KeyChar = CChar(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        End If
    End If
End Sub

Mengubah Huruf Koma dan Titik menjadi Huruf Pemisah Desimal dengan VB.NET

Jika kita menekan huruf titik atau koma di keyboard pada program calculator windows, maka calculator akan otomatis mengubah huruf yang ditekan menjadi huruf pemisah desimal. [Huruf koma jika regional komputer Indonesia atau huruf titik jika regional komputer English(United State)]. Untuk melakukan hal tersebut di textbox pada VB.NET, kita cukup menulis source code di event KeyPress textbox tersebut. Berikut adalah source code-nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
    If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
    e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
        'UBAH HURUF TERSEBUT MENJADI HURUF PEMISAH DESIMAL
        e.KeyChar = CChar(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        'NB : NUMBERGROUPSEPARATOR ADALAH PEMISAH RIBUAN PADA PENULISAN ANGKA
        'NB : NUMBERDECIMALSEPARATOR ADALAH PEMISAH DESIMAL PADA PENULISAN ANGKA
    End If
End Sub

Membatasi Textbox agar bisa diInput Angka saja dengan VB.NET

Untuk membatasi textbox agar bisa diinput angka saja, kita cukup menambahkan coding di event KeyPress pada textbox tersebut. Berikut source code-nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA YANG DITEKAN ADALAH TOMBOL 0-9 ATAU TOMBOL BACKSPACE
    If IsNumeric(e.KeyChar) = True OrElse e.KeyChar = vbBack Then
        e.Handled = False 'LANJUTKAN INPUT
    Else 'SELAIN ITU
        e.Handled = True 'STOP INPUT
    End If
End Sub

Cara Menampilkan Drive, Folder dan File yang Tersembunyi pada Windows Explorer

Berikut merupakan cara untuk menampilkan drive, folder dan file yang tersembunyi pada windows explorer di sistem operasi windows :

1. Buka komputer. Setelah itu buka Windows Explorer dari “Start - All Programs – Accessories – Windows Explorer” seperti gambar 1 berikut
   

   

   Gambar 1 : Buka Windows Explorer

Memperbaiki Tampilan Font Visual Studio 2012

Sesuai dengan judul post kali ini, jika tampilan font pada visual studio 2012 anda jelek (tidak jelas, pecah-pecah, dan sebagainya), maka anda perlu melakukan perubahan setting default visual studio tersebut yakni menonaktifkan fitur Automatically adjust visual experience based on client performance. Masalah ini sering terjadi di leptop lama atau komputer baru yang tidak memiliki grafik card / spesifikasi grafik card-nya terlalu rendah. Salah satu keuntungan menonaktifkan fitur ini adalah mempercepatkan program visual studio ketika dibuka dan dijalankan. Berikut adalah caranya :

Belajar sp_executesql di SQL Server

sp_executesql merupakan store procedure di SQL Server yang fungsinya untuk mengeksekusi kalimat SQL yang dibuat oleh user dan bisa bersifat dinamis. Informasi lengkap tentang sp_executesql bisa diakses di MSDN. Berikut adalah source code yang saya buat untuk mempelajari sp_executesql ini. Source code ini dibuat dengan menggunakan SQL Server Management Studio untuk SQL Server 2014. Database yang digunakan adalah AdventureWorks2014. Bagi yang belum memiliki databasenya, silahkan baca artikel ini untuk mengetahui link download dan cara installnya.

Download & Instal Database Adventure Works 2014

Contoh database Adventure Works versi 2014 sudah direleased. Untuk mendownloadnya, silahkan langsung kunjungi official websitenya di CodePlex atau download full database backupnya disini. (Upload 25 Juli 2014 - 44,823,618 bytes).

Untuk menggunakan database tersebut, silahkan install di SQL Server 2014 baik versi express, standard, dsb. (Tidak bisa diinstall di SQL Server 2012 atau versi dibawahnya karena tidak kompatibel). Jika dipaksakan, akan muncul pesan error seperti gambar 1 dibawah ini.

Gambar 1 : Pesan error ketika menginstall AdventureWorks2014 ke SQL Server 2012

Setelah selesai download, gunakan cara berikut untuk menginstall-nya.

Cara Mengetahui Serial Number Komputer

Untuk mengetahui serial number komputer kita, bisa digunakan beberapa cara. Berikut 2 cara yang dapat digunakan pada windows 7 :

A. Menggunakan Command Prompt

1. Buka Command Prompt (cmd) dengan level administrator (Run as Administrator).

2. Ketikan code berikut : wmic bios get serialnumber

3. Kemudian enter.

B. Menggunakan Windows Powershell

1. Buka Powershell dengan level administrator (Run as Administrator)

2. Ketikan code berikut : Get-WMIObject -Class "Win32_BIOS" -Computer nama komputer kita | Select SerialNumber

3. Kemudian enter.

Menggunakan Burst Shot pada Samsung Note 3

Burst shot merupakan fitur yang memungkinkan kamera mengambil foto dalam jumlah banyak dalam 1 kali foto. Pada samsung galaxy note 3, fitur burst shot sudah terdapat pada aplikasi kamera bawaan smartphone ini. Berikut cara menggunakan fitur burst shot di samsung note 3 :
1. Buka Camera.
2. Pilih Menu (kiri bawah) - Settings - pilih Tab Camera - set Burst Shot = On.
3. Jika muncul pesan tentang informasi penyimpanan foto di memory device, klik Ok.
4. Kemudian masih pada tampilan setting, geser layar ke bawah kemudian set Smart Stabilizer = Off.
5. Kemudian tekan Back (kanan bawah) hingga ke tampilan kamera.
6. Untuk mengambil foto dengan burst shot, Tekan dan Tahan tombol Kamera di layar hingga foto diambil. (Maksimum 20 foto).

Selamat mencoba. ☺

Tips Desain Database Program Accounting

Berikut adalah tips untuk membuat sebuah database program accounting dengan tujuan menghemat ukuran database. Studi kasus : SQL Server 2012 Express Edition

Tips 1 : 2014-08-11 14:47
Transaksi penjualan, pembelian, dll yang mengandung informasi tanggal, maka dalam database tanggal transaksi disimpan dengan tipe data date (3 bytes) bukan datetime (8 bytes) karena informasi waktu tidak disimpan. Kecuali untuk kolom tanggal input yang harus menggunakan tipe data datetime karena informasi waktu harus disimpan.

Tips 2 : 2014-08-11 14:51
Transaksi penjualan, dll yang mengandung informasi tanggal jual dan tanggal jatuh tempo, maka yang disimpan dalam database adalah tanggal jual dengan tipe data date (3 bytes) dan jangka waktu antara tanggal jual dan jatuh tempo saja (disebut term) dengan tipe data smallint (2 bytes). Ketika ingin melihat tanggal jatuh tempo, gunakan fungsi DATEADD (datepart, number, date).

Tips 3 : 2014-08-11 15:00
Primary key tabel master lebih baik menggunakan tipe data angka (tinyint, smallint, int, bigint) dibandingkan tipe data huruf (char, varchar). Jika primary key tabel master disimpan dengan tipe data huruf, maka ketika primary key tersebut di simpan di setiap transaksi dalam tabel transaksi akan menyebabkan ukuran tabel transaksi menjadi besar.

Tips 4 : 2014-10-01 11:56
Pada proses input transaksi yang menggunakan kode faktur secara otomatis, maka kode faktur yang akan disimpan di ambil sekali lagi dari tabel settingnya. Jadi proses ambil kode faktur terjadi 2 kali yakni :
1. Pas user tekan tombol "new" di form daftar transaksi. Hasil kodenya akan ditampilkan ke form input transaksi.
2. Pas user tekan tombol "save" di form input transaksi. Hasil kodenya akan langsung di pakai untuk disimpan ke database. (Dilakukan didalam databasenya - store procedure).
Hasil kode yang akan dihasilkan oleh 2 proses tersebut kemungkinan bisa sama atau berbeda. Jika berbeda, itu artinya ketika user sedang menginput transaksi dan belum selesai di submit (di save), ada user lain yang menginput transaksi juga di komputer lain dan telah selesai di save sehingga kode transaksi awal yang muncul pertama kali sudah terpakai. Jadi, untuk menghindari kejadian error seperti ini, maka proses ambil kode fakturnya dilakukan 2 kali.

Cara Menggunakan Background Worker di VB.NET

Post ini berisi file pdf yang menjelaskan tentang cara menggunakan background worker di VB.NET untuk menjelaskan perbedaan antara synchronous programming dan asynchronous programming. selain itu, juga disediakan solusi error Cross-thread operation not valid pada program VB.NET. 

Berikut merupakan tutorialnya yang dibuat dalam bentuk file pdf. Semoga bermamfaat. ^_^

Cara Membuat Highlight Warna Baris pada Open Office Calc

Pada posting sebelumnya, saya telah membuat tutorial membuat highlight warna baris pada crystal report. Sekarang, saya akan memberikan cara membuat highlight warna baris pada program Open Office Cals. Program ini merupakan program spreadsheet yang fungsinya hampir sama dengan program Microsoft Excel. 

Langkah-langkahnya adalah sebagai berikut:

1. Blok cell yang ingin di highlight.

2. Pilih menu Format ~ Conditional Formatting

3. Pada kotak dialog Conditional Formating, ceklist Condition 1. Pada combobox yang tersedia, pilih Formula is

3. Pada textbox yang tersedia, isikan rumus ini : ISEVEN(ROW())

4. Klik tombol New Style

5. Pada kotak dialog Cell Style, pilih tab Background kemudian pilih warna yang diinginkan.

6. Klik tombol OK untuk menutup kotak dialog Cell Style dan OK sekali lagi untuk menutup kotak dialog Conditional Formatting.

Demikian langkah-langkah yang diperlukan. Jika ada saran atau masalah, silahkan berikan komentar.

Selamat mencoba. ^_^

Cara Membuat Highlight Warna Baris pada Crystal Report

Highlight warna baris maksudnya membuat warna baris ke 2, 4, 6, dst menjadi warna yang berbeda dengan warna baris ke 1, 3, 5, dst. Berikut adalah cara yang dapat dilakukan pada Crystal Report dengan menggunakan Visual Studio :
1. Buat project baru pada Visual Studio.
2. Pilih Project ~ Add New Item.
3. Pilih bagian Reporting ~ Crystal Reports kemudian isikan Name kemudian klik Add.
4. Pada tampilan yang muncul, klik kanan Section3 (Details) pilih Section Expert.
5. Pada tampilan yang muncul, klik tab Color kemudian Ceklist Background Color. Klik tombol Formula (Gambar X-2).
6. Isikan syntax berikut : IF RECORDNUMBER MOD 2 <> 0 THEN CRSILVER ELSE CRNOCOLOR
7. Untuk mengeceknya, tekan tombol Check (Alt + C).
8. Jika sukses, maka akan muncul pesan No Errors Found.
9. Setelah selesai, klik tombol Save and Close (Ctrl + S).

Warna yang disupport :
- Color (red, green, blue)
- CrBlack
- CrMaroon
- CrGreen
- CrOlive
- CrNavy
- CrPurple
- CrTear
- CrSilver
- CrRed
- CrLime
- CrYellow
- CrBlue
- CrFuchsia
- CrAqua
- CrWhite
- CrNoColor

Cara diatas sudah dicoba pada Visual Studio 2005, 2008, 2010 dan 2012.

Selamat mencoba. ^_^