maunya juga begitu, entar shareware-nya kasih aja ke epilambret untuk demo, kan minta prototipe. entar tinggal adu harga aja ama punya kang erwin, siapa lebih mahal ...
heheheheheh..... :P
aksan kurdin
ps. epilambret udah bikin lo ..... (mode sotoy)
--- In belajar-access@yahoogroups.com, Erwin Sugiawan <esugiawan@...> wrote:
>
> hihihi winsock kan dari vb6, mungkin udah uzur :)
> untung masih pake access 2003 :)
>
> ayo kang......... pake bigspped ,bisa di pake untuk chat, lempar data, lempar
> text
> dan mungkin .......bisa lempar "Rp" ke kantong akang :) hehehe joke mode
>
> Best regard
> Erwin Sugiawan
>
>
>
>
> ________________________________
> Dari: aksankurdin <aksan.kurdin@...>
> Kepada: belajar-access@yahoogroups.com
> Terkirim: Kam, 30 September, 2010 14:47:32
> Judul: Bls: Bls: [belajar-access] Re: Antrian
>
> ok,
> sekarang siapa yang mau ngoprek nih ?
>
> hehehehe....
> sumber mentah sudah ada,
>
> ayo ... yang punya persoalan semula, bagaimana ?
>
>
> kang erwin,
> winsock juga gak bisa di access 2007 .... :(
>
>
>
> aksan kurdin
>
> --- In belajar-access@yahoogroups.com, Erwin Sugiawan <esugiawan@> wrote:
> >
> > Bang.... emang ngak muncul di control... di aktifkan lewat dll
> >
> > ini scrip nya dalam form
> >
> > Option Compare Database
> >
> > Public WithEvents SockLib As bsSocketLibrary.SocketLibrary
> > Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal
> >hwnd
> >
> > As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As
> >Long)
> >
> > As Long
> >
> > Dim CallHandle As Long 'Handle to the calling socket
> > Dim UpSock As Long 'Handle to the uploading socket
> > Dim DownSock As Long 'Handle to the downloading socket
> > Dim UpFile As Long 'Handle to the uploaded file
> > Dim DownFile As Long 'Handle to the downloaded file
> > Dim UpCount As Long 'Number of the uploaded bytes so far
> > Dim DownCount As Long 'Number of the downloaded bytes so far
> > Dim UpSize As Long 'Size of the uploaded file
> > Dim DownSize As Long 'Size of the downloaded file
> > Dim UpName As String 'Name of the uploaded file
> > Dim DownName As String 'Name of the downloaded file
> > Dim DownPath As String 'Path to the downloaded file
> >
> >
> > Const pcALERT = 10 'Alert message ID
> > Const pcCHAT = 20 'Chat message ID
> > Const pcHAVE_FILE_HEAD = 30 'This is a file header
> > Const pcGIVE_FILE_BODY = 31 'Ask for file data
> > Const pcHAVE_FILE_BODY = 32 'This is file data
> > Const pcSTOP_UPLOAD = 33 'Stop the uploading transfer
> > Const pcSTOP_DOWNLOAD = 34 'Stop the downloading transfer
> > Const pcBUSY_DOWNLOAD = 35 'The download channel is taken
> >
> > Const psDISCONNECTED = 0
> > Const psCONNECTING = 1
> > Const psCONNECTED = 2
> >
> >
> > Function fnSendChat(txtMsg As String)
> > Dim Line As String
> > Dim li As ListItem
> >
> > Call SockLib.TextToBuffer(lvPeers.SelectedItem.Tag, txtMsg)
> > Call SockLib.SendPacket(lvPeers.SelectedItem.Tag, pcCHAT, False)
> >
> >
> > Line = ""
> > Line = Line + "[" + Format(Now, "hh:mm:ss") + "] Me: " + txtMsg
> > txtChatMsg = ""
> > Set li = Me.lvChat.ListItems.Add(, , Line)
> > End Function
> >
> > Private Sub btnAlert_Click()
> > Call SockLib.TextToBuffer(lvPeers.SelectedItem.Tag, txtAlertMsg) 'Store the
> >
> > message
> > Call SockLib.SendPacket(lvPeers.SelectedItem.Tag, pcALERT, False) 'Send an
>
> > alert message
> > txtAlertMsg = ""
> > End Sub
> >
> >
> > Function fnAlert(ByVal aHandle As Long, strAlert As String)
> > Call SockLib.TextToBuffer(aHandle, strAlert) 'Store the message
> > Call SockLib.SendPacket(aHandle, pcALERT, False) 'Send an alert message
> > Line = ""
> > Line = Line + "[" + Format(Now, "hh:mm:ss") + "] Alert to: " + strAlert
> > Set li = Me.lvChat.ListItems.Add(, , Line)
> > txtAlertMsg = ""
> > End Function
> > Private Sub btnCancel_Click()
> > If CallHandle > 0 Then
> > SockLib.CloseSession (CallHandle)
> > CallHandle = 0
> > UpdateStatus
> > End If
> > End Sub
> >
> > Private Sub btnChat_Click()
> > fnSendChat (Me.txtChatMsg)
> > End Sub
> >
> > Private Sub btnConnect_Click()
> >
> > 'start the call operation
> > 'CallHandle = SockLib.OpenSession(txtIP, Val(txtPort), "BIGSPEED_SOCKETS",
> >"",
> >
> > "")
> > CallHandle = SockLib.OpenSession(txtIP, Val(txtPort), "BIGSPEED_SOCKETS",
> > Me.txtUserName, fnEncPass(Me.txtPassword))
> > If CallHandle = 0 Then
> > Call MsgRoes("Cannot initiate a call", "Error")
> > CallHandle = 0
> > End If
> >
> > UpdateStatus
> > End Sub
> >
> >
> >
> > Private Sub btnListen_Click()
> > SetProperties
> > UpdateStatus
> > End Sub
> >
> > Private Sub btnRemove_Click()
> > Dim UsrName As String
> > If lvPeers.SelectedItem Is Nothing Then Exit Sub
> > UsrName = lvPeers.SelectedItem.SubItems(3)
> > fnRemoveUser (UsrName)
> > SockLib.CloseSession (lvPeers.SelectedItem.Tag)
> > lvPeers.SelectedItem = Nothing
> > End Sub
> >
> > Private Sub btnSendAll_Click()
> > Dim Line As String
> > Dim li As ListItem
> > Dim i As Long
> > For i = lvPeers.ListItems.Count To 1 Step -1
> > Call SockLib.TextToBuffer(lvPeers.ListItems.Item(i).Tag, txtChatMsg)
> > Call SockLib.SendPacket(lvPeers.ListItems.Item(i).Tag, pcCHAT, False)
> > Line = ""
> > Line = Line + "[" + Format(Now, "hh:mm:ss") + "] Me: " + txtChatMsg
> > Next i
> >
> > txtChatMsg = ""
> > Set li = Me.lvChat.ListItems.Add(, , Line)
> > End Sub
> >
> > Private Sub cmdMyIP_Click()
> > Call MsgRoes(SockLib.LocalIPList, "Information")
> > End Sub
> >
> >
> >
> > Private Sub Form_Close()
> > Set SockLib = Nothing
> > CloseActUser
> > End Sub
> >
> > Private Sub Form_Load()
> > Gkey = "Bc4p1t4lRF"
> > Set SockLib = Nothing
> > Set SockLib = New bsSocketLibrary.SocketLibrary
> > CallHandle = 0
> > UpdateStatus
> > End Sub
> >
> > '-----------------------
> > '-----------Server------
> > Private Sub SetProperties()
> > SockLib.SecurityMode = 1
> > SockLib.SecretKey = Gkey
> >
> >
> > SockLib.StopListening
> > If chkServer.Value = -1 Then
> > SockLib.StartListening (Val(txtListenPort))
> > End If
> >
> >
> > End Sub
> >
> >
> > Private Sub UpdateStatus()
> > Dim St As String
> > ' Dim LI As ListItem
> > Dim i, Sk, ConCnt As Long
> >
> > 'Buttons
> > If CallHandle > 0 Then
> > 'a call is in progress
> > btnCancel.Enabled = True
> > btnCancel.SetFocus
> > btnConnect.Enabled = False
> >
> > Else
> > 'a new call can be initiated
> > btnConnect.Enabled = True
> > btnConnect.SetFocus
> > btnCancel.Enabled = False
> > End If
> >
> >
> >
> > If lvPeers.SelectedItem Is Nothing Then
> > btnRemove.Enabled = False
> > btnChat.Enabled = False
> > btnAlert.Enabled = False
> > Else
> > btnRemove.Enabled = True
> > btnChat.Enabled = SockLib.GetPeerState(lvPeers.SelectedItem.Tag) =
> > psCONNECTED
> > btnAlert.Enabled = SockLib.GetPeerState(lvPeers.SelectedItem.Tag) =
> > psCONNECTED
> > End If
> >
> >
> >
> > 'Status bar
> >
> > If Gkey <> "" Then
> > StatusBar.Panels.Item(1) = "Encryption: ON"
> > Else
> > StatusBar.Panels.Item(1) = "Encryption: OFF"
> > End If
> >
> > If Me.chkServer.Value = -1 Then
> > StatusBar.Panels.Item(2) = "Server: ON"
> > Else
> > StatusBar.Panels.Item(2) = "Server: OFF"
> > End If
> >
> > If lvPeers.ListItems.Count = 0 Then
> > St = "No active connection"
> > Else
> > St = str(lvPeers.ListItems.Count) + " connected peer(s)"
> > End If
> > StatusBar.Panels.Item(3) = St
> >
> > End Sub
> >
> >
> >
> > '----------
> > 'Client
> > Private Sub HaveAlert(ByVal aHandle As Long)
> > Dim Line As String
> >
> > Line = "From " + SockLib.GetRemoteAddress(aHandle) + " at " + Format(Now,
> > "hh:mm:ss") + Chr(13) + Chr(13)
> > Line = Line + SockLib.TextFromBuffer(aHandle)
> > Call MsgRoes(Line, "Alert")
> >
> > End Sub
> >
> >
> > Private Sub Form_Unload(Cancel As Integer)
> >
> > End Sub
> >
> > Private Sub lvPeers_ItemClick(ByVal Item As Object)
> > UpdateStatus
> > End Sub
> >
> >
> >
> > Private Sub lvUsers_ColumnClick(ByVal ColumnHeader As Object)
> > If lvUsers.Sorted And _
> > ColumnHeader.Index - 1 = lvUsers.SortKey Then
> > lvUsers.SortOrder = 1 - lvUsers.SortOrder
> > Else
> > lvUsers.SortOrder = lvwAscending
> > lvUsers.SortKey = ColumnHeader.Index - 1
> > End If
> > lvUsers.Sorted = True
> > End Sub
> >
> > ' *** Socket event handlers
> > 'Request for a new incoming connection
> > Private Sub SockLib_OnSessionRequest(ByVal aHandle As Long, ByVal aProtocol As
>
> > String, ByVal aUsername As String, aPassword As String, aAccept As Boolean)
> > Dim strPass As String
> >
> > aAccept = False
> > If aProtocol <> "BIGSPEED_SOCKETS" Then Exit Sub
> > aAccept = True
> > strPass = fnGetPass(aUsername)
> > If strPass = "UserExist" Then
> > fnAlert aHandle, aUsername & " on IP : " &
> >SockLib.GetRemoteAddress(aHandle)
> >
> > & " already exist/logon to server "
> > aAccept = False
> > Exit Sub
> > End If
> > If aUsername > "" Then aPassword = strPass
> > End Sub
> >
> >
> > 'A new session is opened due to an incoming call
> > Private Sub SockLib_OnSessionInvoked(ByVal aHandle As Long)
> > Dim li As ListItem
> >
> > Set li = lvPeers.ListItems.Add(, , SockLib.GetRemoteAddress(aHandle))
> > li.SubItems(1) = SockLib.GetRemotePort(aHandle)
> > li.SubItems(2) = "server"
> > li.SubItems(3) = SockLib.GetUsername(aHandle)
> > li.Tag = aHandle
> >
> > UpdateStatus
> > End Sub
> >
> >
> >
> > 'Successful call
> > Private Sub SockLib_OnSessionOpen(ByVal aHandle As Long)
> > Dim li As ListItem
> >
> > Set li = lvPeers.ListItems.Add(, , SockLib.GetRemoteAddress(aHandle))
> > li.SubItems(1) = SockLib.GetRemotePort(aHandle)
> > li.SubItems(2) = "client"
> > li.SubItems(3) = SockLib.GetUsername(aHandle)
> > li.Tag = aHandle
> > CallHandle = 0
> >
> > If lvPeers.SelectedItem Is Nothing Then
> > lvPeers.SelectedItem = li
> > End If
> >
> > UpdateStatus
> > End Sub
> >
> >
> >
> >
> > 'Unsuccessful call
> > Private Sub SockLib_OnSessionRejected(ByVal aHandle As Long, ByVal aCode As
> > Long)
> > CallHandle = 0
> > UpdateStatus
> > Call MsgRoes("Cannot connect to " + txtIP + ":" + str(txtPort) + " Error
> > Code:" + str(aCode), fnChatErrorCode(aCode))
> > End Sub
> >
> >
> >
> >
> > 'The socket is disconnected
> > Private Sub SockLib_OnSessionClosed(ByVal aHandle As Long, ByVal aCode As
> Long)
> > Dim i As Long
> > Dim UsrName As String
> > i = 0
> > For i = lvPeers.ListItems.Count To 1 Step -1
> > If lvPeers.ListItems.Item(i).Tag = aHandle Then
> > UsrName = lvPeers.ListItems.Item(i).SubItems(3)
> > fnRemoveUser (UsrName)
> > lvPeers.ListItems.Remove (i)
> > End If
> > Next i
> > UpdateStatus
> > End Sub
> >
> >
> >
> >
> > 'A new packet is available
> > Private Sub SockLib_OnPacketReceived(ByVal aHandle As Long, ByVal aCode As
> >Long)
> > Select Case aCode
> > Case pcALERT
> > Call HaveAlert(aHandle) 'alert message
> > Case pcCHAT
> > Call HaveChat(aHandle) 'chat message
> > End Select
> >
> > End Sub
> >
> >
> >
> > Private Sub HaveChat(ByVal aHandle As Long)
> > Dim strClientMsg As String
> > Dim li As ListItem
> >
> >
> > 'Line = Line + "[" & SockLib.GetRemoteAddress(aHandle) & "--> " & Format(Now,
> >
> > "hh:mm:ss") + "] Peer: "
> > strClientMsg = ""
> > strClientMsg = SockLib.TextFromBuffer(aHandle)
> > 'Set li = lvChat.ListItems.Add(, , Line)
> > CheckMsg (strClientMsg)
> > End Sub
> >
> >
> >
> > Function fnChatErrorCode(ErrNo As Long) As String
> > Dim str As String
> > fnChatErrorCode = ""
> > Select Case ErrNo
> > Case Is = 0
> > str = "no Error"
> > Case Is = 1
> > str = "User Action"
> > Case Is = 2
> > str = "Unknown Error"
> > Case Is = 3
> > str = "Invalid Handle"
> > Case Is = 4
> > str = "Invalid Data"
> > Case Is = 5
> > str = "There is no assigned event handler"
> > Case Is = 6
> > str = "Illegal Operation"
> > Case Is = 7
> > str = "Event handler error"
> > Case Is = 8
> > str = "Bad encryption key"
> > Case Is = 10
> > str = "Connection is refused"
> > Case Is = 11
> > str = "Connection timeout"
> > Case Is = 12
> > str = "Broken Connection"
> > Case Is = 13
> > str = "Not connected"
> > Case Is = 14
> > str = "Too many connections"
> > Case Is = 20
> > str = "Cannot start server"
> > Case Is = 21
> > str = "Cannot connect to SOCKS server"
> > Case Is = 22
> > str = "Wrong username Or password"
> > Case Is = 23
> > str = "Access is denied"
> > Case Is = 24
> > str = "peer is not signed-in"
> > Case Is = 30
> > str = "Operation is already running"
> > Case Is = 31
> > str = "Operation is not running"
> > Case Is = 100
> > str = "Cannot create folder"
> > Case Is = 101
> > str = "Cannot delete folder"
> > Case Is = 102
> > str = "Cannot delete file"
> > Case Is = 103
> > str = "Cannot rename folder"
> > Case Is = 104
> > str = "Cannot rename file"
> > Case Is = 105
> > str = "Cannot open file"
> > Case Is = 106
> > str = "Cannot create file"
> > Case Is = 107
> > str = "Cannot read from file"
> > Case Is = 108
> > str = "Cannot write to file"
> > Case Is = 109
> > str = "Cannot rename temporary file"
> > Case Is = 110
> > str = "Non-supported format"
> > Case Is = 111
> > str = "Error searching file"
> > Case Is = 112
> > str = "Wrong checksum"
> >
> > End Select
> > fnChatErrorCode = str
> > End Function
> >
> >
> > Sub CheckMsg(msg As String)
> > Dim strMsg As String
> > Dim SecId As String
> >
> > strMsg = GetToken(msg, 1)
> > Select Case strMsg
> > Case Is = "ReqSec"
> > SecId = GetToken(msg, 2)
> > oJonec.SecuritiesAttributeRequest JonecUser, "C", 0, "0RG", SecId
> > End Select
> > End Sub
> >
> >
> >
> >
> > Best regard
> > Erwin Sugiawan
> >
> >
> >
> >
> > ________________________________
> > Dari: aksankurdin <aksan.kurdin@>
> > Kepada: belajar-access@yahoogroups.com
> > Terkirim: Kam, 30 September, 2010 14:15:14
> > Judul: Bls: [belajar-access] Re: Antrian
> >
> > sayang sekali untuk BIGSPEED tidak muncul di control activex access 2007....
> :(
> >
> >
> > aksan kurdin
> >
> >
> >
> > --- In belajar-access@yahoogroups.com, Erwin Sugiawan <esugiawan@> wrote:
> > >
> > > Untuk winsock sebaik nya mempergunakan bigspeed dari
> > > http://www.bigspeed.net/index.php?page=bssocklib
> > > hasil nya lebih baik dan tidak pusing. contoh program sudah ada disana.
> > >
> > > dan pasti nya sudah sangat REAL TIME :)
> > > note :
> > > 1. jangan lupa melakukan refensi dll
> > > 2. untuk versi gratis bisa di gunakan sampai dgn 5 komputer
> > > 3. kalo mau lebih bayar 150 $
> > >
> > > kalo mau TETAP pake winsock referensi nya ada di sini
> > > http://support.microsoft.com/kb/163999
> > > note :
> > > 1. jgn lupa meletakkan object winsock nya di dalam form ms.access
> > > 2. winsock jika di gunakan dalam access TIDAK bisa di array beda dgn vb
> > >
> > > program winsock / bigspped socket tidak membutuhkan refresh data, krn object
>
> > > tersebut sudah ada event on receive
> > >
> > >
> > > Best regard
> > > Erwin Sugiawan
> > >
> > >
> > >
> > >
> > > ________________________________
> > > Dari: aksankurdin <aksan.kurdin@>
> > > Kepada: belajar-access@yahoogroups.com
> > > Terkirim: Kam, 30 September, 2010 13:16:51
> > > Judul: [belajar-access] Re: Antrian
> > >
> > > rekan2, ada yang bisa bantu kasus ini dengan semacam winsock programming atau
> >
> > > sejenisnya yang bisa di terapkan di access ?
> > > selain antrian ini, juga bisa jadi contoh adalah aplikasi biling warnet.
> > >
> > >
> > > aksan kurdin
> > >
> > >
> > > --- In belajar-access@yahoogroups.com, "epilambret" <epilambret@> wrote:
> > > >
> > > > betul sekali bang Aksan. antrian seperti yg di Bank atau di Telkom. lebih
> > > >minimalist lah. cuman tampilan nomor doang di layar utama. sementara di
> > > >kasir/opr tampilan nomor terakhir yang diklik kemudian dilanjutkan ke nomor
>
> > > >selanjutnya. tidak disertakan info tentang meja mana selanjutnya. hanya
> > >tampilan
> > >
> > > >nomor saja.
> > > >
> > > > klo untuk output masih menggunakan monitor biasa/lebar atau display khusus
>
> > > >hardware antrian. ada rekaman suara sesuai nomor.
> > > >
> > > > Sistem LAN dengan 1 server. (sorry dulu masih buta sama sekali dg
> > > >programming/database Baca: Gaptok!)
> > > >
> > > > pertanyaan sy apa betul lebih ringkas dari Aplikasi Penjualan?
> > > > -bagaimana konsep modul2 nya (query dan tabel nya)
> > > > -pembagian koneksi tampilan di layar utama yg realtime dg di operator
> > > > -handal kah dg menggunakan FE BE murni access/vba?
> > > > -ada prototype gak? mungkin bisa share? :))
> > > >
> > > > Thanks My Master!
> > > >
> > > > --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@> wrote:
> > > > >
> > > > > Coba berikan contoh kasus antrian yang dimaksud. Apakah sama dengan
> > > > > antrian di bank, kita ambil nomor, dan cs akan melayani satu per satu
> > > > > nomornya ?
> > > > >
> > > > >
> > > > > aksan kurdin
> > > > >
> > > > >
> > > > >
> > > > > On 9/17/2010 10:38 PM, epilambret wrote:
> > > > > >
> > > > > > Mau tanya saja. apa bisa ya buat aplikasi antrian(queque) di access.
> > > > > > kira2 gmn konsep dan cara kerja nya. soale px tmn yg pernah buat pake
> > > > > > tools lain, katanya sih paling gampang ketimbang bikin aplikasi POS
> > > > > > dan harga jual nya bisa lebih tinggi. support audio untuk rekam suara
> > > > > > dan output display.
> > > > > >
> > > > > > terima kasih
> > > > > >
> > > > > >
> > > > >
> > > >
> > >
> > >
> > >
> > >
> > > ------------------------------------
> > >
> > > SPAM IS PROHIBITEDYahoo! Groups Links
> > >
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
No comments:
Post a Comment