Membuat Simple Splash Screen With ProgressBar VBNET

Mungkin anda pernah membuat SplashScreen pada aplikasi anda. Biasanya menggunakan Effect Fade In Face Out agar terlihat "KEREN" dan ditambah label/tulisan seperti : Preparing Application..., Loading Data... dan lain sebagainya walaupun sebenarnya bohong bohongan (tidak Preparing Application atau Loading Data tapi hanya tulisan/label saja dengan menggunakan TIMER). Tetapi sebenarnya seberapa penting SplashScreen ini? sebenarnya ini adalah optional (boleh ada boleh tidak), tapi untuk Aplikasi2 kelas dunia hampir selalu menggunakan SplashScreen saat startup-nya, dan biasanya selama SplashScreen itu muncul (1 - 15 detik) disana benar2 mempersiapkan semua yang dibutukan aplikasi. Saya sudah membuat contoh SplashScreen sederhana dimana pada saat yang bersamaan melakukan pengecekan database, table2, file2 dan sebagainya.

Jika Ada table2 atau file2 yang tidak terbaca maka akan memunculkan pesan error dan aplikasi akan close (tidak akan jalan), kita asumsikan table2 atau file2 yang tidak terbaca itu hilang/terhapus baik secara sengaja ataupun tidak (oleh virus misalnya).

Selain itu SplashScreen juga berfungsi untuk menunjukan identitas suatu aplikasi karena biasanya SplashScreen itu identik dengan gambar2 atau text2 tertentu (gambar/logo perusahaan, nama/merk aplikasi, version dan lain lain)

Download Full Source Code

Tags:

cara membuat SplashScreen vbnet, effect SplashScreen, fungsi SplashScreen, definisi SplashScreen

Solution If Error When Downloading In tusfiles.net

TusFiles.Net adalah salah satu dari sekian banyak web hosting yang ada di dunia maya ini. Pertamakali DJIESOFT menggunakan MediaFire.Com, setelah itu berpindah ke ShareBeast.Com dan terakhir ke TusFiles.Net. Dahulu TusFile.Net service sangat memuaskan, diantaranya :
1.Unlimited Download With Multi/Paralel Download
2.Resume Capability Download
3.Full Speed Download
4.Earn Money

Tapi Sekarang (sejak akhir tahun 2012) :
1.Download dibatasi 1GB Per-Day Per-IP Address
2.No Resume Capability
3.Limited Speed
4.Sering error saat download atau me-refresh terus pada halaman web yang sama

Nah maka dari itu solusi untuk mengatasi point nomor 4 adalah :
Ketik atau klik link ini di web browser  http://tusfiles.net/?design=4
Setelah itu cobalah untuk download kembali link yang error tersebut, tujuan dari link diatas adalah untuk menyederhanakan tampilan TusFiles.Net. Jika masih masalah anda harus menutup (close) web browser anda dulu, setelah itu buka (Open) lagi web browsernya dan buka lagi halaman link download nya. Semoga berhasil !!!

Update 2013-04-10 !
Klik DISINI untuk melihat solusi download file di tusfiles.net yang berubah menjadi File EXE

Tags:
cara download di tusfiles.net, solusi error saat download di tusfiles.net, tusfiles.net tidak membayar lagi, tusfiles.net web hosting yang membayar, tusfiles.net pengganti ziddu dan sharebeast, dapet uang di tusfiles.net, cara download di tusfiles.net dengan lancar mulus,

Cara SELECT/FILTER/SEARCH Data Dari DataTable VBNET

Mungkin belum banyak yang tahu bagaimana cara filter row dari object datatable, saya kasih kasus misalnya saya punya 1 datatable dan sudah terisi data "master barang", ok untuk memperjelas seperti ini sintaknya :

Dim myTable As New DataTable

Using con As NewSqlClient.SqlConnection("data source=DJIESOFT\SQL2012E;user id=sa;password=mypwd;initial catalog=mydb_dummy")

      con.Open()

      Using adp As NewSqlClient.SqlDataAdapter("SELECT * FROM M_PRODUK", con)

           adp.Fill(myTable)

       End Using

End Using

Nah saya ingin data barang yang satuan nya "PCS" masuk ke listview1, maka anda bisa lakukan dengan cara berikut ini :

'add barang berdasarkan satuan

Dim rowFind() As DataRow

'contoh 1 select/filter data dari datatable

rowFind = myTable.Select("SAT_KECIL='PCS'")

IfrowFind.Length > 0 Then

   For Each row As DataRow In rowFind

       ListView1.Items.Add(row.Item("produk_desc").ToString)

       ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(row.Item("sat_kecil").ToString)

   Next

   ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

End If

Anda juga bisa gunakan SQL Operator : LIKE, =, >, <. >=, <=, BETWEEN dan sebagainya, contoh :

'contoh 2 select/filter data dari datatable

rowFind = myTable.Select("SAT_SEDANG IN ('LUSIN','BAND')")

IfrowFind.Length > 0 Then

   For Each row As DataRow In rowFind

       ListView2.Items.Add(row.Item("produk_desc").ToString)

       ListView2.Items(ListView2.Items.Count - 1).SubItems.Add(row.Item("sat_kecil").ToString)

    Next

    ListView2.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

End If

Selain itu juga anda dapat menggunakan AND atau OR sehingga pencarian data akan lebih spesifik lagi, contoh :

'contoh 3 select/filter data dari datatable

rowFind = myTable.Select("SAT_KECIL IN ('BOTOL') AND PRODUK_DESC LIKE 'M%'")

IfrowFind.Length > 0 Then

   For Each row As DataRow In rowFind

       ListView3.Items.Add(row.Item("produk_desc").ToString)

       ListView3.Items(ListView3.Items.Count - 1).SubItems.Add(row.Item("sat_kecil").ToString)

    Next

    ListView3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

End If

Sehingga tampilan akhir nya seperti dibawah ini :

Jadi intinya SELECT dari DataTable ini hanya membutuhkan variable Array DataRow dan Sedikit Perintah SQL (Where/condition Only), so sangat mudah kan? semoga bermanfaat untuk sahabat DJIESOFT semua

Tags:
DataTable.Select Method (System.Data), vb.net - How to select data from datatable, Query Data in DataTable, User selectable rows - DataTables, Dynamicaly selecting data to display in datatables, Select query on datatable for filter data, contoh select data dari datatable

Membuat Stored Procedure Untuk Generate Auto Number/No Urut/No Bukti SQL SERVER+VBNET

Kali ini saya akan lanjutkan kembali pembahasan tentang auto generate number bagian ke-3, pada bagian 1 dan 2 saya membahas bagimana membuat auto increment di aplikasi VBNET, nah kali ini saya akan coba share bagaimana cara membuat auto increment di stored procedure dan sekaligus cara memanggilnya di VBNET. Baik berikut ini script sql nya :

CREATE PROCEDURE [dbo].[djiesoft_autogenerate_number]

@tablename as varchar(50), @fieldname as varchar(20)

AS

BEGIN

       declare @sqlquery as varchar(1000)

       SET @sqlquery ='SELECT LEFT(''0000'',4 - (LEN(CONVERT(VARCHAR,CONVERT(float,'+@fieldname+')+1))) ) + CONVERT(VARCHAR,CONVERT(float,'+@fieldname+')+1)'+' FROM '+ @tablename +' ORDER BY '+@fieldname+' DESC'

    EXEC (@sqlquery)

       --ubah/sesuaikan ''0000'',4 dengan kebutuhan

       --contoh jika ingin 7 digit = ''0000000'',7

END

Nah, setelah anda membuat store procedure itu, maka tinggal panggil saja di aplikasi VBNET, parameter nya nama_tabel dan nama_kolom, jadi stored procedure ini dapat anda gunakan ke berbagai table (multi table) jadi lebih dinamis. Saya sudah buatkan contoh function nya :

    Functiondjie_generate_number(ByVal pTableName As String, ByVal pFieldName As String, ByValpValueIfNull As String) As String

        Usingcon As NewSqlClient.SqlConnection("data source=djiesoft\sql2012e;user id=sa;password=mypwd;initial catalog=mydb")

            con.Open()

            Usingcmd As NewSqlClient.SqlCommand("EXEC djiesoft_autogenerate_number '" + pTableName + "','" + pFieldName + "'", con)

                DimlastNo As String= cmd.ExecuteScalar()

                IflastNo Is NothingThen

                    ReturnpValueIfNull

                Else

                    ReturnlastNo

                EndIf

            EndUsing

        End Using

    End Function

Contoh penggunaanya adalah :

TextBox1.Text = djie_generate_number("table_test", "nomor", "0001")

 

Stored procedure diatas adalah contoh yang paling sederhana, yaitu increment 0001,0002 dan seterusnya, silahkan anda kembangkan lagi jikan ingin penmabhan bulan,tahun,kode tertentu dan sebagainya.OK, Selamat Mencoba !!

Tags:

cara generate autonumber, cara membuat nobukti bertambah, cara generate nobukti otomatis, cara membuat auto nourut, cara membuat custom nourut vbnet, generate auto increment sqlserver , cara membuat norutu berdasarkan tahun tangal bulan , cara membuat nourut berganti setiap tahun atau bulan, membuat no bukti pertanggal, membuat nourut transaksi vbnet sql, auto increment stored procedure sql server, auto generate number stored procedure vbnet