Thursday, February 21, 2013

Sharing Everything From My Experience And Knowlegde

Sharing Everything From My Experience And Knowlegde

Perbedaan ADODB VB6 dan SQLClient, OLEDB, ODBC di VBNET (PART I)

Posted: 20 Feb 2013 09:49 PM PST

Berikut ini saya akan jelaskan perbedaan ADODB di VB6 dan SQLClient, OLEDB, ODBC di VBNET. VB6 Hanya memiliki satu provider Data yaitu "Microsoft ActiveX Data Object 2.x" (versi 2.0 sampai 2.8). dimana dengan ADODB itu anda dapat gunakan dengan berbagai jenis connection string seperti :
Dim con As New ADODB.Connection
'koneksi ke ms.sqlserver 2008 (default)
con.Open "Provider=SQLNCLI10.1;Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db"
'koneksi ke ms.access (default)
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password=123;Data Source=" + App.Path + "\djiesoft_db.ACCDB"
'koneksi ke mysql (via ODBC v1)
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123"
'koneksi ke mysql (via ODBC v2)
con.Open "DSN=Koneksi_mySql;Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123"

Nah jika di VBNET itu tidak bisa seperti VB6, tetapi harus disesuaikan dengan jenis databasenya, saya akan bahas sekaligus dengan perbedaan antara  SQLClient, OLEDB, ODBC , contoh :
1.SQLClient
Ini hanya berlaku untuk Database Ms.SQLServer (di-khususkan dengan fitur full/lengkap untuk manajemen databse Ms.SQLServer). Disini anda tidak perlu menulis connection string dengan awalan "Provider=..." atau "Driver=..." atau "DSN=..." karena tidak akan bisa ("ERROR Keyword not supported: 'provider/Driver/DSN'"). Contoh connection string :
'koneksi ke ms.sql server 2008
Dim con As New SqlClient.SqlConnection("Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db")
con.Open

2.OLEDB
Ini dapat berlaku ke semua database, jika di VB6 itu sama dengan saat anda menulis connection string dengan awalan "Provider=...", Jadi jika anda menulis connection string di OLEDB ini dengan awalan "Driver=..." atau "DSN=.." itu tidak akan bisa ("ERROR An OLE DB Provider was not specified in the ConnectionString.  An example would be, 'Provider=SQLOLEDB;"). Contoh connection string :
'koneksi ke ms.sql server 2008
Dim con As New OleDb.OleDbConnection("Provider=SQLNCLI10.1;Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db")
'koneksi ke ms.access
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password=123;Data Source=" + App.Path + "\djiesoft_db.ACCDB")

con.Open

3.ODBC
Ini juga dapat berlaku untuk semua jenis databse, jika di VB6 itu sama dengan saat anda menulis connection string dengan awalan "Driver=..." atau "DSN=...", Jadi jika anda menulis connection string di ODBC ini dengan awalan "Provider=..." itu tidak akan bisa ("ERROR [IM002] [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"). Contoh connection string :
'koneksi ke mysql
Dim con As New ODBC.ODBCConnection("Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123")
'koneksi ke mysql
Dim con As New ODBC.ODBCConnection("DSN=Koneksi_mySql;Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123")

con.Open

OK, sampai sini sudah cukup faham? selanjutnya bagaimana perbedaan antara ADODB.Recordset VB6 dan VBNET termasuk hal hal yang biasa anda lakukan seperti :
Dim rec As New ADODB.Recordset
rec.Open "SELECT * FROM TBL", Con, adOpenDynamic, adLockOptimistic
If rec.EOF = True Or rec.BOF = True Then
Else
End If
'atau
Set rec = Con.Execute("SELECT * FROM TBL")
Do While rec.EOF = False
Loop

Tunggu kelanjutan pembahasan tentang ini di Posting Selanjutnya (Part II). Silahkan di tunggu dan tetap kunjungi djiesoft, Terimakasih.

Tags:
belajar vb6 ke vbnet, cara koneksi di vbnet, using adodb in vbnet, belajar vbnet, migrasi vb6 ke vbnet, recordset in vbnet,

Mengenal/Menggunakan Fungsi2 String/Character di VBNET

Posted: 20 Feb 2013 01:18 AM PST

Salah satu hal yang menarik dari VBNET adalah kemudahan dalam mengolah string. Contoh dalam "Replace" string misalnya, untuk anda yang masih terbiasa dengan VB6 mungkin akan menulis seperti ini :

Dim contoh As String 
contoh = "www.dj!e$@ft.bl@g$p@t. c@m"
'Cara 1 (classic)
contoh = Replace(contoh, "!", "i")
contoh = Replace(contoh, "$", "s")
contoh = Replace(contoh, "@", "o")

'atau
contoh = Replace(Replace(Replace(contoh, "!", "i"), "$", "s"), "@", "o").

Nah, jika di VBNET anda dapat menulisnya seperti ini :

contoh = contoh.Replace("!", "i").Replace("$", "s").Replace("@", "o")

Memang hasilnya sama saja, tapi dari segi pengetikan/cara menulis coding itu lebih mudah VBNET. selain itu anda bisa terus tambahkan fungsi lain setelahnya, anda cukup mengetikan titik (.) dan akan muncul pilihan methode/function lainnya (bebas/unlimeted). contoh lain, jika anda ingin mengubah string diatas ("www.dj!e$@ft.bl@g$p@t. c@m") dengan kriteria :
1.Ganti ! dengan i
2.Ganti $ dengan s
3.Ganti @ dengan o
4.Ubah jadi huruf besar (CAPITAL)
5.Hilangkan spasi
6.Tambahkan bintang 3x (***) di depan kalimat
7.Tambahkan bintang 3x (***) di belakang kalimat

Anda dapat melakukannya dalam satu baris perintah saja, seperti ini :

contoh = contoh.Replace("!", "i").Replace("$", "s").Replace("@", "o").ToUpper.Trim().Remove(0, 4).Insert(0, "***").Insert(contoh.Length - 1, "***")
'Lalu tampilkan message box
MessageBox.Show(contoh, "DJIESOFT", MessageBoxButtons.OK, MessageBoxIcon.Information)

OK, semoga artikel kecil ini bermanfaat

Tags:
trim vbnet, cara replace vbnet, uppercash string, UCash dan LCash di vbnet, management string vbnet

SELECT TOP N Record Table Database (Ms.SQLServer,Ms.Access,MySQL,SQLite,PostgreSQL,FireBird,Oracle,DB2,Sybase)

Posted: 19 Feb 2013 01:11 AM PST

Hai sahabat DJIESOFT semua, untuk anda yang sudah terbiasa dengan Ms.SQLServer atau Ms.Access mungkin sudah tidak asing lagi dengan istilah TOP pada sql query. Fungsinya untuk membatasi row yang kita SELECT. Misalnya ada data data dibawah ini dengan Nama Table (TBL_JUAL) :
No    Nama        JumlahBeli
1       pandji        10
2       batista        75
3       diantika      6
4       atharizz      100
5       dizi               25

Jika saya sort DESC dengan query "SELECT TOP 3 * FROM TBL_JUAL ORDER BY JumlahBeli DESC", maka hasilnya :
No    Nama        JumlahBeli
4       atharizz      100
2       batista        75
5       dizi               25

Nah, lalu bagaimana fungsi SELECT TOP ini jika ingin dilakukan di database selain Ms.SQLServer atau Ms.Access ? Fungsi SELECT TOP ini berbeda beda di Setiap database, berikut ini daftar nya:
Database NameExample Query
Ms.SQLServer, Ms.AccessSELECT TOP 100 * FROM DJIESOFT_TABLE
MySQL, SQLite, PostgreSQLSELECT * FROM DJIESOFT_TABLE LIMIT 100
FireBirdSELECT FIRST 100 * FROM DJIESOFT_TABLE
OracleSELECT * FROM DJIESOFT_TABLE WHERE ROWNUM <= 100
DB2SELECT * FROM DJIESOFT_TABLE FETCH FIRST 100 ROWS ONLY
SybaseSET rowcount 100
SELECT * FROM DJIESOFT_TABLE

Biasanya SELECT TOP ini digunakan dalam kasus seperti :
1.Mencari 10 nilai tertinggi
2.Mencari 100 Jumlah Produk yang paling laris
3.Menacari/Mengurutkan Rangking dari 1 sampai n
4.dan lain sebagainya

Tags:
Returning TOP N Records, How to take top 5 records using select in postgres, select top n record, select top in mysql, select top in sqlite, select top in oracle, select top in postgre, select top in db2, select top in firebird, select top in sysbase, select top percent adalah ?    SQL TOP Clause, Select TOP in MySQL, Select first 10 distinct rows in mysql              

Show/Get List Of ODBC Driver & User,System DSN (Data Source Name) VBNET

Posted: 14 Feb 2013 01:48 AM PST

Dulu saya pernah posting tentang ODBC (All Connection String Via ODBC). Nah kali ini saya akan berbagi bagaimana caranya menampilkan List/daftar DSN (Data Source Name) user, system dan driver ODBC yang terinstal di komputer anda. Saya sudah buatkan contohnya :
Download Full Source Project

Ini akan sama hasilnya dengan ODBC di Control Panel->Administrative Tools->Data Sources (ODBC)
OK, Semoga dapat bermanfaat untuk pengunjung setia djiesoft
   
Tags:
cara menampilkan list odbc, cara pangil kotak/dialog odbc, odbc adalah, cara koneksi databse via odbc, get driver list odbc in control panel,List ODBC Entries, Get the list of ODBC data source names programatically , ODBC, DSN list,Get the list of ODBC drivers, Enumerate List of ODBC DSN, ODBC Driver List from .NET, get installed odbc list

Membuat AutoSave/Update (Add New Row,Delete Row,Edit/Change Row) Datagridview to Database VBNET

Posted: 12 Feb 2013 08:18 PM PST

Untuk tutorial kali ini, saya akan berbagi bagaimana cara agar Setiap perubahan (new row, delete row, edit row) pada DataGridView akan langsung terupadate ke database secara otomatis (tanpa harus tekan tombol simpan). Saya sudah buatkan contohnya dengan sample database NorthWind.Accdb. Saya Select table Employees (Data masih Alsi) :
Setelah itu saya tambahakan 1 row baru EmployeeID=10, Lalu delete EmployeeID 5 dan terakhir saya Update EmployeeID 2. Setiap perubahan itu akan otomatis tersimpan ke database (saat CellEndEdit), dan
untuk membuktikanya close form dan run lagi maka data tersebut sudah berubah sesuai dengan apa yang anda edit sebelumnya.

Download Full Source Code
Password Rar/7Zip : djiesoft.blogspot.com

Tags:
Datagrid view is not auto saving cell changes or editing to ms access file or database, Automatically save changes/adds/deletions in DataGridView, Update access database through datagridview, Saving a datagridview to access in Visual Studio 2010 VB.net, How To Save ALL Changes Made In DataGridView To Access Database, how to save data in datagridview: vb.net, CARA SIMPAN DATA MELALUI DATAGRIDVIEW DI VBNET

Penggunaan Delegate Shared Pada Class VBNET

Posted: 12 Feb 2013 03:16 AM PST

Bagi anda yang baru belajar Class di VBNET (Class Module in VB6), saya akan berbagi sedikit tentang fungsi Delegate "Shared". Contoh pengunaannya bisa dikombinasikan seperti :
Public Shared Function [FunctionName]
Public Shared Sub [SubName]
Public Shared [VariableName]
Public Shared Const [ConstantaName]
dan lain sebagainya, lalu apa sebenarnya fungsi dari "Shared" ini ? penjelasan singkatnya adalah jika sebuah variable/sub/function pada sebuah Class di-"Shared"-kan, maka akan dapat diakses secara langsung tanpa harus mendeklarasikan "New" terlebih dahulu. Contohnya saya membuat Class1 :

Public Class Class1
    Public var1 As Integer
    Public Shared var2 As Integer

    Public Sub show_message1(ByValpesan As String)
        MessageBox.Show(pesan, "djiesoft test1", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Public Shared Subshow_message2(ByVal pesan As String)
        MessageBox.Show(pesan, "djiesoft test2", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class

Jika kita coba panggil di event Button1_Click, maka yang saya "Shared" akan muncul dan bisa langsung digunakan:
Tetapi yang tidak di "Shared" maka tidak akan muncul, sampai kita mendeklarasikan "New" dulu ke sebuah variable baru, contoh :
Jadi cara penggunaan sekaligus perbedaan nya adalah :
Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
        Dimtest_class As NewClass1
        test_class.show_message1("My Name Is Djie #1")
End Sub

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
        Class1.show_message2("My Name Is Djie #2")
End Sub

Tags:
Object reference not set to an instance of an object., contoh membuat class vbnet, contoh penggunaan class vbnet, perbedan class dan module vbnet,

Download Crystal Report 13.5 SP5 For Visual Studio 2012

Posted: 16 Feb 2013 10:47 AM PST

Ini dia yang kita tunggu tunggu, Crystal Report versi terbaru ini memiliki Spesifikasi :
  1. Support integration with Visual Studio 2012 and .NET Framework 4.5 runtime.
  2. Operating System:  Windows 7 SP1, Windows 8, Windows 2012
  3. Database : SQL Server 2012, HANA SP5
  4. Web Browser :  Firefox 16, IE10 (limited support)
  5. Other technology: IIS 8, Flash 11
Sebenarnya banyak sekali software untuk reporting, tetapi memang yang paling terkenal dan mudah dipelajari adalah Crystal Report, sudah exist sejak di luncurkannya Visual Basic 6 (versi stable) tahun 1998, Crystal Report (dulu Versi 8.5) sudah setia mengikuti perkembangan Visual Studio 6 sampai kini visual studio 2012.
Download Crystal Report 13.5 SP5 For Visual Studio 2012

Setelah anda instal, maka akan muncul Crystal Report pada Toolbox Visual Studio 2012 anda, seperti gambar dibawah ini :

Tags:
Crystal Report 13.5 SP5 For Visual Studio 2012 download, download Crystal Report 13.5 SP5 For Visual Basic 2012 , free download Crystal Report 13.5 SP5 For Visual Studio 2012, Crystal Report 13.5 SP5 For Visual Basic 2012 free download, Crystal Report 13.5 SP5 For VB 2012 full version download, download Crystal Report 13.5 SP5 For Visual Studio 2012 full version, Crystal Report 13.5 SP5 For Visual Studio 2012 full version free download, free download Crystal Report 13.5 SP5 For Visual Studio 2012 full version, serial number Crystal Report 13.5 SP5 For Visual Studio 2012 , keygen Crystal Report 13.5 SP5 For Visual Studio 2012 , key Crystal Report 13.5 SP5 For Visual Studio 2012 Crystal Report 13.5 SP5 For Visual Studio 2012 serial, Crystal Report 13.5 SP5 For Visual Studio 2012 iso, download Crystal Report 13.5 SP5 For Visual Studio 2012 image cd, Crystal Report 13.5 SP5 For Visual Studio 2012 nrg

Mengenal Fungsi Solution Explorer Visual Studio/VBNET

Posted: 07 Feb 2013 06:45 PM PST

Bagi yang pertama/baru belajar Visual Studio/VBNET, saya akan berikan penjelasan tentang "Solution Explorer". Fungsinya adalah untuk manajemen file dan folder serta reference project anda. Jika solution explorer ini ke-close anda bisa menampilkannya kembali dengan cara klik menu View->Solution Explorer (CTRL+ALT+L).

Disini anda bisa create/delete/paste file dan folder, sehingga project anda akan lebih rapi/tersusun. Untuk menampilkan semua file dan folder anda bisa tekan icon seperti gambar no.2 diatas. Selanjutnya apa fungsi lain dari Solution Explorer ini ?
Anda juga dapa dengan mudah untuk add dan remove reference dari sini, selain itu juga anda bisa langsung buka folder tertentu ke windows explorer sehingga lebih cepat untuk membuka File.EXE dalam folder debug misalnya (folder yang pasti sering dibuka).
Anda juga bisa dengan mudah untuk Exclude (mengeluarkan file/folder dari project) dan Include (memasukan/mendaftarkan file atau folder di project). Dan banyak lagi fungsi yang lainny aseperti membuat class diagram, resource, switch code & design, dan lain lain.

Tags:
tips dan trik vbnet, apaitu solution explorer, jendela solution explorer dan fungsinya, mengenal environment visual studio vbnet

Mengenal Instance Name SQL Server dan Connection String VBNET

Posted: 07 Feb 2013 05:46 PM PST

Apa itu Instance Name? adalah indentitas suatu database engine yang terinstal di komputer. Jadi jika anda instal MS.Sql Server lebih dari satu dalam sebuah komputer maka Instance Name lah yang akan menjadi pembeda antara sql server 1 dan yang lainnya. Misal anda instal sql server 2000, 2005, 2008, 2012 dalam satu komputer itu bisa dilakukan, atau instal sql server 2008 sebanyak 3 kali dalam satu komputer itu juga bisa. Nah Instance Name ini di seting saat instalasi sql server, jadi jangan asal "next, next" saja saat instalasinya. Lalu bagaimana cara koneksi ke sql server dari Visual Basic dengan kondisi diatas? caranya dengan menyebutkan Instance Name setelah "server Name/IP Address" pada Connection String nya, Contoh :

Dim con_string As String = "Data Source=192.168.1.2\sql2008;User Id=sa;Password=djiesoft;Initial Catalog=MyDB"
'atau
Dim con_string As String = "Data Source=192.168.1.2\sqlexpress;User Id=sa;Password=djiesoft;Initial Catalog=MyDB"
Dim myCon As NewSqlClient.SqlConnection(con_string)
'Contoh lain:
Dim con_string As String = "Data Source=192.168.1.2;User Id=sa;Password=djiesoft;Initial Catalog=MyDB"

Jika kita tidak memasukan Instance Name maka kemungkinannya akan Error :
"A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: SQL Network Interfaces, error: 26 - Error Locating Server/Instance Specified)"

Tapi jika di komputer anda hanya terinstal satu sql server saja, maka anda tidak usah menyebutkan Instance Name nya. Anda juga bisa menggunakan satu Management Studio untuk koneksi ke banyak database engine :
Tags:
How to Get Instance Name from T-SQL, How to find instance name, MS SQL Server Instance Name, How to Find Your SQL Server Instances (Server Name) , Find Name of The SQL Server Instance, Finding the Instance Name from Task Manager, How to change SQL Server Instance Name, Instance name adalah, pengertian Instance name, Instance name dan vbnet

Cara BackUp dan Restore Database With Periode (Tanggal) Ms.Access VBNET

Posted: 05 Feb 2013 12:45 AM PST

Apa itu Backup Restore Database? definisi secara sederhana adalah :
Backup : Proses menggandakan database (Duplicate/Copy) dengan tujuan sebagai cadangan data yang nantinya dapat digunakan kembali jika diperlukan
Restore : Proses mengembalikan (menggunakan kembali) database lama/sebelumnya, dalam hal ini adalah database backup
Seberapa penting Backup database ini? SANGAT PENTING!!!, karena sebuah data/informasi itu adalah segalanya dan salah satu hal yang paling mendasar (manadatory). Oleh karena itu untuk mengantisipasi akan terjadinya hal yang tidak diinginkan, Database ini perlu untuk di backup dan sewaktu waktu dapat di restore sesuai dengan kebutuhan. Saya sudah membuat contoh sederhana bagaimana cara mem-backup database Ms.Access dan me-restore-nya dengan parameter tanggal tertentu.
Sebelum anda mendownload source code nya anda harus baca dulu dibawah ini, agar anda dapat mempelajarinya dengan benar.
1.saya sudah buatkan 1 Ms.Access versi 2010 dan 1 Table (anggap table transaksi / ada kolom tanggal nya)
2.saya sudah input data dari tanggal 1 sampai 3, dengan rincian :
- tanggal 1 = ada 2 data
- tanggal 2 = ada 1 data
- tanggal 3 = ada 2 data
3.cobalah anda backup data tersebut dengan menekan tombol backup (contoh : backup_ke1.bak)
4.cobalah anda INSERT data baru dengan tanggal bebas dan/atau DELETE data yang sudah ada, sehingga contoh datanya menjadi seperti ini : 
- tanggal 1 = ada 3 data (bertambah 1)
- tanggal 2 = ada 1 data
- tanggal 3 = ada 2 data (hilang/dihapus)
- tanggal 4 = ada 5 data (data baru)
5.kemudian anda coba restore data dari backup tadi (backup_ke1.bak) : (terdapat beberapa pilihan)
5.1 jika anda memilih "Append" (di checklist) dan pilih "Restore All" (di checklist) maka datanya akan menjadi :
- tanggal 1 = ada 3 data (tetap 3)
- tanggal 2 = ada 1 data (tetap 3)
- tanggal 3 = ada 2 data (yang sudah hilang menjadi ada kembali)
- tanggal 4 = ada 5 data (data baru tetap ada)
5.2 jika anda tidak memilih "Append" (TIDAK di checklist) dan pilih "Restore All" (di checklist) maka datanya akan menjadi :
- tanggal 1 = ada 2 data (kembali ke 2 data /kembali kesemula)
- tanggal 2 = ada 1 data (tetap)
- tanggal 3 = ada 2 data (yang sudah hilang menjadi ada kembali)
- tanggal 4 = ada 5 data (data baru akan hilang)

Jika Anda tidak memilih "Restore All" (TIDAK di checklist) maka anda dapat memilih data dari periode/tanggal tertentu, contoh tanggal 2 saja dan jika "Append" (TIDAK di checklist) maka hasilnya akan menjadi :
- tanggal 1 = ada 2 data (data ini akan hilang)
- tanggal 2 = ada 1 data (hanya ada data ini / yang dipilih tanggal 2 saja)
- tanggal 3 = ada 2 data (data ini akan hilang)
- tanggal 4 = ada 5 data (data baru akan hilang)
Download Full Source Code
Password Rar/7Zip : Silahkan Request ke djiesoft@gmail.com

Tags:
Restore a database - Access ,  Bagaimana cara backup dan restore Database ms.access vbnet,Cara restore database access berdasarkan tanggal tertentu, contoh Backup dan Restore Access Database, backup dan restore database access dengan vb/ visual basic, Membuat Backup Restore Database Access Dengan Visual Basic

Membuat Simple Splash Screen With ProgressBar VBNET

Posted: 04 Feb 2013 02:58 AM PST

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)

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

Solution If Error When Downloading In tusfiles.net

Posted: 07 Feb 2013 05:47 PM PST

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.

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

Posted: 03 Feb 2013 06:33 PM PST

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

Posted: 02 Feb 2013 08:36 AM PST

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

Cara Mengetahui Jumlah Row/Record Yang Terhapus/Terupdate (Row/Record Affected) VBNET

Posted: 15 Jan 2013 05:52 PM PST

Pada kesempatan kali ini saya ingin berbagi pengalaman, ada hal kecil yang mungkin sering terlewatkan yaitu Record Affected. Maksudnya? Contohnya begini dalam kasus sederhana, anda melakukan hapus data atau update data dari masing masing tombol.tapi bagaimana caranya untuk meyakinkan bahwa data tersebut memang benar terhapus? atau te-update?
mungkin cara classic nya adalah lihat ke database lalu select lagi data tersebut, jika masih ada berati belum terhapus (kriteria WHERE nya tidak benar). Atau biasanya dengan Refresh Grid/List, jika sudah tidak ada di Grid/List maka sudah terhapus. Tapi kebanyakan setelah tekan tombol "delete" atau "save" PASTI selalu memanggil pesan (MessageBox) "Data Terhapus", atau "Data Tersimpan", terlepas dari apakah data itu memang sudah benar2 terhapus/terupdate. ok langsung saja begini caranya :

'contoh hapus data
Using cmd As NewSqlClient.SqlCommand("DELETE FROM .. WHERE ..", con)
   Dimdata_deleted As Integer= cmd.ExecuteNonQuery
   Ifdata_deleted = 0 Then
      MessageBox.Show("Tidak Ada Data Yang terhapus !", "DJIESOFT_Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
   Else
      MessageBox.Show("Data Yang Terhapus : " + data_deleted.ToString + " !", "DJIESOFT_Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
           End If
End Using

'begitupun juga jika update atau insert
Using cmd As NewSqlClient.SqlCommand("UPDATE TBL_TEST SET .. WHERE ..", con)
   Dimdata_updated As Integer= cmd.ExecuteNonQuery
   Ifdata_updated = 0 Then
      MessageBox.Show("Tidak ada data yang terupdate!", "DJIESOFT_Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
   Else
      MessageBox.Show("Data Yang Terupdate : " + data_updated.ToString + " !", "DJIESOFT_Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
   End If
End Using

Tags:
How to get the Affected Records in VB.net 2010 with SQL, How to get the Affected Records in VB.net 2010 with SQL, How to get the Affected Records in VB.net 2010 with SQL, Records Affected by the SQL Query Samples and examples, mengetahui jumlah data yang terhapus, cara mengetahui jumlah data atau row yang terupdate tersimpan

Convert/Change First Character Capital/UpperCase VBNET

Posted: 10 Jan 2013 06:19 PM PST

Ini adalah contoh yang saya buat untuk membuat text/kalimat menjadi Uppercase/huruf besar setiap awal kata (huruf pertama setelah space atau dot/titik atau special character lainnya). Sebenarnya ada beberapa cara :
1. memakai fungsi bawaan vbnet
2. manual looping (looping dan cek keberadan spasi atau titik dan langsung ganti huruf/karakter setelahnya)
Nah yg beda disini adalah cara menerapkan fungsi itu, yaitu :
1.bisa gunakan saat text_change (ketika user ketik, text otomatis berubah/ tanpa menggangu user mengetik)
2.bisa juga ada satu tombol untuk mengubah text itu atau bisa anda simpan di saat event Text_LostFocust
Download full source project

Tags :
Uppercase first letter in each word of a string, Capitalize First Character, Convert The First letter in Upper Case, Vb.Net Making The First Letter Of Each Word Uppercase, Uppercase First Character Of Each Word?

Cara Add Items/Retrieve/Load Data Ke Datagridview, Listview, ListBox, ComboBox dan Treeview via DataSource+AutoGenerate Columns VBNET

Posted: 08 Jan 2013 08:57 PM PST

Untuk kali ini saya akan share bagaimana cara me-retrieve atau me-load data dari table/database ke object object yang umum kita pakai seperti : Datagridview, Listview, ListBox, ComboBox dan Treeview, tentunya dengan sintak yang pendek dan mudah. Untuk DataGridView dan ListView akan saya buat AutoGenerate Column sehingga anda tidak perlu repot/cape mendisain kolom2 di DataGridView atau ListView. Ok Ini dia screenshot nya :
Download Full Source Project
Password 7Zip/Rar : djiesoft.blogspot.com


Tags:
cara cepat load data ke atagridview, Listview, ListBox, ComboBox dan Treeview, how to add item to Datagridview, Listview, ListBox, ComboBox dan Treeview, cara add item ke Datagridview, Listview, ListBox, ComboBox dan Treeview, tutorial add items Datagridview, Listview, ListBox, ComboBox dan Treeview, perbedaan cara load data di vb6 dan vbnet,

Membuat User Trustee/Setting Hak Ases Menu+Buttons (New,Edit,Save,Delete) Secara Mudah+Dinamis Menggunakan Database

Posted: 06 Jan 2013 07:13 PM PST

Setiap apliaksi pada umumnya akan menerapkan system User Trustee/Hak Akses, dimana setiap user berbeda beda hak aksesnya, sebagai contoh user A hanya boleh mengakses menu 1, 3, 5 dan button edit, save (tanpa new). Nah bagainama cara membuat setting ini secara mudah dan dinamis, artinya setiap ada perubahan misalnya Tambah menu baru/ hapus menu di design form MDI itu langsung otomatis update ke setting database? terus cara load setting tersebut ke setiap menu dan button disetiap form secara singkat/tidak ribet? Betikut ini saya sudah buatkan contonya untuk anda para pengunjung setia DJIESOFT, sebelumnya anda harus baca dulu dibawah ini agar faham bagaimana cara menggunakannya.
1.Saya  membuat 1 form MDI + menu menu
2.Saya  membuat 1 from untuk new user+setting menu+button-nya
3.Saya  membuat 1 form untuk test setting button yang telah dilakukan
4.Saya menggunakan database Ms.Access 2010 + 5 table sebagai contoh databasenya.
5.Saya sudah membuat function/sub yang nantinya tinggal dipanggil saja untuk syncrinize+apply setting ke menu+button
Berikut ini sreenshot form user + setting menu + setting button
Dari gambar diatas dapat dilihat menu yang dis etting active adalah Menu1, Test Setting Button dan Logout. Sedangkan untuk button nya yang diset active adalah : new, edit, save dan cancel, maka setelah anda login sebagi user tersebut maka setting tersebut akan dapat langsung terlihat :
Sebenarnya masih banak cara lain/logika lain untuk user trustee/hak akses ini, saya hanya berikan salah salah satu contohnya saja.
Download Source Project
Password 7Zip/Rar : silahkan request ke Email : djiesoft@gmail.com

Tags:
cara membuat hak akses user dinamis vbnet, Membuat Manajemen Hak Akses User, Ide Membuat Sistem Login Aplikasi Multi User,cara membuat hak akses user secara mudah, cara membuat hak akses user pada menu, cara membuat hak akses user terhadap tombol,

Free Download Microsoft SQL Server 2000,2005,2008,2012 Express+Management Studio+Service Pack

Posted: 04 Jan 2013 03:08 AM PST

Berikut ini saya berikan link link microsoft sql server dari mulai versi 2000 sampai 2012, karena masih banyak yang bingung saat melakukan pencarian di google (terlalu banyak link). Kenapa saya share versi Express? karena versi ini gratis 100% dan sangat cocok untuk kita sebagai bahan untuk belajar dirumah maupun di tempat kerja. Sebenarnya banyak sekali file (additional file) yang harus didownload berkenaan dengan sqlserver ini, tetapi intinya ada 2 file saja yang harus kita instal :
1.Sqlserver Engine
2.Management Studio (query analyzer jika di versi 2000)

Download Link Microsoft SQL Server 2012 Express
Untuk Mendownload SQLServer 2012 + Management Studio Pilih Dengan Nama File Ini :
ENU\x86\SQLEXPRWT_x86_ENU.exe (Untuk 32Bit)
ENU\x64\SQLEXPRWT_x64_ENU.exe (Untuk 64Bit)
Untuk Mendownload SQLServer 2012 Full Tools+Service Pilih Ini :
ENU\x86\SQLEXPRADV_x86_ENU.exe (Untuk 32Bit)
ENU\x64\SQLEXPRADV_x64_ENU.exe (Untuk 64Bit)

Download Link Microsoft SQL Server 2008 Express R2 Service Pack 2
Untuk Mendownload SQLServer 2008 + Management Studio Pilih Dengan Nama File Ini :
SQLEXPRWT_x86_ENU.exe (Untuk 32Bit)
SQLEXPRWT_x64_ENU.exe (Untuk 64Bit)
Untuk Mendownload SQLServer 2008 Full Tools+Service Pilih Ini : SQLEXPRADV_x86_ENU.exe (Untuk 32Bit)
SQLEXPRADV_x64_ENU.exe (Untuk 64Bit)

Download Link Microsoft SQL Server 2005 Express Service Pack 4
Untuk Mendownload SQLServe 2005 Pilih Dengan Nama File Ini :
SQLEXPR.EXE
Untuk Mendownload SQLServer 2005 Full Tools+Service Pilih Ini :
SQLEXPR_ADV.EXEUntuk Mendownload SQLServer 2005 Management Studio Pilih Ini :
SQLEXPR_TOOLKIT.EXE

Download link Microsoft SQL Server 2000 Personal Edition (FREE)

Tags:
Download sqlserver terbaru, free download sqlserver full, sql server 2012 full version, download sql server all version free, download sql server management studio full

Membuat Sub Routin/Procedure/Function Dengan Nama Yang Sama (Same Name) di VBNET

Posted: 03 Jan 2013 10:20 PM PST

Tentu anda pernah melihat beberapa methode pada object bisa memiliki parameter yang berbeda beda, maksudnya? saya contohkan saat anda ingin addItem Listview anda dapat banyak pilihan kan? lihatlah gambar dibawah ini :
Nah kita pun bisa membuat sub routin atau function dengan nama yang sama di VBNET, pembeda dari sub routin atau function itu adalah parameternya. Jika Di VB6 ini tidak bisa bisa dilakukan. Saya buat contoh function hitung, dimana satu nama hitung tersebut bisa mengalikan, membagi, menambah, mengurangi nilai. Contoh :
Public Function hitung(ByValtambah_val1 As Short, ByVal tambah_val2 AsShort) As Short
        Returntambah_val1 + tambah_val2
End Function

Public Function hitung(ByValkurang_val1 As Integer, ByVal kurang_val2 AsInteger) As Integer
        Returnkurang_val1 - kurang_val2
End Function

Public Function hitung(ByValbagi_val1 As Double, ByVal bagi_val2 AsDouble) As Double
        Returnbagi_val1 / bagi_val2
End Function

Public Function hitung(ByValkali_array_val() As Integer) As Integer
        Dimhasil As Integer= 0
        For Each nilai As Integer Inkali_array_val
            hasil = hasil * nilai
        Next
        Returnhasil
End Function

Akhirnya saat anda panggil function hitung tersebut, maka anda dapat memiliki banyak pilihan seperti gambar dibawah ini :
 Tags:
cara membuat function multi parameter, how to create sub function , kelebihan membuat sub function du vbnet, make dub function multi parameter, create the same function vbnet, make sub or function with same name vbnet, trik membuat sub function di vbnet

Download Play Station (PS) 1, 2, 3 Emulator (Full BIOS+Plugins+ Memory Card Manager) For PC

Posted: 02 Jan 2013 02:00 AM PST

Masih ingatkah anda dulu waktu Play Station (PS) mulai merajalela di negeri ini? tua muda semua suka dengan jenis permainan ini. Rental PS mulai menjamur dimana mana dengan tarif minimum rata rata biasanya 1 jam = Rp.2000 (PS1), Rp.4000 (PS2), Rp.6000 (PS3). Nah sekarang dengan adanya PS Emulator anda bisa memainkan PS di Komputer anda sendiri, tanpa mengenal waktu dan biaya rental. Dan anda pun tak perlu membeli Memory Card-nya karena sudah pasti game bisa di save di hardisk PC anda. Tetapi ada hal penting yang perlu anda ketahui, spesifikasi PC anda haruslah mencukupi, sebagai contoh untuk Emulator PS1  = Minimum Pentium 3, PS2 = Minimum Dual Core, PS3 = Higher Processor, dan tak lupa VGA Card nya pun haruslah bagus. Berikut ini saya share link download untuk PS 1,2,3 Emulator :
Download PS1 Emulator (pSX v1.13 Full Bios And Plugins)
Download PS1 Emulator (ePSXe v170 Full Bios And Plugins)
Download PS2 Emulator (PCSX2 0.9.9 Full Bios And Plugins)
Download PS3 Emulator (PS3Emu 0.0.2 Full Bios And Plugins)
Download PS Memory Card Manager

Tags:
download ps1 emulator full free, download ps2 emulator full free, download ps3 emulator full free, download ps1 emulator 2013 full, cara main ps di pc/komputer, ps iso image free, free download ps emulator work, download play station 1 2 3 emulator, software untuk main ps di pc

Download DirectX 9.0c and 10 (Updated) For Windows XP And Seven(7)

Posted: 30 Dec 2012 07:46 PM PST

DirectX merupakan kumpulan API (perintah) untuk menangani berbagai tugas dalam pemrograman multimedia khususnya permainan (game) pada sistem operasi Microsoft Windows. DirectX terdiri dari Direct3D, DirectDraw, DirectMusic, DirectPlay, dan DirectSound yang tergabung menjadi satu.Oleh karena itu jika anda pecinta game (gamer) pasti software ini merupaka suatu hal yang wajib anda instal, karena tanpa ini game game yang memiliki kualitas grafik yang tinggi tidak akan berjalan dengan baik bahkan sebagian game akan menolak jika belum terinstal DirecX ini. Sebenarnya DirectX Untuk Windows XP hanya dibatasi sampai versi 9. Sedangkan untuk Windows Vista dimulai dari versi 10 dan untuk windows 7 dimulai dari versi 11.  Oleh karena itu saya disini menyediakan khusus DirectX 9.0c, 10 untuk windows XP dan Seven(7). Kenapa? bukankah Windows7 sudah memiliki DirectX 11 ? berikut ini penjelasannya...
Coba anda bandingkan kedua gambar dibawah ini :
"Tapi penting dan perlu diketahui, bahwa Game2 lama yang masih berbasis DirectX9 maupun 10 TIDAK Akan jalan baik (terkadang Error) di Windows7 yang DirectX nya sudah versi 11, karena DirectX11 itu isinya tidak termasuk (not include) DirectX9 dan 10. Jadi agar aman maka anda harus install DirectX9.0c dan 10 agar Game2 lama bisa berjalan dengan baik."
  • All Links Updated on 2012-12-31 (yy-mm-dd) !
  • Download DirectX 9.0c For Windows All Windows Version (96MB)
  • Download DirectX 10 For Windows XP (6MB)
  • Download DirectX 10 For Windows Seven(7)  (26MB)
Tags:
free download directX 10 for windows XP, free download directX 11 for xp, free download directX for gamer, free download directX 10terbaru, free download directX 10 paling update, directx download for xp, microsoft directX updater download

Perbedaan IF dan IIF di Visual Basic (VB6,VBNET)

Posted: 31 Dec 2012 03:24 AM PST

Sepertinya masih jarang orang yang menggunakan IIF, dan memang yang sering diajarkan pada pelajaran dasar VB adalah IF THEN ELSE. Sekarang saya akan jelaskan apa itu IIF ? bagi yang belum tahu perhatikan baik baik ya.. IIF adalah cara yang lebih singkat dari penulisan IF THEN ELSE,cara penulisan nya adalah IIF(Expression as Boolean, TruePart as Object, FalsePart as Object) As Object, baiklah saya akan berikan contoh :

        Dimnilai As Boolean= False
        Dimhasil As String= ""
        Ifnilai = False Then
            hasil = "Tidak Cocok"
        Else
            hasil = "OK, Cocok"
        End If

Sintak tersebut bisa dipersingkat dengan IIF menjadi :

hasil = IIf(nilai = False, "Tidak Cocok", "OK, Cocok")

Anda juga bisa mengkombinasikan IIF di dalam IIF, penasaran ? berikut ini contohnya :


        Dimkondisi As Boolean= False
        Dimnilai As Integer= 5
        Dimtotal As Integer= 0
        Ifkondisi = False Then
            Ifnilai <= 10 Then
                total = nilai * 10
            Else
                total = nilai
            EndIf
        Else
            Ifnilai <= 10 Then
                total = nilai * 50
            Else
                total = nilai * 25
            EndIf
        End If

Nah contoh diatas kita coba tulis dalam IIF menjadi :


total = IIf(kondisi = False, IIf(nilai <= 10, nilai * 10, nilai), IIf(nilai <= 10, nilai * 50, nilai * 25))

Selain penulisan sintak menjadi pendek/singkat, hal ini berpengruh juga pada performance aplikasi tersebut, semakin pendek sintak maka size hasil compiler-nya pun akan semakin kecil dan aplikasi  pun akan lebih cepat dalam proses running-nya.

Tags:
vb.net - IIf() vs. If , Using VB.NET If vs. IIf , perbedaan if dan iif, pengertina iif, contoh penggunaan iif di visual basic, cara penulisan iif vb6, if then else di vbnet, differ of iif and if vb, if trupart in iif, bagaimana cara menggunakan iif di vbnet, iif expression example vbnet, if and iif operator in vb

Show/Hide WinForm To TryIcon/NotifyIcon/NotificationArea VBNET

Posted: 28 Dec 2012 02:46 AM PST

Pernahkan anda melihat aplikasi yang jika di minimize itu akan hilang dari Taskbar dan jika ingin menampilkan kembali aplikasi tersebut harus di double click dari tryicon/notifitaion area ? hal itu sangat mudah dilakukan hanya tinggal memaikan property WindowsState saja. Lihatlah screenshot dibawah ini :
Selanjutnya saya tambahkan menu klik kanan di tryicon nya yaitu "Open Form" dan "Exit Form"
Download Full Source Code

Tags:
cara hide form ke tryicon. hide windows form to notifyicon/tryicon, how to show hide winform from notifyicon/tryicon, cara hide form dari taskbar, saat double click form tampil

Cara Play Audio (*.wav) dan SystemSound (Beep,Asterisk,Exclamation,Hand,Question) VBNET

Posted: 27 Dec 2012 07:30 PM PST

Kali ini saya posting yang ringan saja, bagaimana cara play sound wav dan play system sound di VBNET dengan mudah ?.Pertama kita bisa pasang systemsound pada aplikasi kita, misalnya saat tekan button, saat text_change dan lain sebainya, systemsound adalah suara default windows seperti bunyi beep, asterik dan sebagainya (contoh jika ada MessageBox suka ada bunyi "Ting"), berikut ini contoh sintaknya :


My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep) 'suara beep
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation) 'suara pesan warning
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question) 'suara pesan pertanyaan / yes no / ok cancel

Nah selanjutnya jika ada punya file music dengan type data wav, anda bisa gunakan sintak yang sederhana ini untuk memutar (play dan stop) file tersebut :

My.Computer.Audio.Play("C:\DJIESOFT_files\sample.wav")
Untuk stop gunakan sintak ini :


My.Computer.Audio.Stop()


Tags:
Play wav file in vb.Net,How do I play a .wav file from Resources,Playing sounds in VB.NET,Play A Wav Sound, PlaySound function,Play audio files(.wav) in VB.net , cara play audio vbnet
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)