PureBasic Forums - English

Code: Select all

;When you try to transfer money online to another bank account, some banks offer you a secure way to do it; a coordenates card,
;which is a matrix of codes.
;So you must save this card in order to make some works via bank online.
;This program save this card info for you and answers you the coordenates content you ask for.

DataSection
  Data$ "6J2","Z68","19S","G34","2UU","EYZ","255","7B2"
  Data$ "4RD","N3N","3EM","HXI","NEI","1FE","3KR","97X"
  Data$ "GCD","818","X16","71W","2SS","54J","T8X","LH4"
  Data$ "H16","IGE","URL","BDC","SYU","YMZ","T2I","KC1"
  Data$ "4SI","9YA","TXX","CRK","928","9M1","ZR8","FYT"
  Data$ "J49","W8G","75E","524","X39","ST6","L9C","244"
  Data$ "9Z1","142","3RV","H81","P2K","46B","12B","3RU"
  Data$ "NX3","46K","X1A","L49","UXR","SA9","131","2GK"
EndDataSection
Procedure$ sortstringUnicode(s$)
  If s$
    Protected len.l=Len(s$),t.l,Dim chars.u(len-1),r$
    CopyMemory(@s$,@chars(),len*SizeOf(unicode))
    SortArray(chars(),#PB_Sort_Descending)
    r$=PeekS(@chars(),len,#PB_Unicode)
    FreeArray(chars.u())
    ProcedureReturn r$
  EndIf
  ProcedureReturn ""
EndProcedure
Procedure$ sortstringAscii(s$); in case 's$' is stored in Ascci mode instead in Unicode (PB packages older than 5.50 version)
  If s$
    Protected len.l=Len(s$),t.l,Dim chars.a(len-1),r$
    CopyMemory(@s$,@chars(),len)
    SortArray(chars(),#PB_Sort_Descending)
    r$=PeekS(@chars(),len,#PB_Ascii)
    FreeArray(chars.a())
    ProcedureReturn r$
  EndIf
  ProcedureReturn ""
EndProcedure
  
NewMap tarjcoord$()
For i.a=1 To 8
  Read$ tarjcoord$("B"+Str(i))
  Read$ tarjcoord$("C"+Str(i))
  Read$ tarjcoord$("O"+Str(i))
  Read$ tarjcoord$("D"+Str(i))
  Read$ tarjcoord$("V"+Str(i))
  Read$ tarjcoord$("Z"+Str(i))
  Read$ tarjcoord$("L"+Str(i))
  Read$ tarjcoord$("A"+Str(i))
Next

#Window_0=0
#Editor_0=0
#Texto_1=1
Procedure.b Open_Window_0()
  If OpenWindow(#Window_0,259,186,10,42,"Tarjeta de coordenadas del Banco de blah blah blah de blah blah bla, RIF: blah blah bla  SERIAL: 00748blah blah bla",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    StringGadget(#Editor_0,45,1,20,20,"")
    StringGadget(#Texto_1,40,22,30,20,"",#PB_String_ReadOnly)
    ProcedureReturn 1
  EndIf
  ProcedureReturn 0
EndProcedure
If Open_Window_0()
  Repeat
    UIEVENT.l=WaitWindowEvent()
    If GetAsyncKeyState_(#VK_BACK):SetGadgetText(#Editor_0,""):UIEVENT=#PB_Event_Gadget:EndIf
    Select UIEVENT
    Case #PB_Event_Gadget
      Select EventGadget()
      Case #Editor_0
        SetGadgetText(#Texto_1,tarjcoord$(sortstringUnicode(UCase(GetGadgetText(#Editor_0)))))
      EndSelect
    EndSelect
  Until UIEVENT=#PB_Event_CloseWindow
EndIf