Daniel Fernando

Malam agan - agan semua.... sudah lama admin tidak posting, maklum lah lagi sibuk nyusun tugas akhir :D hari ini admin mau share gimana caraya membuat Sistem Informasi pengiriman Barang menggunakan VB Net, sebekumnya admin sudah posting membuat module koneksi di vb net 2008,  ini adalah lanjutan dari module sebelumnya, oh ia admin disini menggunakan database mysql. ok saat nya dimulai pertama rancang sebuah form seperti gambar dibawah ini : form diiatas terdiri dari : lima buah button tujuh buah textbox   satu buah listview  nama dari masing - masing komponen tersebut bisa anda sesuaikan dari koding dibawah ini : Imports MySql.Data.MySqlClient Public Class DataKayu     Sub Bersih()         BersihForm(Me)         Kunci(Me)         Simpan.ImageKey = "Simpan.Ico"         RubahTombol(0...

Selamat malam teman - teman semua, maaf admin udah lama gak posting,, hari ini saya bakal buat validasi gimana cara membatasi ukuran gambar di vb net, untuk contoh nya dapat dilihat seperti gambar dibawah ini seperti itulah tampilannya untuk koding nya dapat dilihat dibawah ini : Protected Function UkuranGambar () As Booelan Dim FileUpload1 =My.Computer.Filesystem..GetFileInfo(OpenFileDialog1.FileName) Dim FileSize As Integer = FileUpload1.Lenght.ToString If (FileSize) > 0 And FileSize(1000000) Then Return True else MsgBox("Maaf Gambar Terlalu Besar") Return False End If End Function Sebagai catatan ukuran gambar nya dihitung byte bukan kilobyte terima kasih Happy Coding

Dalam membuat suatu sistem informasi atau sebuah program diperlukan adanya sebuah validasi,validasi dibuat supaya mengurangi kesalahan pada saat kita menggunakan sebuah program kali ini saya akan membbagikan bagaimana sebuah textbox hanya dapat diisi dengan huruf saja pertama rancang lah sebuah form Contoh : Langkah Selanjutnya Double Click Textbox tersebut,lalu pada pendeklarasainnya pilih KeyPress dan isikan kode berikut :  Dim KeyAscii As Short = Asc(e.KeyChar)         If (e.KeyChar Like "[A-Za-z]" _                 OrElse KeyAscii = Keys.Back _                 OrElse KeyAscii = Keys.Return _                 OrElse KeyAscii = Keys.Space _              ...

Ya hari ini saya akan memposting bagaimana cara membuat module koneksi di vb net,tanpa basa basi langsung saja kita mula1 Langkah 1. Klik kanan di Solution Explorer nya nama project yang kita buat langkah Selanjutanya Mengisi Apa saja yang dibutuhkan OK Imports MySql.Data.MySqlClient 

Selamat Malam Agan-agan Semua lama saya tidak posting di blog saya ini hari saya akan posting bagaimana mengatasi koneksi ODBC yang tidak bisa di windows 64 bit cara nya cukup gampang tekan Tombol Windows + R (untuk RUN) lalu isikan seperti berikut C:\Windows\SysWOW64\odbcad32.exe nah dan akhirnya terbuka koneksi ODBC nya gampang bukan

Private Sub AutoNumberRowsForGridView() ' membuat no otomatis pada datagridview         If DG IsNot Nothing Then             Dim count As Integer = 0             While (count <= (DG.Rows.Count - 2))                DG.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")                 count += 1             End While