Looping Ajax

from the latest project i do with shopify, i need to use ajax inside looping to add products to cart.
Basically we need product id or product variant id and quantity.
here is the code from shopify to insert product to cart.

jQuery.post('/cart/add.js', {
  quantity: 1,
  id: 794864229,
  properties: {
    'First name': 'Caroline'
  }
});




Review Mi5s

Mi5S merupakan salah satu varian dari mi5 yang memiliki kemampuan lebih. Pada versi mi5s ini terjadi beberapa peningkatan pada beberapa sektor :

	Mi5	Mi5S
CPU	Dual-core 1.8 GHz Kryo & dual-core 1.6 GHz Kryo	Quad-core 2.15 GHz & 1.6 GHz
GPU	Adreno 530	Adreno 530
Chipset	Snapdragon 820	Snapdragon 821

Sedangkan pada sektor kamera terjadi penurunan resolusi dimana yang awalnya mi5 dengan resolusi 16 MP dengan 4 axis Optical Image Stabilization sedangkan mi5s dengan resolusi 12MP. Hal ini dikarenan perubahan sensor kamera.

Mi5 menggunkaan sensor Sony Exmor R IMX298

Mi5s menggunakan sensor  Sony Exmor R IMX378

Sensor kamera yang digunakan  oleh mi5s memang  cuman 12.2 MP saja namun ukuran pixelnya cukup lebar mencapai 1.55 μm. Bandingkan dengan 1.12 μm yang digunakan oleh Mi5.

Dengan adanya sensor ini seharusnya mi5s dapa menyerap cahaya lebih pada saat foto malam, namun dalam foto di bawah dapat di lihat hasil kamera malam tidak cukup baik. belum ada yang bisa mengalahkan samsung s7 dalam foto low light (tergantung pengguna).. :D

Berikut adalah contoh foto dari xiaomi mi5s :

Night Shoot

Auto

Auto

Auto

Raw dan Light Room app

Raw & morning sky effect

HDR

HDR

HDR

Auto

HHT

Review Mi 4

Review Mi4

Hape murah berkualitas ? xiaomi Mi4 saja.

Belakangan hp dengan merek xiaomi sangat di gandrungi di tanah air kita Indonesia. Salah satu produknya adalah Mi4. Mi4 merupakan salah satu produk flagship dari xiaomi. Produk ini dijual pertama kali tahun 2014 july kalo gx salah ya, dengan kisaran harga lebih dari 4juta.. wow..

Tapi sekarang 19 Desember 2016 harganya cuman... RP 1.750.000.  murah kan broh...

Nih, murah kan.. gue aja sampe ngiler.. Tapi... ini hape cuman punya single sim.. apa.. ia SINGLE SIM.. 2016 masih single SIM ? Tapi MURAH... namanya juga hape murah bro..

Gua ngelirik nih hape gara-gara hape gua Mi4i.. Rusak, padahal sayang banget sama tuh hape. Oya rusaknya bukan karena rusak sendiri ya. itu karena kabel charger yang konslet..  ini diakibatkan karena kabel chargernya sering ane tekuk.. satu lagi, kabel charger yang ane pakek bukan asli bawaan xiaomi.  Sekarang batoknya juga ikutan rusak, kalo ngecharge.. Lamaaaa banget. So, hati2 ya sob yang punya kabel charger kalo udah radak rusak.. mending ganti aja dari pada hape lo ikutan rusak.
jadi curhat.. hehehe....

perbandingan dari semua MI4, MI 4i, MI 4c, MI 4S. Dari hasil penelitian ane.. baca2 review lain, liat di youtube, Camera yang paling bagus tuh ada di MI4. kenapa ? mungkin karena sensor nya.. ?

untuk spesifikasi lengkapnya liat di bawah ya.?

Network	Technology	GSM / CDMA / HSPA / EVDO / LTE
	2G bands	GSM 850 / 900 / 1800 / 1900 - all versions
		CDMA 800 / 1900 - Telecom 3G model
	3G bands	TD-SCDMA - 4G model
		HSDPA 850 / 900 / 1900 / 2100 - Unicom 3G model, Telecom 3G model
		CDMA2000 1xEV-DO - Telecom 3G model
	4G bands	LTE band 38(2600), 39(1900), 40(2300) - 4G model
	Speed	HSPA 42.2/5.76 Mbps, LTE, EV-DO Rev.A 3.1 Mbps
	GPRS	Yes
	EDGE	Yes

Launch	Announced	2014, July
	Status	Available. Released 2014, August

Body	Dimensions	139.2 x 68.5 x 8.9 mm (5.48 x 2.70 x 0.35 in)
	Weight	149 g (5.26 oz)
	SIM	Micro-SIM

Display	Type	IPS LCD capacitive touchscreen, 16M colors
	Size	5.0 inches (~72.3% screen-to-body ratio)
	Resolution	1080 x 1920 pixels (~441 ppi pixel density)
	Multitouch	Yes
		- MIUI 5.0

Platform	OS	Android OS, v4.4.3 (KitKat), upgradable to v6.0.1 (Marshmallow)
	Chipset	Qualcomm MSM8974AC Snapdragon 801
	CPU	Quad-core 2.5 GHz Krait 400
	GPU	Adreno 330

Memory	Card slot	No
	Internal	16/64 GB, 3 GB RAM

Camera	Primary	13 MP, f/1.8, autofocus, LED flash, check quality
	Features	1/3" sensor size, 1.12µm pixel size, geo-tagging, touch focus, face/smile detection, panorama, HDR
	Video	2160p@30fps, 1080p@30fps, 720p@120fps, HDR, check quality
	Secondary	8 MP, f/1.8, 1080p@30fps

Sound	Alert types	Vibration; MP3, WAV ringtones
	Loudspeaker	Yes
	3.5mm jack	Yes
		- Active noise cancellation with dedicated mic

Comms	WLAN	Wi-Fi 802.11 a/b/g/n/ac, dual-band, Wi-Fi Direct, DLNA, hotspot
	Bluetooth	v4.0, A2DP
	GPS	Yes, with A-GPS, GLONASS, BDS
	Infrared port	Yes
	Radio	FM radio
	USB	microUSB v2.0, USB Host

Features	Sensors	Accelerometer, gyro, proximity, compass, barometer
	Messaging	SMS(threaded view), MMS, Email, Push Mail, IM
	Browser	HTML5
	Java	No
		- Fast battery charging: 60% in 30 min (Quick Charge 2.0) - MP4/DivX/XviD/WMV/H.264 player - MP3/WAV/eAAC+/FLAC player - Photo/video editor - Document viewer - Voice memo/dial/commands

Battery		Non-removable Li-Ion 3080 mAh battery
	Stand-by	Up to 280 h (3G)

Misc	Colors	Black, White
	SAR US	1.36 W/kg (head)
	Price group	5/10 (About 230 EUR)

Tests	Performance	Basemark OS II: 1324
	Display	Contrast ratio: 929 (nominal), 2.424 (sunlight)
	Camera	Photo / Video
	Loudspeaker	Voice 62dB / Noise 62dB / Ring 66dB
	Audio quality	Noise -91.6dB / Crosstalk -49.7dB
	Battery life	Endurance rating 68h

Create Treelist with column VB.net and DevExpress

First What we  Need is Devexpress, you can Download It Here

and VB.net.. i think you was install it..

okay, we start now.

first drag "TreeList" Control From ToolBox

after That Create Colum in Treelist like picture Below

after this double klik "Button 1"

and copy code below : 

 'RECURTION

    Private Sub InsertNodeChild(ByVal Parent As String, ByVal xtabel As DataTable, ByVal parentNode As TreeListNode)

        Dim lengthChildId = Parent.Length + 2

        Dim xdtrow() As DataRow = xtabel.Select("LEN(id) = " & lengthChildId & " AND substring(id,1," & Parent.Length & ") = " & Parent, "")

        For i = 0 To xdtrow.Length - 1

            TreeList1.AppendNode(New Object() {xdtrow(i).Item("id").ToString, xdtrow(i).Item("Nama").ToString, xdtrow(i).Item("Jumlah")}, parentNode)

            TreeList1.EndUnboundLoad()

            InsertNodeChild(xdtrow(i).Item("id").ToString, xtabel, parentNode.Nodes(i))

        Next

    End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' DATA EXAMPLE =====

        Dim tb_0 As New DataTable

        tb_0.Columns.Add("id")

        tb_0.Columns.Add("Nama")

        tb_0.Columns.Add("Jumlah", GetType(Double))

        '=== LEVEL 1

        tb_0.Rows.Add(New Object() {"01", "kepala1", 100})

        tb_0.Rows.Add(New Object() {"02", "kepala2", 100})

        tb_0.Rows.Add(New Object() {"03", "kepala3", 100})

        tb_0.Rows.Add(New Object() {"04", "kepala4", 100})

        '=== LEVEL 2

        tb_0.Rows.Add(New Object() {"0101", "kepala11", 100})

        tb_0.Rows.Add(New Object() {"0102", "kepala12", 100})

        tb_0.Rows.Add(New Object() {"0103", "kepala13", 100})

        tb_0.Rows.Add(New Object() {"0104", "kepala14", 100})

        '=== LEVEL 3

        tb_0.Rows.Add(New Object() {"010101", "kepala111", 100})

        tb_0.Rows.Add(New Object() {"010102", "kepala1112", 100})

        tb_0.Rows.Add(New Object() {"010103", "kepala1113", 100})

        tb_0.Rows.Add(New Object() {"010104", "kepala1114", 100})

        '=== GET DATA FROM ALL

        Dim xdtrow() As DataRow = tb_0.Select("LEN(id) = 2", "")

        Dim ParentNothing As TreeListNode = Nothing

        TreeList1.Nodes.Clear()

        For i = 0 To xdtrow.Length - 1

            TreeList1.AppendNode(New Object() {xdtrow(i).Item("id").ToString, xdtrow(i).Item("Nama").ToString, xdtrow(i).Item("Jumlah")}, ParentNothing)

            TreeList1.EndUnboundLoad()

            InsertNodeChild(xdtrow(i).Item("id").ToString, tb_0, TreeList1.Nodes(i))

        Next

    End Sub

after that.. run the program and clik "Button 1"

it will become like this.. 

Or you can download it here

Thank you..

and sory for bad english

Membuat Fungsi Di vb.net

Membuat Fungsi Cek angka di VB.net

  Function ConvertAngka(ByVal angka As String)

        Dim hasil As Double = 0

        If IsNumeric(angka) = True Then

            hasil = CDbl(angka)

        Else

            hasil = 0

        End If

        Return hasil

 End Function

penggunan fungsi ini digunakan untuk mengecek. apakah variabel yg digunakan dapat di rubah menjadi angka atau tidak... jika berhasil maka fungsi ersebut akan akan menghasilkan angka, jika tidak maka fungsi akan menghasilkan 0

penggunaak fungsi di atas dapat di gunakan seperti contoh berikut :

Dim angka1 As Double = ConvertAngka(TextBox1.Text)