Yuk Belajar VB.NET Bersama-Sama ^^

Kadangkala kita harus mengelola data yang mempunyai format JSON. Tidak mudah memang untuk mengolahnya karena biasanya kalau bagi yang baru berurusan dengan JSON, pusing rasanya. Apalagi di MSDN VB.NET, dokumentasinya tidak terlalu banyak.

Dalam pemograman PHP, ada sebuah fungsi untuk menguraikan data dari JSON ini, tapi bagaimana dengan VB.NET?

Menurut rumornya, VB.NET juga menyediakan fungsi ini tapi banyak kekurangannya. Saya tidak akan membahas kekurangannya karena saya rasa yang terpenting, tugas yang berikan pada kamu untuk mengelola data JSON selesai.

Kali ini saya akan memberikan kode bagaimana menguraikan JSON dengan menggunakan Newtonsoft library. Silakan lihat cara menginstal library ini ke VB.NET di sini.

Salah satu keuntungan dari Newtonsoft ini adalah anda akan dimudahkan untuk membereskan data dengan format JSON. Perhatikan contoh berikut ini.

Dim jsontext As String = "{"meta":{"code":200},"data":[{"username":"wallsticker_mv","bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv","website":"","profile_picture":"http:\/\/photos-c.ak.instagram.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg","full_name":"","id":"1520060215"}]}"

Dim readingJson = Newtonsoft.Json.Linq.JObject.Parse(jsontext)
dim meta, username, bio as String

With readingJson           
    meta = .Item("meta")("code").ToString 'akan menghasilkan nilai 200
    username = .Item("data")("username").ToString 'akan menghasilkan nilai wallsticker_mv
    bio = .Item("data")("id").ToString 'akan menghasilkan nilai 1520060215
End With

Yup semudah dan sesederhana itu kode untuk mengolah data JSON dengan menggunakan Newtonsoft library. :D

Intinya kamu harus mengerti format JSON itu sendiri. Ketika kamu ingin menemukan pola JSON yang dipakai, berikan breakline pada setiap data JSON agar mudah dibaca.

{"meta":{"code":200},

"data":[
{"username":"wallsticker_mv",
"bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv",
"website":"",
"profile_picture":"http:\/\/facebook.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg",
"full_name":"",
"id":"1520060215"}]
}

Gunakan notepad++ agar memudahkan kamu untuk melihat polanya.

Apakah sudah masalahnya di sini?

Belum teman. Kode di atas tidak bisa digunakan mengakses JSON yang memiliki penutup '[' dan ']'. JSON juga bisa dibuat dengan menggunakan format array jadi kode VB NETnya juga harus memakai array. Jadi kalau kamu menemukan kode JSON dengan kode '[' dan ']', silakan gunakan kode di bawah ini.

Dim jsontext as String = "{"meta":{"code":200},"data":[{"username":"wallsticker_mv","bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv","website":"","profile_picture":"http:\/\/facebook.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg","full_name":"","id":"1520060215"}]}"
Dim readingJson = Newtonsoft.Json.Linq.JObject.Parse(jsontext)
MsgBox("User ID for this user is " & readingJson.SelectToken("data[0].id").ToString)

Coba lihat, dalam kode diatas saya menggunakan index untuk mengakses nilai yang ada di braket '[' dan ']'.
Mudah-mudahan kamu tidak kesulitan ketika berurusan dengan JSON.

Oke saya akhiri saja sampai di sini. Kalau ada pertanyaan silakan beri komentar di bawah ini. Sampai jumpa di artikel berikutnya.

JSON (JavaScript Object Notation) merupakan salah satu cara untuk menampilkan data seperti XML tapi lebih ringan karena tidak memerlukan tag seperti pada XML.

Nah kali ini saya mendapatkan tantangan bagaimana cara mengelola data yang mempunyai format JSON. Terus terang sih agak pusing bacanya karena seringkali data JSON yang diberikan tidak ada breakline.

{
"employees": [
{ "firstName":"John" , "lastName":"Doe" }, 
{ "firstName":"Anna" , "lastName":"Smith" }, 
{ "firstName":"Peter" , "lastName":"Jones" }
]
}

Terus setelah itu saya mencarinya di Google dan banyak banget yang menyarankan memakai library JSON.NET.

Walaupun pada versi .NET terbaru, Microsoftnya sudah menyediakan fitur tersebut tapi menurut komentar yang saya baca dan pembuatnya bilang, JSON.NET ini lebih cepat dalam memprosesnya daripada bawaannya Microsoft.

Saya memakai Visual Basic Express 2010 ketika akan mencobanya. Penggunanya diharuskan memasukan library tersebut ke VB.NET.

Setelah saya menunduh file JSON memakai link di atas dan akan menjalankan program bernama NuGet, saya mendapatkan masalah seperti ini:

Package restore is disabled by default. To give consent, open the Visual Studio Options dialog, click on Package Manager node and check 'Allow NuGet to download missing packages during build.' You can also give consent by setting the environment variable 'EnableNuGetPackageRestore' to 'true'.

Yang jadi masalah adalah ketika saya akan menginstallnya VB express, tidak ada Visual Studio Options. Kalau untuk versi pro, secara default pilihan ini memang ada.

Lalu saya juga mencoba menginstall NuGet package manager dengan mengakses menu pada VB.NET
Tools » Extension Manager.



Di sana saya ketikan kata NuGet dan akhirnya saya mendapatkan installer untuk NuGet.



Yang jadi masalah bagaimana memasukan library JSON.NETnya karena menurut tutorial yang saya dapat, setelah menginstall NuGet, kita bisa install JSON.NET melalui NuGet Package Installer.

Begitu pula bagaimana mengakses NuGet Package Installer selain dari Visual Studio Options?

Setelah beberapa jam mencari cara bagaimana cara menginstallnya di VB Express, ternyata seperti yang ada di dokumentasi NuGet, NuGet Package Installer itu tidak bisa di install dalam VB 2010 Express.

For Visual Studio 2010, NuGet is available through the Visual Studio Extension Manager. The extension can be installed into the Professional, Premium, and Ultimate editions. Additionally, the extension can be installed into Visual Web Developer 2010 Express.

Setelah mencari lagi ternyata kita bisa membuka project VB di dalam VWD 2010 Express agar library ini dapat dipakai di dalam project.

Awalnya saya tidak menginstall VWD 2010 Express karena saya jarang memakainya tapi mau tidak mau saya harus menginstall VWD 2010 Express agar bisa menggunakan JSON.NET.

Beberapa menit telah berlalu dan akhirnya VWD 2010 Express telah terinstall. Seperti cara diatas saya mencoba kembali menginstall NuGet Package Installer melalui Tools » Extension Manager

Ternyata ketika mengetikan kata NuGet, hasilnya didapat memang berbeda. NuGet yang saya dapatkan adalah NuGet Package Manager, bukan NuGet Packager.


Langkah -langkah setelah NuGet Package Manager terinstall adalah
1. Merestart VWD 2010 Express.
2. Buka project VB ke dalam VWD 2010 Express.
3. Klik kanan pada Solution Explorer lalu pilih Manage NuGet Packages...


4. Akhir paket JSON.NET siap diinstal. :)


5. Save project lalu buka kembali memakai Visual Basic Express 2010.

Sebenarnya ada 1 lagi caranya memasukan JSON.NET langsung dari Visual Basic Express 2010 tanpa memakai VWD 2010 Express.

Caranya adalah sebagai berikut:
1. Buka project lalu klik kanan nama project dalam Solution Explorer.
2. Pilih Add Reference...
3. Pada tab Browse cari Newtonsoft.Json.dll
4. Klik OK untuk memasukan library JSON.NET

Semoga tutorial ini berguna bagi anda yang ingin menggunakan JSON.NET library.