Source Code

Di bawah ini adalah semua contoh source code yang terdapat di dalam blog ini untuk sementara hanya tersedia dalam bahasa Visual Basic 6, Visual Basic .NET dan Visual C# :

  1. Sistem Informasi Sekolah, artikel
  2. Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10, artikel1, artikel2
  3. Membuat sms gateway itu gampang, jangan dipersulit !!!, artikel
  4. Membuat Y!M Translator sendiri, artikel
  5. Animasi Teks, artikel
  6. Bola Mata, artikel
  7. Contoh Menu dengan Komponen VBSmartMenu, artikel
  8. Contoh Menu dengan Komponen TreeView, artikel
  9. Contoh Menu dengan Komponen vbAcceleratorExplorerBar, artikel
  10. Aplikasi chat 1, artikel
  11. Aplikasi chat 2, artikel
  12. Aplikasi winsock – contoh kasus akses data via internet, artikel
  13. Aktivasi Dongle 1, artikel
  14. Aktivasi Dongle 2, artikel
  15. Contoh membuat kelas sederhana, artikel
  16. Membuat Windows NT Service, artikel
  17. Menambahkan icon pada menu standar VB, artikel
  18. Membuat menu dengan 4 style, artikel
  19. Akses SP dan View, artikel
  20. Bermain-main windows service, artikel
  21. Membuat kalender nasional, artikel
  22. Membuat input hari libur, artikel
  23. Membuat laporan dalam format Ms Excel plus ada gambarnya, artikel
  24. Pengaturan Hak Akses Level Menu, artikel
  25. Mereset menu program, artikel
  26. Memanfaatkan library IKG untuk membuat aktivasi + keygen, artikel
  27. Menampilkan data dalam format grafik, artikel
  28. Mengeset properties MaxLength TextBox secara otomatis, artikel
  29. Membuat rumus penilaian dinamis, artikel
  30. Beberapa alternatif menampilkan file gambar via jaringan, artikel
  31. Cara mudah mencetak kode barcode, artikel
  32. Coding4Ever Advanced TextBox ( VB .NET), artikel
  33. Property Builder (VB .NET), artikel
  34. ExplorerBar Control for .NET, artikel
  35. Menyembunyikan tulisan MERAH di ActiveReports for .NET 2 SP 2, artikel
  36. Memadukan komponen MenuStrip dan ExplorerBar Control for .NET, artikel
  37. Mengakses database MySQL menggunakan C# bagian 1, artikel
  38. Mengakses database MySQL menggunakan C# bagian 2, artikel
  39. Beberapa alternatif mengosongkan TextBox (C#), artikel
  40. Tutorial Active Report bagian 1, artikel
  41. Tutorial Active Report bagian 2 – Grouping, artikel
  42. Tutorial Active Report bagian 3 – Sub Report, artikel
  43. Mengakses multi database dengan satu Namespace (C#), artikel
  44. Melewatkan data antar form (C#), artikel
  45. Implementasi konsep Data Access Object (DAO) di VB 6, artikel
  46. Tutorial Active Report bagian 4 – Membuat Report tanpa Database, artikel
  47. Membuat Wi-Fi Profiles sendiri (C#), artikel
  48. Tutorial .NET Remoting Part 2 – 4 (C#), artikel
  49. Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 1 – 3 (C#), artikel
  50. Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 4 (C#), artikel
  51. Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 5 (C#), artikel
  52. Aplikasi Antrian, artikel
  53. Disable/Enable Task Manager Windows 7 C# Edition, artikel
  54. Input data via grid, artikel
  55. The Power of Firebird Events (C#), artikel
  56. Database Firebird versi Embedded (C#), artikel
  57. ToDo List, artikel
  58. Dapper .NET Micro-ORM Part 1, artikel
  59. Dapper .NET Micro-ORM Part 2, artikel
  60. Dapper .NET Micro-ORM Part 3, artikel
  61. Entiy Framework Part 1, artikel
  62. Entiy Framework Part 2, artikel
  63. Entiy Framework Part 3, artikel
  64. Entiy Framework Part 4, artikel
  65. Entiy Framework Part 5, artikel
  66. Entiy Framework Part 6, artikel
  67. Entiy Framework Part 7, artikel
  68. SMS Gateway Edisi .NET Part 1, artikel
  69. Entiy Framework Part 8, artikel
  70. Membuat Laporan Crystal Reports .NET Dengan Model Data-Push, artikel
  71. Paket NuGet Yang Wajib Dicoba Bagian #1 – CrashReporter.NET, artikel
  72. Membuat Jadwal Otomatis Backup Database
  73. Tutorial WCF Service Bagian #1, artikel
  74. Tutorial WCF Service Bagian #2, artikel
  75. Tutorial WCF Service Bagian #3, artikel
  76. Tutorial WCF Service Bagian #4, artikel
  77. Cara Mudah Mengelola Versi Aplikasi
  78. The Power of Visual Studio .NET Build Events Part #1
  79. The Power of Visual Studio .NET Build Events Part #2
  80. Artikel dan source code lain segera nyusul … insya Alloh :)

Jika ada link yang tidak berfungsi mohon diinformasikan di bagian komentar, terima kasih.

  1. Renald S
    March 24, 2010 at 10:32 am

    Tks Ya Mas..
    BTW semua itu ada yg trial gk?

  2. March 24, 2010 at 10:45 am

    Trial g mana mas? inikan source code

  3. nabe
    April 15, 2010 at 11:29 pm

    hallo…;
    bisa bantuin source code VB 6 buat memantau situs2 apa saja yg dikunjungi client(daftar situs yg dikunjungi secara keseluruhan) dlm sebuah warnet..,misalkan kita sebagai server..;thx b4..
    bantuin ya…,ni salah satu program yg ingin saya tambahin buat lengkapin program TA saya..;triMS…

  4. April 16, 2010 at 12:40 am

    nabe :

    hallo…;
    bisa bantuin source code VB 6 buat memantau situs2 apa saja yg dikunjungi client(daftar situs yg dikunjungi secara keseluruhan) dlm sebuah warnet..,misalkan kita sebagai server..;thx b4..
    bantuin ya…,ni salah satu program yg ingin saya tambahin buat lengkapin program TA saya..;triMS…

    Wah3x sy jadi ada IDE nih untuk membuat artikel berikutnya.
    Tunggu aja tanggal mainnya :D

    • nabe
      April 28, 2010 at 12:09 am

      dtgg ya…;
      secepatnya….thx b4

  5. April 24, 2010 at 11:51 pm

    mas ada contoh pembuatan app chat mengunakan vb .net dngn sistem login xml yg kya d jabber g???/

    rply plz y mas

  6. April 25, 2010 at 1:23 am

    saddam :

    mas ada contoh pembuatan app chat mengunakan vb .net dngn sistem login xml yg kya d jabber g???/

    rply plz y mas

    Sory mas untuk vb sy stop sampe vb 6 aja, yg ada dibenak sy skrg lebih baik menginvestasikan waktu untuk belajar java dari pada vb.net

  7. April 28, 2010 at 1:13 am

    nabe :

    dtgg ya…;
    secepatnya….thx b4

    Tergantung waktu mas :D

  8. triasfahrudin
    May 8, 2010 at 3:12 pm

    artikelnya bagus2, trimakasih sudah bagi2 ilmu :)

  9. May 9, 2010 at 1:34 am

    Oke sama2x :)

  10. Akila
    May 27, 2010 at 1:05 pm

    Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10
    Thanks Berat,sangat berguna …mo buat server pulsa…..

  11. May 27, 2010 at 3:41 pm

    Akila :

    Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10
    Thanks Berat,sangat berguna …mo buat server pulsa…..

    Sama2x om, semoga sukses :)

  12. nabe
    May 28, 2010 at 3:51 am

    hallo..;
    for admin…;
    bisa tolong d post source codenya untuk monitoring situs2 yang dikunjungi client dalam sebuah warnet..?? help please….@@ ., saya tunggu konfirmasi baliknya;

    email saya: vnabe86@gmail.com

  13. May 28, 2010 at 9:21 am

    Sory ya om nabe sy belum sempat riset lebih mendalam untuk masalah ini (kerjaan belum kelar2x :(), dan sudah sempat mencoba melihat bagian2x Mozila dan google chrome dengan tool Spy++ tapi belum ada informasi yg berarti.

    Coba searching dulu dg keyword “how to get url address Mozilla Firefox + vb” kayaxnya banyak artikel yg membahas masalah ini

  14. nabe
    May 30, 2010 at 4:55 pm

    hi.., sorry banyak tanya..;

    gmn kode program VB6 untuk mengakses form yang ada pada komputer client..??jadi pada server akan muncul form client saat server ingin mengakses form tersebut; server mengakses form pada komputer client berdasrkan alamat ip yang dituju;

    nb: pada jaringan LAN,; hanya form bukan remote desktop(misalkan kita ingin mengakses/menampilkan pada server, sebuah form kalkulator yg kita buat dgn VB 6 pada komputer client);

  15. May 30, 2010 at 10:58 pm

    coba LINK ini mas

  16. nabe
    May 31, 2010 at 11:22 am

    oia…mas admin;
    saya lagi bth pertolongan..; bisa tolong sy mas..;hehehehe….;
    saya lg smtr nyusun skripsi…,and ada sdikir kendala;
    ini alamat email sy :
    vnabe86@gmail.com n IM :victornabe@yahoo.co.id

    oia…:mas bs mnt almt emailnya..:
    thanks..;

  17. June 1, 2010 at 1:16 am

    Sama om, sy juga lagi butuh bantuan :D
    Kerjaan enggak kelar2x udah beberapa hari enggak mood coding, kecuali coding 4 hobby :D

    Email : k4m4r82@yahoo.com
    YM : k4m4r82 -> tapi jarang OL :D

  18. June 27, 2010 at 3:58 pm

    Baru masuk menu yg di sini, tp ko ga ketemu sistem perpustakaan ya Om… :D ?

    lagi nyari neh(baca: ngarep) :D

    • June 27, 2010 at 10:17 pm

      Ha ha ha :) yg perpustakaan memang bukan open source om, cuma freeware. Jadi otomatis sourcenya enggak sy daftarin disini :-P

      Tapi klo cuma mau file setupnya bisa didownload diSINI

  19. elia
    July 31, 2010 at 12:23 pm

    salam kenal buat semuanya para guru2. bisa tolong kirimkan source kode vb 6.0 untuk monitoring layar client.mhon blsnnya

    • July 31, 2010 at 1:05 pm

      Mungkin mba bisa coba link INI

  20. phic
    August 1, 2010 at 10:44 am

    mas tolongin saya bikinkan cara membuat file checklist dan nonchecklist dengan 1 tombol saja…. makasiii

    • August 2, 2010 at 1:55 am

      Sy kurang paham dan baru tau klo ada “file checklist dan nonchecklist”, mungkin pertanyaan diperjelas lagi.

  21. haloboss
    August 11, 2010 at 1:28 am

    mas, Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10 cara menggunakannya gimana ya?

    • August 11, 2010 at 2:16 am

      Minimal butuh 2 pc dg masing2x YM yg udah online, kita sebut aja PC A dan B.

      Di PC A jalankan program Mesin Penjawab Otomatis Y!M, dari PC B Aktifkan YM yg ditujukan ke PC A kemudian ketik pesan BANTUAN.

      Jika ada respon dari PC A berarti uji coba berhasil, selanjutnya om tinggal coba keyword yang lain.

      Selamat mencoba :smile:

  22. Mansuri
    August 13, 2010 at 4:41 pm

    Mas ada contoh buat aplikasi arsip digital dengan vb6
    dengan viewer gitu…..

    • August 13, 2010 at 9:21 pm

      Maksudnya viewer apaan nih ? viewernya active report/crystall report gitu ya ?

  23. Mansuri
    August 16, 2010 at 9:51 am

    Maaf kang sudah terjawab di forum iBEGO

    Oh ya Saya ingin mengucapkan terima kasih buat k4m4r82
    terima kasih saya jadi ngerti class…. walau pun masih sedikit….

    dari Artikel Contoh membuat kelas sederhana, ini saya coba ngembangin yang lain…
    walau masih banyak kopasnya….

    kedepan barangkali perlu artikel tentang desain applikasi biar dilihatnya menarik dengan tidak mengurangi kinerja sistemnya

    Makasih…..

  24. August 17, 2010 at 4:07 am

    Mansuri :

    Maaf kang sudah terjawab di forum iBEGO

    Oh ya Saya ingin mengucapkan terima kasih buat k4m4r82
    terima kasih saya jadi ngerti class…. walau pun masih sedikit….

    dari Artikel Contoh membuat kelas sederhana, ini saya coba ngembangin yang lain…
    walau masih banyak kopasnya….

    Enggak pa2x om yg penting udah dapat pencerahan :D

    Mansuri :

    kedepan barangkali perlu artikel tentang desain applikasi biar dilihatnya menarik dengan tidak mengurangi kinerja sistemnya

    Makasih…..

    Wah desain program saya udah mentox om :D, kan bisa dilihat dari aplikasi freeware yg saya upload diblog ini.

  25. joetaher
    September 11, 2010 at 1:56 pm

    mas, untuk sistem informasi sekolah programnya perlu dimasukan user name dan password. saya coba-coba akses ga bisa. mohon bantuannya

    • September 11, 2010 at 11:21 pm

      Wah3x masnya terlalu bersemangat nih, harusnya baca PENJELASANNYA dulu baru download sourcenya :D

  26. andhy kurniawan
    September 29, 2010 at 8:54 am

    mas mau tanya nih
    kodingan buat mindahin listbox ke report gmn yah?
    ceritanya ogut kan masukin data pilihan ke listbox, maksudnya biar gampang dimasukin ke report, jd cukup 1 kodingan
    tp waktu di coba ternyata gk mau masuk ke report
    mohon pencerahannya mas

    • September 29, 2010 at 10:46 am

      Reportnya pake apa dulu om, DataReport, Crystall Report atw ActiveReport ?

  27. andhy kurniawan
    September 29, 2010 at 11:28 am

    Data Report

  28. andhy kurniawan
    September 29, 2010 at 11:33 am

    atau share lewat YM jg boleh mas e_12120_r@yahoo.com,hehehe….

  29. October 2, 2010 at 6:11 pm

    that’s cool dawg!! haha

    really like this..

  30. October 4, 2010 at 12:54 am

    tq om udah mampir :smile:

  31. Fifin
    November 6, 2010 at 2:00 pm

    om… gw jalanin SisFoSiswa di Vista g jalan ya, padahal gw udh download tuh SmartMenuXP.dll nya.. napa ya om

    • November 6, 2010 at 11:27 pm

      Iya om library SmartMenuXPnya memang bermasalah klo di Vista, SmartMenuXPnya dihapusnya trus buat ulang menunya pake Menu Editor.

  32. yudhi
    November 7, 2010 at 12:52 am

    om..punya contoh penggunaan xtreeopt yang sederhana gak..

    • November 7, 2010 at 1:48 am

      Justru itu udah sy sederhanakan om, coba deh bandingkan dengan source code aslinya disini, komplexan mana?

  33. yudhi
    November 7, 2010 at 4:45 pm

    iya ya..ribetan yang aslinya… thanks om..saya pelajarin dulu deh..
    oh ya..boleh minta contoh penggunakan datagrid, yang menginput datanya di dalam grid.

    • November 8, 2010 at 1:01 am

      Klo datagrid sy udah enggak pernah make lagi, bukannya klo pake datagrid udah bisa langsung input di gridnya?

  34. yudhi
    November 8, 2010 at 4:04 pm

    oo gitu ya..ok deh..
    ada contoh program yg menggunakan vb.net gak ya

  35. November 8, 2010 at 11:25 pm

    Disini banyak om

  36. angga
    November 12, 2010 at 2:27 am

    subhanallah, mulianya engkau hamba allah, begitu mudahnya kami untuk belajar dari souce code ini, mudah2an allah swt memberi kemudahan dalam berbagai hal kesulitan,amiin. mudah2an semua orang bisa berbagi ilmu seperti anda, tidak komersial.

  37. angga
    November 12, 2010 at 2:28 am

    amiin

    • November 12, 2010 at 4:45 am

      Amin, tq om sy jadi terharu :cry:

  38. November 14, 2010 at 10:14 am

    Ass …
    Mas saya mw tanya …

    jangan diketawain yah …
    hehe :D

    low supaya spalsh screen tampil x agag lamaan ..
    cara x gmana yah ??

    coz yg bikinan saya cepet bgt tampilnya ….

    • November 14, 2010 at 11:36 am

      Sy ketawain dulu ah ha ha ha :lol:
      Mungkin interval timernya aja om dinaikin

  39. Yudhi
    November 25, 2010 at 3:06 pm

    om guru…boleh minta contoh menyimpan gambar ke database sql server dan memanggilnya kembali ke dalam modul..

    mohon petunjuknya

    • November 25, 2010 at 11:01 pm

      Source code yang ada di sini bisa kok om digunakan untuk menyimpan dan menampilan gambar di SQL Server, tentunya dengan sedikit revisi :
      1. Kode koneksi diarahkan ke SQL Server
      2. Untuk fieldnya menggunakan tipe data image

      Selamat mencoba :)

      • yudhi
        November 30, 2010 at 8:52 am

        thanks ya om guru..semakin bergairah nih belajar vb nya saya

        • November 30, 2010 at 1:41 pm

          wedewww si om lagi bergairah :D, mendingan langsung vb.net aja om :D

          • yudhi
            December 10, 2010 at 5:14 pm

            yup ini juga lagi sambil belajar vb.net..

            btw, punya sample insert image to database vb.net yang menggunakan adodb gak om..

            mohon pencerahannya

            • December 11, 2010 at 2:39 am

              Coba ini om.

    • yudhi
      January 15, 2011 at 8:34 am

      ada contoh restore database ke sql server gak om

      • January 16, 2011 at 9:03 am

        Klo restore itu databasenya biasanya sejenis om, klo beda database itu namanya konversi.

        Jadi database apa nih om yg mau dikonversi ke db sql server ?

        • yudhi
          January 17, 2011 at 3:04 am

          gini ceritanya om guru, saya backup database sql server .bak, dan sekarang saya mau merestorenya ke sql server juga.. gitu lho.. mohon pencerahannya ya om guru

          • January 18, 2011 at 2:46 am

            Disini om lengkap banget penjelasan backup dan restorenya baik via Enterprise Manager maupun via skip.

            • yudhi
              January 19, 2011 at 9:09 am

              kok gak ada ya .. malah timbul pesan seperti ini :
              Sorry, no posts matched your criteria.

  40. ayie
    December 7, 2010 at 5:09 pm

    mkasih bnyk mas atas isi source codenya…. dan sangat bermanfaat

    klo boleh, saya pengen dikirimin source code program sederhana tentang soal pilihan ganda atau interaktif dg VB 6.0 ke wyoozz@gmail.com.

    atas bantuannya saya ucapkan terima kasig bnyaaakkkk !!!!

    Sukses selalu. Amin

    • December 8, 2010 at 2:58 am

      Sama, tapi sory ya belom punya sourcenya :D

  41. December 14, 2010 at 10:58 am

    Gan kalau cara membuat tombol save di VB 6 gimana????????

    • December 15, 2010 at 1:56 am

      Download om contohnya disini.

  42. Sigit Pramono
    December 17, 2010 at 2:15 pm

    jujur,…ane yg dari kaki gunung lawu sampai kini ngampung di perbatasan sumut, banyak tempat yg ane kunjungi,didunia nyata apalagi didunia maya, gak ada tempat seteduh sites ini.dr cara nyampein masalah sampai kualitas “kajiannya” tak ada yg tak bermanfaat.kata orang teknologi adalah piranti menyederhanakan masalah.gue nemuin semuanya di sini..Semuanya. Benar semuanya.Kang Qamar ijinkan ane yg dhaif ilmu ini nyampein salam kenal, sembari memohon ijin akang untuk menimba dan “memanfaatkan” ilmu akang barangkali bisa digetok-tularkan ke anak cucu.Keep ‘alimun smoga allah limpahi berkah ilmu kepada akang yg tlah sudi berbagi. ane terharu. jujur.Wassalam Sigit Pramono.Langkat Sumut.bravomediadata@yahoo.com

    • December 18, 2010 at 12:46 am

      Jazakallahu khairan om atas komen dan doanya, mudah-mudahan menambah semangat kita untuk trus berbagi dan saling mengingatkan :).

      Dan mudah-mudahan tidak menimbulkan benih-benih riya yang sekalipun amalan kita menggunung namun ringan laksana debu yang berterbangan dihadapan Allah ta’ala.

      Salam kenal juga om dari sy Rudi, anak Riau yang nyasar ke Jogja :D

      Barakallahu Fiikum
      Jazakallahu khairan

  43. Sigit Pramono
    December 18, 2010 at 3:20 pm

    wa’alaikum salam
    thnx perkenan kenalannya mas Rudy. Kampung kulo ngawi wetan solo mas.sakniki manggen ten kab. langkat sumatera utara. baru blajar vb tertarik artikel mas rudy
    ok brother.. keep smart.. keep share (baca:syar’ie).. Ane tunggu buah fiqir mas rudy(yg cool) yg lain..

    • December 20, 2010 at 1:52 am

      Oke om, jangan lupa sering2x mampir :)

  44. Sigit Pramono
    December 23, 2010 at 1:19 pm

    awalnya ane segn mo nympein uneg2 ini tp kykny gk dpt pencerahan kalo gak diomongin. maaf ya mas: ane ni kan praktisi pendidikan. ane mu mohon info apakah masnya ada source code infosiswa (yg kompilasi code nya dah di posting) yg lengkap terutama absensi dn pengolahan nilai yang mendukung kaidah2 penilaian kurikulum SLTA/SLTP sekarang. syukur2 ada fitur2 pendukung lainnya. klo ada brapa maharnya (nuwun sewu ya mas keceplosan). kalo boleh off the record mohon infonya dikirim ke email ane :bravo2mediadata@gmail.com. emergency ni mas ngadepi semester baru. matur nuwun sblmnya. wassalam Sigit Pramono

  45. Sigit Pramono
    December 23, 2010 at 1:21 pm

    ojo lali no yg bisa dihub. mas.

    • December 24, 2010 at 9:01 am

      Sudah sy balas om :)

  46. Akhdan
    December 28, 2010 at 9:07 am

    Salam kenal sebelumnya ya mas.. Saya Akhdan, sy salut banget sama blog anda.. isinya informatif dan bagus banget.. sy sudah coba beberapa source code utk sy compile dg VB6 saya.. hasilnya luar biasa..:) Hebat bgt.. dulu belajar dimana sih mas? :D ajarin sy juga dong. hehehe.. maklum newbie.
    Oiya mas.. sy dulu pernah punya aplikasi kasir dan kebetulan pakai dongle (USB / Flasdisk) aplikasi hanya bisa jalan kalo Dongle tsb terpasang di PC. nah masalahnya sekarang dongle tsb rusak mas.. (wah sdikit curhat nih..:) ) kira2 sy bisa minta tolong dibuatkan program yg bisa membuat dongle tsb ga mas? sy sebelumnya sudah coba compile source code utk dongle yg mas kasih diatas tapi sayangnya kode Dongle yg dihasilkan tidak sama. kalau tidak salah kode Dongle sy yg rusak dulu adalah : 923C2887-1625F105-2F9C1F12

    kira2 bisa tidak mas dibikinkan program utk generate ID dongle dg format kode dongle spt diatas?
    trims bgt atas bantuannya…

    Semoga Mas sukses terus, banyak rezeki dan sehat biar bisa selalu berbagi ilmu dg sesama.. Amien..

    • December 28, 2010 at 1:33 pm

      Salam kenal juga om :)

      Akhdan :
      Oiya mas.. sy dulu pernah punya aplikasi kasir dan kebetulan pakai dongle (USB / Flasdisk) aplikasi hanya bisa jalan kalo Dongle tsb terpasang di PC. nah masalahnya sekarang dongle tsb rusak mas.. (wah sdikit curhat nih..:) ) kira2 sy bisa minta tolong dibuatkan program yg bisa membuat dongle tsb ga mas? sy sebelumnya sudah coba compile source code utk dongle yg mas kasih diatas tapi sayangnya kode Dongle yg dihasilkan tidak sama. kalau tidak salah kode Dongle sy yg rusak dulu adalah : 923C2887-1625F105-2F9C1F12

      kira2 bisa tidak mas dibikinkan program utk generate ID dongle dg format kode dongle spt diatas?

      Untuk mengenerate kode dongle seperti yang om maksud otomatis harus tau dulu algoritma program kasirnya pd saat pembacaan key donglenya, baru bisa dibuatkan aplikasinya om.

      Jadi otomatis sy enggak bisa bantu untuk masalah ini :(

  47. Dimas Aritona
    January 16, 2011 at 12:40 pm

    aplikasi perpustakaannya saya suka bro, pake database firebird lagi(sejalan). apalagi saat pencet tombol cetak, wuz.. wuz.. wuz.. cepet banget nampilin datanya, apa itu keunggulan active report dibandingkan crystall report yang super duper lemot buat nampilin datanya ato saya yang masih ga bisa codingnya ya, hehehe….
    bro boleh minta alur coding buat nampilin data pake active report ga, mohon bantuannya, terima kasih..

    • January 17, 2011 at 1:53 am

      Kan udah sy kasih gambaran disini om.

  48. Ucup
    January 22, 2011 at 7:49 am

    Mas Admin…tolong kasih pencerahan untk source code normalisasi matriks X dengan visual basic…( btw unutk hitung matriks bsa ngg pke MSFLexgrid )

    • January 23, 2011 at 2:29 am

      Sory om sy lom ngerti teori matriks X nya :D
      Ini buat SPK ya?

  49. Ucup
    January 25, 2011 at 2:47 am

    iy OM admin..ni buat SPK he..he…btw klu hitung2an matriks kira2 bsa ap ngg yaa klu angka2 ny kita masukkan ke MSFlexgrid trs angka2 ny d htung scra matriks dr MSFlexgrid tsbt..TRims yaa Om… :)

    • January 25, 2011 at 3:18 am

      Yg jelas bisa aja om, cuma klo enggak ngerti teorinya ya susah ngecodingnya :D

  50. fendi
    January 31, 2011 at 2:25 am

    kk gimana cara membuat tombol untuk mengakses registry windows, task manager kyk di antivirus smadav

    ketika kita klik tombol registry windows langsung ke buka padahal registry nya udah di blok ama virus

    kirim ke email saya ia kk f3ndh1@yahoo.com

    • January 31, 2011 at 3:01 am

      Belum tau sy om, coba langsung tanya ke pembuat smadavnya :D

      Satu lagi om jangan dibiasain minta dikirimin source code, belum pernah sy ketemu programmer jago dari hasil dikirimin source code.

      Peace :)

  51. f3ndh1
    January 31, 2011 at 3:31 am

    ok deh kk thx ia atas info nya….

    maklum masih newbie mesti bnyak belajar nie…. ^_^

    • January 31, 2011 at 3:58 am

      wah justru itu om, coding itu masa seru2xnya pas waktu belajar (sy kangen bgt dg masa2x itu :D)

      klo seperti skrg coding itu udah mulai membosankan :D
      kecuali klo nemuin kasus baru lagi baru semangat 45 lagi he he he :D

  52. aan87
    February 1, 2011 at 9:39 am

    Admin :
    wah justru itu om, coding itu masa seru2xnya pas waktu belajar (sy kangen bgt dg masa2x itu )
    klo seperti skrg coding itu udah mulai membosankan
    kecuali klo nemuin kasus baru lagi baru semangat 45 lagi he he he

    sore bos, ini om kasus baru..buat saya sih .. Ekstraksi Gambar Berbasis Modifed Discrete Cosine Transform (MDCT) Untuk Klasifikasi Ekspresi Wajah Menggunakan Self Organizing Map (SOM) ….

    Ada share referensi buat saya belajar Om… :-)
    Btw….dari dulu meskipun jarang mampir, blog Anda manstrabbb…

    • February 2, 2011 at 2:11 am

      he he he kena batunya deh, baru aja ngomong semangat 45 klo ketemu kasus baru eh udah ditanya yg ginian :D

      tp sory ya om sy belum punya referensinya, gimana klo dilempar ke tempat nongkrong kita :D

  53. aan87
    February 9, 2011 at 9:07 am

    Admin :
    he he he kena batunya deh, baru aja ngomong semangat 45 klo ketemu kasus baru eh udah ditanya yg ginian
    tp sory ya om sy belum punya referensinya, gimana klo dilempar ke tempat nongkrong kita

    Sudah dilempar Om. Cuman belum terrespons… :D
    Saya juga bingung menyusun pertanyaannya :D, belum nyoba juga sih….masih sebatas nyari referensi dulu :D

    • February 9, 2011 at 10:10 am

      Selamat mencari om, klo udah ketemu dishare ya :D

  54. Purnama Yasa
    February 22, 2011 at 12:56 am

    wow, terima kasih atas source codenya…

    • February 23, 2011 at 7:56 am

      oke om sama2x

  55. ulux
    February 26, 2011 at 12:29 pm

    om, share source code vb.6 buat nampilin gambar dengan database mySQL donk!!,,..
    matur thx, sebelumnya,,..

    • February 26, 2011 at 12:52 pm

      Coba artikel ini dulu om, yg dibutuhkan :
      1. Referensi Microsoft ActiveX Data Objects 2.5 Library
      2. MySQL ODBC 5.x

      Selamat mencoba :)

  56. Riduan
    March 6, 2011 at 5:22 pm

    Mkasih ya mas….

    akhirnya aku bisa bikin sub menu untuk antivirus yg aku bikn…..
    sekali lg mkasih bnyak ya mas…..

    • March 7, 2011 at 1:40 am

      Oke om

  57. yudhi
    March 9, 2011 at 6:34 am

    mau nanya nih om guru. Gimana cara mengatur format numeric di vb.net di texbox
    sebagai contoh : 6000 –>6,000
    Mohon pencerahannya

    • March 9, 2011 at 6:56 am

      Sama kayax di vb 6 om, pake fungsi FormatNumber. ex:

      TextBox1.Text = Strings.FormatNumber(6000, 0)
      

      Selamat mencoba :)

      • yudhi
        March 9, 2011 at 8:13 am

        thanks ya atas pencerahannya

        • March 9, 2011 at 8:40 am

          Sama2x om

  58. yudhi
    March 9, 2011 at 10:18 am

    nanya lagi om guru. klo untuk format tanggal di VB.net gimana ya.
    Contoh di datetimepiker 03/09/2011 –> biar kebacanya hari rabu gimana ya,
    apa sama kayak vb6 cukup format(datetimepiker.value,”dddd”)=”Wednesday”

    mohon pencerahannya

    • March 9, 2011 at 11:41 am

      Coba tambahkan fungsi berikut :

      Private Function GetHariIndonesia(ByVal tanggal As Date) As String
          Dim hari() As String = {"Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jum'at", "Sabtu"}
      
          Return hari(DateAndTime.Weekday(tanggal) - 1)
      End Function
      

      Contoh penggunaan :

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          MessageBox.Show(GetHariIndonesia(DateTimePicker1.Value))
      End Sub
      

      Selamat mencoba :)

      • yudhi
        March 10, 2011 at 2:09 am

        makasih om.Smakin bersmangat nih saya. Ada lagi yg mau saya tanyakan nih om.
        Misal: ada 2 parameter tanggal
        datetimepiker1 dan datetimepiker2(tanggalnya 03/01/2011 dan 03/10/2011.
        agar datetimepiker1(03/01/2011) maju ke tanggal 03/10/2011 gimana caranya ya om.

        Karna di vb6 cukup seperti ini
        dim i as object
        for 1=datapiker1.value to datapiker2.value
        datapiker1.value=datapiker1.value+1
        next i

        sedangkan klo di vb.net cara tersebut tidak bisa. Malah tampil pesan
        “Cannot convert start value of type ‘Date’, limit value of type ‘Date’, and step value of type ‘Integer’ to a common numeric type”

        Mohon pencerahannya .

        • March 10, 2011 at 2:31 am

          Coba yang ini :

          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim startDate As Date = DateTimePicker1.Value
          
              For i As Integer = 1 To Convert.ToInt32(DateAndTime.DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value))
                  DateTimePicker1.Value = DateAndTime.DateAdd(DateInterval.Day, i, startDate)
              Next
          End Sub
          

          Selamat mencoba :)

        • yudhi
          March 10, 2011 at 4:26 am

          makasih nih om guru. ada yg mau saya tanya lagi nih.
          bagaimana merubah format tanggal di datetimepicker ya.
          Contoh : datetimepicker.value=now –>kebacanya : 3/1/2011 11:19:38 AM
          bagaimana supaya 3/1/2011 saja.

          Mohon pencerahannya

          • March 10, 2011 at 4:50 am

            Si om ini kurang explorasi, entar progress belajarnya lambat loh klo sebentar2x nanya.

            Kan banyak sekali fungsi2x yg ada di Module String, salah satunya FormatDateTime.

            Coba deh manfaatkan fasilitas Object Browser untuk melihat fungsi2x yg ada di module String.

            Lihat Gambar

            MessageBox.Show(Strings.FormatDateTime(DateTimePicker1.Value, DateFormat.ShortDate))
            
            • yudhi
              March 10, 2011 at 5:53 am

              thanks om. sorry. tadi pas nanya gak lama kemudian saya udah nemuin caranya..hehehhe maaf ya. thanks masukannya

              • March 10, 2011 at 7:42 am

                Oke

  59. yudhi
    March 14, 2011 at 9:15 am

    Om guru.boleh minta contoh sederhana menampilkan data vb.net ke crystalreport. Databaenya sqlserver.

    Mohon bantuannya ya

    • March 14, 2011 at 1:06 pm

      Sory om sy juga belum pernah coba Crystal Report di VB.NET, tp mungkin ebook dibawah ini bisa membantu :
      1. Professional Crystal Reports for Visual Studio.NET 2nd Editon
      2. Pro VS 2005 Reporting using SQL Server and Crystal Reports

      Selamat mencoba :)

      • yudhi
        March 16, 2011 at 6:29 am

        makasih om. Tetep masih bingung karna pas memanggil crystal reportnya masih minta database login. Mumet kepala.
        Sebagai contoh codingnya sebagai berikut :

        strSQLSALES = “SELECT day, date, total, tstruk” & _
        ” FROM Xv_sales”
        OpenSERVER()
        da = New OleDbDataAdapter(strSQLSALES, Cserver)
        ds = New DataSet
        da.Fill(ds, “Sales”)
        Dim ReportPath As String = Application.StartupPath & “\report\dp.rpt”
        Report.Load(ReportPath)
        Report.SetDataSource(ds)

        CRV.ReportSource = Report
        CRV.ReportRefresh()

      • yudhi
        March 16, 2011 at 8:56 am

        sudah bisa om. ada koneksi yg belum dibuka. ada di eebooknya yg om kasih ternyata. makasih ya om..

        • March 16, 2011 at 1:10 pm

          Oke om sipppp :-)

  60. yudhi
    March 21, 2011 at 5:44 am

    maaf nih om guru, sya mau tanya lagi : bagaimana cara mewarnai row di crystal report. misal senin sampai minggu di minggu pertama warnanya silver, minggu kedua putih.

    mohon pencerahaannya

    • March 21, 2011 at 3:25 pm

      Berhubung sy belum pernah make Crystal Report, sy kasih perbandingan aja klo menggunakan Active Report untuk mewarnai row cukup seperti ini.

      Private Sub Detail_Format()
          txtNo.Text = Val(txtNo.Text) + 1
          
          If Val(txtNo.Text) Mod 2 = 0 Then
              Detail.BackColor = vbRed
          Else
              Detail.BackColor = vbBlue
          End If
      End Sub
      
  61. dwi
    May 6, 2011 at 12:37 am

    Pagi Om…dan master2 yang laen bs bantuin gk nh??
    ada source code vb.net shannon fano gk??
    ane dapet tugas kuliah nh…
    mohon bantuannya semua….
    tks..

    • May 6, 2011 at 6:10 am

      Sory nih belum punya, coba request juga kesini.

  62. yudhi
    May 13, 2011 at 2:06 am

    Om Guru, saya mau tanya tentang menampilkan data di cristal report vb.net 2005, kok terasa lama ya,padahal record yg ditampilkan cuma 4 aja. lamanya sampe 4 menit di cristal report.
    parameternya
    1. StartDate
    2. Endate
    3. Kota

    sedangkan setting di record selectionnya sebagai berikut :

    (if {?@kota}’All’ then
    {command.kota}in{?@kota}
    else
    true)
    and {command.transaction_date}>={?@StartDate} and {command.transaction_date}<={?@EndDate}

    Mohing pencerahannya

    • May 13, 2011 at 3:06 am

      Gimana mau ngasih pencerahan om, sy sendiri butuh pencerahann (mode “belum pernah make CR” on) :D

  63. ema
    May 22, 2011 at 6:38 am

    om guru tau ga coding vb 6.0 untuk normalisasi citra, jadi sebuah gambar itu di normalisasikan, dan gambar hasil normalisasi itu kualitasx bsa sma dg gambar aslinya.. mkasiiii sbelumnya

  64. May 22, 2011 at 12:26 pm

    wah kereeeeen!!!!

    jarang sekali ada orang Indo yang membagi-bagi ilmunya secara cuma-cuma :mrgreen:

    teruslah berkarya sukses selalu :)

    • May 23, 2011 at 8:40 am

      biasa aja lagi om :oops:

  65. ema
    May 23, 2011 at 6:56 am

    om gurunya kemana ini yaaahhhh.. ga di balas eee…

    • May 23, 2011 at 8:42 am

      Sory mba ema hari ni lagi sibuk ngajar, jadi belom sempat balas2xan :D
      Sy belum pernah buat, tpi ini ada link bagus lumayan buat nambah referensi.

  66. ema
    May 23, 2011 at 1:47 pm

    ok.. trma ksih ya om guru.. akan sy coba.. kalo ad prtnyaan ntar sy tnya lg yaahhh,hehe..

    • May 24, 2011 at 1:39 am

      ok :D

  67. bthekids
    May 24, 2011 at 3:31 pm

    Askum…
    sumpah artikel agan keren” banget apalagi buat ane yg newbie…
    Thank’s sangat agan…
    keren”””””
    LANJUTKAN!!!

    • May 25, 2011 at 3:34 am

      Oke om tq udah mampir :)

  68. May 27, 2011 at 1:27 am

    Wah keren Source code nya mas.. minta ijin sedot

    • May 27, 2011 at 7:16 am

      Oke om silahkan :)

  69. ema
    May 31, 2011 at 1:16 pm

    om guru mnta alamat emailx doooonnnkkkk…
    email saya emooolgpzink@ymail.com
    thx yaaa..

  70. sury azah
    June 6, 2011 at 6:44 am

    gan tau nggak source code buat upload dan download file (pdf, jpg dan docx) di vb 6???
    lau ada di posting yach gan…

    • June 6, 2011 at 11:15 am

      Belum pernah coba om

  71. die...
    June 17, 2011 at 2:42 am

    Bang Kamar yang baik saya mau tanya, kalo menggunakan database sql server dan VB6, apakah komputer Client bisa secara otomatis konek ke Database yang ada di Komputer server…??? ?trims

    • June 17, 2011 at 2:54 am

      Ya jelas bisa lah om, untuk koneksinya ya harus manual dari klien.
      Untuk contoh koneksi ke SQL Servernya bisa dilihat disini.

      Jika koneksi sudah berhasil, om bisa langsung coba perintah2x DML standar seperti SELECT, INSERT, UPDATE dan DELETE

  72. die...
    June 17, 2011 at 3:40 am

    Jadi kita ga perlu buat form untuk koneksi ke database servernya ya ga?…biasanya kana ada tuh gan , contohnya kaya gini :

    protokol : local/tcpip
    server : ip/namasever
    database: lokasi database…

    • June 17, 2011 at 4:31 am

      Yuph klo itu tergantung style programmernya om, ada yg senang pake form tersendiri.

      Klo sy biasanya ngeset IP servernya pada saat instalasi plus nama databasenya kemudian tinggal disimpan di file text atw registry.

      Jadi pada saat menjalankan program tinggal baca informasi ip server atw nama database dari file settingan tadi

  73. die...
    June 17, 2011 at 6:28 am

    owh ok dech thanks gan atas infonya……..good Luck ya

    • June 17, 2011 at 6:32 am

      Oke deh om, tq udah mampir :)

  74. die...
    June 17, 2011 at 6:34 am

    OIya gan kalo pake Winshok maksudnya gimana, apa tanpa winshok juga bisa kita koneksi client-server?..maaf ya gan banyak nanya…….,,,

    • June 22, 2011 at 5:52 am

      Yg jelas bisa coba cari di planetsourcecode dengan keyword “winsock mulitple connection”

  75. Yuda
    June 21, 2011 at 2:58 am

    Om cara menyimpan lokasi server dan database sql server didi file text atw registry gimana

    • June 22, 2011 at 8:53 am

      Untuk registry windows mungkin cukup menggunakan fungsi SaveSetting dan GetSetting, contoh :

      Private Sub Command1_Click()
          ' menulis ke registry windows
          Call SaveSetting("My Aplikasi", "Setting", "IP Server", "192.168.0.1")
          
          ' membaca setting yang sudah disimpan
          MsgBox GetSetting("My Aplikasi", "Setting", "IP Server")
      End Sub
      

      Klo dicek lokasi registrynya ada disini :

      HKEY_CURRENT_USER\Software\VB and VBA Program Settings\My Aplikasi\Setting
      

      Untuk yang file sudah sy bahas disini

  76. pipi
    June 22, 2011 at 2:03 am

    Semoga yang punya blog ini segala ibadahnya diterima oleh Allah SWt amin..
    gan ane mau tanya gimana cara agar objek (seperti listview, textbox dll) ukurannya bisa mengikuti ukuran form jika di maximized……..trims

    • June 22, 2011 at 8:58 am

      Amin :)
      Coba meluncur ke sini mba

  77. ema
    June 22, 2011 at 3:47 am

    OM tau ga source code untuk me resize gambar di vb..

    • June 22, 2011 at 9:02 am

      Coba download class ini mba, trus di tambahkan ke dalam project.
      Untuk cara penggunaannya seperti berikut :

      Private Sub cmdCropImage_Click()
          Dim clsPicture  As cPicture24
              
          Set clsPicture = New cPicture24
          clsPicture.Picture = "c:\gambar.jpg"
          clsPicture.Crop 100, 100, 100, 100
          
          Picture1.Picture = clsPicture.Picture ' tampilkan gambar yang sudah di resize
          Set clsPicture = Nothing
      End Sub
      

      Selanjutnya tinggal ganti nilai 100nya itu mewakili nilai X, Y, Width dan Height

  78. brave
    July 26, 2011 at 1:54 pm

    met mlm…mas mohon informasinya…kalu mo bikin pembelajaran multimedia…yang penjelesannaya, suara dan gambarnya langsung di dalam komputer tanpa kita klik atau tekan keyboard tapi panah mouse nya jalan sendiri dan ada suaranya tuh…gimana ya..mohon pencerahannya….makasih sebelumnya…

  79. pujie
    August 2, 2011 at 4:58 pm

    malem mz, mau nanya untuk menampilkan child form biar ditengah2 gimana ya?? aku udah coba pake :
    me.left = Int((MDIForm.Width – me.Width) / 2)
    me.top = Int((MDIForm.Height – me.Height) / 2)
    tapi hasilnya gak ditengah2 MDI Form. Untuk catatan di MDIForm ada Picture nya di posisi top.
    thx b4

    • gembelelits
      August 11, 2011 at 5:16 pm

      sy tambahin,agar tampilan child form ditengah,cukup disetting melalui properties,disana ada pilihan startposition,anda tgl pilih ingin centerscreen atau centerparent.trims, -gembelelits-

  80. fahrudin
    August 3, 2011 at 7:54 am

    mas makasih baget bloknya bagus,, saya pengen tanya source codenya untuk chat peer to peer di vb 6 atu private chatnya gmana mas,,,, mohon bantuannya,,,,,,, makasih..

  81. August 10, 2011 at 4:42 am

    Selamat Siang mas.
    Mas gimana caranya agar dtpicker itu dapat muncul di crystal report

    LAPORAN PENJUALAN BULANAN
    PERIODE : 01-AGUSTUS-2011 SAMPAI 10-AGUSTUS-2011

    TANGGAL NAMA BARANG QTY HARGA
    01-08-2011 ABC 2 15000
    04-08-2011 DEF 5 25000
    07-08-2011 GHI 4 40000

    NAH YANG MAU SAYA TANYA ITU MAS GIMANA CARA MUNCULKAN TANGGAL PERIODE DIATAS TERSEBUT MAS (01-AGUSTUS-2011 SAMPAI 10-AGUSTUS-2011) PADA CRYSTAL REPORT. PADA FORM VISUAL BASIC SAYA MENGGUNAKAN DTPICKER. MOHON BANTUANNYA YA MAS. TERIMA KASIH

  82. ozee
    August 17, 2011 at 8:08 am

    makasi banget nih artikelnya mas,
    ane mau nanya nih, ada ndak ya contoh pembuatan program monitoring jaringan atau ip??
    monitoring ip tiap pc yg terhubung itu up atau down.
    Kalo ada mohon dishare ya mas, ane pengen belajar nih
    terima kasih. :)

    • August 18, 2011 at 1:20 am

      Coba om buat dulu project kecil trus tambahkan modul ModNet.bas.

      Cara penggunaannya cukup gampang :

      Private Sub cmdTestPing_Click()
          Dim ECHO        As ICMP_ECHO_REPLY
          Dim ipAddress   As String
          
          ipAddress = "127.0.0.1"
          
          Call Ping(ipAddress, ECHO)
          If ECHO.status = 0 Then
              MsgBox "Ping sukses", vbInformation, "Informasi"
          Else
              MsgBox "Ping gagal", vbInformation, "Informasi"
          End If
      End Sub
      

      Berdasarkan contoh diatas om bisa tambahkan database kecil untuk menampung daftar2x ip address yg ingin dimonitoring, trus untuk melakukan ping otomatis om bisa memanfaatkan timer.

      Selamat berexplorasi :)

  83. ucup
    August 19, 2011 at 7:58 am

    need ur help master…mas ane sudah buat aplikasi produksi dan penjualan menggunakan VB6 n data base Access..nah klu qt mau buat tuh aplikasi berjalan multi user ( server n client ) gmn yaa cara nya mas…help mas :)

    • August 19, 2011 at 1:52 pm

      Report om mungkin ada 2 solusi yang paling gampang folder databasenya dishare atau menggunakan winsock.

      Saran sy mendingan migrasi aja ke database Firebird atau MySQL

      • ucup
        August 19, 2011 at 11:57 pm

        klu untuk share DB access ny ud sya cb Om..bs terkoneksi..tp ketika tiap mau ‘add’ new file or smua yg berhbubngan dgn control ( edit/delete dll ) ad kluar error ‘your DB is undistibuted'( klu ngg slah bhs inggrs ny gtu :p)..knp itu yaa mas…

        nah klu winsock sya blm bgitu paham mas..saya baru belajar mas…mgkn mas ny bs kasih gmbaran..atw mas ny pny contoh gtu :) ( ngarep.com )

        BTW any way…alasan saya gunakan DB access krn sya ngg bgtu paham dgn DB yg laen nya mas…NEWBI tenan iki mas…mas ny ad contoh2 aplikasi yg client server gtu ngg ? biar bsa sya buat belajar…mo SQL ngg ap2 deh..pingn belajar smw nyaa….deadLine menanti mas :'( HELP MAS ….

        • August 20, 2011 at 1:31 am

          Mungkin waktu ngeshare folder databasenya cuma read only om, harusnya read n write, selain itu klo databasenya dipassword juga bermasalah.

          Untuk sample winsock+databasenya om bisa langsung meluncur kesini.

  84. Gilang
    August 19, 2011 at 8:57 pm

    Klo database client server di share dan yang lewat winsock lebih stabil mana mz??
    masalah kestabilan koneksi n kecepatan transaksi……db access

    • August 20, 2011 at 1:34 am

      Setau sy sih lebih cepatkan pake winsock om soalnya nanti aplikasinya dibagi menjadi 2 :
      1. server ini melakukan koneksi kedatabase lokal
      2. klien tidak langsung mengakses database, hanya mengirimkan perintah2x tertentu menggunakan winsock.

      Untuk samplenya bisa dicoba disini.

  85. eko
    August 22, 2011 at 3:02 am

    pak admin mo tnya,,pnya refrensi situs g buat bikin GPS lwat kartu GSM lacaknya??

    • August 22, 2011 at 5:39 am

      Coba mampir ke blog dosen sy om

  86. August 23, 2011 at 7:57 am

    Om admin saya mau tanya nih n mohon banget bantuannya,
    saya membuat SI Mahasiswa menggunakan VB6 dan Crystal Report 7 n pengerjaannya lancar,
    pas saya diminta membuat laporan mahasiswa yang harus menngunakan foto, disinisaya mentok
    sudah banyak toturial cara nampilin foto di CR7 tapi ngga ada yang mau,,,
    mohon bantuannya klo bisa gimana cara nyimpan gambar dan nampilin gambar di CR7
    Klo ada contoh source code boleh minta ya
    n bisa kirim ke email saya lindakusayangi@yahoo.co.id
    tolong ya mas

  87. eko
    September 16, 2011 at 11:32 am

    malam om admin btw saya mo cetak barcode dengan komponen TBarcode5 pakai crytal report data saya ambil dari database ada contoh projectnya g om??

    • September 16, 2011 at 4:58 pm

      Sy kurang tau klo menggunakan Crystal Report, tapi klo di Active Report bisa karena ada fasilitas untuk mengimport komponen ActiveX.

  88. Gilang
    September 17, 2011 at 9:51 am

    mz kamar mo tanya klo mo print text pada text box,, dengan jumlah yang kita ingginkan gmana y codingnya mz??thanx sebelumnya

  89. Gilang
    September 18, 2011 at 4:26 am

    eh maxudnya gini mz admin,,sya kan dpet cetak barcode dari situ juga,
    yang pakai komponen TBarcode5, jadi selainbarcode dsitu juga bisa
    kita print Harga ma nama barangnya dri textbox..buat toko ibu dirumah,,btw pnya contoh projectnya mz??atasbntuannya sya ucapkan thanx sblmnya

  90. Gilang
    September 18, 2011 at 4:28 am

    Buat Label Harga + Barcode gtu

    • September 19, 2011 at 8:34 am

      Komponennya belum mendukung om, tapi klo mau pake Active Report bisa cuma kekurangannya tidak bisa mengatur posisi barcode yang ingin dicetak.

  91. Gilang
    September 19, 2011 at 12:26 pm

    Thanx om atas jwabannya sdah bsa qo,,pke CR jadi barcode di ambil dari module trus disimpan dalam file jpg trus di cetak…thanx skali lgi om atas respeknya maju trus bang kamar

    • September 19, 2011 at 1:54 pm

      Terima kasih om atas motivasinya, sy juga udah kehabisan suku cadang nih :D buat postingan terbaru :D

  92. dani musliandani
    September 20, 2011 at 7:05 am

    salam kenal dengan saya yg baru kenal dg dasar2 vb sehingga agak kebigungan dg apa yg didiskusikan …..tapi sy kepengen jd programer handal….
    kiat2nya apa sja? sy baru mngenal sedikit kit kit …vb6.
    trims.

    • September 20, 2011 at 10:12 am

      1. Pahami konsep algoritma pemrograman dg baik
      2. Kuasai penggunakan control standar atw non standar
      3. Coding… coding… and coding… :)

      klo sudah agak mendingan dan mau mencoba ke pemrograman database, otomatis harus dipahami juga kosep perancangan database trus cari 1 database yg sering digunakan biar klo bermasalah gampang cari referensinya :D.

      Contoh MySQL dan coba fokus dulu kesatu database ini untuk beberapa waktu sampai om siap utk berpindah kelain hati (halah :D)

      saran :
      mumpung om baru belajar mendingan coba bahasa yg lain aja deh (soalnya pelan2x tapi pasti vb udah mulai ditinggalkan)
      misal: C++, C# atw Java (kata orang ketiga bahasa ini enggak cocok buat pemula, tapi… itu kan katanya dan kita enggakan tau sebelum mencoba :D)

  93. danim
    October 10, 2011 at 4:56 am

    dani musliandani :
    salam kenal dengan saya yg baru kenal dg dasar2 vb sehingga agak kebigungan dg apa yg didiskusikan …..tapi sy kepengen jd programer handal….
    kiat2nya apa sja? sy baru mngenal sedikit kit kit …vb6.
    trims.

    aslmkum,…. lg rame2 dg bola nich!!! sahabat tahu nggak program penganalisis yg waktu di metro tv ditayangkan pd waktu piala dunia kemarin…..: ada nggak ya yg bisa membuat program seperti itu?

  94. Pangestu
    October 25, 2011 at 3:29 pm

    Assalamu’alaikum…, Salam kenal Mas.
    Sebelum sy komen yg laen, terlebih dahulu sy sampaikan rasa salut untuk artikel2’y yg keren2 abiz.
    Sampai pd akhirnya saya kebingungan saat mengistall IKGsetup, bagaimana u mengisi Registered Company, Unlock Code dan Private Keynya Mas.
    Mohon infonya ya..
    Trim’s

    Gusti Pangestu

    • October 28, 2011 at 2:04 am

      Kan sudah sy bahas disini om.

  95. Mugiwara
    October 28, 2011 at 12:13 pm

    Assalamualaikum Om Admin.
    boleh minta tutorialnya ga om buat ngerubah tampilan msgbox dan datagrid pada VB6, soalnya cuma itu yg belum bisa dirubah bentuknya, masi standar style yg lama, bisa giganti ga om jd style vista atau yg lebih bagusan. tampilan msgboxnya masi jadul, tombol vbyesnya juga jadul di msgboxnya, begitu juga dengan datagridnya om, gabisa ganti warna.

    makasi ya om Admin

    • October 29, 2011 at 2:16 am

      Waalaikumussalam om Mugi
      Klo utk MsgBox kan udah ngikutin style windownya om, kecuali yang datagrid bawaan vb 6 kayaxnya memang udah mentok sampe situ.
      Jadi mendingan pake alternatif grid yg lain aja om misalnya ListView atau coba pake komponen disini om.

      • Mugiwara
        October 30, 2011 at 3:55 am

        wah makin pusing om :P maklum taunya cuma pake datagrid yg gampangan. Om Admin, nanya lagi yah, lg bingung nih om, cara conversi kurs. soalnya lagi coba bikin project, dimana currency yg digunakan menggunakan 4 mata uang, yaitu USD,USG,RM sama Rp. nyangkutnya di masalah payment om, kalau harganya USD dibayar pake RM gimana ngerubah nya jd USD, atau mata uang lainnya. satu lagi om, ada ga terbilang dalam indonesia dan english yg bisa ngebaca angka berkoma. makasi Om Admin atas bantuannya…

        • October 31, 2011 at 5:22 am

          Klo konversi mata uang bukannya tinggal kali2x biasa aja om ? Kan enggak perlu perhitungan yg canggih2x :D

          Trus untuk fungsi terbilang juga udah banyak kok yg ngebahasnya coba deh googling dulu.

          • Mugiwara
            November 1, 2011 at 9:40 am

            iiya om Admin, bisa sih, tp rada ribet bikin kurs otomatisnya. terus terbilang yg dah dapet di google rata rata ga bisa ngebaca yg berkoma om. :'(

            • November 3, 2011 at 11:47 am

              Dulu kayaxnya pernah nemu cuma lupa linknya :D

  96. entah
    November 11, 2011 at 3:57 am

    Salam Kenal Om Admin,
    mohon pencerahannya Om.. saya masih baru belajar VB dan saya mau membuat program untuk mencetak kartu nama, sehingga user hanya menginput foto, nama, jabatan, NRP, dan user hanya tinggal tekan tombol “cetak” (dalam artian form nya sudah ada dan user tidak perlu edit2 kartu namanya tsb) dan data setiap kartu nama itu nantinya akan disimpan di database. dan nah.. yg ingin saya tanyakan untuk proses seperti itu apakah bisa dengan Visual basic 6.0 atau dengan VB.net? mohon pencerahannya ya Om.. Terimakasih :)

  97. November 15, 2011 at 9:41 pm

    Mas ada Source code membuat web dengan kombinasi html,php,css,dan jquery g?
    Saya lagi belajar bikin web tolong bantuannya terimakasih…

    • November 16, 2011 at 8:51 am

      Sory om klo pemrograman web bukan bidang sy mendingan nanya kesini.

  98. fonny
    November 26, 2011 at 3:26 am

    mas admin,,,ada ga source code buat monitoring jaringan pake vb.net???please help me….

    • November 26, 2011 at 3:31 am

      Maksudnya ngecek status pingnya ya om ? RTO atw replay ?

  99. teguh
    November 26, 2011 at 11:09 am

    mas, mo nanya niyh..
    saya sedang membuat tugas akhir tentang program aplikasi penginapan,
    saya menjadikan field no_tamu sebagai primary,
    nah, bagaimana kondisinya.. jika pada check in 1 tamu memesan 2 kamar
    kemudian pada form check out, total pembayarannya jadi 1..
    ada yg bilang, pada form check out ditampilkan dulu transaksinya menggunakan list view berdasarkan nomor tamu, kemudian baru ditotal

    nah, yg jd masalah nya.. saya g tau apa2 tentang pemanggilan data menggunakan list view , n blom pernah mencobanya,
    mohon saran n bantuannya dari mas..

    • November 27, 2011 at 1:10 am

      Lohhhh bukannya udah dibahas disini om :D.

  100. Newbie VB
    November 30, 2011 at 8:31 am

    Dear Mas Admin yang Baik Hati, Mohon pencerahannya. moga moga bisa dijawab

    1. apakah coding yang digunakan pada VB 0.6 juga bisa digunakan pada VB 2008, 2010 dan seterusnya? atau coding antara setiap versi VB berbeda beda.
    2. Mas punya Coding Untuk membuat tampilan VB 0.6 menjadi tembuspandang, jadi kaya bolong gitu, asal pinggiran formnya juga hilang mas. sehingga kalo kita naro gambar GIF Transparant pada form, hanyaitu yg kelihatan, saya kemaren nemu sih, tapi formnya harus jd None alias ga bisa dilihat di taskbar dan selalu permanent di desktop (gabisa di minimize).

    makasi mas atas bantuannya…

    • December 1, 2011 at 8:13 am

      Jadi newbie itu emg enggak enak ya om :D

      1. apakah coding yang digunakan pada VB 0.6 juga bisa digunakan pada VB 2008, 2010 dan seterusnya? atau coding antara setiap versi VB berbeda beda.

      Bisa aja sih tapi.. butuh penyesuaian :D
      Cara ngetesnya gampang om buat aja project VB 6 trus dibuka pake VB 2008 atw 2010 kan entar keliatan kode hasil upgradenya

      2. Mas punya Coding Untuk membuat tampilan VB 0.6 menjadi tembuspandang, jadi kaya bolong gitu, asal pinggiran formnya juga hilang mas. sehingga kalo kita naro gambar GIF Transparant pada form, hanyaitu yg kelihatan, saya kemaren nemu sih, tapi formnya harus jd None alias ga bisa dilihat di taskbar dan selalu permanent di desktop (gabisa di minimize).

      Coba main-main kesini om, mana tau dapat pencerahan.

  101. ahmad
    December 5, 2011 at 9:15 am

    mas klo mau rubah resolusi asli image ke lebih kecil gmn,ya mas klo d vb6

    • December 9, 2011 at 2:52 pm

      Klo ngerubah resolusi imagenya belum pernah sih om, tapi klo cuma ngecrop sih pernah coba

  102. ropi
    December 5, 2011 at 9:13 pm

    Ass. Mas saya download source code Hak Akses Level Menu , tp ketika di run, keluar pesan User-devined type not devined, pada Private sub Showmenu (byVal Operator as string………..
    tolong pencerahannya ya mas cc ke email saya ya mas, trim

    • December 9, 2011 at 2:55 pm

      Coba dicek di menu Project -> Referencess
      kayaxnya ada library yg kurang

  103. jHon
    December 8, 2011 at 4:27 pm

    Ass wr wb,

    Mas …klo mau mandapatkan kode nya captcha dari website pakai vb6 coding nya gmn ya?

    Sudah nyari artikelnya, hasilnya masih nihil. Mohon bantuannya…

    • December 9, 2011 at 3:38 pm

      Waalaikumussalam
      Ya jelas donk om, klo captchanya bisa dibaca entar enggak ada lagi donk yg mau make captcha

  104. Orang Bingung :D
    December 10, 2011 at 10:41 am

    Permisi Mas numpang tanya yah :D

    bisa tolongin saya ga mas, cara backup dan restore database dari vb 6 ke MySQL, saya udah coba pake mysqldump dengan langkah menggunakan file MS DOS Batch (.bat), dan perintah backup/restorenya dieksekusi dari vb dan disimpan ke (.bat) agar bisa dijalankan windows, sewaktu saya coba di XP bisa, tapi waktu saya coba di Vista / Seven ga jalan mas. kayanya VB/Windows nya ga bisa akses file (.bat) nya. mas ada cara lain untuk membackup dan merestore database menggunakan MySQLdump yang bisa dijalankan pada Windows 7???

    Makasi ya Mas Admin…

    • December 10, 2011 at 11:28 am

      Mungkin bermasalah dihak akses om, coba setting User Account Controlnya diset “Never Notify”

  105. ida
    December 12, 2011 at 3:37 pm

    mas maf mw tanya… ada source code program data mining gk? memakai vb6

    • December 13, 2011 at 8:20 am

      Belum punya mba

      • ida
        December 13, 2011 at 11:53 am

        mas klo source code vb6 buat ngbrouse or upload ada gk?
        maf ya byk nanya

        • December 14, 2011 at 3:43 pm

          Nguploadnya via apa dulu nih ? http atw ftp ?

          • ida
            December 14, 2011 at 6:35 pm

            via ftp za mas….
            truz klo mw melakukan perhitungan Logaritma gmn ya mas?

  106. Mugiwara
    December 21, 2011 at 8:25 am

    Assalamualaikum Pak Dosen, mohon bantuannya yah :D

    1. bagaimana caranya mengeksekusi sebuah file exe dari VB6, file exe yg akan dieksekusi terletak di folder yg sama. apa menggunakan perintah “ShellExecute”?bagaimana cara penulisannya?

    2. saya menggunakan Crystal Report 7, sejak dari awal saya belajar CR7 saya belum pernah berhasil menggabungkan 2 tabel atau lebih pada CR7, selalu Error. Bapak punya toturialnya gak?

    3. Bagaimana cara membuat MDIForm menjadi transparant atau Bolong (opaque) dan menghilangkan pinggiran formnya (sekaligus tombol close,minimize, dan maximize)

    Terima Kasih Pak atas kesediaannya dalam membantu kami yang terkendala dalam Bahasa Pemrograman, semoga Imu yg bapak bagikan menjadi berkah untuk Bapak.

  107. December 23, 2011 at 2:51 pm

    Waalaikumussalam
    1. Contohnya ada disini.
    2. Kebetulan sy bukan pengguna Crystall Report, untuk ebooknya banyak coba cari disini.
    3. Ini nih yg belum sempat sy coba :D

    • Mugiwara
      December 23, 2011 at 4:10 pm

      Terima Kasih Pak Dosen atas Bantuannya… Jangan Bosen membantu kami yang terkendala dalam mempelajari Coding yah.. :D

      • December 23, 2011 at 6:23 pm

        Sama2x om :)
        Justru masa2x awal belajar programming itu yg menyenangkan :D

  108. December 28, 2011 at 1:51 pm

    1.mas kalau mau object yang ada di form mengikuti besar kecil form nya gimana ?
    makasih….

    2.kalau mau masukin file lagu ke dalam form gimana / kan ada tuh pas aplikasinya di klik langsung kelur lagunya…

  109. December 28, 2011 at 4:03 pm

    1.mas kalau mau object yang ada di form mengikuti besar kecil form nya gimana ?
    makasih….

    Coba pake komponen ini om.

    2.kalau mau masukin file lagu ke dalam form gimana / kan ada tuh pas aplikasinya di klik langsung kelur lagunya…

    Mungkin file lagunya bisa disimpan di resource file, trus waktu event Form_Load tinggal panggil, untuk referensi coba kesini.

  110. December 28, 2011 at 9:15 pm

    mas boleh tanya lagi ???

    kalau mau buat trainer game gimana mas ?? soalnya saya mau buat trainer sendiri untuk game sim tower kwkwkwk…..

    kalau bisa di post di blog ini ya…(ngarep)
    kunjungi blog saya mas http://ravhi.blogspot.com/

  111. 54msulif
    December 29, 2011 at 5:33 pm

    mas kalo pakcing vb yang menggunakan crystal report knapa kok error
    mohon pencerahannya
    dan solusinya gimana

    • December 29, 2011 at 9:34 pm

      Sudah sy jawab disini, cek komentar no #318 dan #319

  112. Dody
    January 4, 2012 at 12:55 am

    Mas, punya source code utk narik data mutasi klik bca gak? makasih sebelumnya.

    • January 7, 2012 at 1:09 pm

      Enggak punya om :D

  113. ida
    January 10, 2012 at 1:22 pm

    mas maf mw tanya klo ada error gini apa artinya ya
    saya udh bner2 pusing n kwalahan
    unspecified error run-time error -2147467259 (80004005)
    Method ‘Refresh’ of Object ‘IAdodc’ Failed

  114. sukmi
    January 10, 2012 at 2:18 pm

    mas nanya untuk sisfo sekolah pembayarannya uda ada belom ya mas saya kepusingan neh gak bisa2 buat bantu dong mas

    • January 24, 2012 at 11:43 am

      Belom, yg udah jadi tapi versi berbayar :D

  115. aswad
    January 11, 2012 at 10:57 am

    om nanya gimana cara koneksikan program dengan database mySQL? gimana setting mySQL ODBC di win7?

    • January 24, 2012 at 11:49 am

      Berikut langkah-langkahnya om :
      1. Download dulu MySQL Connector/ODBC
      2. Untuk koneksi kedatabasenya bisa menggunakan string yg ada disini.

      Untuk yg lainnya sama seperti om memprogram menggunakan database lain.

  116. Mugiwara
    January 19, 2012 at 8:05 pm

    Assalamualaikum. Balik lagi ni Pak Dosen, mohon pencerahannya :D

    1. Saat membuat suatu aplikasi VB saya menggunakan font yang terdapat pada komputer saya, jadi seluruh font yg sudah ada pada Komputer dapat saya gunakan, pertanyaannya, jika setelah dijadikan sebuah file EXE, dan diinstal dikomputer lain, bentuk font yang saya gunakan kembali menjadi standart karna pada komputer tersebut tidak ditemukan font yang saya gunakan saat membuat aplikasi tersebut. bagai mana cara mengikut sertakan font agar ikut terinstal pada komputer dimana aplikasi tersebut diinstal. bisakah font dikumpulkan dalam sebuah resource file dan dipanggil ke aplikasi?

    2. Bapak punya referensi bagaimana merubah bentuk skin sbuah datagrid agar bentuknya atau skinnya tidak terlihat seperti datagrid VB? saya juga pernah coba menggunakan MSFLEXGrid dan datalist untuk membuat tabel seperti datagrid, isi colom dan baris dapat diganti warnanya, namun untuk kop atau header pada tabel tetap berwarna dasar seperti warna VB biasanya. apa ada pilihan lain agar saya bisa menampilkan sebuah tabel dengan bentuk,warna, dan skin yang saya inginkan?

    3. Bagaimana cara agar pada form VB saya bisa menambahkan sebuah browser agar laporan dalam bentuk tabel dapat ditampilkan dalam format (html) dan di letakkan dalam sebuah form VB. apakah PHP juga dapat ditampilkan dalam browser yang diletakan dalam form VB?

    Terima kasih Pak, maaf ya jika pertanyaannya terlalu banyak, mohon Pencerahannya jika Bapak bisa membantu masalah yang saya Hadapi. terima kasih….

    • January 24, 2012 at 11:57 am

      Wedewww panjang amat om :D
      1. Paling gambang file fontnya aja ikut didistribusikan, klo om buat paketnya menggunanan inno setup file fontnya langsung bisa diarahkan kedirektory font.

      Source: core\Digiface Regular.ttf; DestDir: {fonts}; FontInstall: "Digiface"; Flags: onlyifdoesntexist uninsneveruninstall
      

      2. Belum ada

      3. Gunakan komponen Microsoft Internet Controls

      • Mugiwara
        January 27, 2012 at 11:11 am

        makasi Pak Dosen :D

        tanya satu lagi yah, eh 2 aja deh… :D
        1. Pak Dosen punya toturial atau link untuk membuat Billing Warnet ga?
        2. Gimana agar server bisa melihat screen client agar server bisa tau client sedang melakukan apa. seperti Net Support gitu pak. atau client melakukan Printscreen secara otomatis tiap 10 menit dan gambar screen tersebut dikirim ke server secara otomatis. (klo bisa mengontrol client pak :D klo bisa aja kok)

        • January 27, 2012 at 3:15 pm

          1. Coba link ini.
          2. Dulu pernah punya tapi udah enggak tau kodenya kemana :D, atau coba lini ini om.

          • Mugiwara
            January 29, 2012 at 11:48 am

            aduh pak. itu Remote Desktopnya buat VB.Net yah? belum ngerti pak Dosen. yg vb 6 aja ada ga?

            • January 29, 2012 at 6:44 pm

              Ada cari sendiri pake goole :D

  117. jon
    January 23, 2012 at 2:33 pm

    om… mo tanya.

    Di website kan ada form inputan dan di setiap inputan itu kan ada variable nya. nah cara mendapatkan variable pakai vb6, codingnya gimana ya?

    tks,

    • January 24, 2012 at 11:54 am

      Dulu sy pernah coba, klo enggak salah pake komponen Microsoft Internet Controls

  118. dasha
    January 27, 2012 at 3:26 am

    mohon pencerahan bapak …
    saya punya tugas akhir dengan judul file sharing dengan modem gsm,
    alat yg tak pakai :
    1. hp modem samsung omnia b7320 internet telkomflash
    2. hp modem smartfren
    3. 2 laptop dengan ip: 192.168.0.1 dan 192.168.0.2

    pertanyaan saya :
    1. cara forwading ip dinamis yang di dapat dr hp tersebut sehingga jika di ping 192.168.0.1 bisa konnect
    ( sehingga bisa melakukan file sharing ke dua laptop tadi dengan menggunakan modem diatas gimana ya pak ) mohon pencerahan .. terima kasih

    catatan : saya dianjurkan tdk pakai pihak ke3 seperti temviewer / hamachi …

    • January 27, 2012 at 9:12 am

      Dulu juga pernah coba setting port forwading pake modem speedy tapi gagal juga :D, kayaxnya sy cuma bisa bantu ngasih link aja nih :D
      1. Port Forwarding Guides
      2. No-IP, nah klo yg ini buat menghandle ip dinamisnya

      Selamat mencoba :)

  119. jon
    January 28, 2012 at 1:03 pm

    bos …

    aq menuin Status winsock =6, jadi gak bisa kirim data, code yg aq pakai di bawah ini. Agar bisa 7 harus di modify gmn bos?

    frmUtama.Winsock1.Close
    frmUtama.Winsock1.Protocol = sckTCPProtocol
    frmUtama.Winsock1.RemoteHost = eUrl.Host
    frmUtama.Winsock1.RemotePort = 80

    With frmUtama.Winsock1
    .Connect
    Do While .State sckConnected
    DoEvents
    Select Case .State
    Case 7: .SendData strHTTP: Exit Sub
    Case 9: .Close: Exit Sub
    Exit Sub
    End Select
    Loop
    End With

    • January 28, 2012 at 8:40 pm

      Coba seperti ini om, misal tambahkan 2 fungsi yaitu isConnected dan isSendData

      Private Function isConnected(ByVal socket As Winsock, ByVal remoteHost As String, ByVal port As Long) As Boolean
          Dim timeOut     As String
          Dim currentTime As String
          
          On Error GoTo errHandle
          
          If socket.State <> sckClosed Then socket.Close ' close existing connection
          Call socket.Connect(remoteHost, port)
          
          currentTime = Format(Now, "hh:mm:ss")
          timeOut = Format(TimeValue(currentTime) + TimeValue("00:00:01"), "hh:mm:ss")
          DoEvents
          
          With socket
              Do
                  currentTime = Format(Now, "hh:mm:ss")
                  DoEvents
              Loop Until (.State = sckConnected) Or (TimeValue(currentTime) > TimeValue(timeOut))
          
              isConnected = (.State = sckConnected)
          End With
          
          Exit Function
      errHandle:
          isConnected = False
      End Function
      
      Private Function isSendData(ByVal socket As Winsock, ByVal strData As String) As Boolean
          On Error GoTo errHandle
          
          If socket.State = sckConnected Then
              Call socket.sendData(strData)
              DoEvents
              
          Else
              isSendData = False
              Exit Function
          End If
          
          isSendData = True
          
          Exit Function
      errHandle:
          isSendData = False
      End Function
      

      Kemudian tinggal panggil

      Private Sub cmdTes_Click()
          ' untuk nilai REMOTE_HOST dan REMOTE_PORT menyesuaikan
          If isConnected(frmUtama.Winsock1, REMOTE_HOST, REMOTE_PORT) Then
              If isSendData(frmUtama.Winsock1, "tesss kirim data") Then
                  MsgBox "Data berhasil dikirim"
              Else
                  MsgBox "Data gagal dikirim"
              End If
              
          Else
              MsgBox "Koneksi gagal"
          End If
      End Sub
      

      Klo masih gagal juga harus dicek lagi nilai RemoteHost dan RemotePort harus sama dengan nilai LocalIP dan LocalPort pada aplikasi target.

      Selamat mencoba :)

      • jon
        February 6, 2012 at 12:31 pm

        mantab bos…

        Terimakasih.

        • February 6, 2012 at 3:04 pm

          Sama-sama om

  120. k7
    January 29, 2012 at 3:32 pm

    source yang d deplhi’y donk gan,… :-(

    • January 29, 2012 at 6:45 pm

      Belum tersedia om :D

  121. siska
    February 6, 2012 at 4:04 pm

    mas numpang tanya. saya ngebuat barcode. tapi namanya panjang kesamping. kalo ditentuin carakternya biar gag panjang”, gimana ya? makasih sebelumnya.

    • February 7, 2012 at 11:51 am

      Coba ke link ini mba, mana tau dapat solusi.

  122. wawan
    February 9, 2012 at 9:00 am

    moho bantuan untuk buat source code sederhana untuk membuat checklist item untuk sebuah mesin atau produk , misal daya punya genset maka setiapitem yang akan kita periksa harus dibuatkan sebuah form cheklist dan bisa di upload atau download secara online

    • February 9, 2012 at 3:43 pm

      Menulis kode itu susah om klo enggak ngerti sistemnya, dalam hal ini om yg paling ngerti programnya pengen seperti apa, jadi mendingan om coba dulu buat kodenya sesuai yg om pahami klo hasilnya meleset atau enggak sesuai dg yang diinginkan baru bertanya.

  123. encang
    February 9, 2012 at 7:36 pm

    Om admin yang baik hati..
    saya mau tanya gimana caranya supaya bisa upload file pdf di vb 6.0 kemudian bisa di download kembali…saya butuh buat file2 kuliah saya supaya gampang di cari dan dibaca..

    tks Om…

    • February 10, 2012 at 8:14 am

      Klo via ftp sudah pernah sy bahas disini om.

  124. February 10, 2012 at 8:30 pm

    mas, saya mohon bantuannya, saya mw buat aplikasi yang mana aplikasi itu menggunakan dongle sebagai hardware pengamanny, yg mw saya tanyakan ada gak code untuk menyatukan dongle itu dengan aplikasi yang kita buat???

    mohon pencerahannya :D

    #vb 2008

    • February 10, 2012 at 8:41 pm

      Yg jelas sy pernah menggunakan SecureDongle X ada SDK plus dukungan bahasa pemrogramannya banyak.

      Klo yg menggunakan flash disk biasa pernah sy bahas disini dan sini.

  125. February 12, 2012 at 10:08 pm

    terus mas klo kita menggunakan flasdik, apa harus flasdisk yg baru mas?, maksudnya flasdisk yg tidak ada data satu pun didalammnya.

    • February 13, 2012 at 9:16 am

      Pake flash disk bekas juga bisa, ada isinya juga gpp :D

      • February 13, 2012 at 1:40 pm

        ow, gtu y mas. makasih y mas udah bantu saya, tapi nanti klo saya ada kesulitan mohon bantuan mas lg ya?

        hehehehehe…. :D

        • February 13, 2012 at 5:18 pm

          Oke klo msh bisa dibantu ya sy bantu, klo enggak kita serahkan kepada ahlinya :D

          • February 14, 2012 at 1:02 am

            heheheh,,,,
            kan mas ADMIN ahlinya…. :D

            • February 15, 2012 at 8:40 am

              he he he si om bercanda aj :D

              • Naldi
                February 21, 2012 at 3:08 pm

                hehehehe…
                pa kbr ne mas ADMIN? saya datang lg butuh bantuan mas ADMIN ne, gmana y caranya menjalankan timer secara otomatis yang mana waktunya sudah kita tentukan didalam database?

                mohon bantuan dari Mas ADMIN biar lebih plong… :D

                • February 22, 2012 at 8:13 am

                  Ya enggak bisa om, timernya harus tetap on yg bisa diatur itu hanya prosesnya. Misal klo jam 10:30 menghapus semua file dg ekstensi DOC :D n klo jam 12:00 otomatis shutdown.

                  Nah setting jam2xnya ini yg diambil dr database

                  • Naldi
                    February 23, 2012 at 12:36 am

                    ow, jadi cara mensettingnya gmana y mas?
                    :D

                    • February 23, 2012 at 3:58 pm

                      Lupa om, silahkan dicoba sendiri :D

  126. njak
    February 16, 2012 at 12:40 am

    agan gmna ya pencarian data lalu hasil pencarian.a di tampilkan di msflexgrid..
    koneksi databasenya sqlserver.
    mohon pencerahannya.
    trima kasih

    • February 16, 2012 at 3:53 pm

      Coba pelajari sample yg ada disini om.

  127. iwan
    February 19, 2012 at 10:03 pm

    mass gimana tipsnya agar proses penampilan data report pada vb6 & mysql cepat, karena dg perintah my sql bysa pada laporan penjualan baru 100 data sudh sangat lambat.trms

    • February 20, 2012 at 10:13 am

      Coba diiindex om field2x yg dijadikan kondisi di query reportnya

  128. fahrurizal
    February 20, 2012 at 9:27 am

    mas/mbak master-master vb, minta bantuannya dan share nya nih. saya punya masalah tentang cara mengoneksikan beberapa kamera webcam dengan visual basic, saya pengen mengaktifkan beberapa kamera webcam dalam waktu bersamaan dengan VB 6

    • February 20, 2012 at 10:14 am

      Klo satu udah bs belum om ?

  129. Melani Anggreini
    February 21, 2012 at 9:29 am

    Kak Tolong Posting Ini ya Kak?
    Saya Punya aplikasi chat yang dihubungkan dengan kabel LAN ke komputer lain (Komputer teman Kerja) namun aplikasi tersebut tidak tampil ketika bermain game, teman saya kebanyakan bermain game saat kerja..bisa bantu saya dengan ini :
    1. Gimana caranya agar aplikasi Always on top pada mode full screen (ex. Game)
    2. Gimana caranya agar Taskbar Always on top pada mode full screen (ex. Game)
    3. Gimana caranya agar game selalu berada dibelakang taskbar ( setiap game mempunyai security atau settingan always on top, file apa yang perlu diedit dalam game tersebut (ex. game Online)
    4. tanks atas jawabannya, tolong dijawab dengan rinci, serta software atau contoh code sourcenya?

  130. February 21, 2012 at 5:55 pm

    bagus bangeett ..kereennn !!
    Lanjutkaan ! :)

    • February 22, 2012 at 8:10 am

      He he he ini pasti mba2x yg enggak sengaja nyasar kesini :D

  131. tian
    February 23, 2012 at 9:26 pm

    wahh gann.. thanks kodingnya yang akses mySQL dengan C#.. cocok banget tuhh gann
    sekalian mau tanya gann..
    kalo menyimpan,hapus,dan update Foto Di MySql gimana caranya gan??
    Pusing gan.. tinggal itu thok..
    thanks ya gann..

    • February 24, 2012 at 6:58 pm

      Klo pake VB .NET udah pernah sy bahas disini om, toh sm aja mau pake VB .NET atau C#

  132. ayahkabunda
    February 25, 2012 at 12:28 am

    mas admin, klo source code untuk antrian gmn yak..??
    mohon pencerahan

    • February 25, 2012 at 9:14 am

      Cek disini om.

  133. fhrji
    February 25, 2012 at 7:31 am

    Assalamu Alaikum…..
    Source code buat jadwal jam kerja perbulan ada gak mas….?
    Makasih sebelumnya…..
    wassalam…….

    • February 25, 2012 at 9:11 am

      Coba dicek disini om.

  134. February 29, 2012 at 4:50 pm

    ijin sedot gan,,,
    source code buat remote client sever untuk mengetahui aktifitas client ada ga?? bwt vb net,, terima kasih sebelum ny!!

    • March 1, 2012 at 7:52 am

      Belum ada om

  135. jon
    March 1, 2012 at 9:28 am

    Om… saat loadpicture di VB6 pakai picture box atau image control muncul error berikut, padahal kalau di buka pakai windows picture gak masalah gambarnya bisa muncul. Aku coba pakai webbrowse juga gak bisa tampil.

    Image1 = LoadPicture(“d:.jpg”)

    Run-Time Error ‘481’:
    Invalid picture

    tolong kasih solusinya Om. makasih sebelumnya.

    • jon
      March 1, 2012 at 9:30 am

      ralat code:
      Image1 = LoadPicture(“d:\gambar.jpg”)

      • March 1, 2012 at 10:22 am

        Coba cek kedalaman warna gambarnya om, klo enggak salah komponen image/picturebox VB 6 hanya mendukung sampai 24bit color

      • March 2, 2012 at 3:31 am

        kemungkinan besar kayaknya di kedalaman warna mas…..
        coba aja pake komponenn AlphaIMage Control -Lavolpe insya Allah clear dah masalhnya………

        ini linknya mas:
        http://www.vbforums.com/showthread.php?t=630193

        mudah2an terbantu…..

        • March 2, 2012 at 8:33 am

          Nah itu harusnya udah case closed nih :D

          • jon
            March 2, 2012 at 4:19 pm

            makasih mas atas solusinya, akan saya dulu.

            • March 3, 2012 at 11:17 am

              Oke om sippp

  136. March 1, 2012 at 3:58 pm

    misalkan ada kirim ke email saeful_marif@yahoo.com!!
    makasih mas,,

  137. Edu
    March 6, 2012 at 12:49 am

    mas admin, klo souce code untuk bel otomatis gmana ya?
    mohon bantuan mas admin

  138. March 9, 2012 at 3:42 pm

    Dulu pernah buat sih tp udah enggak tau ngilang ke mana :D.
    Intinya dicoba dulu om, klo ada kode yg enggak jalan baru dishare kesini.

    • Edu
      March 9, 2012 at 11:13 pm

      mas admin boleh minta alamat e-mailnya?
      saya uda ketemu program nya pke vb 6, dan saya masih banyak yg gak tau tentang vb 6, saya bru belajar program langsung pakai vb net. jadi, saya mau kirim file nya ke e-mail mas admin. mohon bantuan dari mas admin.. :D

      • March 10, 2012 at 12:44 pm

        Gabung kesini aja om, nanti ada banyak om2x yg dengan senang hati berbagi :).

        Asalkan jangan bertanya dg kata2x yg diawali “minta source code” atw sejenisnya soalnya bisa dijadiin bahan candaan :D.

        Sy juga aktif di forum tersebut, kecuali akhir2x ini karena memang ada beberapa hal yg harus sy selesaikan.

        Yg penting tunjukan dulu sudah sejauh mana usaha om mencoba menyelesaikan kasusnya, sisanya baru ditanyakan.

        • Edu
          March 12, 2012 at 3:03 am

          okay makasi y mas admin, sya bakalan gabung.. :D

          • March 12, 2012 at 4:24 pm

            Oke om sipp :)

  139. March 9, 2012 at 5:54 pm

    haloo mas….berawal dr cari2 info seputar inno, ane baca2 blog mas..

    dan dari sini ane bisa setup inno..:D

    Terima kasih banyak ya mas…

    oya, satu pertanyaan mas, kl applikasi dr vb atau c# kan tinggal di run dari folder debug lgs bisa, dengan pake inno jadi bisa melalui instalasi gitu, tp setelah diinstal, folder yang ada di program filesnya bisa di copy ke komp lain dan bisa dijalanin..

    nah, untuk menghindarkan hal itu gmn ya? supaya programnya bisa jalan kl di install..

    • March 9, 2012 at 8:24 pm

      Itu resiko klo mendevlop aplikasi berbasiskan dot NET :D jadi seperti jaman dos dulu tinggal copy paste langsung jalan dg syarat dot NET Framework sudah terinstall.

      Mungkin om bisa coba solusi sederhana berikut :

      1. Tambahkan kode berikut pada skrip inno setup

      [Registry]
      ;untuk key menyesuaikan
      Root: HKCU; Subkey: "Software\MyAplikasi\Setting"; ValueName: "isInstalled"; ValueType: String; ValueData: "true"; Flags: uninsdeletevalue
      

      2. Kemudian untuk aplikasi tinggal baca key diatas (sample skrip c#)

      using Microsoft.Win32;
      
      static void Main()
      {
          string myAppKey = @"Software\MyAplikasi\Setting";
      
          RegistryKey key = Registry.CurrentUser.OpenSubKey(myAppKey);
          if (key != null)
          {
              bool isInstalled = Convert.ToBoolean(Registry.CurrentUser.OpenSubKey(myAppKey).GetValue("isInstalled"));
              if (isInstalled)
              {
                  Application.EnableVisualStyles();
                  Application.SetCompatibleTextRenderingDefault(false);
                  Application.Run(new Form1()); // run program utama
              }
              else
              {
                  // TODO : tampilkan pesan peringatan
              }
          }
          else
          {
              // TODO : tampilkan pesan peringatan
          }
      }
      

      Selamat mencoba :)

      • March 13, 2012 at 10:46 am

        hooh…thanks ya mas….bisa ne td udah dicoba…:D

        oya, ternyata gk segampang itu copy paste or install ya? kl misalnya di komputer lain gk punya .net framework gmn y? atau beda versi? bisa di include jg install .net frameworknya?

  140. arif
    March 10, 2012 at 6:21 am

    gan mau tanya
    caranya buat mainin musik pakai aplikasi vb kayak gmn?
    tp yang g buat if,gue bingung kalau g pakai if
    apa codenya sama kayak yg disini http://yansen-apasaja.blogspot.com/2011/05/penulisah-ilmiah.html
    mohon bantuannya ya gan

    • March 10, 2012 at 12:47 pm

      Maksudnya g mana ya om ? Jadi ikutan bingung :D

  141. Listy
    March 10, 2012 at 9:33 am

    permisii mas” nya yg pinterr codingg,,,ada contoh codingg c# yg bkin aplikasi kasir supermarket pakenya form trus connect ke database kahh???ayoo dibantu,,,tolongg,,,,,:-))

  142. Nira
    March 12, 2012 at 10:41 pm

    mas admin terima kasih atas kumpulan source codenya

    kira2 kalau membaca dan memisahkan angka2 seperti di bawah ini di vb gimana caranya??
    (memisahkan yang 2 angka, 3 angka dan 4 angka)

    45.65.667.54.222.4444.9876.20.999.8765.7654.10.90.21
    

    jadi tampilannya seperti ini klo dah terpisah……

    <a href="http://niracekci.files.wordpress.com/2012/03/bacaangka.png"><img src="http://niracekci.files.wordpress.com/2012/03/bacaangka.png?w=595" style="max-width:100%;" /></a>
    
    • March 14, 2012 at 9:29 am

      Gunakan fungsi split :

      Private Sub Command1_Click()
          Dim arrAngka()  As String
          Dim angka       As String
          Dim i           As Integer
          
          angka = "45.65.667.54.222.4444.9876.20.999.8765.7654.10.90.21"
          arrAngka = Split(angka, ".")
          
          For i = 0 To UBound(arrAngka)
              Debug.Print arrAngka(i)
          Next i
      End Sub
      

      Tinggal dikembangin sesuai kebutuhan :D

  143. March 15, 2012 at 12:21 am

    terima kasih kakak……..
    nah kalau kasusnya biar seperti gambar ini gimana kak??

    jadi teks di baca, kemudian memisahkan teks berdasarkan jumlah digit (2,3, atau 4) kemudian membaca angka setelah tanda silang (“x”) dan memasukkkanya kedalam listview…

    • March 15, 2012 at 12:55 am

      Halah kok malah jadi ngerjain tugas anak kuliahan gini :D

      Private Function SplitText(ByVal text As String, ByVal digit As Integer, Optional ByVal isDigitAfterX As Boolean = False) As String
          Dim arrText1()  As String
          Dim arrText2()  As String
          
          Dim tmpText     As String
          Dim i           As Integer
          
          arrText1 = Split(text, "x", , vbTextCompare)
          If isDigitAfterX Then
              SplitText = arrText1(UBound(arrText1))
          Else
              arrText2 = Split(arrText1(0), ".")
              For i = 0 To UBound(arrText2)
                  If Len(arrText2(i)) = digit Then
                      tmpText = tmpText & arrText2(i) & "."
                  End If
              Next i
              If Len(tmpText) > 0 Then tmpText = Left(tmpText, Len(tmpText) - 1)
              
              SplitText = tmpText
          End If
      End Function
      
      Private Sub Command1_Click()
          Dim text As String
          
          text = "6099.6586.6954.5654.63.22x50"
          
          Debug.Print SplitText(text, 2) ' 2 digit
          Debug.Print SplitText(text, 3) ' 3 digit
          Debug.Print SplitText(text, 4) ' 4 digit
          Debug.Print SplitText(text, 0, True) ' digit after x
      End Sub
      
      • March 20, 2012 at 12:50 am

        terima kasih banyak kak.
        hehe… heheheh… hehehhehe saya anak sekolahan kak, bukan anak kuliahan. insya Allah tahun depan statusnya menjadi anak kuliahan. Insya Allah amin. :D

        oh iya kak, mau tanya lagi nih (soalnya dapat permasalahan baru) :)

        dan ini kasusnya kak:

        nah, kira-kira gimana tuh penyelesaiannya? soalnya yang bikin saya bingung, menggunakan fungsi split tuk membaca titik setelah digit after x)

        sebelumnya terima kasih banyak kak. dan Maaf merepotkan

        • March 22, 2012 at 10:43 am

          Krennn anax sekolah mainannya udah ginian, sipp dah lanjut :D

          Tapi kok sy merasa seperti ditess :D

  144. March 20, 2012 at 1:50 am

    sedikit tambahan kak untuk kasus baru di atas, nira dah coba-coba seperti ini,

        Dim strText     As String
        Dim arrText()  As String
        Dim i           As Integer
        
        strText = "958.30.65.667.54.222.4444.9876x10.20.999.8765.7654.10.90.21x125 "
        arrText = Split(strText, "x")
        For i = 0 To UBound(arrText)
            Set lstV = ListView1.ListItems.Add(, , arrText(i))
        Next i
    

    tapi tetap aja bigung dapatin angka setelah tanda x dan sebelum tanda titik setelah x (tanda titik pertama setelah tanda x)
    sedangkan minimal jumlah digit setelah tanda x sebelum tanda titik pertama setelah x adalah
    min: 1 digit
    max: 4 digit

    sekali lagi terima kasih sebelumnya kak

    • March 22, 2012 at 1:28 pm

      Klo gini bisa enggak ya ? :D

      Private Sub Command2_Click()
          Dim text As String
          Dim arrText1()  As String
          Dim arrText2()  As String
              
          Dim tmpText     As String
          
          Dim i As Integer
          Dim pos As Integer
          Dim pos2 As Integer
          
          text = "45.65.667.54.224x10.30.2564.31x850.9877.654.2145.554.65x1"
          arrText1 = Split(text, "x", , vbTextCompare)
          
          For i = 0 To UBound(arrText1) - 1
              If i = 0 Then
                  pos = InStr(1, arrText1(i + 1), ".")
                  tmpText = arrText1(i) & "x" & Left(arrText1(i + 1), pos - 1)
              Else
                  pos = InStr(1, arrText1(i), ".")
                  pos2 = InStr(1, arrText1(i + 1), ".")
                  
                  If i + 1 = UBound(arrText1) Then
                      tmpText = Right(arrText1(i), Len(arrText1(i)) - pos) & "x" & arrText1(i + 1)
                  Else
                      tmpText = Right(arrText1(i), Len(arrText1(i)) - pos) & "x" & Left(arrText1(i + 1), pos2 - 1)
                  End If
              End If
              
              ' pake fungsi sebelumnya
              Debug.Print SplitText(tmpText, 2) ' 2 digit
              Debug.Print SplitText(tmpText, 3) ' 3 digit
              Debug.Print SplitText(tmpText, 4) ' 4 digit
              Debug.Print SplitText(tmpText, 0, True) ' digit after x
          Next i
      End Sub
      

      Ngeri juga ngeliat anak sekolah skrg (klo benar sih :D)

      • March 22, 2012 at 10:24 pm

        heheheheh
        klo nira gak ada apa2 kak….
        lah, teman2 nira mainnya C/C++ lebih pusing lagi tuh…… :D

        • March 23, 2012 at 5:28 am

          Anak sekolahan pada belajar Vb, C/C++ emg buat apaan sih? Setau sy klo matapelajaran TIK enggak nyampe sini ?

          CMIIW (maklum bukan guru :D)

  145. hanifah
    March 20, 2012 at 8:35 pm

    om klo coding cari untuk mnampilkan datagrid tu gmna…???
    mhon bantuanNya…mkasih

    • March 22, 2012 at 10:58 am

      Nah disini ada contoh lengkap om, silahkan dicoba dulu :)

  146. March 22, 2012 at 10:28 pm

    Admin :
    Krennn anax sekolah mainannya udah ginian, sipp dah lanjut
    Tapi kok sy merasa seperti ditess

    heheheh ini dia repotnya ngobrol dengan pengajar hampir rata-rata gak ada yang percaya :/

    pkoknya makasih banget kak atas bantuannya :D

    oh iya kak, ada FB gak??

    • March 23, 2012 at 5:29 am

      He he he sy enggak punya FB :D

  147. jon
    March 26, 2012 at 11:50 am

    mas kalau mau ngecek object yang sudah ada di form vb6 caranya gimana ya?
    misalnya akan ngecek object winsock(15). klo belum ada akan di tambah. kalau sudah selesai di pakai akan di unload. nah ini coding di vb6 gimana mas? tolong kasih pencerahanya.

    tks

  148. March 26, 2012 at 12:43 pm

    Pake solusi yg disini aja om.

  149. diding
    March 27, 2012 at 3:36 am

    mas mohon bantuannya yaaa :)

  150. diding
    March 27, 2012 at 3:42 am

    saya mau bikin Laporan per buLan pake data report. nah saya ada kendala pas pemanggilan dari form buat nampilin laporannya itu. trus sqL commandnya juga mas kalo per bulan itu parameternya apa. tolong bantuannya mas :|

  151. diding
    March 27, 2012 at 3:51 am

    * ini yg di form
    Private Sub cmbbulan_Click()
    bulan (CDate(Date))
    End Sub

    Private Sub Form_Load()
    Call BukaDB

    cmbbulan.Clear
    cmbbulan.AddItem (“Januari”)
    cmbbulan.AddItem (“Februari”)
    cmbbulan.AddItem (“Maret”)
    cmbbulan.AddItem (“April”)
    cmbbulan.AddItem (“Mei”)
    cmbbulan.AddItem (“Juni”)
    cmbbulan.AddItem (“Juli”)
    cmbbulan.AddItem (“Agustus”)
    cmbbulan.AddItem (“September”)
    cmbbulan.AddItem (“Oktober”)
    cmbbulan.AddItem (“November”)
    cmbbulan.AddItem (“Desember”)

    End Sub

    Private Sub TbKeluar_Click()
    Unload Me
    End Sub

    Private Sub TbTampil_Click()
    sql = “”
    sql = ” SELECT ta_Penjualan.No_Nota, ” _
    & ” ta_Penjualan.nama, ” _
    & ” ta_Penjualan.Tgl_Nota, ” _
    & ” ta_Detail.Kd_Barang, ” _
    & ” ta_Barang.Nm_barang, ” _
    & ” ta_barang.stok, ” _
    & ” ta_Detail.Harga_Jual, ” _
    & ” ta_Detail.Jumlah_Jual, ” _
    & ” ta_Detail.Subtotal FROM ((ta_Penjualan INNER JOIN ta_Detail ” _
    & ” ON ta_Penjualan.No_Nota = ta_Detail.No_Nota) ” _
    & ” INNER JOIN ta_Barang ON ta_Detail.Kd_Barang = ta_Barang.Kd_Barang) ” _
    & ” WHERE((ta_penjualan.tgl_Nota = ” & cmbbulan & “) ”
    Set Rs_Tampil = Conn.Execute(sql)

    If Rs_Tampil.BOF Then
    MsgBox “Laporan Penjualan ” & cmbna.Text & ” Tanggal ” _
    & Format(DTPicker1.Value, “dd MMMM yyyy”) & ” kosong! “, vbInformation + vbOKOnly, “Message”
    Else
    DElaporan.Commands(7).CommandText = sql
    With lapjual_perbulan
    .Sections(“Section4″).Controls(“Label4″).Caption = _
    Format(DTPicker1.Value, “dd MMMM yyyy”)
    .Sections(“section4″).Controls(“Label2″).Caption = _
    cmbbulan
    .Refresh
    .WindowState = 2
    .Show 1
    End With
    End If
    End Sub
    Public Function bulan(ByVal Tanggal As Date) As String
    Select Case Month(Tanggal)
    Case 1: bulan = “Januari”
    Case 2: bulan = “februari”
    Case 3: bulan = “Maret”
    Case 4: bulan = “April”
    Case 5: bulan = “Mei”
    Case 6: bulan = “Juni”
    Case 7: bulan = “Juli”
    Case 8: bulan = “Agustus”
    Case 9: bulan = “September”
    Case 10: bulan = “Oktober”
    Case 11: bulan = “November”
    Case 12: bulan = “Desember”
    End Select
    End Function

  152. diding
    March 27, 2012 at 3:53 am

    * ini yg di SQL commandny

    SELECT ta_Penjualan.No_Nota, ta_Penjualan.nama, ta_Penjualan.Tgl_Nota, ta_Detail.Kd_Barang, ta_Barang.Nm_barang,ta_barang.stok,ta_Detail.Harga_Jual, ta_Detail.Jumlah_Jual, ta_Detail.Subtotal FROM ((ta_Penjualan INNER JOIN ta_Detail ON ta_Penjualan.No_Nota = ta_Detail.No_Nota) INNER JOIN ta_Barang ON ta_Detail.Kd_Barang = ta_Barang.Kd_Barang)
    WHERE (((ta_Penjualan.tgl_Nota)))

    • March 27, 2012 at 5:40 am

      Sy sudah lama tidak menggunakan Data Report, sy kira pengguna report standar vb ini sudah punah eh ternyata masih ada toh :D.

      Intinya kan di kondisi querynya :

      Private Function getBulan(ByVal bulan As String) As Integer
          Dim bulanAngka As Integer
          
          Select Case LCase$(bulan)
              Case "januari": bulanAngka = 1
              Case "februari": bulanAngka = 2
              Case "Maret": bulanAngka = 3
              Case "April": bulanAngka = 4
              Case "Mei": bulanAngka = 5
              Case "Juni": bulanAngka = 6
              Case "Juli": bulanAngka = 7
              Case "Agustus": bulanAngka = 8
              Case "September": bulanAngka = 9
              Case "Oktober": bulanAngka = 10
              Case "November": bulanAngka = 11
              Case "Desember": bulanAngka = 12
          End Select
          getBulan = bulanAngka
      End Function
      
      "WHERE MONTH(ta_penjualan.tgl_Nota) = " & getBulan(cmbbulan.Text) & ""
      
      • diding
        March 28, 2012 at 12:15 am

        mas ngga bisa juga, slalu ada tulisan missing),],or item in query expression’month((ta_penjualan.tgl_Nota=1))’. :(

        • March 28, 2012 at 1:47 pm

          Emg databasenya pake apa om ?

  153. March 28, 2012 at 11:47 am

    haloo mas bisa nggak bantuin saya

    kalo caranya buat tombol save itu gimana misalnya saya mau buat program pendaftaran kursus koputer

    • March 28, 2012 at 1:48 pm

      Coba dimulai dari sini om.

  154. aslam
    March 30, 2012 at 3:17 pm

    Mas Ada Contoh Project Sitem Keamanan Program Visual Basic Gak….

    • March 30, 2012 at 3:30 pm

      Enggak ada om

  155. fandy
    March 30, 2012 at 9:12 pm

    source kode spk tentang penentuan harga cetak

    • March 31, 2012 at 5:36 am

      Wani piro ? :D

  156. afdoal
    March 31, 2012 at 8:46 am

    tanya lagi kang :roll: :lol:
    klo mau buat rekap data seperti ini:

    dengan sumber datanya seperti ini:

    kayak mana kang?? :?:
    :

    • March 31, 2012 at 9:11 am

      Rancangan tabelnya belum normal om, dinormalin dulu lah biar querynya gampang :D

      Itu kena kaidah normalisasi pertama enggak boleh ada “multi value” dalam satu field :P

      Tapi aslinya sih tetap bisa utk membuat rekap seperti yg dimaksud

  157. afdoal
    March 31, 2012 at 9:45 am

    iya sih kang, emank belum normal..
    itu data langsung di ambil dari tabel sms masuk……

    jadi gak ada filterisasi tabel lagi…. (hadoh.. :roll: hadoh.. :roll: bahasanya tinggi amat nih :mrgreen: )

    ada solusi biar bisa buat rekap seperti itu kang? :idea: :?:

    • March 31, 2012 at 11:51 am

      Kayaxnya sih bakalan panjang nih om klo full coding, soalnya pake acara sorting segala :D

  158. afdoal
    March 31, 2012 at 11:58 am

    aw.. aw… aw.. aw…
    klo bisa lewat email kang…..
    bisa gak?? :roll:

  159. March 31, 2012 at 12:20 pm

    Emmoh, lagi males coding ha ha ha :D

  160. afdoal
    March 31, 2012 at 1:37 pm

    wadoh… wadoh.. wadoh… :roll:

    tapi, alhamdulillah berkata kata kunci “sorting” akhirnya dapat dikit jalan keluar ;) ;)

    makasih banyak kang :D

    • March 31, 2012 at 3:46 pm

      Alhamdulillah enggak jadi deh tak email :mrgreen:

      • afdoal
        March 31, 2012 at 4:39 pm

        iya kang….
        nanti aja dah tak minta emailnya kalo emank dah mentok ;)
        biar tak coba dulu nih…. :lol:

        • March 31, 2012 at 4:54 pm

          Oke deh sipp, dua jempol buat si om :D

  161. ainur_rido
    March 31, 2012 at 5:25 pm

    gan, email / ym nya apa ane mau belajar ini :*

  162. April 1, 2012 at 7:41 pm

    link nya kok pada gk bisa ?
    file ini tidak lagi tersedia karena adanya klaim dari W3C World Wide Web Consortium.
    Link file yang Anda minta tidak berlaku.

  163. April 2, 2012 at 12:14 pm

    Saya mau tanya, gimana yah cara untuk membuat Rata Kanan di (( Adodc2.Recordset!Harga_Jual; & Adodc2.Recordset!Jumlah ), di tunggu balasannya….

    —————————————————————————————–
    Private Sub Cetak()
    NO = 1
    SW = 1
    ‘Adodc1.Recordset.MoveFirst
    Adodc2.Refresh
    Printer.CurrentX = 0
    Printer.CurrentY = 0
    Do Until Adodc2.Recordset.EOF

    If SW = 1 Then
    Printer.FontName = Normal
    Printer.FontSize = 9
    Printer.Print Tab(2); NamaPT.Caption
    Printer.Print Tab(2); NomorPT.Caption
    Printer.Print Tab(2); AlamatPT.Caption
    Printer.Print Tab(2); TlpPT.Caption
    Printer.Print
    Printer.Print Tab(2); “===================================”
    Printer.Print Tab(2); “PRODUK”;
    Printer.Print Tab(22); “QT”;
    Printer.Print Tab(30); “HRG”;
    Printer.Print Tab(40); “JUML”;
    Printer.Print Tab(2); “===================================”
    SW = 0
    End If

    ‘Adodc1.Recordset.MoveFirst
    Printer.FontSize = 9
    Printer.FontName = Normal
    Printer.Print Tab(2); Adodc2.Recordset!Nama_Barang;
    Printer.Print Tab(22); Adodc2.Recordset!Quantity;
    Printer.Print Tab(30); Adodc2.Recordset!Harga_Jual;
    Printer.Print Tab(10); Adodc2.Recordset!Jumlah
    Adodc2.Recordset.MoveNext
    NO = NO + 1
    Loop
    Printer.Print Tab(2); “————————————————————-”
    Printer.EndDoc
    End Sub

    • April 2, 2012 at 12:34 pm

      Tambah fungsi rata kanan :

      Private Function RataKanan(nilai, Bentuk) As String
          On Error Resume Next
          
          RataKanan = Format(nilai, Bentuk)
          RataKanan = Space(Len(Bentuk) - Len(RataKanan)) + RataKanan
      End Function
      

      Cara penggunaan :

      Printer.Print Tab(30); RataKanan(Adodc2.Recordset!Harga_Jual, "######");
      
  164. April 2, 2012 at 1:14 pm

    Mas, Maksud saya Rata Kanan, Bukan Center. Yang itu hasilnya kok Center

    • April 2, 2012 at 1:36 pm

      Coba test print yg ini aja, hasilnya rata kanan enggak :

      Printer.Print Tab(10); RataKanan(1000, "#,###,##0")
      Printer.Print Tab(10); RataKanan(10000, "#,###,##0")
      Printer.Print Tab(10); RataKanan(100000, "#,###,##0")
      Printer.Print Tab(10); RataKanan(1000000, "#,###,##0")
      
  165. April 2, 2012 at 1:51 pm

    Hasilnya; Center Mas.

    1.000
    10.000
    100.000
    1.000.000

    kaya gitu.

    pinginnya ;

    1.000
    10.000
    100.000
    1.000.000

    ……… di tunggu.

  166. April 2, 2012 at 2:05 pm

    Loo… kok gitu yang di atas salah ketik.
    pakai titik aja ya pembatasnya.

    Hasilnya , Center Mas.
    ………………1.000
    ……………..10.000
    …………….100.000
    …………..1.000.000

    pinginnya ;
    ……………1.000
    ………….10.000
    ………..100.000
    ……..1.000.000

    di tunggu …maksaih banyak

  167. April 2, 2012 at 2:06 pm

    andri1977 :
    Loo… kok gitu yang di atas salah ketik.
    pakai titik aja ya pembatasnya.
    Hasilnya , Center Mas.
    ………………1.000
    ……………..10.000
    …………….100.000
    ……………1.000.000
    pinginnya ;
    ……………1.000
    …………10.000
    ……….100.000
    …….1.000.000
    di tunggu …maksaih banyak

    • April 2, 2012 at 2:38 pm

      Mmm gt, coba dikonversi ke string dulu om

      Dim nominal1    As Long
      Dim nominal2    As Long
      
      nominal1 = 10000
      nominal2 = 100000
      
      Printer.Print Tab(10); RataKanan(CStr(nominal1), "#,###,##0")
      Printer.Print Tab(10); RataKanan(CStr(nominal2), "#,###,##0")
      
  168. April 2, 2012 at 3:21 pm

    Gini ….; Sama hasilnya Mas. tetap Center

    ,,,,,

    Dim HRG, JML As String
    HRG = Adodc2.Recordset!Harga_Jual
    JML = Adodc2.Recordset!Harga_Jual

    Printer.FontSize = 9
    Printer.FontName = Normal
    Printer.Print Tab(2); Adodc2.Recordset!Nama_Barang;
    Printer.Print Tab(22); Adodc2.Recordset!Quantity;
    Printer.Print Tab(30); RataKanan(CStr(HRG), “#,###,##0″);
    Printer.Print Tab(40); RataKanan(CStr(JML), “#,###,###0″)
    Adodc2.Recordset.MoveNext
    NO = NO + 1
    Loop
    Printer.Print Tab(2); “————————————————————-”
    Printer.EndDoc

    ,,,,,,,,,,,

  169. April 2, 2012 at 3:24 pm

    Selain Cara itu ada ga….?

    • April 2, 2012 at 3:40 pm

      Klo sy biasanya pake direct print :

      Private Sub Command1_Click()
          Dim nominal1    As Long
          Dim nominal2    As Long
      
          nominal1 = 10000
          nominal2 = 100000
              
          Open "LTP1:" For Output As #1
          Print #1, Tab(10); RataKanan(CStr(nominal1), "#,###,##0")
          Print #1, Tab(10); RataKanan(CStr(nominal2), "#,###,##0")
          Close #1
      End Sub
      

      Contoh diatas menggunakan printer LX-300 dan port printer LPT1

  170. April 2, 2012 at 3:51 pm

    O gitu, mas. jd mungkin beda yah.. sama printer warna.

    Saya menggunakan Epson R230

    ………..

    Gini aja , mas punya contoh ga aku penasaran di coba sama saya di sini,
    minta designnya pakai VB6 …

    Heheh… jd ngrepotin.

  171. April 2, 2012 at 4:04 pm

    Sama ini mas, contoh program pemanggilan kode pakai barcode, bagaimana yah…? cara membuat programnya..
    hehehe

    • April 2, 2012 at 4:06 pm

      Diatas kan ada sample program barcode om, cuma utk sementara link download sample lagi enggak aktif :D

  172. April 3, 2012 at 1:20 pm

    Mas, kalau membuat laporan untuk truk pakai ketas kecil gulung, pakai Crital Refort. Bisa ga yah… caranya gimana.
    ada ga simple nya….
    di tunggun….

    • April 3, 2012 at 5:15 pm

      Klo untuk printer POS seperti printer2x kasir itu biasa menggunakan direct print om seperti contoh yg sy kasih diatas atau menggunakan cara yang seperti INI.

  173. April 7, 2012 at 12:28 pm

    Mau Tanya, Kalau database SQL Server pingin di pasword gimana caranya, saya udah kotak katik, masih ga ketemu. Please… help

    • April 7, 2012 at 1:44 pm

      1. Aktifkan SQL Server Enterprise Manager
      2. Expand SQL Server Group -> Klik kanan server yg ingin di password misal (local), pilih menu Edit SQL Server Registration Properties
      3. Aktifkan pilihan Use SQL Server Authentication trus isikan user : sa dan password : terserah

      Klo mau user selain sa harus buat dulu, coba deh googling bagaimana membuat user di SQL Server

  174. April 7, 2012 at 4:02 pm

    tapi ko…., muncul lagi ‘Edit SQL Server Registration Properties’ nya , dan kalau di klik ; use windows authentication, bisa di hilangkan lagi paswordnya. gimana apa salah saya… belum berhasil. please ….help.

    • April 7, 2012 at 4:09 pm

      Ya memang gitu om, klo namanya komputer server kan enggak sembarang orang yg bisa ngakses.

      Trus usernya itukan diset biar bisa login dari komputer lain, klo langsung dikomputer yg bersangkutan kan memang enggak harus login lagi pake user administratornya windows aja kan memang udah otomatis bisa.

  175. April 7, 2012 at 4:18 pm

    Oh… gitu.
    mas mau nanya lagi kalau ‘Enterprise Manager’ tanpa di instalkan, ada ga cara lain, lewat kode vb langsung, seperti Database Access.

    • April 7, 2012 at 4:36 pm

      Klo program om cuma diinstall disatu komputer ya sql servernya juga harus diinstall, tapi klo aplikasi klienya lebih dari satu ya sql servernya cukup diinstall di satu komputer misal di komputer server untuk komputer kliennya ya enggak usah.

  176. April 7, 2012 at 5:03 pm

    kalau untuk koputer local saja, tidak menjadi komputer server, bisa ga di pergunakan, tp tidak memakai ‘LAN Card’ , dan saya selalu pakai ‘LAN card’ di aktifkan, ada ga caranya supaya LAN Card tidak ada tapi memakai database SQLServer…?

    • April 9, 2012 at 3:46 pm

      Coba pake Microsoft Loopback Adapter

  177. April 9, 2012 at 3:26 pm

    mas aku penasaran … ku coba tidak di cetak cuman di tampilan form doang…untuk menampilkan “rata kanan”.
    sama aja ya…. bingun ; caranya seperti ini..
    ———-
    Private Sub Command4_Click()
    Dim nominal1 As Long
    Dim nominal2 As Long

    nominal1 = 1000
    nominal2 = 100000

    Tampilform.Print , Tab(10); RataKanan((nominal1), “#,###,##0″)
    Tampilform.Print , Tab(10); RataKanan((nominal2), “#,###,##0″)
    End Sub
    Private Function RataKanan(Nilai, Bentuk) As String
    On Error Resume Next
    RataKanan = Format(Nilai, Bentuk)
    RataKanan = Space(Len(Bentuk) – Len(RataKanan)) + RataKanan
    End Function
    ————-

    tolong dong koreksinya. plese

    • April 9, 2012 at 3:51 pm

      Coba font formnya diganti Courier New om :D

  178. April 9, 2012 at 4:01 pm

    Nah ….. Sip. Bisa sekarang.
    Oh… pengaruh juga ya, bentuk formnya.
    Jadi Selain “Courier New” Yang Bisa pakai form apa yah?
    Kalau untuk Faktur2, Bon Kaya Struk Itu menggunakan Form Apa ?

    • April 9, 2012 at 4:07 pm

      Yg kasus cetak nota om juga bisa diset fontnya menggunakan Courier New

  179. April 9, 2012 at 4:59 pm

    Oh.. gitu
    Nah, Sekarang Untuk menjadi “Center” Gimana ?

    • April 9, 2012 at 6:47 pm
      Private Function rataTengah(ByVal txt As String, ByVal lebarKertas As Integer) As String
          Dim i As Integer
          
          i = (lebarKertas - Len(txt)) \ 2
          
          If (i > 0) Then txt = Space(i) & txt    
          
          rataTengah = txt
      End Function
      

      trus tinggal coba seperti ini :

      Private Sub Command1_Click()
          Dim txt As String
          
          txt = "Ini sebuah text"
          
          Me.Print rataTengah(txt, 50)
      End Sub
      

      Jika hasilnya kurang pas ditengah silahkan bereksperemen dg mengganti nilai 50nya :D

  180. April 9, 2012 at 7:34 pm

    Sip….
    Saya udah bisa membuat Laporan Penualan. Bentuk Struk Minimarket

    Makasih banyak. Ya..

    • April 10, 2012 at 10:58 am

      Oke om sipp manteb :D

  181. Naldi
    April 12, 2012 at 12:43 am

    met mlm om, saya mau tanya tentang dongle ne.
    setelah saya download code dari om, cara menampilkan form nya gmana om?

    • April 13, 2012 at 9:17 am

      Dicontoh donglenya kan memang enggak pake form om, formnya om tambahin sendiri sesuai dg kebutuhan

      • Naldi
        April 13, 2012 at 10:20 pm

        iya om, uda sibuat, cuma klo di jlnkan formnya gak bisa muncul, dan tidak terjadi apa-apa. itu gmana y om?

        :D

        • April 14, 2012 at 8:54 am

          di breakpoint dulu aja om alur programnya biar gampang ngedebugnya.

  182. newbie
    April 23, 2012 at 9:16 am

    MW TANya ni admin , ada gk y cara cocoki image yg ditangkap kamera sama yg didatabase..tar kalo cocok imagenya ntar bs kluar identitas nya gt…mohon pencerahan..tq

  183. eko
    April 25, 2012 at 7:50 am

    pagi mz admin btw boleh saya minta refrensi kode aplikasi vb, untuk preview semua font di windows, jadi maksudnya kita ketik sesuatu terus tulisannya itu tampil semua berdasar jenis font yang ada di windows

    • April 25, 2012 at 9:53 am

      Untuk menampilkan nama2x font bisa menggunakan kode berikut om :

      Private Sub Command1_Click()
          Dim i As Integer
          
          For i = 0 To Screen.FontCount - 1
              Debug.Print Screen.Fonts(i)
          Next i
      End Sub
      
  184. April 25, 2012 at 12:22 pm

    om … saya mampir disini ah :D… gini om saya kan pake inno setup untuk pembuatan setupnya.. vb.net om.. program nya yang remote sql server pake 2 PC om… nah masalahnya gini.. kalo cuma 1 -2 form itu gamasalah om tetep jalan programnya.. tapi setelah saya pake crystal report pake bawaannya vb.net itu koneksi jaringannya jalan..cuma untuk tampilan nya banyak eror om.. kira kira solusi nya gimana ya kalo pake inno setup.. apakah harus sama folder2nya ato gimana? saya td coba cuma masukin yang .exe yang ada difolder bin nya aja…bisa dibantu ga om?? huhu

    • April 27, 2012 at 9:22 am

      Coba atur properties CopyLocal menjadi true untuk semua library crystal reportnya

      Lihat gambar

  185. eko
    April 25, 2012 at 2:15 pm

    Maksudnya gini maz admin, jadi di text box kita ketik TEXT misalnya trus di bawahnya muncul tulisan TEXT dengan menampilkan tulisan TEXT tersebut sesuai font yang ada di windows, bisa g maz,,n btw klo order aplikasi bisa pak??

    • April 27, 2012 at 9:24 am

      Ada contoh gambarnya enggak om ?

  186. April 26, 2012 at 3:12 am

    mas, caranya bikin grafik berjalan gmna ya? mohon di balas di email saya juga ya, setelah di email, nanti saya tanyanya via blogg ini lagi :)

    • April 27, 2012 at 9:38 am

      Kan udah ada samplenya disini, tinggal dipelajari dan dieksplorasi

  187. Ahmad
    April 29, 2012 at 10:38 pm

    Assalamu’alaikum Mas, semoga selalu sehat dan sukses terus.
    Mas sy ada kendala, gimana cara kosongkan datagrid tanpa harus menghapusnya.
    Saya misalnya input data pembelian, setelah lengkap semua lalu data tersebut disimpan maka yg terjadi datanya terus bertambah di grid tersebut. Pertanyaannya : Gimana cara kosongkan datagrid tersebut tapi tidak menghapus data-data yg sudah dinput ? jika perintah untuk menghapus semua data saya sudah coba tapi hilang semua datanya, saya pakai perintah loop. trims ya mas.

  188. Ahmad
    April 29, 2012 at 10:40 pm

    With AdoPembelian1.Recordset
    If .RecordCount > 0 Then
    .MoveFirst
    Do Until .EOF
    .Delete
    .MoveNext
    Loop
    End If
    End With

    Itu perintah yg saya buat mas, saya kepinginnya data dikosongkan saja dari datagrid tapi tidak menghapus data yang sudah diinput. Trims.

    • April 30, 2012 at 5:27 am

      Mungkin seperti ini om :

      Set DataGrid1.DataSource = Nothing
      
      • Ahmad
        May 5, 2012 at 1:23 pm

        Terima kasih Mas, udah jalan fungsinya.

  189. edogawa
    April 30, 2012 at 8:38 am

    Gan request materi tentang pembuatan software karaoke dunk beserta contoh source code nya ,thanks :-)

    • April 30, 2012 at 10:10 am

      Wah om admin disini katanya enggak membahas kode lengkap om, cuma cuplikan saja :D

      • edogawa
        May 1, 2012 at 9:08 am

        oh iya gpp Om Admin cuplikan jga tdak apa, soalnya saya blank tentang pembuatan software karaoke

        • May 3, 2012 at 4:31 pm

          Klo gitu sama donk om, karaokean aja sy enggak pernah, apa lagi buat softwarenya :D

  190. aswadjie
    April 30, 2012 at 10:32 am

    Salam Om Admin, mw nanya kalo blajar Java u. pemula bagusx mulai darimana yah?

    • April 30, 2012 at 11:00 am

      Ya mulai dari dasar dan memang sedikit membosankan, tapi disinilah mulai proses seleksi alamnya :D

      Cari buku2x java yg membahas materi fundamental seperti variabel, I/O, struktur program (runtunan, percabangan, perulangan) dll.

      Buku Java Fundamental merupakan referensi yg bagus jadi layak untuk dicoba, dan yang penting …

      Practice, practice, practice! Practice makes perfect

      So happy coding… :)

  191. aswadjie
    May 1, 2012 at 9:47 am

    maaf nih om, kalo dasar pemrog. Alhamdulilah dah ada mulai dari Algoritma sampe struktur program, dll. dulu uda dapet d kampus tapi yah gitu mslhx membosankan.
    cuma nih mw migrasi dari VB ke Java, nah… tuh mulaix dari mana? Hayo…

    • May 3, 2012 at 4:33 pm

      Klo gitu coba praktis2x aja kayaxnya udah ada yg buat tutorial pemrograman java dari yg fundamental sample pembuatan aplikasi database, coba aja deh digoogling.

  192. H. Mhd Jamil,SE
    May 4, 2012 at 11:03 am

    assalamu’alaikum pak guru.
    Maaf ngrepoti. ane mau ngajak pak guru backstreet ni. ada kerjaan dari kantor gak kelar-kelar..peniingng.. dah di kejar deadline ……buat server sms realcount . server sms dah clear . cuma nampilin grafik ke clent dari database server blum dapat rumusnya. mohon pak guru berkenan kirimin email./no kontak/no.rek nanti sample database dan kasusnya biar saya kirim. jgn marah ya pak.. Makasih sebelumnya.H.Mhd jamil.SE(KAPPU PBB Langkat Sumatera Utara)
    Wassalamu’alaikum

    • May 4, 2012 at 4:15 pm

      Waalaikumussalam

      Mungkin dicoba sendiri dulu aja om, sy pernah posting membuat report dalam bentuk grafik disini mana tau bisa ngasih pencerahan.

  193. Ahmad
    May 5, 2012 at 11:14 pm

    Mas, saya ada kendala lagi. Setelah saya laksanakan yang Mas ajarkan sudah terlaksana dengan baik. Ketika saya pakai Set DGItemBarang.DataSource = Nothing maka langsung kosong data tanpa terhapus. Tapi ketika form pembeliannya ditutup kemudian dijalankan kembali maka timbul masalah baru. Saya letakkan coding tersebut di form_load(), maksud sy supaya kosong ketika setiap kali form pembelian dibuka. Setelah form pembelian di klik maka muncul Run-time error ‘9’: Subscript out of range. Mohon pencerahannya Mas. Trims.

  194. Ahmad
    May 5, 2012 at 11:44 pm

    Kemudian saya kendala lagi, ketika data disimpan maka datagrid1 kosong tanpa datanya terhapus, tetapi ketika ditambah data pembelian baru maka semua header fontnya hilang semua, tidak ada header font. Ketika data ditambah maka bisa ditambah tapi tidak masuk ke datagrid1. Data memang masuk ke database tetapi bagaimana caranya agar data yang di entri pembelian dapat terlihat di datagridnya Mas. Mohon pencerahannya. trims.

    • May 7, 2012 at 8:23 am

      Emg query yg om pake untuk komponen Adodcnya gimana ?

  195. aswadjie
    May 9, 2012 at 12:28 pm

    Om admin mw nanya lagi, cara instalasi mySQL di Win7 gimana yah? udah ikutin tutorial dsini : http://htmlcssguides.com/cara-menginstal-mysql, tapi gak berhasil jg. mohon bantuanx…

    • May 10, 2012 at 9:11 am

      Harusnya enggak ada yg aneh cuma tinggal ngikutin wizard yg ada, atau coba disable dulu UACnya sebelum menginstall mysqlnya

      • aswadjie
        May 10, 2012 at 12:50 pm

        blum bhasil om Agan, pesanx : error Nr.1045 access denied for user ‘root’ @ ‘localhost’ (using password : NO).
        apa root passwordnya yah yg salah pada saat instalasi? sy sich ngisinya ‘mypassword’.
        mohon bantuan yah om, Thanks

        • May 11, 2012 at 6:27 pm

          udah dicoba belum login rootnya tanpa password ? trus om loginnya via command prompt atw g mana ?

          • aswadjie
            May 14, 2012 at 7:13 am

            udah coba om admin login tanpa passwor d CMD, pesan errornya msh sama, “Error Nr.1045 access denied…”

            • May 14, 2012 at 10:15 am

              Install ulang om MySQLnya :D

              • aswadjie
                May 21, 2012 at 7:23 am

                Uhh……. Gan, udah nginstal ulang ampir 50x dgn mySQL versi terbaru tetep aja erorx sama. Tolong Om…. !!!

                • May 26, 2012 at 10:19 am

                  Ya udah om PCnya dibawa kesini :P

                  • aswadjie
                    May 28, 2012 at 8:30 am

                    maaf yah om admin ngerepotin, domisiliku jauh d makasar. kalo deket pasti tak samperin…

                    • May 28, 2012 at 9:08 am

                      Loh belom case closed toh om ? :D
                      Coba baca artikel ini om.

  196. mlati
    May 10, 2012 at 8:52 am

    mas admin mo nanya, biasanya untk buat apliksi vb6 kn ad kmponen ocx nya,nah trkadang ad beberapa ocx ato kmponen yg crash ato knflik gmana cra mengethuinya kmponen mana aj yg crash ya ? trims

    • May 10, 2012 at 9:33 am

      Yg bermasalah biasa cuma komponen ocx dari pihak ketiga itu juga jarang.
      Klo komponen ocx bawaan vbnya kayaxnya enggak ada masalah.

      Emg mbanya pake komponen apa aja, sy sendiri biasa cuma pake 1 atw 2 komponen pihak ketiga jadi enggak terlalu bermasalah.

      • mlati
        May 10, 2012 at 9:51 am

        sya pakai skin ocx,vsreport,activereport yg lain bwaan vb smua seperti dtpicker dll ,gmana tu mas ? oh ya mas untk buat installer pkai nsis ato inosetup hrus pakai script dan hrus hafal kmponen atau ocx yg d pakai ya ? ada gak buat installer gak pakai script langsung scan git ocx nya ? trims

        • mlati
          May 10, 2012 at 9:54 am

          installer vb 6 dngan mysql maksudnya mas td he..

          • May 10, 2012 at 10:15 am

            Klo mau yg gampang coba pake Package & Deployment Wizard.

            • edogawa
              May 10, 2012 at 2:48 pm

              lho it bsa d pake databse mysql ya mas, soalnya sya pakai itu pkai ms.acces mas

              • May 11, 2012 at 6:28 pm

                Klo utk database enggak ada masalah om, pokoknya bebas

  197. gharaa
    May 12, 2012 at 7:23 pm

    brooo . . . . ada source code sistem monitoring kebocoran gas lpg gak ? lg butuuh banget . . . . :(
    kalo ada tolong kirimin k email saya ya . . . di tilk58@yahoo.com . . . makasieh . .

    • May 12, 2012 at 9:58 pm

      Buru2x buat sistemnya, ngidupin gas lpg aja sy enggak bisa :D

  198. mlati
    May 14, 2012 at 11:16 am

    Mas mo nanya lagi he.. gni saya ingin membuat query untuk mengetahui jumlah subtotal codenya seperti ini :

    sql=”SELECT SUM(tbjualdetailkhusus.subtotalkhusus)” & _
    ” From tbbarang INNER JOIN (tboperator INNER JOIN (tbjual_tunaikhusus INNER JOIN tbjualdetailkhusus ON tbjual_tunaikhusus.idjualkhusus = tbjualdetailkhusus.idjualkhusus” & _
    “)ON tboperator.IDoperator = tbjual_tunaikhusus.idoperatorkhusus)ON tbbarang.Idbarang = tbjualdetailkhusus.idbarangkhusus” & _
    ” WHERE tbjual_tunaikhusus.tgl_jualkhusus = ‘” & Date & “‘”
    rs.open sql,cn,adOpenkeyset, adLockoptimistic,adCmdtext
    if not rs.eof then
    isi= rs.field(0).value
    if isi>1000000 then
    ……..
    ……..
    end if
    end if

    kenapa variable “isi” nilainya Null ya mas, yang salah apa ya ?
    cara manggil field “SUM(tbjualdetailkhusus.subtotalkhusus)” pakek apa ya mas ?
    thank’s b4 mas.. :-)

    • May 18, 2012 at 1:35 pm

      Dicoba dulu query udah jalan belum ?

  199. vince
    May 15, 2012 at 2:49 pm

    Master mo tanya….
    saya buat program copy paste dari excel ke accses via msflexgrid….cm ada kendala..
    kenapa ya setiap di copas dikolom pertama ada symbol seperti huruf fp dan setelah di save di accses ternyata muncul symbol tanda tanya didalam kotak……
    Mohon pencerahannya master..gimana source code untuk menghilangkan symbol tsb….
    trimakasih sebelumnya

    • May 18, 2012 at 1:58 pm

      Sy belum pernah coba, kan di VB ada fungsi Replace mungkin bisa dicoba dulu.

  200. Ahmad
    May 17, 2012 at 11:21 pm

    Mas, saya mau tanya, gimana cara masukkan judul header yang sudah di buat pada setting perusahaan. Jadi nama perusahaan yang sudah di setting dapat langsung masuk ke semua laporan tanpa membuat label secara manual. Saya sudah buat dengan query dan bisa masuk. Saya gabung tabel data perusahaan dan tabel lain. Pertanyaannya : Apakah bisa dilakukan tanpa memakai query tanpa menggabungkan tabel ? Saya pakai Front VB 6, Back End Ms. Access dan Laporan Active Report SP4. Mohon bantuaannya Mas. Trims.

    • May 19, 2012 at 9:19 am

      Klo tanpa database bisa disimpan di file biasa dengan format INI.

      • Ahmad
        May 20, 2012 at 11:06 pm

        Trims Mas.

  201. Dewa
    May 19, 2012 at 1:58 pm

    Thank’s ea,……

    • May 26, 2012 at 9:53 am

      Sama-sama omm

  202. ardi
    May 20, 2012 at 3:02 pm

    mas numpang nanya, gmn cara kita bikin direct print pada vb mas?
    saya sudah buat report pakai crystal report, nah skrg saya mau sewaktu button cetak di click itu report nya langsung ngeprint tanpa tampil crystal report viewer nya dulu.
    mohon contoh coding nya mas. terimakasih

    • May 26, 2012 at 9:55 am

      Contoh yg direct print om :

      Private Sub Command1_Click()
          Open "LPT1:" For Output As #1
          Print #1, "tesss print"
          Close #1
      End Sub
      

      Contoh diatas dg asumsi printer konek ke port LPT1

  203. Ikho
    May 28, 2012 at 5:40 am

    maz…kalo sistem informasi pengajaran form apa aja yaa yg dipakai???

    • May 28, 2012 at 9:17 am

      sory om sy blm pernah buat jadi blm bisa ngasih masukan :D

  204. mlati
    May 28, 2012 at 12:38 pm

    Mas admin ada referensi pembuatan aplikasi dengan fingerprint gk ? trims..

    • May 28, 2012 at 1:00 pm

      Tinggal beli aja finger printnya trus biasanya udah disediain SDK (library + sample program) dari vendornya.

  205. May 30, 2012 at 9:20 am

    mas…. mw tanyak source kode buat kalkulator biar bisa nampilin hasil dalam 12 digit angka….

    • May 30, 2012 at 10:15 am

      Enggak punya om, emg yg udah om buat g mana ?

  206. May 30, 2012 at 11:06 am

    Mas Penasaran … mau tanya …

    Aku bikin Print database Report “judulnya”, saya permasalahan dengan perintah ini mas ;
    memang perintah ini betul. Tapi hasilnya untuk membaca / menampilkan, “Page Layout -> copies” yang ada di Explore -> Printera and Task, aja.

    ————-
    Private Sub Timer1_Timer()
    Dim colPrintJobs As Object
    Dim objPrinter As Object

    Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
    Set colPrintJobs = objWMIService.ExecQuery _
    (“Select * from Win32_PrinterConfiguration”)

    For Each objPrinter In colPrintJobs
    Text1.Text = “Copies: ” & objPrinter.Copies
    Next
    End Sub
    —————-

    Maksud saya,
    saya pingin membaca / menampilkan copies pada waktu kalau kita print di Adobe misalnya, kan di adobe sebelum mau print kalau kita pingin print 2x di “properties printer” nya “Page Layout -> copies nya = 2″ ,yah kan?
    Nah, dengan perintah tersebut kok ga jalan yah kenapa ?

    bisa ga mas untuk codingnya, pakai kode gimana yah?
    di tunggu balasanya.

    • May 31, 2012 at 10:08 am

      Sy juga penasaran om, cuma :
      1. sy enggak punya printer, mau make printer kantor buat testing g mana gitu :D
      2. D’oh pake acara nginstall adobe lagi :(

      Kesimpulan jadi males coba :D

      • June 8, 2012 at 11:03 am

        Di word Juga sama Mas Admin, pokonya pas waktu mau ngprint di page setupya (Copies) nya mau kasih, 5 misalkan; artinyanya kan print 5 buah page yang sama, itu ga bisa yah…
        gimana ya mas…? hehehe tolongdong … di bantu

        itu aja mas ga perlu pakai printer juga, pokonya aku kepingin membaca aja pasilitas propeties printer, pada waktu mau ngprint.

        Begitu.

  207. May 31, 2012 at 9:20 am

    Om mohon dibantu code untuk edit image

    • May 31, 2012 at 10:05 am

      Coba disini.

  208. Ferdhy
    June 5, 2012 at 11:38 am

    Kepada Yth. Om Admin

    melalui surat ini saya ingin bertanya tentang :
    1. bagaimana membuat informasi dengan msgbox tentang error yg terjadi, misal kita belum instal Mysql Connector ADODB, jadi program akan memberitahu melalui Msgbox bahwa ADODB belum terinstal, atau contoh lainnya database belum di upload ke Mysql dan pemberitahuan error diberi tau melalui program yg kita buat, pake code error gitu deh om, tapi kita buat melalui Msgbox dengan bahasa yg bisa dimengerti pengguna tentang error tersebut.
    2. bagaimana merubah warna salah satu baris pada datagrid yg kita tandai sebagai record yg ingin ditandai, misal dari seluruh data yg ditampilkan pada tabel datagrid (misalkan data pegawai), kita ingin menandai satu atau lebih record dengan warna baris yg berbeda (misal warna merah) jika record tersebut berisi data pegawai pria, sedangkan record yg berisi data pegawai wanita diwarnai kuning.

    sekian surat ini saya sampaikan, terkurang saya mohon maaf :D

    • June 5, 2012 at 4:27 pm

      1. bagaimana membuat informasi dengan msgbox tentang error yg terjadi, misal kita belum instal Mysql Connector ADODB, jadi program akan memberitahu melalui Msgbox bahwa ADODB belum terinstal, atau contoh lainnya database belum di upload ke Mysql dan pemberitahuan error diberi tau melalui program yg kita buat, pake code error gitu deh om, tapi kita buat melalui Msgbox dengan bahasa yg bisa dimengerti pengguna tentang error tersebut.

      Klo ini ya harus manual om, didata dulu error number yg ada trus dibuatkan fungsinya.

      2. bagaimana merubah warna salah satu baris pada datagrid yg kita tandai sebagai record yg ingin ditandai, misal dari seluruh data yg ditampilkan pada tabel datagrid (misalkan data pegawai), kita ingin menandai satu atau lebih record dengan warna baris yg berbeda (misal warna merah) jika record tersebut berisi data pegawai pria, sedangkan record yg berisi data pegawai wanita diwarnai kuning.

      Setau sy datagrid belum mendukung fitur ini (CMIIW), jadi solusinya ya menggunakan komponen lain seperti MsFlexgrid atau ListView.

      • Ferdhy
        June 5, 2012 at 4:36 pm

        apa om punya link untuk saya belajar tentang 2 pertanyaan saya tersebut? atau om punya contoh script simpelnya ga? untuk pertanyaan yg pertama saya dulu pernah ada bahannya dikasi dosen, sayang ga ketemu lagi walau dah dibongkar semua datanya. dan klo pertanyaan yg kedua ada contohnya ga om klo pakai Msflexgrid atau listview.

          • Ferdhy
            June 5, 2012 at 5:02 pm

            Makasi banyak om, yg ngewarnain MSflexgrid / listview mungkin sedikit mengerti jadinya, cuma yg pertanyaan pertama masi bingung saya om :D , gimana penulisan di codenya om, apa pake :

            if (error = “sekian”) then msgbox (kesalahan terletak pada …..) end if

            • June 5, 2012 at 8:56 pm

              Jujur saja klo menurut sy melakukan hal2x seperti ini tidak sesuai antar usaha dan hasilnya, dulu sy juga pernah punya ide2x seperti ini karna kelihatannya lebih keren dari sekedar hanya menampilkan pesan err.Description, tapi akhirnya cape sendiri :P karna harus mendata semua error number yg mungkin ada dan membuat translate ke bahasa indonesianya :D

              Klo untuk kode mungkin bisa dicoba seperti ini :

              Private Function GetErrMessage(ByVal errNumber As Long) As String
                  Dim errMsg As String
                  
                  Select Case errNumber
                      Case 1: errMsg = "Koneksi putus"
                      Case 2: errMsg = "Gagal menyimpan data"
                      Case 3: errMsg = "Gagal menghapus data"
                      Case Else ' todo error yg lain
                  End Select
                  
                  GetErrMessage = errMsg
              End Function
              

              Trus tinggal di panggil di event2x yg kemungkinan ada errornya

              Private Sub cmdTes_Click()
                  On Error GoTo errhandle
                  
                  ' TODO : perintah yang diinginkan
                  
                  Exit Sub
              errhandle:
                  ' panggil fungsi GetErrMessage disini
                  MsgBox GetErrMessage(err.Number), vbExclamation, "Peringatan"
              End Sub
              
              • Ferdhy
                June 5, 2012 at 9:12 pm

                hehe iya sih om, tapi berhubung kemungkinan errornyo sedikit di bagian sub yg saya buat, jd gapapa deh coba coba dulu om. terima kasih bimbingannya om :)

                • June 5, 2012 at 9:16 pm

                  Oke om sama2x :)

  209. alam
    June 6, 2012 at 10:00 am

    om pernah tau kan Avigen buatan vb bego comunity ,, di situ ada barner yang di buat dengan vb ,, om tau ndak itu buatnya gimana ???

    • June 6, 2012 at 10:19 am

      Mmmm lupa sy om :D

      Kan masih bisa didownload sourcenya di sini.

      • alam
        June 7, 2012 at 4:09 pm

        Asyik omm dah bisa buat , terima kasih link sorcecodenya…

  210. June 6, 2012 at 10:58 pm

    Om bisa ga setting printer page layout mirror image menggunakan vb ?? cape muter-muter sama mbah google, mohon bantuannya, trims

    • June 7, 2012 at 12:21 pm

      Emg om ngeprintnya pake apa ? Objek printer bawaan VB, Data Report, Active Report, Crystal Report ?

      • June 8, 2012 at 3:14 pm

        active report… Om

        • June 9, 2012 at 11:05 am

          Sy cek ternyata ada settingnya:

          ActiveReport1.PageSettings.MirrorMargins = True
          

          Tapi belum dicoba :D

          • June 9, 2012 at 8:51 pm

            “ActiveReport1.PageSettings.MirrorMargins = True”

            Sudah saya coba, Tapi belum bisa Hasil Cetakannya Mirror
            Mohon Pencerahannya Om…………

            • June 10, 2012 at 8:53 am

              Itu referensi tercerah yg sy dapatkan om, sy udah cek library ActiveReportnya yg ada kata2x “miror”nya ya cuma itu.

  211. Riyan D'Evolutionist
    June 6, 2012 at 11:12 pm

    om misi mau tanya, saya punya sebuah project vb 6.0 game catur yg udah jadi, tapi saya ingin game tsb agar bisa dimainkan di 2 buah kompi bersamaan, jadi kyk sistem jaringan, sperti game condition zero dll,playerny beda kompi/laptop….kalo bisa pake wifi seh ok bgt, tp klo ga bisa pake lan jg bole…gmn caranya, dan apa saja komponen yg perlu dtambahkan beserta codenya?
    Thanks so much b4…maaf bnyk tanya, ane masih awam :)

    • June 7, 2012 at 12:24 pm

      Wah sy belum pernah buat aplikasi game om, apa lagi yg game multi player :D

      Tetapi disini ada beberapa sample mungkin bisa dicoba :)

  212. nano
    June 7, 2012 at 6:26 am

    Pak saya penikmat POWERBUILDER apakah ada source untuk powerbuilder ?

    • June 7, 2012 at 12:40 pm

      Sayangnya sy penikmat yg lain om :D

  213. June 7, 2012 at 6:40 pm

    om gmn buat koneksi dari vb net ke printer mesin kasir

  214. irvan
    June 7, 2012 at 7:33 pm

    bisa dijelasin dikit gak mas @admin pertanyaan bg angga soalnya saya punya problem yang sama…

    • June 8, 2012 at 9:02 am

      Nah sebelum sy jelaskan lebih lanjut udah dicoba belum kode yg disini, kan disitu sudah ada petunjuknya step by step.

      Maksud sy biar om enggak nanya sesuatu yg udah ada jawabannya, karna sy juga menggunakan artikel yg sama untuk mencetak menggunakan printer kasir atw sejenisnya.

  215. lutfiana
    June 8, 2012 at 12:44 am

    mas mau tnya nie soal penghitungan denda perpustakaan di java….

  216. lutfiana
    June 8, 2012 at 12:46 am

    kalo harus ada tabel hari libur itu logikany gmn ya mas??
    msh bingung :(

    • June 8, 2012 at 9:20 am

      Oke misal kita asumsikan batas peminjaman adalah 6 hari, jika lebih dari itu kena denda.

      Kemudian sy minjam tanggal 1 jun 2012 – 7 jun 2012, berdasarkan aturan yg ada seharusnya sy kena denda tetapi ternyata tanggal 3, 4 dan 5 adalah hari libur jadi kesimpulannya adalah sy belum kena denda (7 – 3 = 4).

      Nah pertanyaanya ditempat mbanya memperhitungkan hari libur enggak ?

      Di Java sy belum pernah coba, klo di VB kodenya lebih kurang seperti berikut :

      Private Function hitungDenda(ByVal anggotaStatus As Long, ByVal tglKembali As String, ByVal tglHrsKembali As String) As Long
          Dim lamaPinjam  As Long
          Dim hariLibur   As Long
          
          strSql = "SELECT COUNT(*) " & _
                   "FROM sls_hari_libur " & _
                   "WHERE tanggal BETWEEN '" & tglHrsKembali & "' AND '" & tglKembali & "'"
          hariLibur = CLng(dbGetValue(strSql, 0))
          
          lamaPinjam = DateDiff("d", tglHrsKembali, tglKembali)
          lamaPinjam = lamaPinjam - hariLibur
              
          If lamaPinjam > 0 Then hitungDenda = aturanSirkulasi(anggotaStatus).dendaPerHari * lamaPinjam
      End Function
      
  217. Ferdhy
    June 9, 2012 at 11:54 am

    Mas admin, tolong dibantu ya, saya punya 2 kendala lagi nih.

    1. saya membuat sebuah tabel penyewaan travel (sewatravel) yang isinya mengenai tanggal sewa, kode sewa, total sewa, nama penyewa, dll, dan saya juga membuat sebuah tabel tambahan yg berisi tabel pembayaran sewa (bayarsewa) dimana isinya angsuran-angsuran sewa dari tabel sewa pertanggal, pertanyaannya bagaimana membuat sisa hutang sewa

    [sewatravel.totalsewa – sum(pembayaransewa.angsuran)]

    jika pembayaran belum dilakukan (tabel pembayaran sewa belum diisi), querynya kan harus menggunakan

    where sewatravel.kodesewa = pembayaransewa.kodesewa

    sedangkan tabel pembayaran sewa masih kosong, mas admin punya solusinya?

    2. bagaimana membuat error pada tanggal, misal tanggal keberangkatan diisi lebih kecil dari tanggal kedatangan, contoh : tgl keberangkatan = 05-12-2012 (tgl-bln-thn) dan tgl kedatangan = 04-12-2012 (tgl-bln-thn) , errornya akan berbunyi “tanggal keberangkatan lebih kecil dari tanggal kedatangan”

    terima kasih…

    • Ferdhy
      June 9, 2012 at 11:58 am

      maaf pertanyaan ke 2 maksudnya errornya “tanggal kedatangan lebih kecil dari tanggal keberangkatan” :D

      • June 9, 2012 at 12:54 pm

        Untuk yg pertama mungkin bisa menggunakan LEFT/RIGHT join

        SELECT ...
        FROM sewatravel LEFT JOIN pembayaransewa ON sewatravel.kodesewa = pembayaransewa.kodesewa
        

        Klo yg kedua kan cuma menggunakan percabangan biasa om :

        Private Sub cmdSimpan_Click()
            ' misal utk tglBerangkat dan tglDatang menggunakan komponen DTPicker
            If tglDatang.Value < tglBerangkat.Value Then
                MsgBox "tanggal kedatangan lebih kecil dari tanggal keberangkatan", vbExclamation, "Peringatan"
                Exit Sub
            End If
            
            ' TODO : simpan transaksi
        End Sub
        
  218. June 9, 2012 at 1:38 pm

    mas kalo logika untuk C# gimana ya??
    mau buat aplikasi notaris dimana nanti textbox berisi titik2..
    ……………………………………………………………………

    kalo diketik nanti titik tersebut diketik huruf maka me replace..
    seperti fungsi insert keyboard

    thankx

    • June 10, 2012 at 8:36 am

      Si om aneh2x aja, emg harus gitu apa ? Seharian loh sy mikirin algoritmanya :D (just kidding)

      Klo pake textbox agak susah, jadi mendingkan pake maskedTextBox

      private static string Replicate(string s, int length)
      {
          return new StringBuilder().Insert(0, s, length).ToString();
      }
      
      private void Form1_Load(object sender, EventArgs e)
      {
          maskedTextBox1.Mask = Replicate("&", 50);
          maskedTextBox1.PromptChar = '.'; 
      }
      

      Untuk font maskeditnya diset Courier New.

  219. alam
    June 9, 2012 at 2:34 pm

    Haloo om ,, an mau tanya ginana caranya kita zoom in dan zoom out dengan vb 6, contoh kasus kita pake image koding ane gini

    
    Private Sub Command1_Click()
    Image1.Height = Image1.Height + 100
    Image1.Width = Image1.Width + 100
    End Sub
    
    Private Sub Command2_Click()
    Image1.Height = Image1.Height - 100
    Image1.Width = Image1.Width - 100
    End Sub
    

    tapi masalahnya ketika zoom image semakin turun ke bawah,, gimana caranya agar zoom dimulai dari tengah trus ke tepi atas bawah kanan kiri he hee yang intinya tetep center . oh ya om imagenya ini berada pada picture box..

    • June 10, 2012 at 8:41 am

      Berhubung pertanyaan ini juga sudah ditanyakan di i-bego, jadi sy abaikan saja :D.

      • alam
        June 10, 2012 at 11:12 am

        wh om jangan di abaikan ,, an butuh jawaban omm

        • June 10, 2012 at 2:15 pm

          Tambahkan method baru

          Private Sub centerImage()
              If Image1.Width < Picture1.Width Then
                  Image1.Left = (Picture1.Width - Image1.Width) / 2
              Else
                  Image1.Left = 0
              End If
              
              If Image1.Height < Picture1.Height Then
                  Image1.Top = (Picture1.Height - Image1.Height) / 2
              Else
                  Image1.Top = 0
              End If
          End Sub
          

          Trus tinggal panggil di event command1_click dan command2_click

          Private Sub Command1_Click()
              Image1.Height = Image1.Height + 100
              Image1.Width = Image1.Width + 100
              
              Call centerImage ' panggil disini
          End Sub
          
          Private Sub Command2_Click()
              Image1.Height = Image1.Height - 100
              Image1.Width = Image1.Width - 100
              
              Call centerImage ' panggil disini
          End Sub
          
          • alam
            June 10, 2012 at 4:38 pm

            Terima kasih Omm yang baik hati ,, atas solusinya.. Semoga mendapatkan balasan yang lebih baik dari Allah.

  220. alam
    June 9, 2012 at 5:37 pm
    • June 10, 2012 at 8:48 am

      Ya iya lah om, sy juga manusia :D

  221. luky
    June 10, 2012 at 1:09 pm

    oomm anak JS UGM ya

    • June 10, 2012 at 2:17 pm

      Bukan om :D

      • luky
        June 13, 2012 at 8:19 am

        omm masih di ugm ??

        • June 13, 2012 at 9:03 am

          Sy itu bukan mhs ugm om, emg ada apaan sih om ?

          • luky
            June 13, 2012 at 7:46 pm

            mau merguru langsung om hee ,, tinggal di pogung kan biasanya orang UGM hee

            • June 14, 2012 at 5:59 am

              Disini tu enggak ada guru dan murid om, yg ada share masalah dan solusi, jadi enggak perlu pake acara2x berguru langsung :D

  222. alam
    June 12, 2012 at 5:37 am

    om mau tanya gimana cara move and drag command buton vb 6 pada sebuah form yang udah jadi .exe

    • June 12, 2012 at 1:16 pm

      Disini om ada pembahasan lengkap.

  223. alam
    June 13, 2012 at 8:14 am

    alhamdulillah lengkap omm makasih banyak

    • June 13, 2012 at 9:02 am

      Oke om sama2x, jadi intinya semua permasalah programing itu sudah ada solusinya jadi tinggal kitanya yg harus pintar2x menggunakan keyword pencarian.

  224. alam
    June 14, 2012 at 9:50 am
    • June 14, 2012 at 4:09 pm

      Gini aja udah cukup om

      Dim LX As Integer, LY As Integer
      Dim geser As Boolean
      
      Private Sub command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
          geser = True
          LX = X
          LY = Y
      End Sub
      
      Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
          If geser = True Then
              Command1.Left = Command1.Left + (X - LX)
              Command1.Top = Command1.Top + (Y - LY)
          End If
      End Sub
      
      Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
          geser = False
      End Sub
      
      • alam
        June 15, 2012 at 9:10 am

        ia omm lupa command1 malah form (me) heee, trima kasih omm

  225. oto
    June 15, 2012 at 5:12 am

    mantebb isinya
    Kalo bikin source code aplikasi yahoo mesenger 1 arah saja gimana masbro ??, jadi orang cuma bisa chat dengan 1 orang saja yg udah di lock, txss

    • June 16, 2012 at 8:55 am

      Sy belum pernah coba tetapi disini ada banyak sample yg bisa dicoba.

  226. June 16, 2012 at 9:23 am

    asmlkm. mas ini saya nemu error begini. ada di gambar berikut

    saya make vb 6 dg database mysql. ketika saya buat make exe di win 7 64.. exe nya saya jalankan ke xp. muncul error tp di win 7 32 dan 64 normal
    class does not support automation or doest not suppport expected interface

    tp kl saya buat exe nya di xp tyt ga ada errornya.. di xp, win 7 32 atapun 64 berjln mulus.. apakah ada salah setting di win 7 saya ya mas.
    makasih atas pencerahannya.

    • June 16, 2012 at 9:37 am

      Coba kesini om, ikuti saja langkah2x yg ada.

      • sigit
        June 20, 2012 at 3:04 pm

        Ok mas dah bisa. ternyata perlu ada hotfixnya

  227. luky
    June 16, 2012 at 9:00 pm

    Ok om Guru ,, unt pertamx an liat dari masalah yg ada di hlm ini ,,
    dari post alam di atas ,, mungkin nda klo setelah bisa moveable seperti itu , trus nantinya posisi terakhir command button itu disimpan.

    kita buat project menjadi exe dan pada saat di jalankan kita ubah posisi command button itu, lalu pada saat exe di close otomatis menyimpan. Trus kita jalanin lagi exe dengan hasil posisi command button sudah berubah ???

    • June 17, 2012 at 6:10 am

      Ya paling gampang posisi tombolnya disimpan diregistry, VB 6 sudah mempunyai fungsi bawaan utk menyimpan dan membaca informasi registry yaitu SaveSetting dan GetSetting.

      Tambahkan 2 variabel utk menyimpan posisi left dan top

      Dim posisiLeft     As Single
      Dim posisiTop     As Single
      

      Pada event MouseMove simpan posisi terakhir tombol

      Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
          If geser = True Then
              Command1.Left = Command1.Left + (X - LX)
              Command1.Top = Command1.Top + (Y - LY)
              
              ' simpan posisi terakhir
              Call SaveSetting("MyApp", "PosisiTombol", "Left", CStr(Command1.Left))
              Call SaveSetting("MyApp", "PosisiTombol", "Top", CStr(Command1.Top))
          End If
      End Sub
      

      Kemudian pada event Form_Load baca posisi terakhir tombol

      Private Sub Form_Load()
          ' cek posisi terakhir
          posisiLeft = CSng(GetSetting("MyApp", "PosisiTombol", "Left", "0"))
          posisiTop = CSng(GetSetting("MyApp", "PosisiTombol", "Top", "0"))
          
          If posisiLeft > 0 And posisiTop > 0 Then
              Command1.Left = posisiLeft
              Command1.Top = posisiTop
          End If
      End Sub
      
      • luky
        June 17, 2012 at 12:23 pm

        SUPER om Guru ,, trima kasih om Guru atas codingnya
        ini membuat sy tambah semangat belajar vb 6 yang masih awam .

        terima kasih juga kak Alam ,, ane bisa belajar dari sini.

  228. luky
    June 17, 2012 at 12:32 pm

    om yang ini
    “Call SaveSetting(“MyApp”, “PosisiTombol”, “Left”, CStr(Command1.Left))
    Call SaveSetting(“MyApp”, “PosisiTombol”, “Top”, CStr(Command1.Top))”
    dan ini

    ” posisiLeft = CSng(GetSetting(“MyApp”, “PosisiTombol”, “Left”, “0”))
    posisiTop = CSng(GetSetting(“MyApp”, “PosisiTombol”, “Top”, “0”)) ”

    sy masih binggung ,, jelasin dikit donk atau link yang merujuk fungsi tsb.

    • AngeL
    • June 17, 2012 at 9:15 pm

      SaveSetting untuk menyimpan informasi ke registry windows, biasanya disimpan di bawah key.

      HKEY_CURRENT_USER\Software\VB and VBA Program Settings
      

      Contoh hasilnya bisa dilihat disini

      Klo GetSetting ya sesuai namanya untuk membaca informasi yg tersimpan diregistry windows.

      • luky
        June 18, 2012 at 5:05 am

        okk omm Trima kasih banyak atas share ilmunya,, semoga ilmu yang dibagi tidak habis-habis..

        • June 18, 2012 at 3:36 pm

          He he he, tinggal dikit nih om :D (just kidding)

          • luky
            June 26, 2012 at 11:26 pm

            Selamat Mlm om Rudi maaf mau tanya Gimana ya supaya seting ini bisa di aplikasikan di banyak command buton , soalnya cape copas code tiap command kan ????

            • June 27, 2012 at 10:46 am

              Ya objek tombolnya dijadikan array

              Dim posisiLeft  As Single
              Dim posisiTop   As Single
              
              Dim LX As Integer, LY As Integer
              Dim geser As Boolean
              
              Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
                  geser = True
                  LX = X
                  LY = Y
              End Sub
              
              Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
                  If geser = True Then
                      Command1(Index).Left = Command1(Index).Left + (X - LX)
                      Command1(Index).Top = Command1(Index).Top + (Y - LY)
              
                      ' simpan posisi terakhir
                      Call SaveSetting("MyApp", "PosisiTombol" & Index, "Left", CStr(Command1(Index).Left))
                      Call SaveSetting("MyApp", "PosisiTombol" & Index, "Top", CStr(Command1(Index).Top))
                  End If
              End Sub
              
              Private Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
                  geser = False
              End Sub
              
              Private Sub Form_Load()
                  Dim i As Integer
                  
                  For i = 0 To Command1.UBound
                      posisiLeft = CSng(GetSetting("MyApp", "PosisiTombol" & i, "Left", "0"))
                      posisiTop = CSng(GetSetting("MyApp", "PosisiTombol" & i, "Top", "0"))
                  
                      If posisiLeft > 0 And posisiTop > 0 Then
                          Command1(i).Left = posisiLeft
                          Command1(i).Top = posisiTop
                      End If
                  Next i
              End Sub
              
              • luky
                June 27, 2012 at 11:41 am

                procwdure declaration does not match description of event
                or procedure having the same name

                munculnya ini om ??

                • June 27, 2012 at 11:54 am

                  Pertanyaannya adalah om udah tau belum cara mengarraykan objek CommandButtonya ? Klo belum mendingan dicoba di project baru aja.
                  1. Buat project baru
                  2. Tambahkan satu objek CommandButton ke form
                  3. Copy paste objek CommandButton yg baru ditambahkan, trus klo ada pertanyaan konfirmasi pilih jawaban Yes
                  4. Ulangi langkah 3 untuk menambahkan beberapa tombol lainny (misal sampe 3-4)
                  5. Copas kode diatas

                  • luky
                    June 27, 2012 at 1:11 pm

                    Perlu dijawab ndak ya ” ” Pertanyaan Om buat sy malu heee, dan tambah semangat belajar VB. terima kasih omm ,,
                    oh ya omm ada referensi buat belajar vb 6 ??? judul buku atau link juga nda papa .

                    Trima kasih Om

                    • June 28, 2012 at 3:47 pm

                      Coba link ini om.

  229. romi
    June 17, 2012 at 9:58 pm

    selamat malam om
    ada g tutorial aplikasi sistem penunjang keputusan menggunakan vb6
    kalo ada boleh minta kah

    koding ples formnya kalo boleh
    terima kasih sebelumnya

    • June 18, 2012 at 3:35 pm

      Duluuuuu banget waktu jaman2x kuliah bantuin skripsi teman, tapi udah lupa :D

      • romi
        June 18, 2012 at 4:54 pm

        haha..
        udah kesana kemari mencari contohnya
        tetapi ternyata tidak ketemu
        hahahahaha..
        kalo ada referensinya om saya minta :D

  230. ahmad
    June 18, 2012 at 4:17 pm

    om an ndak tau ini masuk topik apa
    saya mau tanya gimana compile jadi exe aplikasi multi project ,, langkah-langkahnya gimana omm , saya coba selalu error apa karena classnya ya ??
    http://www.ziddu.com/download/19693480/cobamulti.rar.html

    • June 19, 2012 at 12:34 pm

      Waktu mau ngompile pilih menu File -> Make Project Group

      • ahmad
        June 19, 2012 at 3:55 pm

        Trima kasih om setelah itu di apain om ,, muncul tiga file
        .dll
        .exp
        .lib

        • June 19, 2012 at 6:38 pm

          Loh kan ada ekstensi EXEnya juga om, tinggal dijalanin aja

          • ahmad
            June 19, 2012 at 7:30 pm

            Iya om jadi malu heee ”
            Makasih omm admin

  231. Mugi
    June 19, 2012 at 12:30 pm

    Siang Mas, mau minta solusinya klo mas bisa bantu.
    1. Saya membuat sebuah table yg berisi Nama, Hutang, dan telah dibayar seperti ini :

    select nama, hutang, telah_dibayar, (hutang – telah_dibayar) as sisa_hutang from ………..

    saya mau menambahkan KETERANGAN disebelah SISA HUTANG dimana keterangan itu berisi LUNAS jika sisa hutang = 0 dan BELUM LUNAS jika sisa hutang 0

    menambahkan IF ke dalam query gimana ya om?

    2. masih menyangkut pertanyaan pertama, bagaimana mewarnai kolom tabel jika pada tabel keterangan belum lunas diwarnai merah dan Lunas diwarnai putih. (menggunakan MSFlexgrid), klo pake datagrid ga bisa kan mas?

    3. dalam VB 6 ukuran Width dan Height itu dalam px atau cm sih mas? gimana menyesuaikannya dengan Pixel layar jika telah di jadikan Exe?

    • June 19, 2012 at 12:41 pm

      1. Saya membuat sebuah table yg berisi Nama, Hutang, dan telah dibayar seperti ini :
      select nama, hutang, telah_dibayar, (hutang – telah_dibayar) as sisa_hutang from ………..
      saya mau menambahkan KETERANGAN disebelah SISA HUTANG dimana keterangan itu berisi LUNAS jika sisa hutang = 0 dan BELUM LUNAS jika sisa hutang 0
      menambahkan IF ke dalam query gimana ya om?

      Databasenya pake apa ? Soal beda database biasa beda fungsi kendalinya.

      2. masih menyangkut pertanyaan pertama, bagaimana mewarnai kolom tabel jika pada tabel keterangan belum lunas diwarnai merah dan Lunas diwarnai putih. (menggunakan MSFlexgrid), klo pake datagrid ga bisa kan mas?

      Om coba dulu kode berikut, hasilnya g mana ?

      Private Sub Form_Load()
          MSFlexGrid1.Col = 1
          MSFlexGrid1.Row = 2
          MSFlexGrid1.CellBackColor = vbRed
      End Sub
      

      3. dalam VB 6 ukuran Width dan Height itu dalam px atau cm sih mas? gimana menyesuaikannya dengan Pixel layar jika telah di jadikan Exe?

      Kayaxnya sih pixel, klo sy sih enggak neko2x, untuk desain aplikasi pake ukuran resolusi standar 1024 x 768.

      • Mugi
        June 19, 2012 at 1:08 pm

        yg pertanyaan 1 pake Mysql mas, dan yg pertanyaan ke 3 kenapa widthnya bisa sampe 10 ribuan tapi ga mentok di layar ya mas? padahal layar saya 1360 px lebarnya?

        • June 19, 2012 at 3:45 pm
          SELECT nama, hutang, telah_dibayar, (hutang – telah_dibayar) AS sisa_hutang,  IF(hutang – telah_dibayar = 0, 'LUNAS', 'BELUM LUNAS') AS keterangan
          FROM ………..
          
          • Mugi
            June 20, 2012 at 9:46 am

            Makasi Mas…. :D

  232. alam
    June 19, 2012 at 1:09 pm

    Admin :
    Waktu mau ngompile pilih menu File -> Make Project Group

    pesanya Error accesing the system registry,,
    setelah klik ok
    pesannya can not built because it references project C:\User\….. that has not been built

    • June 19, 2012 at 3:46 pm

      Di tempat sy normal kok, coba deh di copy ke drive selain C:\

      • alam
        June 19, 2012 at 6:08 pm

        ok omm,,, berhasil terima kasih
        @Ahmad maaf nyerobot

        • June 19, 2012 at 6:39 pm

          Oke om sipp

  233. Rully
    June 21, 2012 at 11:55 am

    Om master,minta bantuannya saya lagi membuat form transaksi pembelian dan penjualan barang menggunakan c#,saya minta batuannya. punya contoh2 simpel ga untuk sistem transaksi pembelian dan penjualan menggunakan c# ga?
    maksih kang.mohon bantuannya ya :)

  234. June 24, 2012 at 7:40 pm

    Mas Admin mau tanya lagi, boleh…?

    aku bikin buat print out pakai kode program vb, gimana ya mas admin Supaya Hurupnya RAMPING semua. Masalahnya aku pakai PRINT Barcode

    Gina mas codenya ,.. minta di repisi dong… tolong mas admin.

    Private Sub Cetak()
    Adodc2.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;” + _
    “Data Source=DataProgram;Initial Catalog=Toko”
    Adodc2.RecordSource = “ReportPenjualan”
    Adodc2.CommandType = adCmdTable
    Adodc2.Refresh

    Printer.CurrentX = 0
    Printer.CurrentY = 0

    ‘If SW = 1 Then
    Printer.FontSize = 9
    Printer.FontName = “Courier New”
    Printer.Print Tab(1); rataTengah(NamaPT.Caption, 38);
    Printer.Print Tab(1); rataTengah(NomorPT.Caption, 38);
    Printer.Print Tab(1); rataTengah(AlamatPT.Caption, 38);
    Printer.Print Tab(1); rataTengah(TlpPT.Caption, 38);
    Printer.Print Tab(1)
    Printer.Print Tab(1); “==============PENJUALAN===============”;
    Printer.Print Tab(1); “BON : ” + “” + FormA14!LText1.Caption + “*” + FormA14!LText2.Caption + “*” + “” + FormA14!LText3.Caption;
    Printer.Print Tab(1); “PELG : ” + “” + FormA14!Text5.Text;
    Printer.Print Tab(20); “KASIR : ” + “” + FormA14!User.Caption;
    Printer.Print Tab(1); “======================================”;
    SW = 0

    Do Until Adodc2.Recordset.EOF

    Printer.Print Tab(1); Adodc2.Recordset!Quantity;
    Printer.Print Tab(6); Adodc2.Recordset!Nama_Barang, Tab(29); RataKanan(Adodc2.Recordset!Jumlah – (Adodc2.Recordset!Harga_Jual * Adodc2.Recordset!Quantity), “#,###,###”);
    Printer.Print Tab(6); “@ ” + “” + Format(Adodc2.Recordset!Harga_Jual, “#,###”);
    Printer.Print Tab(29); RataKanan(Adodc2.Recordset!Jumlah, “#,###,###”);
    Adodc2.Recordset.MoveNext

    Loop
    Printer.Print Tab(1); “———————————–(+)”;
    Printer.Print Tab(1); “DISC MEMBER “, Tab(30); RataKanan(TextDiscMember.Text, “#,###,###”);
    Printer.Print Tab(1); “TOTAL ITEM”, Tab(15); JumTransaksi.Caption, Tab(30); RataKanan(TextGrandTotal.Text, “#,###,###”);
    Printer.Print Tab(1); “TUNAI BAYAR “, Tab(30); RataKanan(TextCashBayar.Text, “#,###,###”);
    Printer.Print Tab(1); “———————————–(-)”;
    Printer.Print Tab(1); “KEMBALIAN “, Tab(30); RataKanan(TextKembalian.Text, “#,###,###”);
    Printer.Print Tab(1)
    Printer.Print Tab(1); rataTengah(Form1!KetHeaderPt.Caption, 38);
    Printer.Print Tab(1); rataTengah(Form1!KetHeaderPt2.Caption, 38);
    Printer.Print Tab(1); rataTengah(Form1!KetHeaderPt3.Caption, 38);
    Printer.Print Tab(1)
    Printer.EndDoc
    End Sub

    ……………

    • June 26, 2012 at 4:05 pm

      Klo sy biasanya pake direct print aja om, ini contoh klo port printernya pake LPT:

      Private Sub cmdTes_Click()
          Open "LTP1:" For Output As #1
          Print #1, "tess print"
          Close #1
      End Sub
      
      • June 26, 2012 at 4:27 pm

        kalau itu iya udah ngerti pakai kode ini juga bagus jalan itu kan untuk LPT1 tapi saya pakai di USBCom1.

        yang saya tanyakan ..,
        Maskudnya merubah hurup – hurup nya, supaya hurupnya ramping / padat, kaya kalau gambar di tarik kebawah kan jadi Ramping Tinggi.
        Itu Gimana codenya mas… kaya di Minimarket … market.

        Maslahnya jadi panjang kalau ga cukup pakai Font Courrel New, dan Di printernya ga ada untuk merubah hurup, kaya LX300, Tapi saya pakai MU-210D ( Printer Barcode )

        Gitu mas admin ?

        • June 26, 2012 at 8:22 pm

          Direct print USB juga bisa kok om, coba tambahkan sebuah modul trus copas kode berikut :

          'sumber : mbahlawoe
          'Deklarasi WINAPI
          Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
          Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
          Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
          Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
          Private Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long
          Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
          Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long
           
          Private Type DOCINFO
               pDocName As String
               pOutputFile As String
               pDatatype As String
          End Type
           
          'Cetak Ke Printer USB
          Public Function CetakViaUSB(ByVal PrinterDeviceName As String, ByVal DataToPrint As String, Optional SpoolerID As String = "") As Boolean
           
               Dim lPrinterHandle As Long
               Dim lpcWritten As Long
               Dim lReturnValue As Long
               Dim MyDocInfo As DOCINFO
               Dim i As Integer
           
               CetakViaUSB = True
           
               'Cek ID Spooler
               If SpoolerID = "" Then
                  SpoolerID = PrinterDeviceName
               End If
           
               'Cek Device
               On Error GoTo DeviceOpenError
               
               If OpenPrinter(PrinterDeviceName, lPrinterHandle, 0) = 0 Then GoTo DeviceOpenError
               
               On Error GoTo 0
           
               'Kirim Data Ke Cek Device
               On Error GoTo SystemError
               With MyDocInfo
                   .pDocName = SpoolerID
                   .pOutputFile = vbNullString
                   .pDatatype = vbNullString
               End With
           
               'Mulai
               '--------------------------------------------------------------------------
               lReturnValue = StartDocPrinter(lPrinterHandle, 1, MyDocInfo)
               Call StartPagePrinter(lPrinterHandle)
           
               'Kirim Ke Printer
               lReturnValue = WritePrinter(lPrinterHandle, ByVal DataToPrint, Len(DataToPrint), lpcWritten)
           
               'Selesai
               lReturnValue = EndPagePrinter(lPrinterHandle)
               lReturnValue = EndDocPrinter(lPrinterHandle)
               lReturnValue = ClosePrinter(lPrinterHandle)
               '--------------------------------------------------------------------------
               On Error GoTo DeviceOpenError
           
               Exit Function
           
          SystemError:
               lReturnValue = ClosePrinter(lPrinterHandle)
               
          DeviceOpenError:
               CetakViaUSB = False
          End Function
          

          Untuk contoh penggunaanya seperti berikut :

          Private Sub cmdTesPrint_Click()
              Dim i As Integer
              
              For i = 1 To 10
                  Call CetakViaUSB("NAMA PRINTER", "Tesss print")
                  Call CetakViaUSB("NAMA PRINTER", Chr$(&HA))
              Next i
          End Sub
          
          • June 28, 2012 at 3:21 pm

            Ok. Good

            Tapi mas Kalau bentuk hurupnya mau di gunta ganti gimana mas admin?
            kalau bentuk hurup kaya struk register / kaya di minimarket, hurupnya kok bisa ramping gimana yah?

            bantuannya lagi dong ?

          • Yondri
            November 4, 2013 at 12:04 pm

            Om Admin…, ini untuk rata kanan da kiri memformatnya bagaimana ??

            • November 5, 2013 at 5:17 am

              Kayaxnya belum support

              • Yondri
                November 6, 2013 at 12:04 am

                ok, tks om.

  235. Rully
    June 26, 2012 at 2:16 pm

    salam
    temen2 master perogramer,ane mendapat kesulitan membuat code untuk transaksi pembelian dan penjualan,untuk ilustrasinya:
    1.untuk transaksi pembelian ketika kita membeli beberapa barang contoh 5 barang,dalam tabel pembelian tersebut terdiri dari nama barang,qty,harga barang,total’ nah kendala ane ketika di input field2 di atas tadi terutama field qty ingin langsung bertambah jumlahnya,contoh nama barang yang asalnya dalam database 1,ketika di proses transaksi pembelian pgn lngsung bertambah sesuai dengan yg di inputkn pada form aplikasi pembelian,begitu juga pada form transaksi penjualan barang,untuk qty’y pasti berkurang karna barang di keluarkan(di jual)
    2.bagaimana menampung data barang,contohnya kita membeli beberapa barang ,ketika belum di proses untuk penjumlahan bagaimana data yang di inputkan di simpan dulu dalam memori(belum di masukkan ke database),kemudian bagaimana menjumlah kan harga tiap2 barang yang di beli

    mohon batuannya/solusinya akang2 master :) :D :) :D ;)

    • June 26, 2012 at 4:09 pm

      Wah terlalu panjang om klo dibahas disini, kayaxy udah banyak buku2x yg membahas pembuatan aplikasi retail/pos coba dipelajari dulu.

  236. Lukman
    June 26, 2012 at 4:00 pm

    om, ada tutorial aplikasi yang berbasis jaringan kah om

    • June 26, 2012 at 4:11 pm

      Postingan sy yg disini berbasis jaringan om.

  237. Bayu
    June 27, 2012 at 12:03 pm

    Saya mw tnya… 1. Ada data grid yg digunakan menampilkan seluruh data ( srouce code sprti apa ya gan gan )

    2. List item, fisik, komputer, bahasa, ekonomi, hukum, manajemen, teknik, novel. Tabloit, komik hrga jual tdk di isi/input, melainkan adl hasil proses dr hrga pokok ditambah 30% dr hrga pokok menggunakan combo bok (cmb kategori) tolong beritahu cara membuatnya dan codenya

    • June 28, 2012 at 3:53 pm

      Sory ya om, utk DataGrid sy sudah lama tidak menggunakannya jadi udah lupa :D

  238. Mugi
    June 27, 2012 at 12:44 pm

    Mas ada problem nih, mohon bantuan ya klo bisa mas bantu.

    1. saya ingin buat sebuat aplikasi dimana aplikasi tersebut terdiri dari 2 tombol, jika saya tekan tombol 1 maka IP address, subnet mask, default gateway, serta dns akan terset menjadi settingan tombol 1, dan jika di tekan tombol 2 IP address dan lainnya akan berubah menjadi settingan yg ada di tombol 2. mas bisa kasi tau gimana codingnya agar tombol 1 bisa merubah IP yg ada menjadi IP yang telah kita set di tombol 1 td?

    2. bagaimana agar VB bisa mengetahui nomor IP, netmask dan lainnya yang telah di set pada Komputer?

    Terima kasih…. :)

    • June 28, 2012 at 3:51 pm

      Coba kesini om.

      • mugi
        June 28, 2012 at 5:27 pm

        satu pertanyaan lagi mas, bagaimana cara membuat VB6 systray, dan iconnya terletak di sudut kanan bawah taskbar (dekat jam). saat di tekan kita bisa membuat menu bertangga contohnya:

        saat systray di click maka akan ada pilihan Input, laporan, keluar…. dan saat kursor diarahkan ke input ada tab menu disebelahnya yg berisi input data 1, input data 2, input data 3….

        tolong linknya atau codingnya ya mas biar saya bisa pahami. buat VB6 ya mas :D
        terima kasih mas…..

        • June 28, 2012 at 6:52 pm

          Wah si om males cari sendiri, pada tinggal ketik keyword “visual basic 6 systray”, banyak deh sample2x salah satu contohnya disini.

  239. luky
    June 29, 2012 at 3:00 pm

    Assalamu’alaikum omm K4m4r82’s,,,
    Semoga sehat selalu dan dalam Ridho Allah.

    Mau tanya om an ingin belajar aray
    http://www.mediafire.com/?aiz446631778azg

    Uraiannya :
    1. dari kondisi awal ( load) semua pictrure(index) tidak terlihat atau visible=false .
    2. Kita ngisi pada text1.text misal merah trus clik command 1, nantinya label1(index).caption ( yang namanya sesuai dengan text1.text misal merah tadi) akan berkedip atau bling.
    3. pada label1(index) yang kedip kedip atau bling bila kita klik maka akan muncul gambar yang sesuai warnanya

    Disini komponen yang di aray label dan picture box
    Gimana ya omm ???

    • June 30, 2012 at 8:35 pm

      Waalaikumussalam

      dari kondisi awal ( load) semua pictrure(index) tidak terlihat atau visible=false

      Private Sub Form_Load()
          For i = 0 To Picture1.UBound 'UBound -> menghasilkan index terakhir
              Picture1(i).Visible = False
          Next i
      End Sub
      

      Kita ngisi pada text1.text misal merah trus clik command 1, nantinya label1(index).caption ( yang namanya sesuai dengan text1.text misal merah tadi) akan berkedip atau bling.

      deklarasikan terlebih dulu var indexArray

      Dim indexArray As Integer
      
      Private Sub Command1_Click()
          For i = 0 To Label1.UBound
              If LCase$(Label1(i).Caption) = LCase$(Text1.Text) Then
                  indexArray = i
                  Exit For
              End If
          Next i
      End Sub
      

      Kemudian semua var index yg ada di event Timer1_Timer diubah menjadi indexArray
      Trus hilangkan spasi2x yg ada di label karena bisa mempengaruhi hasil perbandingan nilai caption label dg nilai textbox (text1)

      pada label1(index) yang kedip kedip atau bling bila kita klik maka akan muncul gambar yang sesuai warnanya

      Private Sub Label1_Click(index As Integer)
          If indexArray = index Then
              For i = 0 To Picture1.UBound
                  If LCase$(Label1(index).Caption) = LCase$(Picture1(i).Tag) Then
                      Picture1(i).Visible = True
                      Exit For
                  End If
              Next i
          End If
      End Sub
      
      • luky
        July 1, 2012 at 5:10 am

        Sukron omm ,, atas Penjelasannya
        Semoga Ilmunya membuat bahagia dunia akhirat. Amin

        • luky
          July 1, 2012 at 9:44 am

          http://www.i-bego.com/visual-basic/topic129.html
          ndak aktif omm ?? apa udah tutup ya

          • July 1, 2012 at 11:29 am

            Itu cuma kekurangan bandwidth om, kan pengunjungnya banyak, makanya om jadi Donatur, jadi jangan hanya bisa meminta (nanya) tetapi juga bisa memberi (donasi) :P

  240. Rani Imoet
    June 30, 2012 at 3:57 pm

    om Mau tanya ada cara untuk proteksi aplikasi yang menggunakan Database MS akses ?

    • June 30, 2012 at 8:49 pm

      Kan udah ada fasilitas passwordnya

  241. Rully
    July 2, 2012 at 10:58 am

    salam,kang mau tanya nih saya lagi buat form transaksi,nah bisa mohon bantuannya kang,bagaimana cara kita menginputkan beberapa data barang yang di simpan sementara pada array,dan masuk ke dalam datagridview, bagaimana cara menjumlahkan data yang di input tadi,contoh kita menginputkan 10 data yang terdiri dari 2 field kemudian setelah data sudah 10 langsung di jumlahkan.dan bagaimana ketika data sebelum di jumlahkan masuk dulu ke datagrid view,saya menggunakan c# kang,mohon bantuannya pleasee

  242. maddais
    July 18, 2012 at 5:17 am

    mas ada contoh pemprograman database client server menggunakan winsock pada vb 6.0 diclient ada tombol, insert,update,delete,search….terimakasih atas bantuannya…….

    • July 21, 2012 at 11:09 am

      Coba disini om.

  243. alam
    July 18, 2012 at 12:49 pm

    om gimana cara menutup(close/exit) program aplikasi lain dari vb 6?? misal aplikasi yang mau di tutup aplikasi notepad yang sebelumnya di buka

  244. alam
    July 19, 2012 at 7:41 am

    omm an dapet dari http://support.microsoft.com/kb/153463
    di coba http://www.mediafire.com/?5ftbji2tbl6nkti
    masih error ,, mohon bantuannya om..

  245. Nazhifa
    July 19, 2012 at 2:11 pm

    Mas, salam kenal. Mas sy ada sdkit kendala di laporan stok awal stok akhir.
    Gimana cara untuk mendapatkan stok awal dan stok akhir Mas ? tidak dalam bentuk laporan jg nggak apa2, yang penting sy sudah tahu caranya saja. Jadi bisa sya tampilkan di DataGrid saja. Mohon pencerahannya Mas. Trims.

    • July 21, 2012 at 11:14 am

      Yg jelas di tabel barang ada field stok_awal dan stok_akhir.
      Untuk stok awal diset sekali aja pada saat menambahkan data barang atw pada saat stok opname dan untuk stok akhirkan nilainya otomatis menyesuaikan dg transaksi pembelian dan penjualan.
      Trus untuk querynya cukup seperti ini aja :

      SELECT stok_awal, stok_akhir FROM barang WHERE kode_barang = ???
      
  246. alam
    July 20, 2012 at 10:08 am

    omm an dapet dari http://support.microsoft.com/kb/153463
    di coba http://www.mediafire.com/?5ftbji2tbl6nkti
    masih error ,, Apa client.exenya harus di taruh di C:\ mohon bantuannya om..

  247. alam
    July 20, 2012 at 1:54 pm

    Assalamu’alaikum
    Terima Kasih om dah ketemu solusinya ,, pertanyaan di atas di abaikan saja

    • July 21, 2012 at 11:19 am

      Waalaikumussalam
      Ok om sippp :)

  248. Ras ...
    July 20, 2012 at 11:58 pm

    Bang, kak, om implementasi c# buat web sevice gmana ya?

  249. maddais
    July 21, 2012 at 6:40 pm

    terimakasih om admin atas bantuannya…….

    • July 22, 2012 at 2:15 pm

      Oke sama2x om :)

  250. July 24, 2012 at 11:25 am

    Assalamu alaikum…
    Saya ucen mau nanyak ne mind
    ” Implementasi Latent semantic indexing pada sisitem pencarian dokument ” da mind source codenya…..
    minta tlong ne mind..
    buat bahan skripsi saya..
    thankzzzz before

    wassalamu alaikum

    • July 24, 2012 at 1:36 pm

      Enggak punya om, di googling dulu ya :D

  251. om3n
    July 30, 2012 at 9:34 am

    om admin, mau bagi masalah nih.. maklum newbie :D
    sy pake vb .net 2010 framework 4 mau buat autocomplete textbox tapi dapet pesan error “AccessViolationException”. ketentuannya :
    2 buah textbox yang menggunakan autocomplete, tiap2 textbox diambil datanya dari 1 jenis database (sql server) tapi berbeda database. kode yg saya tau :

    KODE TEXTBOX PERTAMA
    ======================
    Call OpenDatabaseA()
    Command.Connection = ConDBA
    Command.CommandType = CommandType.Text
    Command.CommandText = “SELECT FieldA FROM TableA”
    ObjDtAdapter.SelectCommand = Command
    ObjDtAdapter.Fill(objDataSet, “TableFieldA”)

    Dim colA As New AutoCompleteStringCollection
    Dim i As Integer
    For i = 0 To objDataSet.Tables(“TableFieldA”).Rows.Count – 1
    colA.Add(objDataSet.Tables(“TableFieldA”).Rows(i)(“FieldA”).ToString())
    Next

    TextBoxA.AutoCompleteSource = AutoCompleteSource.CustomSource
    TextBoxA.AutoCompleteCustomSource = colA
    TextBoxA.AutoCompleteMode = AutoCompleteMode.Suggest

    Command.Dispose()
    ObjDtAdapter.Dispose()
    ConDBA.Close()

    KODE TEXTBOX KEDUA
    ====================
    Call OpenDatabaseB()
    Command.Connection = ConDBB
    Command.CommandType = CommandType.Text
    Command.CommandText = “SELECT FieldB FROM TableB”
    ObjDtAdapter.SelectCommand = Command
    ObjDtAdapter.Fill(objDataSet, “TableFieldB”)

    Dim colB As New AutoCompleteStringCollection
    Dim i As Integer
    For i = 0 To objDataSet.Tables(“TableFieldB”).Rows.Count – 1
    colA.Add(objDataSet.Tables(“TableFieldB”).Rows(i)(“FieldB”).ToString())
    Next

    TextBoxB.AutoCompleteSource = AutoCompleteSource.CustomSource
    TextBoxB.AutoCompleteCustomSource = colB
    TextBoxB.AutoCompleteMode = AutoCompleteMode.Suggest

    Command.Dispose()
    ObjDtAdapter.Dispose()
    ConDBB.Close()

    Kode diatas berjalan normal jika hanya satu textbox yang dieksekusi, jika setelah textbox pertama dieksekusi kemudian mengeksekusi textbox kedua maka error. Mohon bantuannya :( urgent. thanks

  252. July 30, 2012 at 2:32 pm

    Enggak ada yg aneh om kodenya, coba kode yg berhubungan dg TextBoxA dinonaktifkan dulu berjalan normal enggak ?

  253. om3n
    July 30, 2012 at 3:16 pm

    thanks om admin, sy sudah coba tidak ada kode selain kode diatas. memang betul kode diatas berjalan lancar jika saya jalankan satu persatu (jalanin aplikasi terus ketik di TextBoxA trus tutup aplikasi. setelah aplikasi tertutup sy jalanin lg trus sy ketik di TextBoxB tidak ada masalah).
    Permasalahannya jika sy jalanin aplikasi dan memasukkan kata di TextBoxA, saya berhasil mendapatkan data A setelah itu saya ketik lagi di TextBoxB, ketika saya masukkan karakter pertama dari kata “MR” tidak ada pesan kesalahan, ketika saya masukkan karakter kedua yaitu “R” saya mendapatkan pesan error:
    “AccessViolationException was unhandled”
    Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
    System.AccessViolationException was unhandled
    Message=Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
    Source=System.Windows.Forms
    StackTrace:
    at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
    at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
    at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
    at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    at Inventory.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
    at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
    at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
    at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
    at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
    at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
    at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    at System.Threading.ThreadHelper.ThreadStart()
    InnerException:

    • August 4, 2012 at 9:33 am

      Coba kode Call OpenDatabaseA() dan OpenDatabaseB() dipanggil di Form_Load trus nonaktifkan kode ConDBA.Close() dan ConDBB.Close()

  254. muhammad ainal yaqin
    July 31, 2012 at 10:49 pm

    mas ada source code vb 6.0 untuk mapobject gak?

    • August 4, 2012 at 9:47 am

      Enggak ada om, sy belum pernah main2x map object

  255. Lexias
    July 31, 2012 at 10:54 pm

    Makasi banget ya mas sudah posting blog keren gini. Tingkatkan berbagi ilmu.. Smoga Sukses ya..
    Dua Jempol deee….

    • August 4, 2012 at 9:48 am

      Sama2x om, sering2x aja mampir ke sini :)

  256. oopick
    August 5, 2012 at 7:09 pm

    om ijin Ctrl + D

    • August 6, 2012 at 8:51 am

      Sippp

  257. om3n
    August 6, 2012 at 10:38 am

    thanks om admin, sy sdh menemukan jawabannya. ternyata ada masalah dengan waktu pergantian auto complete source ketika sedang mencoba untuk filter di background, berikut kode yang benar :
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    If TextBox1.Text.Length = 1 Then
    Dim col As New AutoCompleteStringCollection()
    col.Add(“Seven”)
    col.Add(“Sentinal”)
    col.Add(“Seventy”)
    col.Add(“Sensorship”)
    TextBox1.AutoCompleteCustomSource = col
    TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
    TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
    ElseIf TextBox1.Text.Length = 0 Then
    TextBox1.AutoCompleteMode = AutoCompleteMode.None
    TextBox1.AutoCompleteSource = AutoCompleteSource.None
    TextBox1.AutoCompleteCustomSource = Nothing
    End If
    End Sub

    • August 6, 2012 at 1:07 pm

      Oke sipp, case closed :)

  258. pina
    August 27, 2012 at 7:50 am

    klo membuat soal pilihan ganda pke acces dan vb ,,gmn?

  259. September 5, 2012 at 1:21 pm

    Tanya codingnya untuk Eject USB dong? Bener2 butuh nih.
    Sudah coba nyari di google tapi gak nemu yang work.
    Untuk VB.NET.

    Tolong ya om…

  260. Acep Kursina
    September 6, 2012 at 8:49 am

    Terima Kasih Mas Admin sangat membantu sekali Tutorial dan contoh programmnya :)

  261. September 7, 2012 at 8:16 am

    assalamualaikum, mas bisa bantu untuk membuat sistem inventaris aset perusahaan???

  262. Edo Wijaya
    September 8, 2012 at 6:46 am

    mas anda punya contoh program QR Code Reader nggak

  263. ucuk
    September 15, 2012 at 9:35 pm

    Om, nanya yah, klo ngedit Report yg tipe filenya RDF pake apa ya om? makasi atas bantuannya…

  264. ade
    September 19, 2012 at 2:44 pm

    assalamulaikum wr.wb
    Boz caranya buat active reportnya raport sebuah skolahan tp script / coding koneksi ke database nya itu ditulis di mdul trus d panggil ma form nya tu cranya gmn? (database nya mySQL bkn access)

    please reply ya mas cz btuh bngt,mkasih.

    wassalamualaikum,wr.wb

  265. nell
    September 20, 2012 at 9:41 am

    om, nuwun buat tutorial barcodenya..kalo saya mau buat nama diatas barcodenya gimana ya?
    kasih tau dong om caranya.. nuwun sanget..

  266. Lukman
    September 20, 2012 at 10:01 pm

    om, ada tutorial aplikasi jaringan (LAN) berbasis vb6 kah

  267. haidy
    September 25, 2012 at 10:33 am

    trm’s ats tutorialnya,, sangat bermamfaat dan membantu..

  268. shange
    October 2, 2012 at 9:51 pm

    mau na’a bos, gmn cara’a menampilkan angka 1 2 4 7 11 16 menggunakan for di source code,,,?

  269. October 12, 2012 at 9:55 am

    Om mohon pencerahan nih… maklum buta coding alias gak ngerti blass.
    sy mw membuat installer mysql + odbc dengan inno setup. ud modif coding yg artikel om qamar upload. compile berhasil tp wkt di install databasex tdk otomatis terestor.
    databasex yg format *.sql sy copas di dalam folder bin. cm sy bingung apa harus undump database ato gak??? suwer deh binunn fungsi dump jg utk apaan… :'(
    ud 10hr mlototin nih coding masi binun yg mana lagi mw diganti… help om..???

  270. jon
    October 20, 2012 at 2:29 pm

    Om bagaimana contoh coding print dengan kertas 1/2 form continuous yang lebih dari 1 halaman di vb6.

    Tks sebelumnya?

  271. November 16, 2012 at 12:46 am

    Mas totong saya dong mas
    ada gak aplikasi sistem pakar untuk mendeteksi penyakit tanaman
    menggunakan vb.net dan databasenya menggunakan access 2003
    tolong ya mas

  272. ainal
    November 28, 2012 at 9:12 pm

    mas klau misalnya membuat peritungan matematika metode jarimatika menggunakan vb bisakah?

  273. Adi Saputra
    December 3, 2012 at 10:53 am

    pak, ada kontak YM?

  274. December 6, 2012 at 8:29 am

    Sy sdg coba berkreasi krn terinspirasi Agan.
    Gan, source code Mesin Penjawab Otomatis YM versi 8, 9, 10, sudah sy coba, tp ga respon chat / pesan masuk, kira2 syarat apa yg kurang y Gan?
    Trims

    • December 7, 2012 at 10:54 am

      Emg nyobanya di YM versi brp om ?

  275. December 12, 2012 at 9:34 am

    gan bagai mana cara mengambil bulan dari tabel sl server 2008 dari cristal report 8.5
    sya pake sour code seperti ini di formula CR nya

    IF MONTH ({MORBIDITAS.tanggal})=1 THEN
    “JANUARI”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=2 THEN
    “FEBRUARI”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=3 THEN
    “MARET”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=4 THEN
    “APRIL”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=5 THEN
    “MEI”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=6 THEN
    “JUNI”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=7 THEN
    “JULI”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=8 THEN
    “AGUSTUS”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=9 THEN
    “SEPTEMBER”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=10 THEN
    “OKTOBER”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=11 THEN
    “NOVEMBER”
    ELSE
    IF MONTH ({MORBIDITAS.tanggal})=12 THEN
    “DESEMBER”

    tp error trs “a date is required here”
    tolong gan brkn solusinya atau sample yang lain.

    bahasanya VB.NET

    Terimakasih gan sebelumnya

    • December 12, 2012 at 1:37 pm

      Mana kode VB .NET yg udah om buat, baru kita cek bareng2x disini.

      • December 14, 2012 at 10:34 am

        tidak pak code di vb.net mas…
        gini kasusnya :
        kan di cristalreport ada functionnya untuk manipulasi string
        contoh nya menghitung karakter data dalam tabel : length({namaTabel.Field}) ,
        maka keluar jumlah karakternya apabila kita menarik nama formula yang tdi kita buat ke daerah laporan.

        yang itu jg sama kasusnya jadi kita ambil bulan saja di tabel dengan format : MONTH ({MORBIDITAS.tanggal}) dan bulan itu isinya 1 sd 12 jdi gtu mas kasusnya. hasilnya pas di pindahin ke daerah laporan maka yang tampil itu nama bulannya

        maaf ya mas kalau ribet penjelasannya.
        terimkasih mas atas

        • December 15, 2012 at 4:27 pm

          Klo CR sy enggak punya, jadi otomatis enggak bisa bantu ngetes :(

          • December 15, 2012 at 5:22 pm

            gan saya dah brhasil di CR nya tp aneh ya knpa field tanggal di database sqlserver gk ke baca sebagai date, padahal dah di format date. gan tolong bantuin bgt ya, code vb.net nya seperti ini :
            Try
            If ComboBox1.Text = “” Or ComboBox2.Text = “” Then

            MessageBox.Show(“Isikan dengan Lengkap”)

            Else

            Lap.CrystalReportViewer1.SelectionFormula = “Month({morbiditas.tanggal}) =” & Val(ComboBox1.Text) & ” and Year({morbiditas.tanggal}) =” & Val(ComboBox2.Text)

            Lap.CrystalReportViewer1.RefreshReport()

            Lap.WindowState = FormWindowState.Maximized

            Lap.Show()

            End If

            Catch ex As Exception

            MessageBox.Show(“Report Error”, “Form Filter Report”, MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

            dan untuk mengisi combobox saya gunakan pengulangan for next di event load nya. Tapi kenapa ya gk ke baca terus yg di databaseng, error nya sama :”a date is required here” error di formula gtu. mas tolong bgt ksh solusinya….!

            saya coba pake cristalreport control tp lebih error gy, katanya source codenya dah jadul. saya pake vb.et 2010
            CR nya msh 8.5,

            mksh bgt mas sblmnya

  276. December 14, 2012 at 11:04 am

    Mas maaf ya sekali lagi maaf bgt
    saya mentok nie cari tutorial import file txt ke datagridview di vb.net, mungkin mas mau menshare tutor atau link nya atau apanya ja. mohon bgt mas

    (gooogle dah di ubek2 tapi belum nyampe tempatnya(ketemu))

    mksh bgt mas atas bantuannya

    • December 15, 2012 at 4:29 pm

      Harus tau dulu om isi dari file textnya seperti apa

  277. zahra
    December 20, 2012 at 6:11 am

    teriima kasih selalu om.
    pengen bisa buat aplkasi YM tapi ga usah instal ym , mohon bantuannya om maklum ane masih belajar terima kasih sebelumnya..

  278. ainal
    January 13, 2013 at 9:16 pm

    mas cara buat mengitung poin di vb 6.0 kaya apa?

    • January 14, 2013 at 9:24 am

      Poin apaan om ?

  279. ainal
    January 16, 2013 at 12:02 am

    maksud nya score salah tulis

    • January 16, 2013 at 8:24 am

      Berarti pertanyaan saya masih sama, score apaan ? Score lari, jalan, nilai ulangan, nilai ujian, nilai rapor, nilai krs, nilai khs ???
      Pertanyaan itu yg jelas om, jangan setengah2x

  280. Nazhifa
    January 17, 2013 at 9:12 am

    Mas Admin, saya ada kendala sedikit. Saya belajar membuat aplikasi memakai kode aktivasi. Jadi siapa yang masuk ke aplikasi harus isi dulu kode aktivasinya. Masalahnya yaitu ketika saya buat start up form kode aktivasi maka yang pertama kali muncul adalah form kode aktivasi, ketika kode aktivasi sudah dimasukkan dengan benar maka muncul aplikasinya dengan baik. Tetapi ketika aplikasinya ditutup kemudian di klik untuk dibuka kembali maka form kode aktivasi masih muncul terus, padahal sudah diregister. Bagaimana caranya ketika sudah diregister, form kode aktivasinya tidak muncul lagi, tetapi langsung ke aplikasinya dengan form awalnya Login. Mohon maaf Mas Admin kepanjangan, Mohon pencerahannya. Trims.

    • January 17, 2013 at 9:22 am

      Pertanyaannya kode aktivasi yg diinputkan disimpan di mana ? Di database, registry windows, file INI atau yg lainnya ?

  281. Nazhifa
    January 17, 2013 at 9:39 am

    Saya belum mengerti cara simpan diregistry windows, ataupun file INI Mas, masalahnya kalau disimpan di Database nanti nampak di databasenya kan Mas ? mohon pencerahaannya agar bisa disimpan di registry windows aja Mas. Trims.

    • January 17, 2013 at 10:52 am

      Kita coba yg simple terlebih dulu, di VB 6 sudah menyediakan fungsi untuk menulis dan membaca registry windows.
      Nama fungsinya SaveSetting (menulis ke registry) dan GetSetting (memebaca nilai registry), berikut contoh penggunaannya :

      call SaveSetting("MyApp", "Setting", "StatusAktivasi", "Ok")
      

      Kode diatas dipanggil pada saat proses aktivasi berhasil.

      Selanjutnya untuk membaca nilai dari StatusAktivasi, gunakan perintah berikut :

      Dim statusAktivasi As String
      
      statusAktivasi = GetSetting("MyApp", "Setting", "StatusAktivasi")
      If statusAktivasi = "Ok" Then
          ' TODO : tampilkan form login
      Else
          ' TODO : tampilkan form aktivasi
      End If
      

      Selanjutnya tinggal dikembangkan sesuai kebutuhan

      Selamat mencoba :)

  282. Nazhifa
    January 17, 2013 at 11:57 am

    Mas mau tanya lagi nih, nilai dari StatusAktivasi diletakkan di event apa Mas ? apakah harus buat prosedure atau fungsi sendiri ? seandainya seperti di atas nilai dari StatusAktivasi seharusnya yang dipanggil SaveSetting kan Mas, tapi sepertinya SaveSetting di atas adalah fungsi menulis ke registrinya. Mohon maaf Mas bukan mengajar. Mohon pencerahannya. Trims.

    • January 19, 2013 at 9:59 am

      Gini loh om, kan om katanya punya form aktivasi, di form aktivasi itukan biasanya ada tombol Ok, nah pemanggilan fungsi SaveSetting yg sy contohkan di atas dipanggil pada saat mengklik tombol Oknya.

      Untuk pemanggilan fungsi GetSetting, bisa di panggil lewat prosedur Main yg ada di dalam sebuah modul

      Public Sub Main()
          Dim statusAktivasi As String
      
          statusAktivasi = GetSetting("MyApp", "Setting", "StatusAktivasi")
          If statusAktivasi = "Ok" Then
              ' TODO : tampilkan form login
          Else
              ' TODO : tampilkan form aktivasi
          End If
      End Sub
      
  283. ainal
    January 17, 2013 at 11:59 pm

    score didalam permainan atau game? sekalian mau tanya tau gak caranya buat game matimatika untuk penjumlahan di gunakan di vb 6.0,?

  284. ainal
    January 18, 2013 at 12:04 am

    mas klau misalnya membuat aplikasi pembelajaran perhitungan matematika menggunakan metode jarimatika menggunakan vb 6.0 bisakah? klau bisa ajarin dong om

    • January 19, 2013 at 10:11 am

      Wah belum pernah nyoba2x yg itu om :D

  285. January 21, 2013 at 5:56 pm

    mas mau tanya biar aplikasi sama jam pd pc server dengan klien gimana yah ?? soalnya aplikasi yg saya buat ternyata ada gagalnya disitu. saya coba2 cari dengan kata kunci winsock blm ketemu :(

    • January 22, 2013 at 8:39 am

      Emg om menggunakan winsock utk koneksi klien dan servernya ?

      • January 22, 2013 at 11:30 am

        ngga mas kali2 aja ngakalinnya pake winsock gitu, ada source get time server pake winsock tp itu nyamain sama server luar negeri

        • January 22, 2013 at 11:39 am

          Ya udah select dari database aja utk mendapatkan tgl servernya, databasenya menggunakan SQL Server, jalankan aja perintah berikut dari klien utk mendapatkan tgl dan jam

          SELECT GETDATE()
          
          • January 22, 2013 at 12:07 pm

            oke mas saya coba dulu yah
            makasih mas…

            • January 22, 2013 at 12:46 pm

              mas balik lg yah :D fungsi SELECT GETDATE() itu masukin di table jg kah??

              • January 22, 2013 at 1:32 pm

                Emg databasenya pake apa ? Biasanya masing2x database punya fungsi yg berbeda

                • January 22, 2013 at 4:31 pm

                  td jalan2 nemu cara gini mas
                  Function GetDateTimeServer() As String
                  Dim con As New ADODB.Connection
                  con.CursorLocation = adUseClient
                  con.Open “dsn=server”
                  Dim rec As New ADODB.Recordset
                  Set rec = con.Execute(“SELECT GETDATE() AS ServerDateTime”)
                  GetDateTimeServer = rec.Fields(0).Value
                  End Function
                  saya pake mysql mas, trs dari cara di atas “rec.Fields(0).Value” apa itu perlu table jg mas?

                  • January 22, 2013 at 9:33 pm

                    Klo databaseny MySQL, kodenya jadi gini om :

                    Function GetDateTimeServer() As String
                        Dim con As New ADODB.Connection
                        
                        con.CursorLocation = adUseClient
                        con.Open "dsn = server"
                        
                        Dim rec As New ADODB.Recordset
                        Set rec = con.Execute("SELECT CURRENT_TIME")
                        GetDateTimeServer = rec.Fields(0).Value
                    End Function
                    

                    Enggak perlu tabel lagi om, perintah “SELECT CURRENT_TIME” sudah menghasilkan kembalian berupa Recordset jadi sama seperti melakukan perintah SELECT ke tabel biasa.

  286. trahjava
    January 25, 2013 at 2:22 pm

    Ass…
    mas bagaimana ya pengaturan di crystal report untuk membuat raport siswa

    • January 27, 2013 at 5:37 pm

      Waalaikumussalam
      Saya belum pernah make CR om, jadi belum bisa bantu.

  287. January 30, 2013 at 7:18 am

    Assalmulaikum wr wb…
    admin, x program sistem informasi perpustakaan akademik gak ada ya??
    saya ingin belajar bikin program itu.

    • February 2, 2013 at 10:02 am

      Waalaikumussalam

      Untuk referensi modul2xnya bisa dilihat disini, sisanya tinggal obervasi langsung ke objek akademiknya :D

  288. ciprut
    February 16, 2013 at 10:56 am

    Gan, yang tentang pengolahan citra pakai vb kok gag ada yach?
    saya butuh source code dan program tentang pengolahan citra. mohon bantuannya.
    apa saja saya mau, grayscale, tresholding, deteksi tepi, perbaikan citra, dll pokok tentang pengolahan citra kalau ada yg dari vb 6.0. Trimakasih..

  289. amdhy
    February 20, 2013 at 4:37 am

    mas ada nggak program remote acces vb.nya??? klo ada share donk ke arfiandiawal@gmail.com

    • February 20, 2013 at 4:03 pm

      Coba kesini om.

  290. bustan
    March 6, 2013 at 8:26 am

    mas Admin , saya punya problem ,minta source code bagaimana menampilkan data udp yang dikirim ke ip multicast 224.0.0.4 di port 4201 ke list box lalu kemudian data di list box automatis terkirim ke serial port com 1……mohon bantuannya terima kasih…..

  291. March 10, 2013 at 2:44 pm

    Gan, yang tentang pengolahan citra pakai vb kok gag ada yach?
    saya butuh source code dan program tentang pengolahan citra. mohon bantuannya.
    apa saja saya mau, grayscale, tresholding, deteksi tepi, perbaikan citra, dll pokok tentang pengolahan citra kalau ada yg dari vb 6.0. Trimakasih..
    mail: pU2t26@gmail.com

    • March 16, 2013 at 1:06 pm

      Enggak punya :D

    • March 16, 2013 at 1:07 pm

      Enggak punya mba :D

  292. MuchsinArdi
    March 22, 2013 at 7:49 pm

    selamat malam mas, saya mau bertanya diluar topik diatas
    saya mengalami masalah saat akan memasukan data pada listview, ketika data saya simpan sudah berhasil namun kemudian muncul pesan “data provider or other data returned an E_FAIL status” dan data yg tadi tidak tampil di listview namun di database mysql data tersebut tampil
    mohon pencerahannya mas

    • Ami
      March 23, 2013 at 10:41 pm

      klw udah ada keterangan E_FAIL status biasanya berhubungan dengan tanggal, di database ya ada tipe data DATE gak ?
      klw ada, coding simpan ya om di kasih format tanggal sesuai dengan Database ya, contoh mysql : formatnya thn/bln/tgl

  293. praya
    March 30, 2013 at 8:52 pm

    salam kenal gan, mau tanya nie? siapa tau agan punya jawabanya, skema pembuatan software pulsa itu seprti apa? apa aja yang di perlukan dalam pembuatan server pulsa? trus program apa yang bisa saya pakai dengan mudah dalam pembuatan software pulsa maklum secara saya masih newbie banget dalam masalah ginian gan, tapi saya pengen banget belajar , terima kasih sebelumnya mohon maaf klw nanyaknya kebanyakan….

  294. April 2, 2013 at 11:58 pm

    gimana ya mas … caranya mengoptimalkan kinerja firebird superserver, soalnya koneksi user dikantor semakin tambah banyak..

    • April 11, 2013 at 3:44 pm

      Emg sebanyak apa om :D

  295. April 3, 2013 at 12:07 pm

    bisa bantu saya ,,,,,
    saya tertarik dengan yang admin tawar khn
    bisa khn mulai dari cara pembuatannya, sampai selesai + dengan codingnya di minta dan tolong di perjelas di web site ne …..
    terima kasih

    • April 10, 2013 at 4:16 pm

      Tawaran yg mana ya ? :D

  296. April 3, 2013 at 12:11 pm

    cara masuk ke sini gimana caranya saya pengen nyedot tapi gak ngerti dan saya ingin belajar

    • April 10, 2013 at 4:15 pm

      Enggak perlu login, langsung sedot aja :)

  297. April 11, 2013 at 3:17 pm

    Admin Orang Pintar yang baik..suka berbagi sesuatu tanpa komersial..semoga anda mendapat pahala yang mengalir terus..sepanjang masa..keren

    • April 11, 2013 at 3:40 pm

      Amin :-)

  298. arief
    May 4, 2013 at 2:25 am

    om minta pecerahannya…kalo mau grouping data in datagridView menggunakan C# gmna ya om???

    • May 4, 2013 at 8:11 am

      Emg grouping yg om maksud seperti apa ?

  299. melda
    May 5, 2013 at 3:49 pm

    om boleh minta contact numbernya ?
    saya lagy bikin tugas akhir program boleh minta bantuannya
    terimakasih

    • May 6, 2013 at 8:17 am

      Bukannya klo ngerjain tugas akhir itu udah ada dosen pembimbingnya ?
      Kan lebih efektif konsultasi ke dosen yg bersangkutan dari pada nanya2x via telp apalagi sms.

  300. anak singkong
    May 8, 2013 at 12:02 pm

    ali baba :
    Admin Orang Pintar yang baik..suka berbagi sesuatu tanpa komersial..semoga anda mendapat pahala yang mengalir terus..sepanjang masa..keren

    Setuju …. Saya Salut buat Juragan Admin pemilik Blog Canggih ini. blognya penuh Ilmu, gratisan lgi, admin nya baik, seneng bagi2 ilmu tanpa pamrih& gak matre :) smoga jadi amal baik dengan pahala yg berlimpah ya.

    O ya Saya mau tanya gimana klo litel yahoo ini http://www.freewebs.com/daniel2/lymsg.html
    supaya bisa konek? saya coba gak konek2 mas , alias bengooong aja, mohon pencerahan script mana yang harus di rubah? Tks

    • May 8, 2013 at 1:39 pm

      Penyebab aplikasinya bengooong :
      1. Library yg digunakan udah jadul “YMSG5LOG.DLL” skrg kan udah YM versi 11an jadi mungkin aja sudah enggak support.
      2. Perubahan RemoteIP dan RemotePort server YMnya udah ganti klo skrang IP : 66.196.121.33 dan port : 8001 sedangkan disamplenya masih menggunakan IP 216.136.173.179 dan port : 5050

      Solusinya ya cari sample app YM yg terbaru, ada banyak kok, om bisa cek disini.

  301. Engla Breinda
    May 16, 2013 at 9:13 am

    Mas,,,butuh bantuannya neh.
    Kebetulan saya lagi skripsi. Jd saya mau bikin program SPK pake metode AHP menggunakan VB. Naah,, di dalam AHP itu konsepx pake matriks mas.

    Jd, saya butuh bantuannya gimana cara menyelesaikan (operasi) matriks di dalam VB?

    Tlg ya mas :)

  302. dd
    May 21, 2013 at 1:31 pm

    Siang mas, moga dalam keadaan sehat selalu , mau nnya perintah untuk menjalankan aplikasi dkom server dari kom client yang telah kita konekan formnya dengan winsock, misalnya client mengklik tombol bunyi, maka di form server yang telah ada cmnd bunyi akan mengesekusi perintah dari client tadi,

    mohon pencerahannya mas, karena masih baru dalam VB6, terima kasih atas jawabannya.

  303. May 27, 2013 at 4:31 pm

    mas, saya mau buat program yang ketika dijalankan langsung tampil di monitor ke dua. kira2 source code nya bagaimana ya? terimakasih sebelumnya :)

  304. trismanto
    May 27, 2013 at 7:43 pm

    salam kenal mas, mf nih mau nanya kalau mau masukin audiofile(*.mp3,*.wap) ke database acces gmana ya mas?
    dan audiofile tersebut bisa diputar di form yang kita bikin?
    trimakasih sebelumnya.

    • May 27, 2013 at 9:39 pm

      setahu saya, file tidak dapat dimasukkan ke database. tapi alamatnya (path) bisa di masukkan. untuk memutarnya, bisa menggunakan Microsoft Mutimedia Control 6.0 bawaan VB 6.0. semoga dapat mempercerah :)

      • trismanto
        May 28, 2013 at 12:38 am

        saya udah coba masukan audiofile ke datasource tapi gak bisa diputer.
        kebetulan saya coba buat alarm dengan memanfaatkan windowsmediaplayer di vb.net cuman pas aku kopi ke flasdis dan di runingin di komputer lain hasilnya eror karna url di wndwmdiaplayer saya ambil dari part/D:karmila.mp3 bukan dari form
        Tolong bantuanya …
        terimakasih

        • May 30, 2013 at 11:45 pm

          waduh, maaf nih mas. saya nggak pernah masukkan file musik ke project vb. kenapa file musiknya ndak di copy juga ke folder programnya sekalian mas? ntar url nya pake source code:
          app.path & “\”
          contoh:
          app.path & “\karmila.mp3″
          hanya itu yang saya tahu. semoga bermanfaat mas :)

        • May 30, 2013 at 11:56 pm

          saya ada contoh programnya. mas email saya saja. nanti contoh programnya saya kirim via email :)

  305. anisa
    June 7, 2013 at 9:58 am

    Mas saya , mohon bantuanya saya ingin membuat program dengan vb 6.0 yang bisa menggunakan fasilitas ftp , tolong mas saya masih awam dengn ftp . Dalam program saya nantinya saya ingin program bisa update data via ftp.

    • June 25, 2013 at 12:26 pm

      Coba om pelajari postingan saya yang disini, disitu ada contoh mengakses ftp via VB 6, sehingga bisa disesuaikan dg kebutuhan om.

  306. komun
    June 7, 2013 at 12:36 pm

    ada contoh coding buat searching file dalam c# gak bos?

  307. Nazhifa
    June 7, 2013 at 2:58 pm

    Mas Admin, saya ada kendala sedikit. Bagaimana caranya agar laporan bisa 2 kolom. Saya buat laporannya gini Mas :
    ——————————————————————
    ITEM NILAI NORMAL HASIL SATUAN
    ——————————————————————
    Isinya 20 – 30 25 1000/ml
    ” 4.50-6.50 5.40 g/dl
    ” 1.003 – 1.035 1.033 –
    Permasalahannya yaitu :
    Laporan tersebut akan turun terus ke bawah sebanyak jumlah itemnya. Kalau ini saya sudah mengerti, tapi saya maunya jangan langsung turun ke bawah tetapi bisa masuk ke kolom yang kedua, setelah penuh laporan pada kertas yg pertama baru masuk ke kertas yang kedua, dengan cara yang sama seperti pada kertas pertama.
    Karena judul menu beserta isiannya kecil seperti yang saya contohkan di atas, jadi masih bisa masuk ke kolom di sebelahnya, sehingga laporannya menjadi 1 kertas saja.
    Itu maksudnya Mas, mohon perncerahannya. Trims.

    • June 25, 2013 at 12:22 pm

      Aktifkan pilihan section Detail kemudian atur propertiesnya seperti gambar berikut :

  308. Nazhifa
    June 7, 2013 at 3:19 pm

    Mas Admin, saya lupa. Saya buat laporannya pakai Active Report.
    *Sambungan dari komen sebelumnya. Trims.

    • Nazhifa
      June 9, 2013 at 10:14 am

      Oh iya Mas… saya lupa lagi. Bahasa pemogramannya vb 6.0 laporannya pake active report SP4. Mudah-mudahan ada pencerahan. Trims

      • June 25, 2013 at 3:52 pm

        Itu di atas udah sy jawab

  309. June 13, 2013 at 9:43 pm

    bang admin mau nanya ya…
    di project vb6 aq pas mau nyetak ke crystal report kok ad peringatan a number required here,, itu kenapa ya
    mhon dibantu, Thanks

  310. Danang Le Roi
    June 24, 2013 at 5:25 pm

    Apakah anda tau bagaimana program VB6 untuk mengenali beberapa USB keyboard pada 1 komputer dan setiap keyboard memiliki input-box masing2. Jadi ketika murid menjawab maka akan dikenali oleh aplikasi dan ditampilkan di masing2 text-box nya. Thx, Friend.

    • June 25, 2013 at 3:56 pm

      Belum pernah coba sih om, coba aja beberapa fungsi API disini mana tau ada yg cocok.

  311. jeni
    June 26, 2013 at 9:44 am

    minta scribt menmpilkan matriks gambar mnggunakan vb 6 ada nggakyah?????

    • June 26, 2013 at 11:38 am

      Enggak ada

  312. Nazhifa
    July 9, 2013 at 6:32 pm

    Mas, gimana caranya salin data dari listview sesuai check box yang dipilih ke datagrid dalam jumlah banyak ? Saya sudah coba dari datagrid ke datagrid dan berhasil. Tetapi tanpa check box di dalam datagridnya, karen harus coding lagi buat check box di dalam datagridnya. Sedangkan listview memang sudah ada check box bawaan. Trims.

  313. Nazhifa
    July 12, 2013 at 4:57 pm

    Sambungan dari pertanyaan saya di atas : Begini Mas saya buat codingnya, mohon dikoreksi jika ada kesalahan karena tidak masuk ke datagridnya.

    Sub SimpanData()
    Call BukaDB

    Do While Not AdoCariPemeriksaan.Recordset.EOF
    Conn.Execute “INSERT INTO RincianHasil1(KodePeriksa,Kategori,SubKategori,NamaPemeriksaan,Normal,Satuan,Harga,FeeDokter,FeeDokterRp,KodeBarang,NamaBarang,JumlahReagen) ” & _
    “VALUES(‘” & DGCari.ListItems(i).SubItems(1) & “‘,'” & LV1.ListItems(i).SubItems(2) & _
    “‘,'” & LV1.ListItems(i).SubItems(3) & “‘,'” & LV1.ListItems(i).SubItems(4) & _
    “‘,'” & LV1.ListItems(i).SubItems(4) & “‘,'” & LV1.ListItems(i).SubItems(6) & _
    “‘,'” & LV1.ListItems(i).SubItems(7) & “‘,'” & LV1.ListItems(i).SubItems(8) & _
    “‘,'” & LV1.ListItems(i).SubItems(9) & “‘,'” & LV1.ListItems(i).SubItems(10) & _
    “‘,'” & LV1.ListItems(i).SubItems(11) & “‘,'” & LV1.ListItems(i).SubItems(12) & “‘)”

    AdoCariPemeriksaan.Recordset.MoveNext
    Loop
    AdoDetail.Refresh
    AdoDetail.Recordset.MoveNext
    DataGrid1.Col = 1
    AdoDetail.Recordset.MoveLast
    DataGrid1.Refresh
    End If
    Next i

    End Sub

  314. Nazhifa
    July 12, 2013 at 4:58 pm

    End if dan Next i tidak ada Mas, itu kelebihan saya ketik.

  315. dewi
    August 29, 2013 at 9:39 pm

    omm gima ni caranya kalau saya punya stok barang 10 lalu diambil 9 maka stok tinggal 1, bagaimana agar di datagridnya angka 1 itu bisa berwarna merah ?? yg artinya stok barang harus segera di isi lagi .

    • September 3, 2013 at 9:32 am

      Untuk mengeset warna baris di gridview coba ke link disini.

  316. dewi
    August 29, 2013 at 9:48 pm

    pertanyaan ke 2 ni om heheh.
    gimana caranya biar id_barang menggunakan kode seperti ini 10813
    1=urutan di databasenya
    08=bulan
    13=tahun

    pertanyaan ke 1 dan 2 pake C# omm gmn nii scripnya omm?
    thx :D

    • September 3, 2013 at 9:52 am

      Pertama tambahkan dulu field nomor urut di tabel barang, setelah itu coba kode berikut :

      int noUrut = 1; // TODO: tambahkan perintah untuk mengambil nomor urut di tabel barang
      
      string barangID = string.Format("{0}{1:MM}{2:yy}", noUrut, DateTime.Today, DateTime.Today);
      Console.WriteLine("Barang ID " + barangID);
      
  317. adit
    September 1, 2013 at 1:03 pm

    mas klo bikin laporan per shift ada ngga? saya masih bingung nich…thanks

    • September 3, 2013 at 8:45 am

      Sy juga bingung

  318. baqis
    September 4, 2013 at 5:24 pm

    om ada source code program akuntansi gak ? atau referensi step by step membuat program akuntansi sederhan dengan vb6, sy lagi belajar buat program akuntansi, tp mentok alur sistemnya :-) makasih ya om

    • September 4, 2013 at 8:40 pm

      Sama sy juga bukan orang akuntansi jadi enggak tau, tapi klo buku yg membahas masalah ini banyak kok, contohnya disini.

      • baqis
        September 5, 2013 at 11:01 pm

        makasih om infonya, sy tunggu jg mana tau teman2 yg lain bs bantu, terima kasih

  319. aldzi
    September 4, 2013 at 8:11 pm

    Assalamu’alaikum
    Om k4m4r82 saya punya label yang sudah di array label1(1),label1(2),…label1(n).
    saya ingin bertannya om bagaimana cara mengambil nama label1 yang di array ini

    misal kita klik label array ini
    contoh kita pilih dan klik label1(3)
    maka nanti pada text1.text akan muncul label1(3)
    mohon bantuannnya

    • September 4, 2013 at 8:41 pm

      Gunakan event click om :

      Private Sub label1_Click(byval Index As Integer)
          Text1.Text = label1(Index).Caption
      End Sub
      
      • aldzi
        September 5, 2013 at 2:47 am

        Terima kasih om, tapi yang mau saya ambil bukan caption tapi namannya misal label1(3). Saya sudah coba ndak bisa bisa akhirnnya saya akali dengan tabindexnya om , adakah cara lain.

        • September 5, 2013 at 8:41 am

          Maksudnya gini :

          Private Sub Label1_Click(Index As Integer)
              Text1.Text = "Label1(" & Index & ")"
          End Sub
          

          Sebagai tambahkan utk mendapatkan nama-nama objek yg ada di form om bisa coba kode berikut :

          Private Sub Command1_Click()
              Dim ctl         As Control
                  
              For Each ctl In Me.Controls
                  Debug.Print ctl.Name
              Next
          End Sub
          
          • aldzi
            September 5, 2013 at 12:04 pm

            Terima kasih bannyak omm,, atas share ilmunnya

  320. aldzi
    September 5, 2013 at 5:09 pm

    Assalamu’alaikum om saya tanyya lg om untuk pengaturan backcolor bagaimana agar nantinnya user bisa mengatur sendiri dan melakukan pilihan warna . sehingga bagaimana untuk menampilkan daftar palette. Setelah user pilih nanti backcolor akan terganti . Terima kasih

    • September 6, 2013 at 12:35 pm

      Gunakan objek Microsoft Common Dialog Control 6.x, contoh penggunaanya juga gampang.

      Private Sub Command1_Click()
          CommonDialog1.ShowColor
          Me.BackColor = CommonDialog1.Color
      End Sub
      

      Untuk nilai colornya bisa disimpan di registry windows, file INI atau langsung di databases

  321. aldzi
    September 7, 2013 at 10:27 am

    Terima kasih omm k4m4r82

  322. Eno
    September 7, 2013 at 10:39 am

    Selamat Siang?, Blognya sangat membantu.
    Pak Admin, Dimana saya bisa mendapatkan pengarahan tentang membuat koneksi LAN database pake vb.net + sql server ,Win7, kira-kira 3 PC saja.
    untuk aplikasi database lokal saya sudah bisa.cuma bingung meng-LAN-kan aplikasinya,
    adakah ebook,Link atau buku referensinya.
    Trimakasih..

    • September 7, 2013 at 12:28 pm

      Sebenarnya solusinya sederhana sih om, coba perhatikan kode koneksi berikut :

      Sub Main()
          Dim conn As SqlConnection
      
          Dim strCon As String = String.Empty
      
          Dim serverName As String = "(local)"
          Dim databaseName As String = "db_latihan"
          Dim userName As String = "userName"
          Dim userPass As String = "userPass"
      
          strCon = String.Format("server={0};Database={1};user id={2};password={3}", serverName, databaseName, userName, userPass)
          conn = New SqlClient.SqlConnection(strCon)
          conn.Open()
      End Sub
      

      Kode di atas akan melakukan koneksi ke database SQL Server yang terinstall di komputer local, jika ingin mengakses database di komputer lain berarti tinggal ganti nilai variabel serverName, misal ip servernya : 192.168.1.1

      Dim serverName As String = "192.168.1.1"
      
      • Eno
        September 7, 2013 at 6:52 pm

        Benarkah seperti ini?
        Public XDATABASE As String = INIRead(LokasiINI, “Setting”, “Database”, “”)

        Cn = New OleDb.OleDbConnection(“Provider=sqlOledb 1;Integrated Security=true;Persist Security Info=False;User ID=;Password=;Initial Catalog=” & XDATABASE & ” ;Data Source=192.168.1.1;”)

        bisakah win7 dijadikan server?
        setting apa saja yang harus dilakukan untuk dapat koneksi LAN tersebut.maaf om banyak nanya..susah cari di “google”

        • September 7, 2013 at 8:29 pm

          Coba seperti ini om :

          Dim cn As New OleDb.OleDbConnection("Provider=sqloledb;Data Source=192.168.1.1;Initial Catalog=nama_database;User Id=nama_user;Password=password_user;")
          

          Ya win7 bisa dijadikan server

          Untuk koneksi LANnya enggak ada setting khusus sih, yg penting dari komputer klien bisa melakukan ping ke server.

          • Eno
            September 7, 2013 at 11:24 pm

            Trimakasih banyak om Admin, Jangan Bosan-Bosan untuk membimbing kami…….LANJUTKAN!!

  323. aldzi
    September 8, 2013 at 7:36 pm

    om tanya tentang slide show foto ,, saya dapat koding dari forum seperti ini

    Dim gambar As Integer
    Private Sub Form_Load()
    gambar = 1
    Image1.Picture = LoadPicture(App.Path & “\gambar\gbr” & gambar & “.jpg”)
    End Sub

    Private Sub Timer1_Timer()
    gambar = gambar + 1
    If gambar > 7 Then gambar = 1
    Image1.Picture = LoadPicture(App.Path & “\gambar\gbr” & gambar & “.jpg”)
    End Sub

    Om yang saya tannyakan bagaimana bila jumlah gambar dalam folder itu jumlahnnya tak tentu atau(n) bisa kurang dari 7 misal 3
    dan bisa lebih dari 7 misal 100
    Gimana ya om

    Dan untuk menangani gambar yang tidak ada trus lanjut gimana ya om
    misal itu gambar dari 1-7 gambar no 5 ndak ada maka secara otomatis lompat ke no 6 dan program tetep jalan.

    • September 11, 2013 at 9:44 am

      Tambahkan fungsi untuk menghitung file yg ada di folder.

      Private Function GetFileCount(ByVal folderName As String, ByVal extensionName As String) As Long
          Dim FSO         As New FileSystemObject
          Dim fld         As Folder
          Dim fil         As File
          Dim lngCount    As Integer
          
          If FSO.FolderExists(folderName) Then
              
             Set fld = FSO.GetFolder(folderName)
              For Each fil In fld.Files
                  If LCase$(FSO.GetExtensionName(fil.path)) = LCase$(extensionName) Then
                      lngCount = lngCount + 1
                  End If
              Next fil
          End If
          
          GetFileCount = lngCount
      End Function
      

      fungsi GetFileCount membutuhkan referensi Microsoft Scripting Runtime

      selanjutnya tambahkan sebuah variabel

      Dim jumlahGambar As Integer
      

      kemudian inisialisasi nilainya di event Form_Load()

      jumlahGambar = GetFileCount(App.path & "\gambar", "jpg")
      

      terakhir ganti kode

      If gambar > 7 Then gambar = 1
      

      menjadi

      If gambar > jumlahGambar Then gambar = 1
      
  324. aldzi
    September 11, 2013 at 8:31 am

    Om pertannyaan ane di atas blum di jawab [-O<

    Dan maaf ane mau tanya lagi om ,semoga om mau berbagi ilmunnya
    Pertannyaan mengenai picture

    Private Sub Command1_Click()
    Image1_Click
    End Sub

    Private Sub Image1_Click()
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
    Image1.Picture = LoadPicture(Text1.Text)
    End Sub

    Om biar tiap klick command buton keluar filename dari picture itu kosong gimana ya soalnnya koding di atas kalo pas CommonDialog1.ShowOpen pasti filenamenya sudah isi
    jadi kita belum pilih gambar pas nanti cancel
    maka filenamennya sudah keisi padahal harusnnya ndak.
    terima kasih om semoga punnya waktu untuk menjawab

    • September 11, 2013 at 9:51 am

      Tambahkan perintah CommonDialog1.FileName = “”

      CommonDialog1.FileName = ""
      CommonDialog1.ShowOpen
      
  325. aldzi
    September 11, 2013 at 12:51 pm

    Terima kasih om ,, Ilmunnya bermannfaat bagi saya..
    Semoga Allah memberi balasan yang lebih baik.

    • September 11, 2013 at 2:59 pm

      Sama-sama om :)
      Amin

  326. arie
    September 11, 2013 at 7:32 pm

    assalamualamikum..
    mau tanya ni om, ane punya 2 kasus:
    1. bagaimana membuat validasi stok barang jika transaksi melebihi stok barang?
    2.bagaimana membuat 2 autonumber pada satu form, misal pada form user jika dipilih adm auto yang keluar adm01 dan jika dipilih kasir auto yang keluar kasir01…

    mohon bantuannya ya om

    tks b4

  327. September 11, 2013 at 9:22 pm

    Waalaikumussalam
    Dicoba dulu om, klo enggak jalan baru bertanya

  328. dyaz
    September 14, 2013 at 10:18 am

    halo admin, bisa kita konsultasi seputar qr-code vb.net ? kalo bisa sih lewat ym. smskan ymnya ya ke 08976934456

    • September 19, 2013 at 1:52 pm

      Sy pernah membahas tentang qr-code library disini.

  329. hartinis106@yahoo.com
    September 18, 2013 at 5:44 am

    Kalau coding tentang pengambilan keputusan ada gak mass??/

    • September 19, 2013 at 1:43 pm

      Kesini aja.

      • hartinis106@yahoo.com
        September 20, 2013 at 8:36 am

        Maaf Sebelumnya Mas banyak tanya , yang memakai Visual basic 6.0 dan menggunakan acces serta Kristal reportnya. Tentang sistem pendukung keputusan ada gak, mohon jawabanya om.

        • September 20, 2013 at 9:19 am

          Klo sy sih enggak pernah buat tentang aplikasi SPK dan juga enggak punya koleksi sourcecodenya

          • hartinis106@yahoo.com
            September 20, 2013 at 9:33 am

            Ya dch om kalau gitu makasih

  330. Tejo
    September 18, 2013 at 5:01 pm

    bang admin cara untuk zoom sebuah gambar pada vb 6.0 gimana ya ? saya punnya sample tapi sepertinnya hasil buatan pakai flash. Saya lihat di website ini ada coding dengan vb 6.0 dengan sebuah picture, image, commmand buton,, pada dialog #482-486 di atas. Tapi untuk zoomnya tidak pada imagennya ketika di klik .
    mohon jawabannya om , ini sample yang pakai flash http://www.mediafire.com/download/9dhdvrz2edd7wky/zoom.exe

  331. Tejo
    September 18, 2013 at 5:07 pm

    Bang admin saya harap bisa memberi jawaban setelah melihat file zoom.exe itu,, KAlo menggunakan visual basic 6.0 gimana ya bang

  332. Tejo
    September 20, 2013 at 8:24 am

    jazakallah bang

  333. Tejo
    September 21, 2013 at 9:56 pm

    Bang bantuin , ini biar zoomnnya mulus tanpa kedip gimana ya juga untuk pakai scrolnnya ndak kedip gimana , dan agar gambar yang di zoom tidak keluar dari picture gimana ya bang. kalo imagenya diganti dengan picture gimana ya. terima kasih

    Private Sub HScroll1_Change()
    Image1.Left = -HScroll1.Value
    End Sub
    Private Sub VScroll1_Change()
    Image1.Top = -VScroll1.Value
    End Sub
    Private Sub Zoomin_Click()
    Image1.Height = Image1.Height + 2000
    Image1.Width = Image1.Width + 2000

    HScroll1.Max = (Image1.Width – Picture1.Width)
    VScroll1.Max = (Image1.Height – Picture1.Height)

    End Sub

    Private Sub ZoomOut_Click()
    Image1.Height = Image1.Height – 1000
    Image1.Width = Image1.Width – 1000

    HScroll1.Max = (Image1.Width – Picture1.Width)
    VScroll1.Max = (Image1.Height – Picture1.Height)

    End Sub

  334. husni
    October 8, 2013 at 9:49 am

    Selamat Siang?, Blognya sangat membantu.
    Pak Admin, Dimana saya bisa mendapatkan source code persediaan barang rusak?

    • October 8, 2013 at 12:48 pm

      Coba kesini om.

  335. October 20, 2013 at 4:58 am

    Assalamualaikum,,pak saya mau tanya
    saya lagi belajar membuat aplikasi login dengan beberapa form tambahan dengan visual basic expres 2010

    ini contoh coding nya pak saat di run sukses tapi saya mau memunculkan form selanjut nya pada saat kita tekan tombol login

    coding tambahan nya yang saya belum ngerti pak
    sudah saya coba cari di om google tapi pada saat saya coba masih banyak error pak

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = “admin” And TextBox2.Text = “1234” Then
    MsgBox(“username yang anda masukan benar”, MsgBoxStyle.Information, “login”)
    End If
    End Sub
    End Class

    terima kasih sebelum nya atas jawaban nya pak

    • October 20, 2013 at 6:24 am

      Ya mungkin keyword pencarian om yg kurang tepat, VB .NET itukan sudah menggunakan konsep OOP, dan FORM itukan sebuah class, jadi harus dibuatkan objek dari form yg bersangkutan, beda dg VB 6 yg lansung bisa dipanggil nama FORMnya dan bisa langsung di show/tampilkan.

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          If TextBox1.Text = "admin" And TextBox2.Text = "1234" Then
              ' buat objek form yg ingin ditampilkan
              Dim frm As New Form2()
      
              ' tampilkan form
              frm.ShowDialog()
          End If
      End Sub
      
      • October 20, 2013 at 6:36 am

        Mkasih om atas bantuan nya mau di coba dulu om,,dan mencoba cari referensi nya juga biar lebih mahir om,,ada referensi lengkap yg ßiśα di pelajari untk pemula om.

        • October 20, 2013 at 6:46 am

          Coba main-main kesini om.

          • October 20, 2013 at 6:41 pm

            Makasih Om saya Coba Ternyata Bisa Makasih Atas Masukan nya om dan referensi nya om

            salam sukses selalu om

            happy coding

  336. October 20, 2013 at 11:37 pm

    om mau tanya lagi om
    kalau kita login terus menampilkan form2 trus form kedua ada pilihan lagi untuk menampilkan form selanjut nya apa masih bisa kita menggunakan coding di atas seperti

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    ‘buat objek form yang ingin di tampilkan
    Dim frm As New Form3()

    ‘tampilan form
    frm.ShowDialog()
    End Sub
    End Class

    pada saat kita run memang tidak ada yang error tapi tampilan form ke 3 nya tidak mau tampil om

    makasih atas saran dan masukan nya om

    • October 21, 2013 at 5:27 am

      Aneh kok menampilkan form berikutnya di event TextChanged Textbox, kenapa tidak menggunakan komponen Button lagi ?

      • October 21, 2013 at 5:43 am

        السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
        Untk memunculkan form lain semua nya menggunakan button om
        Button 1 sampai button 8 om
        Setiap button yg di klik akan menampilkan form baru
        Saya belajar bikin aplikasi seperti PPOB (payment online bank) gt om.
        Jadi saya coba coding sendiri dan mencari referensi dulu ϋπτϋќ belajar om.

        Mkasih atas masukkan nya om admin

  337. October 29, 2013 at 3:14 pm

    wah hebat nih bro0 keren2 artikelnya ,, kebantu bgt buat tugas kuliah,, thanx bro0 :D

    • October 30, 2013 at 8:54 am

      Sama2x
      Senang bisa membantu :)

  338. Aha
    November 17, 2013 at 12:32 pm

    tolong bantu
    cara menampilkan data pada datagridview yang di form1 dengan menginputkan data di form2

  339. anonymus
    November 24, 2013 at 5:58 pm

    misi om, mau tanya, kenapa saat saya mau ngejalanin coding crystal report selalu muncul pesa “cannot open sql server” setiap saya panggil perintah cetak

  340. efendy lie
    November 27, 2013 at 2:46 pm

    gan numpang nanya cara buat minimarket dalam konsep fifo ( stok utama di keluarkan dahulu) keq gmna ya

  341. RCE-ID
    November 29, 2013 at 2:12 pm

    Mas Admin,
    Artikel2-nya sangat bagus dan informatif, kapan Mas rencana untuk update lagi informasi pemrograman di blog ini?

  342. ika
    December 14, 2013 at 5:51 pm

    om mw nanya ni..
    gimana ya coding untuk mengubah kalimat proposisi menjadi ekspresi logika.,

    contoh1 :
    input : “jika ayah dan ibu pergi maka adik juga pergi”
    output : “P^Q->R”

    contoh 2
    input : jika suatu bilangan habis dibagi 2 maka bilangan itu genap
    output : P->Q

    mhon pencerahannya om..

  343. Zuhra
    December 16, 2013 at 7:58 pm

    Assalamu’alaikum..
    Om admin..
    Saya mau tanya,bgmna melakukan segmentasi pada citra mata utk mndpatkan hanya bagian iris nya saja..
    Mhon bantuannya om..

  344. joko
    December 21, 2013 at 5:09 pm

    Assalamu’alaikum..

    om,cara upload file csv to sql berdasarkan schema.ini gimana yaa..??

  345. obin
    January 16, 2014 at 4:36 pm

    om mau nanya dong,mohon bantuan nya bisa minta tolong kasi source code memanggil nilai matriks RGB dengan XML gk om?

  346. January 21, 2014 at 11:26 am

    misi gan kalo bisa di bedain gan ya program vb.6 sama yg vb.net biar gk bingung hehehehe

    • January 21, 2014 at 9:16 pm

      Kan sudah saya kasih tambahan info (VB .NET) atau (C#) selain itu ya VB 6

  347. cancer
    January 24, 2014 at 2:43 am

    mas, boleh sharing source program membuat aplikasi client server dengan vb 6 ato vb.net

    terima kasih sebelumnya..

  348. zoel
    February 14, 2014 at 4:17 pm

    mohon pencerahannya, Apakah SQL Server2000 dapat berjalan di windows server 2008 r2 ?. terima kasih atas penjelasannya.

    • March 4, 2014 at 9:50 am

      Belum nyoba langsung diinstall aja :D

  349. Anggi Dwi Fauzi
    March 12, 2014 at 1:28 pm

    assalamualaikum..
    om minta bantuanya saya lagi nyusun TA dan saya mencari cource code tentang penjualan pulsa menggunakan vb.net dan saya minta source codenya boleh ga om sakalian buat referensi buat saya kira-kira ada ga om tentang source kode penjualan pulsa menggunakan vb.net..
    mohon bantuannya om..

    • March 12, 2014 at 2:52 pm

      Sudahkah Anda membaca ini ?

  350. fitri
    March 12, 2014 at 2:47 pm

    permisi om, bisa bantuin source code untuk IP MONITORING, dimana hasil dari monitoringnya itu ditampilkan dengan kode warna merah dan hijau, dengan menggunakan tombol start dan stop untuk memonitoringnya. terimakasih om

    • March 12, 2014 at 2:53 pm

      Sudahkan Anda membaca ini ?

  351. fitri
    March 12, 2014 at 3:54 pm

    fitri :
    permisi om, bisa bantuin source code untuk IP MONITORING, dimana hasil dari monitoringnya itu ditampilkan dengan kode warna merah dan hijau, dengan menggunakan tombol start dan stop untuk memonitoringnya. terimakasih om, dengan menggunakan Visual Basic

    • mirza
      March 21, 2014 at 9:06 pm

      Wah saya pernah buat tuh, tapi lupa naro source nya dimana, adanya fie exenya aja.

      • March 22, 2014 at 10:07 am

        Saya juga udah pernah buat om, kodenya juga masih ada.
        Tapi males ngebantuin orang yang males berusaha

  352. March 13, 2014 at 4:32 pm

    master saya membuat aplikasi memakai vb6
    saya membuat print out dengan crystal report 8.5
    saya membuat print out untuk printer lx-300 dan dengan continues form
    saya buat dengan ukuran 10x10cm
    saya buat dan bisa dicetak dengan baik di tempat saya

    kemudian pada saat saya install di tempat lain
    hasil print nya kok jadi lebih panjang
    misal ditempat saya 1 halaman
    di tempat lain bisa 2 halaman

    saya sudah setting printer properties dan print managmentnya
    masih tetap begitu
    tolong di bantu
    terima kasih

  353. Djey
    March 16, 2014 at 1:04 am

    mas ada program perpustakaan menggunakan php gak?
    kalo ada share dong soucecode nya.

    • March 16, 2014 at 11:51 am

      Coba kesini om.

  354. januar
    April 13, 2014 at 12:04 pm

    mikum
    om numpang tanya nih
    om kalo sintak buat nyimpan dtpicker ke databese gmna ya coding nya om

    • April 13, 2014 at 1:22 pm

      Benarin dulu om salamnya.
      Agama jangan dibuat sebagai bahan bercandaan.

  355. ASD
    April 17, 2014 at 5:45 pm

    Om mau tanya forum ibego sekarang kemana?? apa ada forum lain untuk belajar vb?

    • April 17, 2014 at 6:54 pm

      Udah pindah kesini om.

  356. ASD
    April 18, 2014 at 3:26 am

    ooh jadi ke fb toh,, om untuk buat website seperti punya om gimana ya ? ane pengen buat nih yang yampilan awal keluar google langsung ada indexnya seperti source code,database,vb,pojok dakwah,firebird,inosetup . terima kasih

    • April 18, 2014 at 6:02 am

      Tinggal daftar aja om di wordpress.

      Untuk menu yg atas menggunakan Pages.

      Sedangkan utk content sebelah kanan menggunakan Widgets.

      Untuk menulis ya gunakan menu Posts

      Selamat mencoba :)

  357. April 18, 2014 at 9:03 am

    Mas,,,butuh bantuannya neh.
    Kebetulan saya lagi skripsi. Jd saya mau bikin program SPK pake metode AHP menggunakan VB. Naah,, di dalam AHP itu konsepx pake matriks mas.

    Jd, saya butuh bantuannya gimana cara menyelesaikan (operasi) matriks di dalam VB?

    Tlg ya mas :)

  358. April 18, 2014 at 9:06 am

    Mas,,,butuh bantuannya neh.
    Kebetulan saya lagi skripsi. Jd saya mau bikin program SPK pake metode AHP menggunakan VB. Naah,, di dalam AHP itu konsepx pake matriks mas.

    Jd, saya butuh bantuannya gimana cara menyelesaikan (operasi) matriks di dalam VB?
    dan bagaiman konsep databasex ??

    Tlg ya mas :)

    • April 26, 2014 at 9:25 am

      Belum pernah mempelajari algoritma AHP jd belum bs bantu :D

  359. May 7, 2015 at 2:41 pm

    Assalamualaikum.. Maaf pa, saya minta tolong bila untuk melihat scrip atau sintak yang berjalan di ip/atau di port untuk yahoo messenger seperti portmon untuk melihat at command modem. Terima kasih bila boleh saya minta nomor hpnya pa, nanti saya hubungi.. Terima kasih

  1. No trackbacks yet.
Comments are closed.
%d bloggers like this: