APS®, Aplicaciones y Soluciones de Pago®

 

 

 

 

 

Acerca de APS®

Productos & Servicios Soporte Técnico Noticias Agentes de Venta Contacto

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


 

 

 

Mapa del Sitio  

Copyright © APS®, Aplicaciones y Soluciones de Pago® 2002-2017. Derechos Reservados.