APS

Kit de

Integración

SDK APS MASTER INTERFACE - CODIGO FUENTE (Screenshot)

« Código Fuente del SDK APS Master Interface

El SDK APS Master Inteface incluye el código fuente de una aplicación de ejemplo para la integración de un sistema de cobro a través de un Billetero y un Monedero Electrónicos escrita en Visual Basic.

El código fuente es proporcionado para facilitar el entendimiento de la interface. La misma lógica usada en esta aplicación puede ser utilizada en otros lenguajes de progamación en los cuales únicamente es necesario utilizar los comandos y sintaxis que estos requieran.

Los arhivos del código fuente, así como el manual del usuario pueden descargarse gratuitamente en la sección de Soporte Técnico de este sitio.

A continuación podrá encontrar el código fuente de la aplicación que se incluye en el SDK APS Master Interface, en esta aplicación se especifica la cantidad que se desea cobrar manualmente en el textbox "amountToPay.Text" y luego se presiona el botón de "Pay". La aplicación efectuará el cobro y posteriormente regresará al estado de espera.

Option Explicit

Private Sub Form_Load()
Dim InitEngine As Double

' Open APS Master Interface Engine
' This Engine will perform all the functions and communication between your computer and
' the payment systems: Bill Validator and/or Coin Acceptor
' If you want to debug your application, you can ommit the /hide parameter to view the
' APS Master Interface Engine Console.
   InitEngine = Shell("APS_Master_Interface_Engine.exe /hide", 1)

' Reset "Regedit" variables
' These variables are used to communicate your application with the APS Master Interface Engine

   SaveSetting "APS", "Status", "Due", "0"
   SaveSetting "APS", "Status", "Credit", "0"
   SaveSetting "APS", "Status", "Status", ""
   SaveSetting "APS", "Status", "Cancel", ""
   SaveSetting "APS", "Status", "Exit", ""

   display.Caption = Format(0, "currency")
   status.Caption = ""
   due.Caption = "DUE AMOUNT: " & Format(0, "currency")

End Sub

Private Sub Form_Terminate()
   SaveSetting "APS", "Status", "Exit", "1"
End Sub

Private Sub Pay_Click()
   If Pay.Caption = "Pay" Then
      SaveSetting "APS", "Status", "Due", Val(amountToPay.Text)
      Timer1.Enabled = True
      Pay.Caption = "Cancel"
   Else
      Pay.Caption = "Pay"
      SaveSetting "APS", "Status", "Cancel", "1"
      display.Caption = Format(0, "currency")
      status.Caption = ""
      due.Caption = "DUE AMOUNT: " & Format(0, "currency")
      Timer1.Enabled = False
   End If
End Sub

Private Sub Timer1_Timer()

   display.Caption = Format(Val(GetSetting("APS", "Status", "credit", "")), "currency")
   due.Caption = "DUE AMOUNT: " & Format(Val(GetSetting("APS", "Status", "due", "")), "currency")
   status.Caption = GetSetting("APS", "Status", "Status", "")

   If Val(GetSetting("APS", "Status", "due", "")) <= 0 Then
   Timer1.Enabled = False
   Pay.Caption = "Pay"
   End If

End Sub

Si tiene alguna pregunta o necesita más información acerca de nuestros productos, escribanos al correo: ventas@apsmx.com