Hi Dw

There is a project in which I'm working on and now it had come to a point where I had to start including the Microsoft Point Of Service and I've already downloaded it and installed ow I must say I'm using windows 7 Home basic and I can't change my OS because I will loose lot of work so I can't install the windows that fully packed with the POS.

If I check the sample codes under Microsoft about how to start calling this feature it show that I have to Inherites the PosCommon under the BillDispenser Class so if I do this it underline the PosCommon I don't know whether I have to load the packs to VB and how am I going to do so so that if I call it on VB it can be linked. If anyone know how can I start working with this please help me.

Thanks.

After a little search via uncle Google found some information about Microsoft POS, Here

Thank you but what I was looking for wasn't there and I just managed to sort it last night which I was just suppose to add the Library to the application's reference and then import it to the application. Now the problem I just encounted was to call the BillDispenser to dispense the amount entered so I don't know how can I call it because if I call it, it gave me errors and now I just encounted another errors please see my codes and I've commented where there are errors and I've wrote how I want it to be.

'*******************************************************************
'*                                                                 *
'* I've commented where there are errors and where I have problems *
'* how I want it to be please refer to the comments.               *
'*                                                                 *
'*                    Thank you                                    *
'*                                                                 *
'*******************************************************************

Option Explicit On
Option Strict On
Imports Microsoft.PointOfService
Public Class Form2
    Public MustInherit Class BillDispenser
        Inherits PosCommon

        Public Overrides ReadOnly Property CapPowerReporting As Microsoft.PointOfService.PowerReporting
            Get

            End Get
        End Property

        Public Overrides ReadOnly Property CapStatisticsReporting As Boolean
            Get

            End Get
        End Property

        Public Overrides ReadOnly Property CapUpdateStatistics As Boolean
            Get

            End Get
        End Property

        Public Overrides Function CheckHealth(ByVal level As Microsoft.PointOfService.HealthCheckLevel) As String

        End Function

        Public Overrides ReadOnly Property CheckHealthText As String
            Get

            End Get
        End Property

        Public Overrides Sub Claim(ByVal timeout As Integer)

        End Sub

        Public Overrides ReadOnly Property Claimed As Boolean
            Get

            End Get
        End Property

        Public Overrides Sub Close()

        End Sub

        Public Overrides ReadOnly Property DeviceDescription As String
            Get

            End Get
        End Property

        Public Overrides Property DeviceEnabled As Boolean
            Get

            End Get
            Set(ByVal value As Boolean)

            End Set
        End Property

        Public Overrides ReadOnly Property DeviceName As String
            Get

            End Get
        End Property

        Public Overrides Function DirectIO(ByVal command As Integer, ByVal data As Integer, ByVal obj As Object) As Microsoft.PointOfService.DirectIOData

        End Function

        Public Event DirectIOEvent(ByVal sender As Object, ByVal e As Microsoft.PointOfService.DirectIOEventArgs) 'Here it underline DirectIOEvent
        'It says it can not shadow a method declared MustOverride


        Public Overrides Property FreezeEvents As Boolean
            Get

            End Get
            Set(ByVal value As Boolean)

            End Set
        End Property

        Protected Overrides ReadOnly Property IsExclusiveUseDevice As Boolean
            Get

            End Get
        End Property

        Public Overrides Sub Open()

        End Sub

        Public Overrides Property PowerNotify As Microsoft.PointOfService.PowerNotification
            Get

            End Get
            Set(ByVal value As Microsoft.PointOfService.PowerNotification)

            End Set
        End Property

        Public Overrides ReadOnly Property PowerState As Microsoft.PointOfService.PowerState
            Get

            End Get
        End Property

        Public Overrides Sub Release()

        End Sub

        Public Overrides Sub ResetStatistic(ByVal statistic As String)

        End Sub

        Public Overloads Overrides Sub ResetStatistics()

        End Sub

        Public Overloads Overrides Sub ResetStatistics(ByVal statistics As Microsoft.PointOfService.StatisticCategories)

        End Sub

        Public Overloads Overrides Sub ResetStatistics(ByVal statistics() As String)

        End Sub

        Public Overrides Function RetrieveStatistic(ByVal statistic As String) As String

        End Function

        Public Overloads Overrides Function RetrieveStatistics() As String

        End Function

        Public Overloads Overrides Function RetrieveStatistics(ByVal statistics As Microsoft.PointOfService.StatisticCategories) As String

        End Function

        Public Overloads Overrides Function RetrieveStatistics(ByVal statistics() As String) As String

        End Function

        Public Overrides ReadOnly Property ServiceObjectDescription As String
            Get

            End Get
        End Property

        Public Overrides ReadOnly Property State As Microsoft.PointOfService.ControlState
            Get

            End Get
        End Property

        Public Event StatusUpdateEvent(ByVal sender As Object, ByVal e As Microsoft.PointOfService.StatusUpdateEventArgs) 'Here it underline StatusUpdateEvent
        'It says it can not shadow a method declared MustOverride

        Public Overrides Sub UpdateStatistic(ByVal name As String, ByVal value As Object)

        End Sub

        Public Overloads Overrides Sub UpdateStatistics(ByVal statistics() As Microsoft.PointOfService.Statistic)

        End Sub

        Public Overloads Overrides Sub UpdateStatistics(ByVal statistics As Microsoft.PointOfService.StatisticCategories, ByVal value As Object)

        End Sub
    End Class
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form1.Show()
    End Sub

    Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If CBool(Keys.Space) Then ' I used a spacebar for now but once I'm constucting it I will change this to a proper way.
            Dim withdrawal As String
            If TextBox1.Text = "" Then
                MsgBox("please enter the amount first")
            Else
                withdrawal = withdrawal(CInt(TextBox1.Text))
                'Here I want to call the BillDispenser to dispense the entered amount in the textbox.
                MsgBox(withdrawal & " was successfully withdrawed")
            End If
        End If
    End Sub
End Class

Thank you

This article has been dead for over six months. Start a new discussion instead.