searchilida

• Cara Membuat Aplikasi Web

Cara Membuat Aplikasi Web

Aplikasi ini merupakan pengembangan dari sample aplikasi yg sudah pernah saya bahas pada postingan, aplikasi ini terdiri dari 2 project yaitu: • Aplikasi server memanfaatkan array winsock karena akan menghandle minimal 1 koneksi • Untuk aplikasi klien cukup menggunakan winsock standar (non array). Sekarang akan kita bahas cara pembuatannya. Pada saat klien ingin mengambil no antrian, kan perintahnya seperti berikut: Private Sub cmdAmbilNoAntrian_Click() Dim ipServer As String Dim cmd As String ipServer = '127.0.0.1' cmd = 'get_no_antrian' If isConnected(ipServer) Then myClient.SendData cmd End If End Sub Coba perhatikan kode di atas data yg dikirim ke serverkan cuma “get_no_antrian”, jika ingin informasi kliennya nampil ya otomatis nomor kliennya juga harus dikirim. Contoh: cmd = 'get_no_antrian#' & txtNoKlien.Text Karakter “#” digunakan sebagai karakter pemisah untuk mempermudah proses parsing di aplikasi server. Selanjutnya di server tinggal di parsing menggunakan perintah Split. Private Sub wckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim cmd As String Dim arrCmd() As String On Error GoTo errHandle ' Grab the data from the specified Winsock object, and pass it to the parent.