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# :
- Sistem Informasi Sekolah, artikel
- Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10, artikel1, artikel2
- Membuat sms gateway itu gampang, jangan dipersulit !!!, artikel
- Membuat Y!M Translator sendiri, artikel
- Animasi Teks, artikel
- Bola Mata, artikel
- Contoh Menu dengan Komponen VBSmartMenu, artikel
- Contoh Menu dengan Komponen TreeView, artikel
- Contoh Menu dengan Komponen vbAcceleratorExplorerBar, artikel
- Aplikasi chat 1, artikel
- Aplikasi chat 2, artikel
- Aplikasi winsock – contoh kasus akses data via internet, artikel
- Aktivasi Dongle 1, artikel
- Aktivasi Dongle 2, artikel
- Contoh membuat kelas sederhana, artikel
- Membuat Windows NT Service, artikel
- Menambahkan icon pada menu standar VB, artikel
- Membuat menu dengan 4 style, artikel
- Akses SP dan View, artikel
- Bermain-main windows service, artikel
- Membuat kalender nasional, artikel
- Membuat input hari libur, artikel
- Membuat laporan dalam format Ms Excel plus ada gambarnya, artikel
- Pengaturan Hak Akses Level Menu, artikel
- Mereset menu program, artikel
- Memanfaatkan library IKG untuk membuat aktivasi + keygen, artikel
- Menampilkan data dalam format grafik, artikel
- Mengeset properties MaxLength TextBox secara otomatis, artikel
- Membuat rumus penilaian dinamis, artikel
- Beberapa alternatif menampilkan file gambar via jaringan, artikel
- Cara mudah mencetak kode barcode, artikel
- Coding4Ever Advanced TextBox ( VB .NET), artikel
- Property Builder (VB .NET), artikel
- ExplorerBar Control for .NET, artikel
- Menyembunyikan tulisan MERAH di ActiveReports for .NET 2 SP 2, artikel
- Memadukan komponen MenuStrip dan ExplorerBar Control for .NET, artikel
- Mengakses database MySQL menggunakan C# bagian 1, artikel
- Mengakses database MySQL menggunakan C# bagian 2, artikel
- Beberapa alternatif mengosongkan TextBox (C#), artikel
- Tutorial Active Report bagian 1, artikel
- Tutorial Active Report bagian 2 – Grouping, artikel
- Tutorial Active Report bagian 3 – Sub Report, artikel
- Mengakses multi database dengan satu Namespace (C#), artikel
- Melewatkan data antar form (C#), artikel
- Implementasi konsep Data Access Object (DAO) di VB 6, artikel
- Tutorial Active Report bagian 4 – Membuat Report tanpa Database, artikel
- Membuat Wi-Fi Profiles sendiri (C#), artikel
- Tutorial .NET Remoting Part 2 – 4 (C#), artikel
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 1 – 3 (C#), artikel
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 4 (C#), artikel
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 5 (C#), artikel
- Aplikasi Antrian, artikel
- Disable/Enable Task Manager Windows 7 C# Edition, artikel
- Input data via grid, artikel
- The Power of Firebird Events (C#), artikel
- Database Firebird versi Embedded (C#), artikel
- ToDo List, artikel
- Dapper .NET Micro-ORM Part 1, artikel
- Dapper .NET Micro-ORM Part 2, artikel
- Dapper .NET Micro-ORM Part 3, artikel
- Entiy Framework Part 1, artikel
- Entiy Framework Part 2, artikel
- Entiy Framework Part 3, artikel
- Entiy Framework Part 4, artikel
- Entiy Framework Part 5, artikel
- Entiy Framework Part 6, artikel
- Entiy Framework Part 7, artikel
- SMS Gateway Edisi .NET Part 1, artikel
- Entiy Framework Part 8, artikel
- Membuat Laporan Crystal Reports .NET Dengan Model Data-Push, artikel
- Paket NuGet Yang Wajib Dicoba Bagian #1 – CrashReporter.NET, artikel
- Paket NuGet Yang Wajib Dicoba Bagian #2 – AutoUpdater.NET, artikel
- Membuat Jadwal Otomatis Backup Database
- Tutorial WCF Service Bagian #1, artikel
- Tutorial WCF Service Bagian #2, artikel
- Tutorial WCF Service Bagian #3, artikel
- Tutorial WCF Service Bagian #4, artikel
- Cara Mudah Mengelola Versi Aplikasi
- The Power of Visual Studio .NET Build Events Part #1
- The Power of Visual Studio .NET Build Events Part #2
- The Power of Visual Studio .NET Build Events Part #3
- Performance Test Menggunakan JMeter
- Online Backup Database, artikel
- Membuat Laporan Crystal Reports .NET Dengan Model Data-Push Bagian #2, artikel
- Menghilangkan Tab Main Report Pada CrystalReportViewer, artikel
- Pengembangan Aplikasi Real-time Menggunakan SignalR, artikel
- Pengembangan Aplikasi Real-time Menggunakan SignalR Bagian #2, artikel
- Menggunakan Objek Collection dan Transaction Pada Visual Basic 6, artikel
- Repository Pattern, artikel
- Repository Pattern Bagian #2, artikel
- Unit of Work Pattern, artikel
- Membuat User Function Library Pada Crystal Report .NET, artikel
- Unit Testing Menggunakan NUnit, artikel
- Coverage Testing Menggunakan NUnit, OpenCover dan Report Generator, artikel
- Integration Testing Menggunakan NUnit, artikel
- Integration Testing Menggunakan NUnit dan NDbUnit, artikel
- Persiapan Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Bagian #1
- Persiapan Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Bagian #2
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #1
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #2
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #3
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #4
- Build Otomatis Project Visual Basic 6 Menggunakan Jenkins
- Manajemen Perubahan Struktur Database Menggunakan Liquibase
- Membuat Log Aplikasi Menggunakan Log4Net
- Artikel dan source code lain segera nyusul … insya Alloh 🙂
Jika ada link yang tidak berfungsi mohon diinformasikan di bagian komentar, terima kasih.
>> Coding4ever's Blog << 
Tks Ya Mas..
BTW semua itu ada yg trial gk?
Trial g mana mas? inikan source code
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 😀
dtgg ya…;
secepatnya….thx b4
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
Tergantung waktu mas 😀
artikelnya bagus2, trimakasih sudah bagi2 ilmu 🙂
Oke sama2x 🙂
Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10
Thanks Berat,sangat berguna …mo buat server pulsa…..
Sama2x om, semoga sukses 🙂
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
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
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);
coba LINK ini mas
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..;
Sama om, sy juga lagi butuh bantuan 😀
Kerjaan enggak kelar2x udah beberapa hari enggak mood coding, kecuali coding 4 hobby 😀
Email : k4m4r82@yahoo.com
YM : k4m4r82 -> tapi jarang OL 😀
Baru masuk menu yg di sini, tp ko ga ketemu sistem perpustakaan ya Om… 😀 ?
lagi nyari neh(baca: ngarep) 😀
Ha ha ha 🙂 yg perpustakaan memang bukan open source om, cuma freeware. Jadi otomatis sourcenya enggak sy daftarin disini 😛
Tapi klo cuma mau file setupnya bisa didownload diSINI
salam kenal buat semuanya para guru2. bisa tolong kirimkan source kode vb 6.0 untuk monitoring layar client.mhon blsnnya
Mungkin mba bisa coba link INI
mas tolongin saya bikinkan cara membuat file checklist dan nonchecklist dengan 1 tombol saja…. makasiii
Sy kurang paham dan baru tau klo ada “file checklist dan nonchecklist”, mungkin pertanyaan diperjelas lagi.
mas, Mesin Penjawab Otomatis Y!M Versi 8, 9 & 10 cara menggunakannya gimana ya?
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 🙂
Mas ada contoh buat aplikasi arsip digital dengan vb6
dengan viewer gitu…..
Maksudnya viewer apaan nih ? viewernya active report/crystall report gitu ya ?
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…..
Enggak pa2x om yg penting udah dapat pencerahan 😀
Wah desain program saya udah mentox om :D, kan bisa dilihat dari aplikasi freeware yg saya upload diblog ini.
mas, untuk sistem informasi sekolah programnya perlu dimasukan user name dan password. saya coba-coba akses ga bisa. mohon bantuannya
Wah3x masnya terlalu bersemangat nih, harusnya baca PENJELASANNYA dulu baru download sourcenya 😀
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
Reportnya pake apa dulu om, DataReport, Crystall Report atw ActiveReport ?
Data Report
atau share lewat YM jg boleh mas e_12120_r@yahoo.com,hehehe….
that’s cool dawg!! haha
really like this..
tq om udah mampir 🙂
om… gw jalanin SisFoSiswa di Vista g jalan ya, padahal gw udh download tuh SmartMenuXP.dll nya.. napa ya om
Iya om library SmartMenuXPnya memang bermasalah klo di Vista, SmartMenuXPnya dihapusnya trus buat ulang menunya pake Menu Editor.
om..punya contoh penggunaan xtreeopt yang sederhana gak..
Justru itu udah sy sederhanakan om, coba deh bandingkan dengan source code aslinya disini, komplexan mana?
iya ya..ribetan yang aslinya… thanks om..saya pelajarin dulu deh..
oh ya..boleh minta contoh penggunakan datagrid, yang menginput datanya di dalam grid.
Klo datagrid sy udah enggak pernah make lagi, bukannya klo pake datagrid udah bisa langsung input di gridnya?
oo gitu ya..ok deh..
ada contoh program yg menggunakan vb.net gak ya
Disini banyak om
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.
amiin
Amin, tq om sy jadi terharu 😥
Ass …
Mas saya mw tanya …
jangan diketawain yah …
hehe 😀
low supaya spalsh screen tampil x agag lamaan ..
cara x gmana yah ??
coz yg bikinan saya cepet bgt tampilnya ….
Sy ketawain dulu ah ha ha ha 😆
Mungkin interval timernya aja om dinaikin
om guru…boleh minta contoh menyimpan gambar ke database sql server dan memanggilnya kembali ke dalam modul..
mohon petunjuknya
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 🙂
thanks ya om guru..semakin bergairah nih belajar vb nya saya
wedewww si om lagi bergairah :D, mendingan langsung vb.net aja om 😀
yup ini juga lagi sambil belajar vb.net..
btw, punya sample insert image to database vb.net yang menggunakan adodb gak om..
mohon pencerahannya
Coba ini om.
ada contoh restore database ke sql server gak om
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 ?
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
Disini om lengkap banget penjelasan backup dan restorenya baik via Enterprise Manager maupun via skip.
kok gak ada ya .. malah timbul pesan seperti ini :
Sorry, no posts matched your criteria.
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
Sama, tapi sory ya belom punya sourcenya 😀
Gan kalau cara membuat tombol save di VB 6 gimana????????
Download om contohnya disini.
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
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 😀
Barakallahu Fiikum
Jazakallahu khairan
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..
Oke om, jangan lupa sering2x mampir 🙂
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
ojo lali no yg bisa dihub. mas.
Sudah sy balas om 🙂
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? 😀 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..
Salam kenal juga om 🙂
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 😦
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..
Kan udah sy kasih gambaran disini om.
Mas Admin…tolong kasih pencerahan untk source code normalisasi matriks X dengan visual basic…( btw unutk hitung matriks bsa ngg pke MSFLexgrid )
Sory om sy lom ngerti teori matriks X nya 😀
Ini buat SPK ya?
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… 🙂
Yg jelas bisa aja om, cuma klo enggak ngerti teorinya ya susah ngecodingnya 😀
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
Belum tau sy om, coba langsung tanya ke pembuat smadavnya 😀
Satu lagi om jangan dibiasain minta dikirimin source code, belum pernah sy ketemu programmer jago dari hasil dikirimin source code.
Peace 🙂
ok deh kk thx ia atas info nya….
maklum masih newbie mesti bnyak belajar nie…. ^_^
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 😀
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…
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… 😀
Saya juga bingung menyusun pertanyaannya :D, belum nyoba juga sih….masih sebatas nyari referensi dulu 😀
Selamat mencari om, klo udah ketemu dishare ya 😀
wow, terima kasih atas source codenya…
oke om sama2x
om, share source code vb.6 buat nampilin gambar dengan database mySQL donk!!,,..
matur thx, sebelumnya,,..
Coba artikel ini dulu om, yg dibutuhkan :
1. Referensi Microsoft ActiveX Data Objects 2.5 Library
2. MySQL ODBC 5.x
Selamat mencoba 🙂
Mkasih ya mas….
akhirnya aku bisa bikin sub menu untuk antivirus yg aku bikn…..
sekali lg mkasih bnyak ya mas…..
Oke om
mau nanya nih om guru. Gimana cara mengatur format numeric di vb.net di texbox
sebagai contoh : 6000 –>6,000
Mohon pencerahannya
Sama kayax di vb 6 om, pake fungsi FormatNumber. ex:
Selamat mencoba 🙂
thanks ya atas pencerahannya
Sama2x om
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
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 FunctionContoh penggunaan :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(GetHariIndonesia(DateTimePicker1.Value)) End SubSelamat mencoba 🙂
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 .
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 SubSelamat mencoba 🙂
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
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
thanks om. sorry. tadi pas nanya gak lama kemudian saya udah nemuin caranya..hehehhe maaf ya. thanks masukannya
Oke
Om guru.boleh minta contoh sederhana menampilkan data vb.net ke crystalreport. Databaenya sqlserver.
Mohon bantuannya ya
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 🙂
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()
sudah bisa om. ada koneksi yg belum dibuka. ada di eebooknya yg om kasih ternyata. makasih ya om..
Oke om sipppp 🙂
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
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 SubPagi 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..
Sory nih belum punya, coba request juga kesini.
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
Gimana mau ngasih pencerahan om, sy sendiri butuh pencerahann (mode “belum pernah make CR” on) 😀
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
wah kereeeeen!!!!
jarang sekali ada orang Indo yang membagi-bagi ilmunya secara cuma-cuma
teruslah berkarya sukses selalu 🙂
biasa aja lagi om 😳
om gurunya kemana ini yaaahhhh.. ga di balas eee…
Sory mba ema hari ni lagi sibuk ngajar, jadi belom sempat balas2xan 😀
Sy belum pernah buat, tpi ini ada link bagus lumayan buat nambah referensi.
ok.. trma ksih ya om guru.. akan sy coba.. kalo ad prtnyaan ntar sy tnya lg yaahhh,hehe..
ok 😀
Askum…
sumpah artikel agan keren” banget apalagi buat ane yg newbie…
Thank’s sangat agan…
keren”””””
LANJUTKAN!!!
Oke om tq udah mampir 🙂
Wah keren Source code nya mas.. minta ijin sedot
Oke om silahkan 🙂
om guru mnta alamat emailx doooonnnkkkk…
email saya emooolgpzink@ymail.com
thx yaaa..
gan tau nggak source code buat upload dan download file (pdf, jpg dan docx) di vb 6???
lau ada di posting yach gan…
Belum pernah coba om
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
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
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…
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
owh ok dech thanks gan atas infonya……..good Luck ya
Oke deh om, tq udah mampir 🙂
OIya gan kalo pake Winshok maksudnya gimana, apa tanpa winshok juga bisa kita koneksi client-server?..maaf ya gan banyak nanya…….,,,
Yg jelas bisa coba cari di planetsourcecode dengan keyword “winsock mulitple connection”
Om cara menyimpan lokasi server dan database sql server didi file text atw registry gimana
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 SubKlo dicek lokasi registrynya ada disini :
Untuk yang file sudah sy bahas disini
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
Amin 🙂
Coba meluncur ke sini mba
OM tau ga source code untuk me resize gambar di vb..
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 SubSelanjutnya tinggal ganti nilai 100nya itu mewakili nilai X, Y, Width dan Height
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…
om bisa coba Adobe Captivate
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
sy tambahin,agar tampilan child form ditengah,cukup disetting melalui properties,disana ada pilihan startposition,anda tgl pilih ingin centerscreen atau centerparent.trims, -gembelelits-
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..
Coba link dibawah ini om :
1. Winsock 1
2. Winsock 2
3. winsock 3
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
Sory om, sy udah lama enggak make crystall report, ini ada link ebook yang bisa om coba
1. Professional Crystal Reports for Visual Studio.NET 2nd Editon
2. Pro VS 2005 Reporting using SQL Server and Crystal Reports
Sy yakin setelah mencoba kedua ebook diatas om bakalan jadi master crystall report deh 😀
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.
🙂
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 SubBerdasarkan 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 🙂
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 🙂
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
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 ….
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.
Klo database client server di share dan yang lewat winsock lebih stabil mana mz??
masalah kestabilan koneksi n kecepatan transaksi……db access
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.
pak admin mo tnya,,pnya refrensi situs g buat bikin GPS lwat kartu GSM lacaknya??
Coba mampir ke blog dosen sy om
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
Sy udah lama enggak make Crystall Report, jadi coba ebook dibawah ini aja :
1. Professional Crystal Reports for Visual Studio.NET 2nd Editon
2. Pro VS 2005 Reporting using SQL Server and Crystal Reports
malam om admin btw saya mo cetak barcode dengan komponen TBarcode5 pakai crytal report data saya ambil dari database ada contoh projectnya g om??
Sy kurang tau klo menggunakan Crystal Report, tapi klo di Active Report bisa karena ada fasilitas untuk mengimport komponen ActiveX.
mz kamar mo tanya klo mo print text pada text box,, dengan jumlah yang kita ingginkan gmana y codingnya mz??thanx sebelumnya
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
Buat Label Harga + Barcode gtu
Komponennya belum mendukung om, tapi klo mau pake Active Report bisa cuma kekurangannya tidak bisa mengatur posisi barcode yang ingin dicetak.
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
Terima kasih om atas motivasinya, sy juga udah kehabisan suku cadang nih 😀 buat postingan terbaru 😀
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.
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)
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?
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
Kan sudah sy bahas disini om.
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
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.
wah makin pusing om 😛 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…
Klo konversi mata uang bukannya tinggal kali2x biasa aja om ? Kan enggak perlu perhitungan yg canggih2x 😀
Trus untuk fungsi terbilang juga udah banyak kok yg ngebahasnya coba deh googling dulu.
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. 😥
Dulu kayaxnya pernah nemu cuma lupa linknya 😀
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 🙂
Mas ada Source code membuat web dengan kombinasi html,php,css,dan jquery g?
Saya lagi belajar bikin web tolong bantuannya terimakasih…
Sory om klo pemrograman web bukan bidang sy mendingan nanya kesini.
mas admin,,,ada ga source code buat monitoring jaringan pake vb.net???please help me….
Maksudnya ngecek status pingnya ya om ? RTO atw replay ?
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..
Lohhhh bukannya udah dibahas disini om :D.
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…
Jadi newbie itu emg enggak enak ya om 😀
Bisa aja sih tapi.. butuh penyesuaian 😀
Cara ngetesnya gampang om buat aja project VB 6 trus dibuka pake VB 2008 atw 2010 kan entar keliatan kode hasil upgradenya
Coba main-main kesini om, mana tau dapat pencerahan.
mas klo mau rubah resolusi asli image ke lebih kecil gmn,ya mas klo d vb6
Klo ngerubah resolusi imagenya belum pernah sih om, tapi klo cuma ngecrop sih pernah coba
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
Coba dicek di menu Project -> Referencess
kayaxnya ada library yg kurang
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…
Waalaikumussalam
Ya jelas donk om, klo captchanya bisa dibaca entar enggak ada lagi donk yg mau make captcha
Permisi Mas numpang tanya yah 😀
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…
Mungkin bermasalah dihak akses om, coba setting User Account Controlnya diset “Never Notify”
mas maf mw tanya… ada source code program data mining gk? memakai vb6
Belum punya mba
mas klo source code vb6 buat ngbrouse or upload ada gk?
maf ya byk nanya
Nguploadnya via apa dulu nih ? http atw ftp ?
via ftp za mas….
truz klo mw melakukan perhitungan Logaritma gmn ya mas?
Assalamualaikum Pak Dosen, mohon bantuannya yah 😀
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.
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 😀
Terima Kasih Pak Dosen atas Bantuannya… Jangan Bosen membantu kami yang terkendala dalam mempelajari Coding yah.. 😀
Sama2x om 🙂
Justru masa2x awal belajar programming itu yg menyenangkan 😀
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…
Coba pake komponen ini om.
Mungkin file lagunya bisa disimpan di resource file, trus waktu event Form_Load tinggal panggil, untuk referensi coba kesini.
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/
mas kalo pakcing vb yang menggunakan crystal report knapa kok error
mohon pencerahannya
dan solusinya gimana
Sudah sy jawab disini, cek komentar no #318 dan #319
Mas, punya source code utk narik data mutasi klik bca gak? makasih sebelumnya.
Enggak punya om 😀
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
mas nanya untuk sisfo sekolah pembayarannya uda ada belom ya mas saya kepusingan neh gak bisa2 buat bantu dong mas
Belom, yg udah jadi tapi versi berbayar 😀
om nanya gimana cara koneksikan program dengan database mySQL? gimana setting mySQL ODBC di win7?
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.
Assalamualaikum. Balik lagi ni Pak Dosen, mohon pencerahannya 😀
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….
Wedewww panjang amat om 😀
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 uninsneveruninstall2. Belum ada
3. Gunakan komponen Microsoft Internet Controls
makasi Pak Dosen 😀
tanya satu lagi yah, eh 2 aja deh… 😀
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 😀 klo bisa aja kok)
1. Coba link ini.
2. Dulu pernah punya tapi udah enggak tau kodenya kemana :D, atau coba lini ini om.
aduh pak. itu Remote Desktopnya buat VB.Net yah? belum ngerti pak Dosen. yg vb 6 aja ada ga?
Ada cari sendiri pake goole 😀
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,
Dulu sy pernah coba, klo enggak salah pake komponen Microsoft Internet Controls
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 …
Dulu juga pernah coba setting port forwading pake modem speedy tapi gagal juga :D, kayaxnya sy cuma bisa bantu ngasih link aja nih 😀
1. Port Forwarding Guides
2. No-IP, nah klo yg ini buat menghandle ip dinamisnya
Selamat mencoba 🙂
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
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 FunctionPrivate 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 FunctionKemudian 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 SubKlo masih gagal juga harus dicek lagi nilai RemoteHost dan RemotePort harus sama dengan nilai LocalIP dan LocalPort pada aplikasi target.
Selamat mencoba 🙂
mantab bos…
Terimakasih.
Sama-sama om
source yang d deplhi’y donk gan,… 😦
Belum tersedia om 😀
mas numpang tanya. saya ngebuat barcode. tapi namanya panjang kesamping. kalo ditentuin carakternya biar gag panjang”, gimana ya? makasih sebelumnya.
Coba ke link ini mba, mana tau dapat solusi.
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
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.
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…
Klo via ftp sudah pernah sy bahas disini om.
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
😀
#vb 2008
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.
terus mas klo kita menggunakan flasdik, apa harus flasdisk yg baru mas?, maksudnya flasdisk yg tidak ada data satu pun didalammnya.
Pake flash disk bekas juga bisa, ada isinya juga gpp 😀
ow, gtu y mas. makasih y mas udah bantu saya, tapi nanti klo saya ada kesulitan mohon bantuan mas lg ya?
hehehehehe….
😀
Oke klo msh bisa dibantu ya sy bantu, klo enggak kita serahkan kepada ahlinya 😀
heheheh,,,,
kan mas ADMIN ahlinya….
😀
he he he si om bercanda aj 😀
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…
😀
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 😀 n klo jam 12:00 otomatis shutdown.
Nah setting jam2xnya ini yg diambil dr database
ow, jadi cara mensettingnya gmana y mas?
😀
Lupa om, silahkan dicoba sendiri 😀
agan gmna ya pencarian data lalu hasil pencarian.a di tampilkan di msflexgrid..
koneksi databasenya sqlserver.
mohon pencerahannya.
trima kasih
Coba pelajari sample yg ada disini om.
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
Coba diiindex om field2x yg dijadikan kondisi di query reportnya
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
Klo satu udah bs belum om ?
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?
1. Lock Windows Desktop
2. Forms, Windows and Controls
bagus bangeett ..kereennn !!
Lanjutkaan ! 🙂
He he he ini pasti mba2x yg enggak sengaja nyasar kesini 😀
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..
Klo pake VB .NET udah pernah sy bahas disini om, toh sm aja mau pake VB .NET atau C#
mas admin, klo source code untuk antrian gmn yak..??
mohon pencerahan
Cek disini om.
Assalamu Alaikum…..
Source code buat jadwal jam kerja perbulan ada gak mas….?
Makasih sebelumnya…..
wassalam…….
Coba dicek disini om.
ijin sedot gan,,,
source code buat remote client sever untuk mengetahui aktifitas client ada ga?? bwt vb net,, terima kasih sebelum ny!!
Belum ada om
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.
ralat code:
Image1 = LoadPicture(“d:\gambar.jpg”)
Coba cek kedalaman warna gambarnya om, klo enggak salah komponen image/picturebox VB 6 hanya mendukung sampai 24bit color
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…..
Nah itu harusnya udah case closed nih 😀
makasih mas atas solusinya, akan saya dulu.
Oke om sippp
misalkan ada kirim ke email saeful_marif@yahoo.com!!
makasih mas,,
mas admin, klo souce code untuk bel otomatis gmana ya?
mohon bantuan mas admin
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.
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..
😀
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.
okay makasi y mas admin, sya bakalan gabung..
😀
Oke om sipp 🙂
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..
Itu resiko klo mendevlop aplikasi berbasiskan dot NET 😀 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
2. Kemudian untuk aplikasi tinggal baca key diatas (sample skrip c#)
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 🙂
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?
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
Maksudnya g mana ya om ? Jadi ikutan bingung 😀
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,,,,,:-))
Coba pelajari dulu 2 postingan sy dibawah ini :
1. Mengakses database MySQL menggunakan C# bagian 1
2. Mengakses database MySQL menggunakan C# bagian 2
Mana tau entar bisa buat sendiri 😀
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)
jadi tampilannya seperti ini klo dah terpisah……
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 SubTinggal dikembangin sesuai kebutuhan 😀
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…
Halah kok malah jadi ngerjain tugas anak kuliahan gini 😀
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 FunctionPrivate 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 Subterima kasih banyak kak.
hehe… heheheh… hehehhehe saya anak sekolahan kak, bukan anak kuliahan. insya Allah tahun depan statusnya menjadi anak kuliahan. Insya Allah amin. 😀
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
Krennn anax sekolah mainannya udah ginian, sipp dah lanjut 😀
Tapi kok sy merasa seperti ditess 😀
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 itapi 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
Klo gini bisa enggak ya ? 😀
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 SubNgeri juga ngeliat anak sekolah skrg (klo benar sih :D)
heheheheh
klo nira gak ada apa2 kak….
lah, teman2 nira mainnya C/C++ lebih pusing lagi tuh…… 😀
Anak sekolahan pada belajar Vb, C/C++ emg buat apaan sih? Setau sy klo matapelajaran TIK enggak nyampe sini ?
CMIIW (maklum bukan guru :D)
om klo coding cari untuk mnampilkan datagrid tu gmna…???
mhon bantuanNya…mkasih
Nah disini ada contoh lengkap om, silahkan dicoba dulu 🙂
heheheh ini dia repotnya ngobrol dengan pengajar hampir rata-rata gak ada yang percaya
pkoknya makasih banget kak atas bantuannya 😀
oh iya kak, ada FB gak??
He he he sy enggak punya FB 😀
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
Pake solusi yg disini aja om.
mas mohon bantuannya yaaa 🙂
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 😐
* 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
* 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)))
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 Functionmas ngga bisa juga, slalu ada tulisan missing),],or item in query expression’month((ta_penjualan.tgl_Nota=1))’. 😦
Emg databasenya pake apa om ?
haloo mas bisa nggak bantuin saya
kalo caranya buat tombol save itu gimana misalnya saya mau buat program pendaftaran kursus koputer
Coba dimulai dari sini om.
Mas Ada Contoh Project Sitem Keamanan Program Visual Basic Gak….
Enggak ada om
source kode spk tentang penentuan harga cetak
Wani piro ? 😀
tanya lagi kang 🙄 😆
klo mau buat rekap data seperti ini:
dengan sumber datanya seperti ini:
kayak mana kang?? ❓
:
Rancangan tabelnya belum normal om, dinormalin dulu lah biar querynya gampang 😀
Itu kena kaidah normalisasi pertama enggak boleh ada “multi value” dalam satu field 😛
Tapi aslinya sih tetap bisa utk membuat rekap seperti yg dimaksud
iya sih kang, emank belum normal..
itu data langsung di ambil dari tabel sms masuk……
jadi gak ada filterisasi tabel lagi…. (hadoh.. 🙄 hadoh.. 🙄 bahasanya tinggi amat nih
)
ada solusi biar bisa buat rekap seperti itu kang? 💡 ❓
Kayaxnya sih bakalan panjang nih om klo full coding, soalnya pake acara sorting segala 😀
aw.. aw… aw.. aw…
klo bisa lewat email kang…..
bisa gak?? 🙄
Emmoh, lagi males coding ha ha ha 😀
wadoh… wadoh.. wadoh… 🙄
tapi, alhamdulillah berkata kata kunci “sorting” akhirnya dapat dikit jalan keluar 😉 😉
makasih banyak kang 😀
Alhamdulillah enggak jadi deh tak email
iya kang….
nanti aja dah tak minta emailnya kalo emank dah mentok 😉
biar tak coba dulu nih…. 😆
Oke deh sipp, dua jempol buat si om 😀
gan, email / ym nya apa ane mau belajar ini :*
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.
Iya om akun 4shared sy lagi bermasalah, lagi cari lokasi baru nih 😀
minta email antum dong .
pm ke ane yah is_smile182@yahoo.com
Email : k4m4r82@yahoo.com
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
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 FunctionCara penggunaan :
Mas, Maksud saya Rata Kanan, Bukan Center. Yang itu hasilnya kok Center
Coba test print yg ini aja, hasilnya rata kanan enggak :
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.
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
Mmm gt, coba dikonversi ke string dulu om
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
,,,,,,,,,,,
Selain Cara itu ada ga….?
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 SubContoh diatas menggunakan printer LX-300 dan port printer LPT1
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.
Mungkin bisa coba Active Report om :
1. Tutorial Active Report bagian 1
2. Tutorial Active Report bagian 2 – Grouping
3. Tutorial Active Report bagian 3 – Sub Report
4. Tutorial Active Report bagian 4 – Membuat Report tanpa Database
mas admin sya mau nanya, perintah VB direct print yg berfungsi untuk memotong kertas nota pada printer auto cutter apa ya mas ? trims b4 🙂
oh iya sya menggunakan printer merk Star TSP 100
Coba pake ini :
Untuk referensi kode yg lain bisa dicek disini.
Sama ini mas, contoh program pemanggilan kode pakai barcode, bagaimana yah…? cara membuat programnya..
hehehe
Diatas kan ada sample program barcode om, cuma utk sementara link download sample lagi enggak aktif 😀
Mas, kalau membuat laporan untuk truk pakai ketas kecil gulung, pakai Crital Refort. Bisa ga yah… caranya gimana.
ada ga simple nya….
di tunggun….
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.
Mau Tanya, Kalau database SQL Server pingin di pasword gimana caranya, saya udah kotak katik, masih ga ketemu. Please… help
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
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.
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.
Oh… gitu.
mas mau nanya lagi kalau ‘Enterprise Manager’ tanpa di instalkan, ada ga cara lain, lewat kode vb langsung, seperti Database Access.
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.
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…?
Coba pake Microsoft Loopback Adapter
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
Coba font formnya diganti Courier New om 😀
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 ?
Yg kasus cetak nota om juga bisa diset fontnya menggunakan Courier New
Oh.. gitu
Nah, Sekarang Untuk menjadi “Center” Gimana ?
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 Functiontrus tinggal coba seperti ini :
Private Sub Command1_Click() Dim txt As String txt = "Ini sebuah text" Me.Print rataTengah(txt, 50) End SubJika hasilnya kurang pas ditengah silahkan bereksperemen dg mengganti nilai 50nya 😀
Sip….
Saya udah bisa membuat Laporan Penualan. Bentuk Struk Minimarket
Makasih banyak. Ya..
Oke om sipp manteb 😀
met mlm om, saya mau tanya tentang dongle ne.
setelah saya download code dari om, cara menampilkan form nya gmana om?
Dicontoh donglenya kan memang enggak pake form om, formnya om tambahin sendiri sesuai dg kebutuhan
iya om, uda sibuat, cuma klo di jlnkan formnya gak bisa muncul, dan tidak terjadi apa-apa. itu gmana y om?
😀
di breakpoint dulu aja om alur programnya biar gampang ngedebugnya.
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
Kayaxnya sy cuma bisa bantu dg link nih 😀
1. Compare Two Images, Looking for Changes
2. Compare two images to find differences in VB .NET
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
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 Subom … 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
Coba atur properties CopyLocal menjadi true untuk semua library crystal reportnya
Lihat gambar
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??
Ada contoh gambarnya enggak om ?
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 🙂
Kan udah ada samplenya disini, tinggal dipelajari dan dieksplorasi
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.
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.
Mungkin seperti ini om :
Terima kasih Mas, udah jalan fungsinya.
Gan request materi tentang pembuatan software karaoke dunk beserta contoh source code nya ,thanks 🙂
Wah om admin disini katanya enggak membahas kode lengkap om, cuma cuplikan saja 😀
oh iya gpp Om Admin cuplikan jga tdak apa, soalnya saya blank tentang pembuatan software karaoke
Klo gitu sama donk om, karaokean aja sy enggak pernah, apa lagi buat softwarenya 😀
Salam Om Admin, mw nanya kalo blajar Java u. pemula bagusx mulai darimana yah?
Ya mulai dari dasar dan memang sedikit membosankan, tapi disinilah mulai proses seleksi alamnya 😀
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 …
So happy coding… 🙂
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…
Klo gitu coba praktis2x aja kayaxnya udah ada yg buat tutorial pemrograman java dari yg fundamental sample pembuatan aplikasi database, coba aja deh digoogling.
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
Waalaikumussalam
Mungkin dicoba sendiri dulu aja om, sy pernah posting membuat report dalam bentuk grafik disini mana tau bisa ngasih pencerahan.
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.
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.
Emg query yg om pake untuk komponen Adodcnya gimana ?
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…
Harusnya enggak ada yg aneh cuma tinggal ngikutin wizard yg ada, atau coba disable dulu UACnya sebelum menginstall mysqlnya
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
udah dicoba belum login rootnya tanpa password ? trus om loginnya via command prompt atw g mana ?
udah coba om admin login tanpa passwor d CMD, pesan errornya msh sama, “Error Nr.1045 access denied…”
Install ulang om MySQLnya 😀
Uhh……. Gan, udah nginstal ulang ampir 50x dgn mySQL versi terbaru tetep aja erorx sama. Tolong Om…. !!!
Ya udah om PCnya dibawa kesini 😛
maaf yah om admin ngerepotin, domisiliku jauh d makasar. kalo deket pasti tak samperin…
Loh belom case closed toh om ? 😀
Coba baca artikel ini om.
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
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.
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
installer vb 6 dngan mysql maksudnya mas td he..
Klo mau yg gampang coba pake Package & Deployment Wizard.
lho it bsa d pake databse mysql ya mas, soalnya sya pakai itu pkai ms.acces mas
Klo utk database enggak ada masalah om, pokoknya bebas
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 . .
Buru2x buat sistemnya, ngidupin gas lpg aja sy enggak bisa 😀
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.. 🙂
Dicoba dulu query udah jalan belum ?
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
Sy belum pernah coba, kan di VB ada fungsi Replace mungkin bisa dicoba dulu.
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.
Klo tanpa database bisa disimpan di file biasa dengan format INI.
Trims Mas.
Thank’s ea,……
Sama-sama omm
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
Contoh yg direct print om :
Private Sub Command1_Click() Open "LPT1:" For Output As #1 Print #1, "tesss print" Close #1 End SubContoh diatas dg asumsi printer konek ke port LPT1
maz…kalo sistem informasi pengajaran form apa aja yaa yg dipakai???
sory om sy blm pernah buat jadi blm bisa ngasih masukan 😀
Mas admin ada referensi pembuatan aplikasi dengan fingerprint gk ? trims..
Tinggal beli aja finger printnya trus biasanya udah disediain SDK (library + sample program) dari vendornya.
mas…. mw tanyak source kode buat kalkulator biar bisa nampilin hasil dalam 12 digit angka….
Enggak punya om, emg yg udah om buat g mana ?
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.
Sy juga penasaran om, cuma :
1. sy enggak punya printer, mau make printer kantor buat testing g mana gitu 😀
2. D’oh pake acara nginstall adobe lagi 😦
Kesimpulan jadi males coba 😀
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.
Om mohon dibantu code untuk edit image
Coba disini.
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 😀
Klo ini ya harus manual om, didata dulu error number yg ada trus dibuatkan fungsinya.
Setau sy datagrid belum mendukung fitur ini (CMIIW), jadi solusinya ya menggunakan komponen lain seperti MsFlexgrid atau ListView.
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.
Coba link berikut om :
1. Error Handling In Visual Basic
2. Visual basic 6 error codes
3. Cara membuat Masing2x Coloum ListView Berwarna
4. Warna pada cell Listview
Makasi banyak om, yg ngewarnain MSflexgrid / listview mungkin sedikit mengerti jadinya, cuma yg pertanyaan pertama masi bingung saya om 😀 , gimana penulisan di codenya om, apa pake :
if (error = “sekian”) then msgbox (kesalahan terletak pada …..) end if
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 😛 karna harus mendata semua error number yg mungkin ada dan membuat translate ke bahasa indonesianya 😀
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 FunctionTrus 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 Subhehe 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 🙂
Oke om sama2x 🙂
om pernah tau kan Avigen buatan vb bego comunity ,, di situ ada barner yang di buat dengan vb ,, om tau ndak itu buatnya gimana ???
Mmmm lupa sy om 😀
Kan masih bisa didownload sourcenya di sini.
Asyik omm dah bisa buat , terima kasih link sorcecodenya…
Om bisa ga setting printer page layout mirror image menggunakan vb ?? cape muter-muter sama mbah google, mohon bantuannya, trims
Emg om ngeprintnya pake apa ? Objek printer bawaan VB, Data Report, Active Report, Crystal Report ?
active report… Om
Sy cek ternyata ada settingnya:
Tapi belum dicoba 😀
“ActiveReport1.PageSettings.MirrorMargins = True”
Sudah saya coba, Tapi belum bisa Hasil Cetakannya Mirror
Mohon Pencerahannya Om…………
Itu referensi tercerah yg sy dapatkan om, sy udah cek library ActiveReportnya yg ada kata2x “miror”nya ya cuma itu.
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 🙂
Wah sy belum pernah buat aplikasi game om, apa lagi yg game multi player 😀
Tetapi disini ada beberapa sample mungkin bisa dicoba 🙂
Pak saya penikmat POWERBUILDER apakah ada source untuk powerbuilder ?
Sayangnya sy penikmat yg lain om 😀
om gmn buat koneksi dari vb net ke printer mesin kasir
Coba baca artikel How to send raw data to a printer by using Visual Basic .NET
bisa dijelasin dikit gak mas @admin pertanyaan bg angga soalnya saya punya problem yang sama…
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.
mas mau tnya nie soal penghitungan denda perpustakaan di java….
kalo harus ada tabel hari libur itu logikany gmn ya mas??
msh bingung 😦
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 FunctionMas 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…
maaf pertanyaan ke 2 maksudnya errornya “tanggal kedatangan lebih kecil dari tanggal keberangkatan” 😀
Untuk yg pertama mungkin bisa menggunakan LEFT/RIGHT join
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 Submas 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
Si om aneh2x aja, emg harus gitu apa ? Seharian loh sy mikirin algoritmanya 😀 (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.
Haloo om ,, an mau tanya ginana caranya kita zoom in dan zoom out dengan vb 6, contoh kasus kita pake image koding ane gini
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..
Berhubung pertanyaan ini juga sudah ditanyakan di i-bego, jadi sy abaikan saja :D.
wh om jangan di abaikan ,, an butuh jawaban omm
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 SubTrus 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 SubTerima kasih Omm yang baik hati ,, atas solusinya.. Semoga mendapatkan balasan yang lebih baik dari Allah.
om nya lagi libur apa ya ?http://s0.wp.com/wp-includes/images/smilies/icon_smile.gif?m=1129645325g
Ya iya lah om, sy juga manusia 😀
oomm anak JS UGM ya
Bukan om 😀
omm masih di ugm ??
Sy itu bukan mhs ugm om, emg ada apaan sih om ?
mau merguru langsung om hee ,, tinggal di pogung kan biasanya orang UGM hee
Disini tu enggak ada guru dan murid om, yg ada share masalah dan solusi, jadi enggak perlu pake acara2x berguru langsung 😀
om mau tanya gimana cara move and drag command buton vb 6 pada sebuah form yang udah jadi .exe
Disini om ada pembahasan lengkap.
alhamdulillah lengkap omm makasih banyak
Oke om sama2x, jadi intinya semua permasalah programing itu sudah ada solusinya jadi tinggal kitanya yg harus pintar2x menggunakan keyword pencarian.
omm nanya lagi ,, semoga om nda bosen jawabnya ,,
om saya mau buat command1 bisa digeser 2 tapi malah yang geser formnya hee ,, gimana ya om
http://www.ziddu.com/downloadlink/19656762/geser.rar
yang ini aja om hee salah copas
http://www.ziddu.com/download/19656762/geser.rar.html
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 Subia omm lupa command1 malah form (me) heee, trima kasih omm
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
Sy belum pernah coba tetapi disini ada banyak sample yg bisa dicoba.
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.
Coba kesini om, ikuti saja langkah2x yg ada.
Ok mas dah bisa. ternyata perlu ada hotfixnya
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 ???
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
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 SubKemudian 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 SubSUPER 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.
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.
http://www.vbforums.com/showthread.php?t=232113
SaveSetting untuk menyimpan informasi ke registry windows, biasanya disimpan di bawah key.
Contoh hasilnya bisa dilihat disini
Klo GetSetting ya sesuai namanya untuk membaca informasi yg tersimpan diregistry windows.
okk omm Trima kasih banyak atas share ilmunya,, semoga ilmu yang dibagi tidak habis-habis..
He he he, tinggal dikit nih om 😀 (just kidding)
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 ????
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 Subprocwdure declaration does not match description of event
or procedure having the same name
munculnya ini om ??
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
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
Coba link ini om.
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
Duluuuuu banget waktu jaman2x kuliah bantuin skripsi teman, tapi udah lupa 😀
haha..
udah kesana kemari mencari contohnya
tetapi ternyata tidak ketemu
hahahahaha..
kalo ada referensinya om saya minta 😀
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
Waktu mau ngompile pilih menu File -> Make Project Group
Trima kasih om setelah itu di apain om ,, muncul tiga file
.dll
.exp
.lib
Loh kan ada ekstensi EXEnya juga om, tinggal dijalanin aja
Iya om jadi malu heee ”
Makasih omm admin
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?
Databasenya pake apa ? Soal beda database biasa beda fungsi kendalinya.
Om coba dulu kode berikut, hasilnya g mana ?
Private Sub Form_Load() MSFlexGrid1.Col = 1 MSFlexGrid1.Row = 2 MSFlexGrid1.CellBackColor = vbRed End SubKayaxnya sih pixel, klo sy sih enggak neko2x, untuk desain aplikasi pake ukuran resolusi standar 1024 x 768.
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?
Makasi Mas…. 😀
pesanya Error accesing the system registry,,
setelah klik ok
pesannya can not built because it references project C:\User\….. that has not been built
Di tempat sy normal kok, coba deh di copy ke drive selain C:\
ok omm,,, berhasil terima kasih
@Ahmad maaf nyerobot
Oke om sipp
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
🙂
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
……………
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 Subkalau 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 ?
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 FunctionUntuk 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 SubOk. 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 ?
Om Admin…, ini untuk rata kanan da kiri memformatnya bagaimana ??
Kayaxnya belum support
ok, tks om.
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 🙂 😀 🙂 😀 😉
Wah terlalu panjang om klo dibahas disini, kayaxy udah banyak buku2x yg membahas pembuatan aplikasi retail/pos coba dipelajari dulu.
om, ada tutorial aplikasi yang berbasis jaringan kah om
Postingan sy yg disini berbasis jaringan om.
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
Sory ya om, utk DataGrid sy sudah lama tidak menggunakannya jadi udah lupa 😀
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…. 🙂
Coba kesini om.
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 😀
terima kasih mas…..
Wah si om males cari sendiri, pada tinggal ketik keyword “visual basic 6 systray”, banyak deh sample2x salah satu contohnya disini.
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 ???
Waalaikumussalam
Private Sub Form_Load() For i = 0 To Picture1.UBound 'UBound -> menghasilkan index terakhir Picture1(i).Visible = False Next i End Subdeklarasikan terlebih dulu var indexArray
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 SubKemudian 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)
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 SubSukron omm ,, atas Penjelasannya
Semoga Ilmunya membuat bahagia dunia akhirat. Amin
http://www.i-bego.com/visual-basic/topic129.html
ndak aktif omm ?? apa udah tutup ya
Itu cuma kekurangan bandwidth om, kan pengunjungnya banyak, makanya om jadi Donatur, jadi jangan hanya bisa meminta (nanya) tetapi juga bisa memberi (donasi) 😛
om Mau tanya ada cara untuk proteksi aplikasi yang menggunakan Database MS akses ?
Kan udah ada fasilitas passwordnya
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
mas ada contoh pemprograman database client server menggunakan winsock pada vb 6.0 diclient ada tombol, insert,update,delete,search….terimakasih atas bantuannya…….
Coba disini om.
om gimana cara menutup(close/exit) program aplikasi lain dari vb 6?? misal aplikasi yang mau di tutup aplikasi notepad yang sebelumnya di buka
omm an dapet dari http://support.microsoft.com/kb/153463
di coba http://www.mediafire.com/?5ftbji2tbl6nkti
masih error ,, mohon bantuannya om..
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.
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 :
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..
Assalamu’alaikum
Terima Kasih om dah ketemu solusinya ,, pertanyaan di atas di abaikan saja
Waalaikumussalam
Ok om sippp 🙂
Bang, kak, om implementasi c# buat web sevice gmana ya?
Klo ini butuh satu postingan khusus om jadi enggak mungkin dijawab disini, jadi dicoba dulu aja link berikut :
1. Your first C# Web Service
2. ASP.NET Web Service
terimakasih om admin atas bantuannya…….
Oke sama2x om 🙂
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
Enggak punya om, di googling dulu ya 😀
om admin, mau bagi masalah nih.. maklum newbie 😀
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
Enggak ada yg aneh om kodenya, coba kode yg berhubungan dg TextBoxA dinonaktifkan dulu berjalan normal enggak ?
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:
Coba kode Call OpenDatabaseA() dan OpenDatabaseB() dipanggil di Form_Load trus nonaktifkan kode ConDBA.Close() dan ConDBB.Close()
mas ada source code vb 6.0 untuk mapobject gak?
Enggak ada om, sy belum pernah main2x map object
Makasi banget ya mas sudah posting blog keren gini. Tingkatkan berbagi ilmu.. Smoga Sukses ya..
Dua Jempol deee….
Sama2x om, sering2x aja mampir ke sini 🙂
om ijin Ctrl + D
Sippp
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
Oke sipp, case closed 🙂
klo membuat soal pilihan ganda pke acces dan vb ,,gmn?
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…
Terima Kasih Mas Admin sangat membantu sekali Tutorial dan contoh programmnya 🙂
assalamualaikum, mas bisa bantu untuk membuat sistem inventaris aset perusahaan???
mas anda punya contoh program QR Code Reader nggak
Om, nanya yah, klo ngedit Report yg tipe filenya RDF pake apa ya om? makasi atas bantuannya…
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
om, nuwun buat tutorial barcodenya..kalo saya mau buat nama diatas barcodenya gimana ya?
kasih tau dong om caranya.. nuwun sanget..
om, ada tutorial aplikasi jaringan (LAN) berbasis vb6 kah
trm’s ats tutorialnya,, sangat bermamfaat dan membantu..
mau na’a bos, gmn cara’a menampilkan angka 1 2 4 7 11 16 menggunakan for di source code,,,?
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..???
Om bagaimana contoh coding print dengan kertas 1/2 form continuous yang lebih dari 1 halaman di vb6.
Tks sebelumnya?
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
mas klau misalnya membuat peritungan matematika metode jarimatika menggunakan vb bisakah?
pak, ada kontak YM?
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
Emg nyobanya di YM versi brp om ?
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
Mana kode VB .NET yg udah om buat, baru kita cek bareng2x disini.
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
Klo CR sy enggak punya, jadi otomatis enggak bisa bantu ngetes 😦
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
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
Harus tau dulu om isi dari file textnya seperti apa
teriima kasih selalu om.
pengen bisa buat aplkasi YM tapi ga usah instal ym , mohon bantuannya om maklum ane masih belajar terima kasih sebelumnya..
mas cara buat mengitung poin di vb 6.0 kaya apa?
Poin apaan om ?
maksud nya score salah tulis
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
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.
Pertanyaannya kode aktivasi yg diinputkan disimpan di mana ? Di database, registry windows, file INI atau yg lainnya ?
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.
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 IfSelanjutnya tinggal dikembangkan sesuai kebutuhan
Selamat mencoba 🙂
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.
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 Subscore didalam permainan atau game? sekalian mau tanya tau gak caranya buat game matimatika untuk penjumlahan di gunakan di vb 6.0,?
mas klau misalnya membuat aplikasi pembelajaran perhitungan matematika menggunakan metode jarimatika menggunakan vb 6.0 bisakah? klau bisa ajarin dong om
Wah belum pernah nyoba2x yg itu om 😀
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 😦
Emg om menggunakan winsock utk koneksi klien dan servernya ?
ngga mas kali2 aja ngakalinnya pake winsock gitu, ada source get time server pake winsock tp itu nyamain sama server luar negeri
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
oke mas saya coba dulu yah
makasih mas…
mas balik lg yah 😀 fungsi SELECT GETDATE() itu masukin di table jg kah??
Emg databasenya pake apa ? Biasanya masing2x database punya fungsi yg berbeda
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?
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 FunctionEnggak perlu tabel lagi om, perintah “SELECT CURRENT_TIME” sudah menghasilkan kembalian berupa Recordset jadi sama seperti melakukan perintah SELECT ke tabel biasa.
Ass…
mas bagaimana ya pengaturan di crystal report untuk membuat raport siswa
Waalaikumussalam
Saya belum pernah make CR om, jadi belum bisa bantu.
Assalmulaikum wr wb…
admin, x program sistem informasi perpustakaan akademik gak ada ya??
saya ingin belajar bikin program itu.
Waalaikumussalam
Untuk referensi modul2xnya bisa dilihat disini, sisanya tinggal obervasi langsung ke objek akademiknya 😀
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..
mas ada nggak program remote acces vb.nya??? klo ada share donk ke arfiandiawal@gmail.com
Coba kesini om.
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…..
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
Enggak punya 😀
Enggak punya mba 😀
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
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
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….
gimana ya mas … caranya mengoptimalkan kinerja firebird superserver, soalnya koneksi user dikantor semakin tambah banyak..
Emg sebanyak apa om 😀
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
Tawaran yg mana ya ? 😀
cara masuk ke sini gimana caranya saya pengen nyedot tapi gak ngerti dan saya ingin belajar
Enggak perlu login, langsung sedot aja 🙂
Admin Orang Pintar yang baik..suka berbagi sesuatu tanpa komersial..semoga anda mendapat pahala yang mengalir terus..sepanjang masa..keren
Amin 🙂
om minta pecerahannya…kalo mau grouping data in datagridView menggunakan C# gmna ya om???
Emg grouping yg om maksud seperti apa ?
om boleh minta contact numbernya ?
saya lagy bikin tugas akhir program boleh minta bantuannya
terimakasih
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.
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
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.
ane OOT gan…
ada punya source code SPK berbasis web ???
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
🙂
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.
mas, saya mau buat program yang ketika dijalankan langsung tampil di monitor ke dua. kira2 source code nya bagaimana ya? terimakasih sebelumnya 🙂
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.
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 🙂
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
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 🙂
saya ada contoh programnya. mas email saya saja. nanti contoh programnya saya kirim via email 🙂
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.
Coba om pelajari postingan saya yang disini, disitu ada contoh mengakses ftp via VB 6, sehingga bisa disesuaikan dg kebutuhan om.
ada contoh coding buat searching file dalam c# gak bos?
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.
Aktifkan pilihan section Detail kemudian atur propertiesnya seperti gambar berikut :
Mas Admin, saya lupa. Saya buat laporannya pakai Active Report.
*Sambungan dari komen sebelumnya. Trims.
Oh iya Mas… saya lupa lagi. Bahasa pemogramannya vb 6.0 laporannya pake active report SP4. Mudah-mudahan ada pencerahan. Trims
Itu di atas udah sy jawab
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
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.
Belum pernah coba sih om, coba aja beberapa fungsi API disini mana tau ada yg cocok.
minta scribt menmpilkan matriks gambar mnggunakan vb 6 ada nggakyah?????
Enggak ada
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.
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
End if dan Next i tidak ada Mas, itu kelebihan saya ketik.
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 .
Untuk mengeset warna baris di gridview coba ke link disini.
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 😀
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);mas klo bikin laporan per shift ada ngga? saya masih bingung nich…thanks
Sy juga bingung
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
Sama sy juga bukan orang akuntansi jadi enggak tau, tapi klo buku yg membahas masalah ini banyak kok, contohnya disini.
makasih om infonya, sy tunggu jg mana tau teman2 yg lain bs bantu, terima kasih
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
Gunakan event click om :
Private Sub label1_Click(byval Index As Integer) Text1.Text = label1(Index).Caption End SubTerima 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.
Maksudnya gini :
Private Sub Label1_Click(Index As Integer) Text1.Text = "Label1(" & Index & ")" End SubSebagai 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 SubTerima kasih bannyak omm,, atas share ilmunnya
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
Gunakan objek Microsoft Common Dialog Control 6.x, contoh penggunaanya juga gampang.
Private Sub Command1_Click() CommonDialog1.ShowColor Me.BackColor = CommonDialog1.Color End SubUntuk nilai colornya bisa disimpan di registry windows, file INI atau langsung di databases
Terima kasih omm k4m4r82
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..
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 SubKode 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
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”
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.
Trimakasih banyak om Admin, Jangan Bosan-Bosan untuk membimbing kami…….LANJUTKAN!!
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.
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 Functionfungsi GetFileCount membutuhkan referensi Microsoft Scripting Runtime
selanjutnya tambahkan sebuah variabel
kemudian inisialisasi nilainya di event Form_Load()
terakhir ganti kode
menjadi
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
Tambahkan perintah CommonDialog1.FileName = “”
Terima kasih om ,, Ilmunnya bermannfaat bagi saya..
Semoga Allah memberi balasan yang lebih baik.
Sama-sama om 🙂
Amin
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
Waalaikumussalam
Dicoba dulu om, klo enggak jalan baru bertanya
halo admin, bisa kita konsultasi seputar qr-code vb.net ? kalo bisa sih lewat ym. smskan ymnya ya ke 08976934456
Sy pernah membahas tentang qr-code library disini.
Kalau coding tentang pengambilan keputusan ada gak mass??/
Kesini aja.
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.
Klo sy sih enggak pernah buat tentang aplikasi SPK dan juga enggak punya koleksi sourcecodenya
Ya dch om kalau gitu makasih
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
Bang admin saya harap bisa memberi jawaban setelah melihat file zoom.exe itu,, KAlo menggunakan visual basic 6.0 gimana ya bang
Coba kesini om.
OOT saya mas…
ada punya source code SPK berbasis web ???
jazakallah bang
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
Selamat Siang?, Blognya sangat membantu.
Pak Admin, Dimana saya bisa mendapatkan source code persediaan barang rusak?
Coba kesini om.
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
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 SubMkasih 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.
Coba main-main kesini om.
Makasih Om saya Coba Ternyata Bisa Makasih Atas Masukan nya om dan referensi nya om
salam sukses selalu om
happy coding
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
Aneh kok menampilkan form berikutnya di event TextChanged Textbox, kenapa tidak menggunakan komponen Button lagi ?
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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
wah hebat nih bro0 keren2 artikelnya ,, kebantu bgt buat tugas kuliah,, thanx bro0 😀
Sama2x
Senang bisa membantu 🙂
tolong bantu
cara menampilkan data pada datagridview yang di form1 dengan menginputkan data di form2
misi om, mau tanya, kenapa saat saya mau ngejalanin coding crystal report selalu muncul pesa “cannot open sql server” setiap saya panggil perintah cetak
gan numpang nanya cara buat minimarket dalam konsep fifo ( stok utama di keluarkan dahulu) keq gmna ya
Mas Admin,
Artikel2-nya sangat bagus dan informatif, kapan Mas rencana untuk update lagi informasi pemrograman di blog ini?
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..
Assalamu’alaikum..
Om admin..
Saya mau tanya,bgmna melakukan segmentasi pada citra mata utk mndpatkan hanya bagian iris nya saja..
Mhon bantuannya om..
Assalamu’alaikum..
om,cara upload file csv to sql berdasarkan schema.ini gimana yaa..??
om mau nanya dong,mohon bantuan nya bisa minta tolong kasi source code memanggil nilai matriks RGB dengan XML gk om?
misi gan kalo bisa di bedain gan ya program vb.6 sama yg vb.net biar gk bingung hehehehe
Kan sudah saya kasih tambahan info (VB .NET) atau (C#) selain itu ya VB 6
mas, boleh sharing source program membuat aplikasi client server dengan vb 6 ato vb.net
terima kasih sebelumnya..
mohon pencerahannya, Apakah SQL Server2000 dapat berjalan di windows server 2008 r2 ?. terima kasih atas penjelasannya.
Belum nyoba langsung diinstall aja 😀
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..
Sudahkah Anda membaca ini ?
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
Sudahkan Anda membaca ini ?
Wah saya pernah buat tuh, tapi lupa naro source nya dimana, adanya fie exenya aja.
Saya juga udah pernah buat om, kodenya juga masih ada.
Tapi males ngebantuin orang yang males berusaha
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
mas ada program perpustakaan menggunakan php gak?
kalo ada share dong soucecode nya.
Coba kesini om.
mikum
om numpang tanya nih
om kalo sintak buat nyimpan dtpicker ke databese gmna ya coding nya om
Benarin dulu om salamnya.
Agama jangan dibuat sebagai bahan bercandaan.
Om mau tanya forum ibego sekarang kemana?? apa ada forum lain untuk belajar vb?
Udah pindah kesini om.
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
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 🙂
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 🙂
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 🙂
Belum pernah mempelajari algoritma AHP jd belum bs bantu 😀
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