stmikbg-dot-com

Kemarin saat developt software untuk versi .NET saya sempat kebingungan, mungkin karena masih tersihir dengan metode binding pada VB.6 Jadi saya hampir saja menggunakan gaya pemerograman VB.6 untuk memasukkan data item kedalam combo box. Ditengah perjalanan codeing saya langsung buntu, bagaimana tidak untuk pindah antar baris jika di VB.6 mudah sekali digunakan cukup menggunakan properties .MoveNext pada object recordset yang dimaksud kita langsung bisa membinding semua data kedalam combo. Untuk jelasnya bisa dilihat pada Code Dibawah ini

'Visual Basic 6.0 Style
'Using Recordset Object
StrCariPasien = "Select [Register Pasien],[Nomor Rekam Medik],[Nama Pasien],[Alamat],[Jenis Pengenal]," & _
                "[Nomor Pengenal],[Handphone],[Phone] From Pasien Where [Nama Pasien] Like '" & Trim(TxtSearch.Text) & "%'"
Set RsCariPasien = Nothing
Set RsCariPasien = New ADODB.Recordset
RsCariPasien.Open StrCariPasien, Conn, adOpenDynamic, adLockOptimistic
CboSearch.Clear
If RsCariPasien.RecordCount <> 0 Then

 'Looping sebanyak data yang ada
 With RsCariPasien
  .MoveFirst
  While Not .EOF
   CboSearch.AddItem Trim(.Fields("Nama Pasien").Value) & _
                     " [RM: " & Trim(.Fields("Nomor Rekam Medik").Value) & "] [Alamat: " & _
                     Trim(.Fields("Alamat").Value) & "] [Pengenal: " & _
                     Trim(.Fields("Jenis Pengenal").Value) & "-" & _
                     Trim(.Fields("Nomor Pengenal").Value) & "] [HP: " & _
                     Trim(.Fields("Handphone").Value) & "] [Phn: ]" & _
                     Trim(.Fields("Phone").Value) & " ?" & Trim(.Fields("Register Pasien").Value)
   .MoveNext
  Wend
 End With
End If

Sementara itu untuk VB.NET metode diatas tidaklah mungkin untuk dilakukan jika kita menggunakan ADO.NET karena arsitekturnya yang disconected. Berhari-hari saya mengalami kebuntuan ide hanya karena problem ini,tapi alhamdulillah secara tidak sengaja saya mendapatkan ide, kenapa Dataset yang saya buka tidak saya convert dulu keDatarow untuk memudahkan pindah antar baris? Berangkat dari ide diatas saya langsung membuat code dibawah ini

'VB.NET style
'Using Dataset and datarow

'Deklarasikan fungsi untuk buka dataset
'Fungsi ini bisa dipakai berkali-kali
Public Function OpenDataSet(ByVal SqlCommand As String) _
    As DataSet
        Dim Command As New MySqlCommand(SqlCommand, Koneksi)
        Dim Adapter As MySqlDataAdapter = New MySqlDataAdapter()
        Adapter.SelectCommand = Command

        Dim Ds As New DataSet
        Adapter.Fill(Ds)
        Return Ds
End Function

'Panggil fungsi opendataset dan masukkan data kedalam combo
Private Sub CboBaruKategori_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboBaruKategori.Click
        dtKelompokData = New DataTable
        dtKelompokData = GetData("Insert Into `KelompokData` (`Keterangan`,`Jenis`) Values ('" & _
                                 Trim(CboKategori.Text) & "','Kategori')")

        dsKelompokData = New DataSet
        dsKelompokData = OpenDataSet("Select * From `KelompokData` Where `Jenis` = 'Kategori'")
        CboKategori.Items.Clear()

         'Looping sebanyak data yang ada
        For Each DataRow In dsKelompokData.Tables(0).Rows
            CboKategori.Items.Add(Trim(DataRow("Keterangan").ToString))
        Next
End Sub

Jika dilihat dari penggalan code diatas, dari segi arsitektur dan code program antaran VB.6 dan VB.NET sama sekali berbeda, Perhatikan code yang berwarna merah diatas, bisa dilihat perbedaan model loop pada VB.6 dan VB.NET, walaupun tujuannya sama yakni untuk membinding semua record yang diquery berdasarkan QueryString. Sekian tulisan singkt ini saya buat, semoga bisa membantu bagi rekan-rekan programer. Semoga Allah tetap menganugerahkan taufik dan hidayahnya bagi hatiku yang kotor ini .

Incoming search terms:

• combo box on vb net
• combo box pada vb net
• combobox value in vb net
• combobox vb
• combobox vb adodb
• Looping pada vb
• vb net reset combobox

beberapa hari ini saya benar-benar kehilangan semangat kerja. Untuk menyelesaikan kode saja saya tidak mampu untuk berpikir. Pola pikir saya benar-benar kacau, bagaimana tidak banyaknya proyek yang harus saya selesaikan membuat saya kepayahan. Proyek yang saya handle benar-benar cros languange mulai dari yang menggunakan microsoft visual basic 6, MS VB.Net, PHP dan ditambah lagi dari beragamnya basis DBMS yang digunakan mulai dari MS-SQL Server, mySQL dan MS-ACCESS yang tentu metode dan syntax dari query yang dijalankan sama sekali berbeda.

Kebuntuan ini belum dari pengaruh rumitnya kode yang harus saya rampungkan, juga masalah hati saya yang tidak mau diajak kompromi. Hati ini sama sekali tidak mau diajak dialog dan mengerti kalo saat ini lagi dikejar deadline. Berhari-hari saya berkeliling menikmati suasana kota mataram, sejuknya hawa pegunungan dipuncak sana, indahnya saat sinar mentari kala tenggelam dipantai senggigi demi untuk mendapatkan kejernihan pikir agar bisa menyelesaikan kerjaan yang sudah mau deadline ini. Saking kacaunya dan penyakit malas yang terus mendera hampir 95% codeing aku serahkan kepada TIM Programer tanpa sedikitpun aku audit atau ikut berperan saat pencodeannya.. Tapi bagaimanapun aku tetap percaya dengan kemampuan logic dan algorithma yang mereka kembangkan. Buat Tim Programer terima kasih sudah mengerti aku saat-saat ini.

Berangkat dari permasalahan ini aku mulai berbenah, mencoba menggorganisir kerjaan mulai dari yang urgent sampai keproyek yang bisa ditunda untuk beberapa waktu. Mungkin sudah ada beberapa proyek yang saya tolak dengan halus ketika teman-teman marketing memberi proposal dan kontak dari client yang berhasil mereka dapatkan deal. Jika aku ikuti kemauan dan napsu bisa saja semua kerjaan itu diterima, tapi apa ya sanggup aku bersama tim untuk menyelesaikannya???

Kami dalam tim sepertinya perlu membuat ulang skema dan metode kerja, perlu melakukan evaluasi terhadap performance tim, perlu belajar banyak untuk saling mengerti. Yeah kerja tim itu memang rumit tidak lepas dari ego masing-masing personil. Tapi sukur selama ini kami bisa mengesampingkan ego senior atau tidaknya personal yang terlibat, selagi dia mampu dan profesional kenapa harus ada pembedaan. Buat TIM programer dan analyst yang membaca postingan ini mohon maaf kalo beberapa hari ini kita tidak seperti biasanya dalam beraktifitas.

bosan mainin facebook tiap hari, akhirnya muncul juga pikiran nakal saya, duh gimana ya biar bisa liat pic orang walaupun kita bukan friend listnya??? ternyata untuk melakukan ini mudah sekali, anda cukup mengetahui id_number dari korban dan memasukkan langsung kelink berikut

http://www.facebook.com/photo_comments.php?id=[id_number]

Bug diatas sampai hari ini belum dipatch oleh developer facebook. Disamping itu ada juga bug lainnya yakni

http://www.facebook.com/photo.php?id=XXX&pid=XXX

Untuk bug kedua mungkin agak susah karena anda harus memasukkan pid photonya. Selain dari link yang diatas ada juga java script yang khusus untuk mengexploitasi bug ini, untuk lebih jelasnya bisa dilihat dilink berikut ini
http://userscripts.org/scripts/show/9580 Ini saja mungkin yang bisa saya tulis, gunakan informasi untuk pembelajaran jangan digunakan untuk kejahatan yang bisa merugikan orang lain.

Incoming search terms:

• hack photo in facebook

Semalam saya dihubungi ma teman yang sekarang lagi menghindar dari gemerlapnya dunia sebut saja ustad shidiq. Beliau ini nun jauh disana, tapi biarpun begitu saya salut, biar dipedalaman sana tetap saja melakukan riset dan pengembangan perangkat lunak. Semoga beliau menjadi “programer yang islami” banyak menyumbang ide-idenya untuk kemajuan umat.

Yang ditanyakan tentang sebuah fungsi divisual basic yang bisa mematikan komputer secara otomatis jika aplikasi yang digunakan berhenti digunakan, misalnya sebut saja Sistim Informasi Akuntansi nah begitu SIA ini berhenti digunakan komputer juga akan otomatis shutdown. Semalam saya sarankan menggunakan shell ektension untuk mengeksekusi file shutdown.exe bawaannya windows.

ApID = Shell("shutdown.exe -s -t 00, 1")
AppActivate ApID

Tapi saya menyarankan untuk menggunakan Windows API karena lebih sederhana tapi powerfull. Untuk contoh kodenya seperti dibawah ini

'Sample project to shutdown windows or reboot computer
      'Will not work on windows NT OS

       Const EWX_LogOff As Long = 0
       Const EWX_SHUTDOWN = 1
       Const EWX_REBOOT = 2
       Const EWX_FORCE = 4
       Private Declare Function ExitWindows _
               Lib "User32" Alias "ExitWindowsEx" _
               (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
      Private Sub Command1_Click()
          'Shut down windows
          ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
      End Sub

      Private Sub Command2_Click()
          'Reboot computer
          ExitWindows EWX_REBOOT, &HFFFFFFFF
      End Sub

Kode diatas contoh untuk melakukan shutdown, reboot dan logoff menggunakan visual basic 6.0, Untuk kode menggunakan VB.NET insya allah akan saya posting beberapa hari lagi berhubung lagi banyak kerjaan ini.

Sempat kaget waktu mau cek email yang di linuxmail.org gak pernah bisa login keinbox, yang ada malah aku diredirect ke mail.com. Duh kalo gini bisa-bisa semua isi inbox akan hilang deh. Soalnya disana semua akun berikut data penting tentang rekening bank, username hosting dan domain, berikut arsip penawaran dan data project aku simpan disana semua. Aku langsung cek ke mail.com coba login ternyata berhasil, inboxnya agak berat seh soalnya dah menggunakan ajax, tapi yang paling bikin gw senang semua isi inbox dan arsip yang kemarin2 tidak hilang, ternyata semuanya dibackup disini, ditambah lagi kapasitas penyimpanannya naik menjadi 3 GB yah lumayan lah buat simpan file yang sering gw gunakan untuk penawaran.