Belajar Winsock bagian akhir – Contoh kasus mengakses data stok barang dari luar
Akhirnya rilis juga artikel terakhir dari 5 seri belajar winsock ini, sebelum kita melanjutkan pembahasan ada baiknya kita melakukan sedikit review :
- Dasar-dasar penggunaan winsock sudah kita pelajari
- Ini terbukti dengan suksesnya kita membuat aplikasi chat sederhana
- Di tambah lagi ada teman kita yang mau nebeng sehingga terciptanya aplikasi chat multiple connection
- Jalan tol antara laptop mas Paijo dan komputer server tokonya juga udah selesai dibangun dengan anggaran 0 Rp 😀
Berarti sekarang waktu yang tepat untuk mencoba ketangguhan mas Win (maksudnya Winsock :D) kalo lari jarak dekat (jaringan LAN) masih bisa diandalkan, bagai mana dengan lari jarak jauh (via internet) apakah juga masih bisa diandalkan ?
Objek-objek yang akan dijadikan korban untuk uji coba kali ini :
- Database barang dengan format ms access
- Aplikasi server
- Aplikasi klien
Data yang dikirim dari server dibatasi maksimal 1024 karakter dalam sekali kirim, otomatis jika data > 1024 akan dipecah menjadi beberapa paket, berikut cuplikan kodenya (server) :
Option Explicit Private Const LOCAL_PORT As Long = 1007 Private Const REC_SPR As String * 1 = "|" 'separator baris Private Const FLD_SPR As String * 1 = "#" 'separator kolom Private Const MAX_LIMIT As Long = 1024 '1x kirim dibatasi 1 kb, kalo untuk jaringan lokal masih bisa set 4096 Private Function pembulatanKeAtas(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double Dim temp As Double temp = Int(X * Factor) pembulatanKeAtas = (temp + IIf(X = temp, 0, 1)) / Factor End Function Private Function getDataBarang(ByVal param As String) As String() Dim rs As ADODB.Recordset Dim div As Long Dim lengthData As Long Dim n As Long Dim i As Long Dim tmp As String Dim arrTmp() As String strSql = "SELECT UCASE(nama), harga, stok FROM barang " & param & "" Set rs = openRecordset(strSql) If Not rs.EOF Then For i = 1 To getRecordCount(rs) tmp = tmp & rs(0).Value & FLD_SPR & rs(1).Value & FLD_SPR & rs(2).Value & REC_SPR rs.MoveNext Next i If Len(tmp) > 0 Then tmp = Left(tmp, Len(tmp) - 1) 'karakter ~ sebagai penanda awal dan akhir data 'untuk memudahkan pengecekan di klien bahwa data yg diterima sudah lengkap/belum 'ex : ~DATA BARANG + SEPARATOR KOLOM DAN BARIS~ 'contoh format data disini ada 2 : '1. jika data <= 1024 karakter : ~~DATA BARANG + SEPARATOR KOLOM DAN BARIS '2. jika data > 1024 karakter : ~DATA BARANG + SEPARATOR KOLOM DAN BARIS~ If Len(tmp) > 0 Then tmp = "~" & Left(tmp, Len(tmp) - 1) & "~" If Not Len(tmp) > MAX_LIMIT Then tmp = Left(tmp, Len(tmp) - 1) tmp = "~" & tmp End If lengthData = Len(tmp) If lengthData > 0 Then If lengthData > MAX_LIMIT Then 'data > 1024 karakter 'data dibuat menjadi beberapa package 'ex : jika jumlah karakter 2345 ' package 1 -> 1024 ' package 2 -> 1024 ' package 3 -> 297 ' berarti data yg dikirim ke klien sebanyak 3 x div = pembulatanKeAtas(lengthData / MAX_LIMIT) ReDim arrTmp(div) n = 1 For i = 1 To div arrTmp(i - 1) = Mid(tmp, n, MAX_LIMIT) n = n + MAX_LIMIT Next i Else ReDim arrTmp(0) arrTmp(0) = tmp End If Else ReDim arrTmp(0) arrTmp(0) = tmp End If Else ReDim arrTmp(0) arrTmp(0) = "EOF" 'data barang tidak ditemukan End If Call closeRecordset(rs) getDataBarang = arrTmp End Function
pengiriman data ke klien akan dihandle oleh event DataArrival :
Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim i As Long Dim strData As String Dim ret As Boolean Dim arrTmp() As String 'On Error GoTo errHandle ' Grab the data from the specified Winsock object, and pass it to the parent. Call Socket(Index).GetData(strData) DoEvents arrTmp = getDataBarang(strData) For i = LBound(arrTmp) To UBound(arrTmp) If Len(arrTmp(i)) > 0 Then ret = send(Index, arrTmp(i)) Next i Exit Sub errHandle: Call Socket(Index).Close End Sub
sedangkan untuk aplikasi klien bagian yg bertugas menerima data masih di event yang sama yaitu DataArrival :
Private Sub Socket_DataArrival(ByVal bytesTotal As Long) Dim dataMasuk As String 'On Error Resume Next Socket.GetData dataMasuk If Left(dataMasuk, 2) = "~~" Then 'package data <= 1024 Call execOutput(dataMasuk) ElseIf dataMasuk = "EOF" Then 'data tidak ditemukan Call execOutput(dataMasuk) Else 'package data > 1024 'berikut kode untuk penggabungan package data tmp = tmp & dataMasuk If InStr(1, dataMasuk, "~") > 0 Then packageHdr = packageHdr & "~" If Len(packageHdr) = 2 Then Call execOutput(tmp) 'penggabungan package data selesai End If End Sub
dan ini prosedure yang bertanggung jawab untuk memparsing data dan menampilkan ke ListView :
Private Sub execOutput(ByVal data As String) Dim rec() As String Dim fld() As String Dim x As Long Dim noUrut As Long On Error GoTo errHandle Screen.MousePointer = vbHourglass DoEvents If Left(data, 2) = "~~" Then 'complete data = Replace(data, "~~", "") ElseIf data = "EOF" Then 'do nothing Else data = Left(data, Len(data) - 1) 'remove ~ left data = Right(data, Len(data) - 1) 'remove ~ right End If lsvBarang.ListItems.Clear If data = "EOF" Then Screen.MousePointer = vbDefault MsgBox "Data barang dengan keyword '" & txtNamaBarang.Text & "' tidak ditemukan", vbInformation, "Informasi" Else 'contoh data : '~~SUSU KEDELAI ABC 200M#1000#24|SUSU KEDELAI MELILEA 500#1000#0|KOPI SUSU KPL API 3P#1000#0|SUSU KEDELAI ABC 200#1000#2 '| -> pemisah baris '# -> pemisah kolom rec = Split(data, REC_SPR) With lsvBarang noUrut = 1 For x = LBound(rec) To UBound(rec) fld = Split(rec(x), FLD_SPR) .ListItems.Add , , noUrut .ListItems(noUrut).SubItems(1) = fld(0) 'nama barang .ListItems(noUrut).SubItems(2) = FormatNumber(fld(1), 0) 'harga .ListItems(noUrut).SubItems(3) = fld(2) 'stok noUrut = noUrut + 1 Next x End With End If Screen.MousePointer = vbDefault Exit Sub errHandle: Screen.MousePointer = vbDefault End Sub
dan ini hasilnya
mas Paijo mengetikan keyword mie kemudian mengirimkannya ke server dan akan diproses dengan hasil rincian sbb :
- Jumlah record yang ditemukan sebanyak 181 record
- Jumlah karakter nama barang + harga + stok + seperator = 5084 karakter dan dikirim menjadi beberapa paket
- Hasil akhir klien juga menampilkan sebanyak 181 record, yang berarti bahwa uji coba kita berhasil 😀
Dan yang terpenting dari pembahasan ini, sample programnya bisa didownload disini 🙂
Selamat mencoba 🙂
Open Source Project
Kategori
- Continuous Integration (9)
- Database (21)
- Firebird (11)
- MySQL (4)
- SQL Server 2000 (1)
- SQLite (6)
- Freeware (8)
- Jaringan (2)
- Logger (1)
- NuGet (6)
- Testing (1)
- Tools Installer (8)
- Inno Setup (6)
- NSIS (2)
- Uncategorized (17)
- Version Control (1)
- Visual Basic (77)
- Active Report (4)
- Winsock (6)
- Visual Basic .NET (10)
- Visual C# (47)
- .NET Remoting (9)
- Dapper .NET (8)
- Entity Framework (9)
- WCF (1)
- Visual Studio .NET (7)
- Build Events (3)
- Software Testing (4)
Arsip
- July 2018 (1)
- September 2017 (1)
- August 2017 (2)
- April 2017 (1)
- January 2017 (2)
- December 2016 (2)
- November 2016 (1)
- October 2016 (1)
- September 2016 (3)
- August 2016 (1)
- July 2016 (3)
- June 2016 (1)
- March 2016 (1)
- February 2016 (5)
- January 2016 (4)
- October 2015 (1)
- July 2015 (2)
- June 2015 (4)
- May 2014 (1)
- April 2014 (3)
- March 2014 (9)
- June 2013 (1)
- March 2013 (1)
- February 2013 (2)
- January 2013 (2)
- August 2012 (1)
- July 2012 (1)
- June 2012 (1)
- May 2012 (4)
- April 2012 (1)
- March 2012 (2)
- February 2012 (3)
- January 2012 (2)
- December 2011 (3)
- November 2011 (3)
- October 2011 (1)
- September 2011 (2)
- August 2011 (1)
- July 2011 (2)
- June 2011 (4)
- March 2011 (2)
- February 2011 (2)
- January 2011 (4)
- December 2010 (7)
- November 2010 (3)
- October 2010 (3)
- September 2010 (3)
- August 2010 (4)
- July 2010 (3)
- June 2010 (5)
- May 2010 (4)
- April 2010 (8)
- March 2010 (12)
- February 2010 (9)
- January 2010 (23)
- December 2009 (10)
Artikel Favorit
- Menambahkan serial number pada paket instalasi (inno setup)
- Memanfaatkan library IKG untuk membuat aktivasi + keygen
- Membuat sms gateway itu gampang, jangan dipersulit !!!
- Pembuatan Aplikasi Client Server dengan Arsitektur 3-tier Part 1
- Input data via grid
- Source Code
- Belajar Winsock bagian 1 - Intro
- Membuat aktivasi dongle bagian 1 - Simple think
- Membuat aktivasi dongle bagian akhir – 1 dongle untuk semua
- Cara mudah dan gampang membuat aplikasi service dengan VB6
Artikel Terbaru
- Membuat jaringan VPN Menggunakan SoftEther VPN Bagian #1
- GitLab CI untuk .NET Developer Bagian #2
- GitLab CI untuk .NET Developer Bagian #1
- Membuat Service SMS Gateway Untuk Engine Gammu
- OpenRetail – Open Source Project for Retail Business
- Membuat Log Aplikasi Menggunakan Log4Net
- Manajemen Perubahan Struktur Database Menggunakan Liquibase
- Build Otomatis Project Visual Basic 6 Menggunakan Jenkins
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #4
- 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 #2
- Membangun Server CI (Continuous Integration) di Windows untuk Platform .NET Menggunakan Jenkins Bagian #1
Recent Comments
Blog Stats
- 1,135,242 hits
mas sharing filenya di indowebster aja ato klo metok2nya di ziddu aja
lemot bngt di 4shared…
btw, thanks berat atas ilmunya mas
tetap berkarya!!!
Oke mas Jimoe thank atas sarannya, akan saya pertimbangkan untuk mencari lokasi kos2xan yang baru 😀
Kalau saya, disimpan dimanapun OK. Trims atas file-filenya.
Oke sama2 mas 🙂
Mantep lah Kang! Lanjutkan! ^.^
Tapi,, ini kan di VB6 ya? kalau programnya VB. Net (05/08) bedanya apanya ya Kang? Jgn2 smwnya diganti,, coz kan beda bgt scriptnya juga,. Ada script VB. Net 05/08 untuk Winsock/cSocketMasternya gag Kang? Coz dpake bgt bwt project ne,, sya pakenya yg .Net soalnya,. Mkasih Kang!
Kan di VB.NET ada fitur upgradenya jadi tinggal open aja project vb6, walaupun hasil upgradenya enggak 100% berhasil jadi sisanya diedit manual terutama yang berhubungan dengan fungsi api.
Untuk referensi mungkin bisa baca buku UPGRADING Microsoft Visual Basic 6.0 To Microsoft Visual Basic .NET.
Selamat mencoba 🙂
Kalau konkesi menggunakan Internet VPN atau pakai IP publik so oke..bisa nggak om mengulas memakai dial up lewat jaringan telp, dengan asumsi sewaktu mengirim data dial terlebih dahulu..thanks berat atas infonya
Thank mas yudhi atas masukannya, sy mungkin agak kesulitan mencobanya karena belum punya perangkat telp rumah :D.
Trus mengenai dialup dulu ini, maksudnya seperti mau ngirim fax atau gimana? Pertanyaannya masih belum jelas.
Nice info mas…
Btw linknya dah mati mas, bisa upload lagi? thx before
Oke mas linknya udah aktif lagi, silahkan lanjut download
thx ya mas dah bagi2 ilmunya…
Oke sama2x
mas source code buat coneksi nya mana?????
Dicek aja om yg lebih teliti, yang jelas kode untuk koneksi winsock dan databasenya sudah ada di sample programnya.
mas, link untuk download source nya mati, bisa tolong d upload di server lain? saya sedang butuh untuk lengkapin modul tugas akhir saya, thank’s b4 mas.
Saya baru cek linknya berfungsi kok, silahkan dicoba lagi.
mas, saya sudah download sample winsock 4 nya.. thx,
mas saya mau tanya,kasus saya :
saya membangun program sistem rfid dengan vb6 database mysql dengan interface phpmyadmin. yang saya mau tanyakan :
apakah database pada satu node pc bisa digunakan oleh program pada pc lain? (pc terhubung ke jaringan).kalau bisa bagaimana cara koneksinya? mohon pencerahannya..sebelumnya saya sudah membuat koneksi vb dngan mysql tetapi pada computer yang sama.
Yang jelas bisa hanya saja privilage user mysqlnya harus diatur untuk bisa login dari pc lain, untuk masalah ini coba mampir ke SINI.
untuk koneksinya ya sama seperti konek lokal tinggal ganti attribut SERVERnya :
mas qu cuman mau tanya nih,,
program VB 6 qu ko komponennya banyk yg ga bisa ya, begitu ingin ku tmmbahin ke form malah muncul seperti ini:
“License information for this component not found.You do not have an aproppriate license to use this functionality in the design environment”
itu knp ya mas??
terima kasih
Penyebabnya bisa saja :
1. Waktu nginstall VBnya pake cd installer khusus VB, sy dengar cd installer khusus VB sering bermasalah sebaiknya pake cd installer Visual Studio
2. Nama komponennya apa ya? DBGrid bukan ? Klo iya coba cek file dg ekstensi .reg di cd installer vbnya trus dijalankan. File tersebut biasanya 1 folder dg file ocxnya.
mas makaasih banget buat artikelnya yah, sangat membantu dalam pengerjaan tugas saya.
nice info
Oke sama2x 🙂
mas saya mo tanya kalo membuat aplikasi chating multiprotokol menggunakan ajax gimana y?saya sudah banyak tanya ksana sini tapi banyak g msh kurang mngerti.klo mas tw gimana ya mas cara&scriptnya?.klo mo blz kemail saya jg gpp.makasih sbelumnya
Wah sory sekali mba, sy belom pernah coding menggunakan ajax.
Kebetulan proyek sy selama ini desktop semua 😀
artikel bagus & bermanfaat sy udah nyicipin…!! yach membantu lah..! tp kalo untuk kita bisa input barang yang baru kodenya gimana yach bos ??
Nyicipin, makanan kaleee he he he 😀
Konsepnya masih sama kok om, tinggal buat aja command/keyword khusus pada saat mengirim ke server. ex :
Nah di aplikasi server kan ada pengecekan data yang masuk, jika diawali dg keyword ins berarti perintah untuk menginputkan data baru (tentunya data diatas harus diparsing terlebih dulu).
Selamat mencoba 🙂
sampel codenya gak bisa didownload di 4shared mas…
bisa diupdate?
trims
Oke om tq infonya, silahkan dicoba lagi.
mas, thanks banget ea, kebetulan aq mw belajar bikin billing warnet, mungkin dengan winsock akan sangat membantu.
tapi mas klo ada boleh donk tutorial program billing warnet, klo bisa dari VB dan Delphi mas, aq masih newbie di dunia pemrograman, tapi mw belajar. hehe
nanti tolong dikirim via email ea mas, si_ip3y@yahoo.com
thanks info’y…!
sukses terus ea buat mas’y….
Masih newbie ya om ? Setau sy ilmu itu didatangi bukan mendatangi.
Ini ada sample billing warnet, silahkan dioprek.
Maaf Om… Koreksi Link donlot nya…
yang di atas gak bisa…
tapi sy nemu yg ini..
“www.4shared.com/file/Ss6tARNZ/Winsock4.htm”
Ok om, tq infonya
tapi udah sy coba masih linknya masih bisa kok
mas,,,mw nanya,,klu untuk menampilkan data pada klien,,tp dari Tabel yg berbeda,,,
yg ada skrng kan untuk cek stock barang [ mis. TBLSTOCK ],,,klu misalnya d tmbahkan untuk cek hasil penjualan [ mis. TBLJUAL ],,,g mna cara.x,,,? mohon bantuan.x,,,
thank’s b4…
Revisi aplikasi server :
1. Tambah fungsi baru di aplikasi servernya misal dengan nama getDataPenjualan yg tugasnya untuk melakukan query ke tbljual, jd om tinggal modif aja fungsi getDataBarang
2. Untuk event Socket_DataArrival, harus ditambahkan kondisi untuk mengecek perintah yg dikirim dari klien. ex :
Revisi aplikasi klien :
Waktu ngirim data ditambahkan keyword, misal :
1. untuk data barang : barang#datang barang dicari
2. untuk data penjualan : jual#tanggal1#tanggal2
Selamat mencoba 🙂
mas, mau nanya tentang winsock, kalau diimplementasikan di windows mobile apakah bisa running seperti running di desktop atau pakai komponen apa yang semacam winsock untuk windows mobile, terima kasih.
Malam mas,,sya mo tanya klo mo ambil jam dari server tapi DB pke MsAccess gmana y caranya at codingnya??n itu bebanin kinerja databasenya g??
Enggak usah dari aksesnya om, tinggal gini aja klo mau ngambil tanggal server :
btw code di atas pke componen Winsock mz??
Iya om untuk ngirim ke kliennya pake winsock, bukannya ini membahas winsock om 😀
mz ttp g bsa tu,, ada contoh projectnya g ambil timer server pke winsock??btw kmrn ak dah dpet artikel ambil timer dari server tpi timer pasiv n pke protokol UDP jadi msih krang memuaskan..sblmnya thanx y mz ats jawabannya
Jadi kyak contoh Winsock4,,Server Listening trus Klien yang aktif ambil data gtu mz
Dicoba dulu om semua artikel sy yg berhubungan dengan winsock, itu sudah mengcover semua pertanyaan om.
mas q mo tanya apa winsock di vb 6.0 untuk koneksinya memang terbatas untuk jaringan perr to perr apa nggak.klo enggak apa tolls tambahannya. bisa nggak q minta contoh pengujian tentang winsock di vb 6.0 klo bener2 hanya trbatas pada jaringan perr to perr.thanks sebelumnya.
Enggak om, yg penting komputer yg digunakan untuk mencoba program winsocknya harus sudah terhubung.
Si om sendiri lah yg harus nguji, contoh program sudah ada tinggal luangkan waktu untuk mencoba.
om mau tanya , kalau di buat user yang bisa di ganti settingan port dan ip addres nya untuk user, gimana cara nya yaa om??
mohon bantuan na…..
masih nyuuuwwwww… =D
mas kalo untuk membuat aplikasi chat gmna mas (misalkan bikin aplikasi chat fb / ym sendiri ) mohon pencerahannya ,, :))
Disini banyak contohnya om.
bagus sekali mas materinya, ada gak mas contoh aplikasi sederhana yang ada input, edit yang menggunakan fasilitas Winsock, baik dari sisi klien maupun server, terima kasih sebelumnya mas semoga sukses selalu
Coba ini om
mas kalo itu kan pake listview, kalo pake datagrid control gmn caranya om???
jadi di klien ntar pake datagrid plus bisa nginput data langsung???
:hope:
Klo datagrid control sy udah lama enggak make om, pake listview aja 😀
om, saya kan punya Acces Point dari TP-LINK, kalo pengen setting itu kudu konek via browser yg pake ip addres bawaan dari AP tadi..didalamnya ada data kayak SSID, SIGNAL STRENGHT, RANGE, CHANNEL de el el…lha saya mau buat aplikasi dari VB 6.0 buat baca semua data AP itu, tanpa harus masuk browser…caranya gimana ya om?? mohon bantuannya,
makasih banyak om..
Wah klo informasi ini sy benar2x blank om, cuma setau sy untuk akses hardware itu ada sejenis SDK yg sudah disediain oleh vendornya.
Coba aja om tanya ke agen reselernya mana tau ada (tapi sy sendiri kurang yakin :D)
Tapi coba aja link berikut om, mana tau dapat pencerahan :
1. Wireless Research API
2. Managed Wifi API
Om jujur aku blm ngerti dan paham masalah server dan klien boleh di katakan tdk tau sama sekali , dan terima kasih banyak buat om Admin lewat blog ini aku banyak belajar tentang pemograman khususnya vb6, klo kita dah buat Applikasi yg biasa berbasis database MySql dan pengen buat server dan klien … langkah2 yg harus kita buat apa saja … seperti konek ke server dan input data dari klien … dan terima kasih banyak Om Kamsiah….
Client/Server adalah arsitektur jaringan yang memisahkan client (biasanya berupa aplikasi desktop, web, mobile dan lain-lain) dengan server.
Aplikasi yang om buat menggunakan VB dan database MySQL itu sudah bisa dikategorikan dalam aplikasi client server meskipun baru 2-tier
Gambar 2 tier
Gambar 3 tier
Misal kita buat applikasi Admin tuk menampilkan semua data .. terus klo mau insert , delete , update dari clien gimana om ? apa kita harus buat applikasi seperti Admin jg ?
Nongol lagee nich mas. Sy pake logmein hamachi type mesh yang gratisan…. 😀 tapi kok lemooooooooootttttt banget, database pake mysql server 5. Kira kira nich ada gak cara atau data pump yang bisa dibuat untuk mempercepat akses klien ke server? matur nuwun…
Klo pake hamachi n langsung koneksi ke database ya lemot om, contoh diatas bisa cepat karena pake winsock.
Yg pernah sy coba pake webservice om jadi tidak langsung koneksi ke databases.
Atw coba buat server VPN sendiri pake openVPN
Sebaiknya pilihan yang tepatnya pake apa yah oom? winsock atau webservice ?
Eh ada om eka, g mana kabarnya ? Masih aktif aja di i-bego, klo sy slient mode dulu :D.
Tergantung om klo masih bertahan dan betah di VB 6 kayaxnya mau enggak mau tetap pake winsock walaupun ada library tambahan untuk VB 6 agar bisa mengakses web service.
Yg jelas klo untuk ngeload data dalam jumlah besar agak sulit menggunakan winsock, karna harus pintar2x mensplit datanya, tapi klo datanya masih sedikit ya winsock mungkin masih bisa menjadi pilihan 🙂
Hehehe, saya sehat oom, mudah-mudahan om juga sehat, kasian om para jawara gak pernah ada yang nongol di forum i-bego,
Memang pilihan terbaik NET yah oom ? dengan webservice-nya ? atau ada alternatif lainnya oom ?
Kan masih ada om eka jawaranya 🙂
Yg jelas sy sendiri sudah merasakan kemudahan coding di .NET (C#), jujur saja klo skrg coding pake VB 6 sering error (soalnya sering ketambahan karakter ; diakhir perintah) 😀
Klo di .NET sendiri banyak pilihannya om selain webservice bisa pake .NET Remoting atw WCF.
Apalagi setelah mencoba install VB6 di Windows 8 jadi banyak errornya :(, yg jelas pelan2x tapi pasti om kayaxnya harus diangsur migrasinya mulai dari skrg 😀
Halah si om ada-ada aja, ane aja sering ketemu banyak kutu busuk, mana bisa jadi jawara 😀
Ane tanya lagi om, maaf nih jadi merembet kemana-mana :D, kalau di sisi server sendiri sebaiknya yang benar-benar SO server atau SO selain serverpun tidak jadi masalah ?
Enggak harus pake SO Server om, yg jelas bisa diinstall IIS.
Sy udah coba di XP, Win 2000, 2003 Server, Win 7, 2008 Server
Hasilnya lancar 🙂
Mantabb, mulai terbuka nih gundah gulana ane oom 🙂
semoga masih on :D, Database yang digunakan yang hasilnya lancar jaya itu apa yah oom ? Access ? MSSQL ? MySQL ? atau yang lainnya ?
Untuk mysql dan sql server dua2xnya udah sy coba 🙂
Okke oom, dilanjutkan disini atau ditempat lain nih om diskusinya, soalnya ane masih banyak hal yang perlu ditanyakan,,, kesimpulan sementara yang saya ambil :”Jadi ngapain pake PHP kalau bahasa pemrograman desktop juga bisa” 😀
Setujuuuuu 🙂
Halah bilang aja males belajar pemrograman web 😛
Kapan2x deh, sy ingin membahas juga pembuatan web service dan mengaksesnya dari aplikasi desktop (C# edition) 😀
Insya Allah 🙂
Assalamu’alaikum om ,, mau tanya kalo buat auto update yang kaya program -program anti virus ( bisa otomatis cari file update dan langsung replace pada tempat instal ) dengan vb 6 gimana ya mohon pencerahannya.??
Wah klo ini sy belum pernah riset secara langsung om, mau ngasih pendapat juga takutnya malah jadi sesat dan menyesatkan :D.
Tapi disini ada pembahasan tentang pembuatan auto update program mana tau bisa ngasih pencerahan :).
Klo sy sendiri cuma memanfaatkan ftp service untuk melakukan update aplikasi secara otomatis, walaupun enggak canggih2x amat tetapi terbukti mempermudah sy melakukan proses update program :).
on An codingnya gini contoh mau update coding winshok dari blog ini. bisa replace langsung pada satu folder ,
saya ingin program bisa capture url secara otomatis kaya ” internet download manager gitu ,, gimana om ???
Belum pernah coba om, jadi sy bantu dg link aja 😀
1. VB 6 Webcontrol + get the URL of a link
2. VB 6 Webcontrol + get the URL of a link
3. Extract Links or URLs from A Web Page – Visual Basic 6 (VB6)
Ia om an malah tambah pusing dengan link 1 dan 2 di atas dan kalo yang 3 ini menyimpan url ke dalam text dokumen .
Pengenya an bisa kaya IDM heee
Ya udah kita tanya aja programmernya IDM 😀
omm mau tanya lagi ,,
gimana caranya agar form saat resize secara otomatis komponen toolboxnya menyesuaikan ,,
Coba pake komponen ini om, tinggal ditempelin di form.
omm ini aktiv x yang free hanya bisa digunakan max 20 command kalo lebih harus buy hee hee ,,
kalo yang algoritm punya ndak omm
Enggak ada om, sy enggak terlalu mikirin hal2x yg seperti ini.
yaa trims omm
Oke, sama2x om
mantep kang mas bro,,
Oke om bro, tq udah mampir
bang mo tanya bank.. saya udah nyoba transfer data cukup lumayan banyak sukses di localhost tapi kalo saya coba dengan komputer lain data bisa tampil tapi data yang tampil menjadi tidak beraturan.. pa yang menjadi penyebabnya.. mohon pencerahanya bang… makasih sebelumnya
Ya jumlah datanya dikurangi om, hasil uji coba sy diatas :
1. Untuk jaringan lokalan bisa mengirim sebanyak 4096 (4 kb)
2. Untuk jaringan internet sy kurangi menjadi 1024 (1 kb)
Mas Admin mau tanya supaya alamt servernya ke ip hamchi gimana ya caranya ..maaf newbie
saya ijin copy tulisan Anda dari latihan pertama sampai yg ini..plus ijin download contohnya ya mas
Mas, kalo koneksi winsock bisa sambung ke komputer di luar jaringan lokal kagak? mohon jawabanya.. Thx
Bisa om, bukannya disini udah saya bahas.
wah bagus sekali artikel ini, cocok dengan ane yang lagi pingin nyoba buat aplikasi game client/server. tapi ada yang mau ane tanyain om, kalau sudah sukses bikin login hamchi dan sudah bisa ping antar pc, pada aplikasi klien ip host targetnya tetep 127.0.0.1 atau diganti dengan ip yang hamchi berikan? mohon pencerahannya om.. hehehehe.. btw, ane lagi bikin pake vb.net. oiya ada lagi om, saya menggunakan database mysql, database dan aplikasi server serta game server ada di satu kompi, tidak masalah kan yah?
Iya aplikasi klien koneknya menggunakan ip yg dari hamachi, utk database kenapa enggak menggunakan ms access atau sqlite aja ?
sqlite apaan lagi itu om? lebih simple dibandingkan mysql yah? untuk vb.net apa harus menggunakan .net remoting? saya cari-cari winsock tidak ada di vb.net nya.
om.. saya sudah googling mengenai sqlite, tapi masih belum begitu paham. kalau menggunakan sqlite, sqlitenya diinstal di pc server atau client? apa client tetap bisa mengakses database melalui vpn?
aplikasi game yang saya ingin buat merupakan model client-server. kira-kira gambarannya seperti ini :
1. client harus login terlebih dahulu, maka akan dilakukan validasi login ke database server
2. setelah berhasil login, server akan mengirimkan pertanyaan soal ke client yang aktif. (bila tidak ada user yang aktif, server tetap menghasilkan pertanyaan soal tetapi tidak dikirim, hanya disimpan ke dalam database) pertanyaan yang dikirimkan bersifat live.
3. client kemudian menjawab pertanyaan tersebut ke server, kemudian server akan menyimpan jawaban client ke dalam database.
4. client juga bisa cek score yang tersimpan di database server.
5. query paling hanya untuk reporting, insert, update, delete, dan kalkulasi nilai.
6. sekarang ini, aplikasi server yang menghasilkan pertanyaan dan database mysqlnya ada di pc yang sama. client di pc yang berbeda.
kalau aplikasi model tersebut apakah cocok menggunakan sqlite?
Klo saran sy sih yg mengakses database itu cukup aplikasi server aja, sehingga tidak perlu menggunakan database seperti MySQL alasannya sederhana untuk melakukan koneksi plus query ke database itu butuh resource yg lumayan banyak apalagi klo koneksinya via vpn yg dibuat pake hamachi.
Nah untuk verifikasi login dari aplikasi klien kan bisa mengirimkan data dari klien ke server via socket, sehingga prosesnya lebih cepat.
Sangat cocok sekali
Nah yg jadi PR om sekarang adalah meluangkan waktu untuk riset bagaimana menggunakan library TCP Client/Server di VB.Net, karna sudah tidak ada lagi Winsock di VB .NET
mas mau nanya klo mau buat login form kita tau dia online apa ga bisa ga ?
connect nya ke msql hosting mas . klo detect username sama pass udah bisa . tinggal ini . nyari masalah nya . biar dia nda bisa login klo di PC laen masih ada yg login . thanks mas .
Ya di tabel loginya tinggal ditambahkan aja field status, misal struktur tabelnya seperti berikut :
user_name|password|status
Nilai status awalnya 0, setelah login nilainya di set menjadi 1.
salam kenal mas, butuh bantuannya ne…
contoh program di atas saya aplikasikan ke program tugas akhir saya.
nah yang saya bingung dan pusing puyeng-puyeng untuk ngirim data dari server ke client itu gmana ya, soalnya mlai kmaren saya coba pasti gak bisa. klo dari klient ke server sudah berhasil.
terimakasih.
salam pemula VB6.