Made's Blog

2018/09/29

Pengalaman menggunakan Fuze Drive for AMD Ryzen

Bagi anda yang kebetulan mencari cari referensi tentang Fuze Drive(Mungkin berlaku juga untuk AMD Store MI karena prinsip kerja nya sama) berikut ini saya bagikan pengalaman yang saya alami dengan akselerasi disk pada platform AMD Ryzen ini.

Spesifikasi komputer yang saya gunakan adalah sebagai berikut:

ComboBox VB Net 2017

Jadi ceritanya saya sedang mengerjakan sebuah project point of sales menggunakan vb 2017 dengan database mysql. Salah satu kasus yang saya temui adalah saat menggunakan combobox untuk menampilkan data(grup customer) dari database dimana data customer ber relasi dengan tabel grup customer(id dan nama grup). algoritma sederhana dari proses ini : data customer dan grup customer diambil dari tabel di database, kemudian data customer ditampilkan di datagrid, sedangkan data grup disimpan di comboBox.

kemudian saya buat event on double click di data grid view untuk menampilkan data customer beserta grup yang di set padanya berdasarkan id grup yang ter taut pada data customer, namun apa yang terjadi ialah comboBox tidak langsung bereaksi untuk menampilkan info grup berdasarkan id grup yang di assign. saya menggunakan kode :

CmbGrupCust.SelectedValue = IdGrupSelected

setelah searching google, ternyata banyak yang mengalami hal yang sama, apakah ini bug atau memang ada cara lain untuk menampilkan data di ComboBox berdasarkan selected Id saya belum tahu persis, tapi saya akhirnya menggunakan solusi array dinamis untuk menampilkan info grup yang tersimpan di comboBox.

pertama deklarasikan array tanpa dimensi

Dim arrNamaGrup() As String

Dim arrIdGrup() As Integer

Kemudian pada form load atau pada saat mengambil data dari tabel ke comboBox:

While pmbc.Read()

jgrup = jgrup + 1

ReDim Preserve arrNamaGrup(jgrup)

ReDim Preserve arrIdGrup(jgrup)

CmbGrup.Items.Add(New With {.nama_grup = pmbc.Item(1).ToString, .value =

pmbc.Item(0).ToString})

arrNamaGrup(jgrup - 1) = pmbc.Item(1).ToString

arrIdGrup(jgrup - 1) = CInt(pmbc.Item(0).ToString)

End While

ReDim Preserve berfungsi untuk menambah ruang array dengan jumlah total sama dengan jgrup

kemudian pada saat menampilkan informasi detil customer, pada kasus saya event on celldoubleClick di dgCust:

IdGrupSelected = CInt(dgCust.CurrentRow.Cells(7).Value.ToString)

For c As Integer = 0 To arrIdGrup.Length - 1

If arrIdGrup(c) = idGrup Then

CmbGrup.SelectedIndex = c

Exit For

End If

dengan demikian kita meng-set data yang harus ditampilkan oleh comboBox dengan properti SelectedIndex, dan berhasil tidak seperti menggunakan selectedValue yang kadang jalan kadang tidak.

2017/01/15

Tool Monitoring Untuk Bamboomedia SimpleBiz

Saya selama ini selalu merekomendasikan software POS yang dibuat oleh Bamboomedia yang bernama Program Penjualan Small Biz. Program ini cukup untuk usaha kecil yang ingin memulai sistem penjualan terkomputerisasi dengan biaya yang terjangkau dan mudah dalam penggunaannya. Jika ragu anda bisa mencoba dulu aplikasinya beberapa saat, jika tidak memuaskan bisa dihapus, jika anda merasa cocok dengan aplikasinya anda dapat membelinya, harganya pu tidak mahal, hanya 120.000 saja. Juga tidak ribet harus ke toko, cukup sms, transfer, aktivasi selesai.

Sekilas tentang brothersbalitour.com

Website brothersbalitour.com adalah website profile yang dibuat dengan teknologi CMS (Content Management System) menggunakan Wordpress (selengkapnya mengenai Wordpress).
Website ini terdiri dari 2 bagian, Front end dan Back End dimana Front End adalah tampilan yang ditujukan untuk publik berisi tentang semua informasi yang ingin disampaikan tentang The Brothers Group dan layanan yang disediakan berikut tata cara untuk menghubungi jika pengunjung menginginkannya.
Berikut ini tampilan sementara untuk Front-End Brothersbalitour.com :

Read More.. Made's Blog