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# .NET :
- 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# .NET), 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# .NET), artikel
- Melewatkan data antar form (C# .NET), 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# .NET), artikel
- Tutorial .NET Remoting Part 2 – 4 (C# .NET), artikel
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 1 – 3 (C# .NET), artikel
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 4 (C# .NET), artikel
- Aplikasi Antrian, artikel
- Disable/Enable Task Manager Windows 7 C# Edition, artikel
- Input data via grid, artikel
- Artikel dan source code lain segera nyusul … insya Alloh
Jika ada link yang tidak berfungsi mohon diinformasikan di bagian komentar, terima kasih.
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
, 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
, 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
)
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…
, belum nyoba juga sih….masih sebatas nyari referensi dulu 
Saya juga bingung menyusun pertanyaannya
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
.
Contoh MySQL dan coba fokus dulu kesatu database ini untuk beberapa waktu sampai om siap utk berpindah kelain hati (halah
)
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
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
.
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…
klo bisa aja kok)
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
1. Coba link ini.
, atau coba lini ini om.
2. Dulu pernah punya tapi udah enggak tau kodenya kemana
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
, 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
.
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
.
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??
http://niracekci.files.wordpress.com/2012/03/read-digit.png
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:
http://niracekci.files.wordpress.com/2012/03/read-digit-new.png
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
)
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
)
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
.
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:
https://lh6.googleusercontent.com/-jZ1tPQ2CIhM/T3ZgsRyu0ZI/AAAAAAAAAKo/6FNcDgwuiTo/s509/rekap.jpg
dengan sumber datanya seperti ini:
https://lh6.googleusercontent.com/-tTsjuat_q2w/T3Zgre8-9oI/AAAAAAAAAKg/kBkVIrBshGI/s514/data.jpg
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
… 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.