--------------------------------------------------| Welcome to My blog | Hope You Enjoy The Blog | :) ---------------------------------------------------------------------

2018/08/11

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
                Next

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.



Read More.. Made's Blog

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. 
Read More.. Made's Blog

2017/01/12

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

2016/09/03

Pengalaman Beli Print Head Epson secara Online

Beberapa waktu yang lalu saya kedatangan servisan printer Epson Seri L210 yang hasil printnya putus putus (black saja). Setelah beberapa kali head cleaning dan menggunakan cairan pembersih juga tidak membuahkan hasil, akhirnya saya berkesimpulan print head nya sudah aus maklum dari pengakuan pemiliknya printer ini sering digunakan untuk fotocopy(mempercepat keausan print head).
Setelah menghubungi pemilik untuk persetujuan saya memesan print head ke supplyer langganan, tapi sayang stoknya sedang kosong dan tidak tahu kapan stok kembali.
Karena tanggung jawab saya ke pemilik printer, saya mulai mencari cari supplyer lain supaya printer ini cepat diperbaiki. Kebetulan pernah berbelanja sparepart di bukalapak.com saya mulai mencari disana. Hasilnya saya kebingungan mau pesan dimana :D 
Saya putuskan untuk melihat history transaksi, yang paling banyak dari pelapak f*xprint dan pelapak ini pun memiliki website sendiri, Jadi saya yakin dengan toko ini. Singkat kata mulai lah saya melihat katalog pelapak tersebut, kemudian meng-add pin bbm salah satu sales nya.
2kali saya memesan print head itu tapi selalu terhenti saat saya meminta konfirmasi total belanja+ongkir, sudah perasaan g enak tapi karena servisan harus dikerjakan jadi saya terus folowup.
Akhirnya sales mengkonfirmasi bahwa stok tersedia dan menginformasikan jumlah tagihan yangharus ditransfer. 
Setelah barang datang, segera saya pasang printhead tersebut. Anehnya pada permukaan printhead tidak saya temui semacam cairan minyak yang mencegah printhead menjadi buntu bila disimpan lama tapi saya positif thingking saja. Test Print daaann jreenggg tidak satu titik pun ter print di kertas (badan rasanya dingin) "ah deep cleaning saja" pikir saya. selesai deep cleaning TestPrint lagi daaannnn TETAP kertasnya semulus paha "cabe cabean" wkwkwkwk "aduhh gawat"
saya diamkan semalam sekaligus menenangkan diri mungkin saya lelah :(
esok nya head cleaning dulu dan TestPrint hasilnya masih putih mulus tanpa satu titik pun terPrint.
sambil berusaha tenang saya hubungi sales f*xprint. apa katanya? No warranty. 
okelah no warranty, tapi saya tanyakan "ibu tidak jual barang rusak kan?" jadi setidaknya ini dijamin normal kan?? salesnya diam kemudian seperti mencari alasan kabel yg bermaasalah lah, saya salah pasang lah, mesti di "panjer" lah, alasan yg tidak masuk  akal menurut saya.
Karena menurut saya sudah buntu dan kalau diteruskan berdebat via telp juga buang buang pulsa dan energi,saya kirim balik saja dengan harapan mereka akan cek ulang. Setelah 3hari sejak tracking kurir statusnya diterima, saya telepon lagi ke surabaya jawaban yang saya dapatkan adalah "akan dibantu untuk cek" well saya pasrah dah uang hilang barang yang didapat barang rongsokan.
baru tadi tiba tiba ada paket dari surabaya, isinya print head L210 "oh sudah datang lagi?" pikir saya, tanpa menunggu lagi saya pasang print headnya daaannnn masih sama saja ga ngeprint satu titik pun
bener bener dah kecewa berat, yah relakan uangnya semoga bahagia dengan uang hasil kerja yang ga bener
 
Read More.. Made's Blog