FiveTech Support Forums

#include "FiveWin.ch"

function main()
public oDlg,oGet,nNumero:=0,oBtn,oSay,cPremio:="¡¡¡ Suerte !!!"
set exact on
set date french
set century on
set deleted on
DEFINE DIALOG oDlg NAME "PRINCIPAL"
oDlg:lHelpIcon:=.F.
REDEFINE GET oGet VAR nNumero PICTURE "@Z #####" ID 101 OF oDlg
REDEFINE BUTTON oBtn ID 102 OF oDlg ACTION {cPremio:=Comprobar(nNumero),oSay:Refresh()}
REDEFINE SAY oSay PROMPT cPremio ID 103 OF oDlg
ACTIVATE DIALOG oDlg CENTERED
return nil

function Comprobar(nNumero)
local cTexto:="",oHttp,nPremio:=0
oGet:Disable()
oBtn:Disable()
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(30000,30000,30000,30000)
oHttp:Open("GET","http://api.elpais.com/ws/LoteriaNavidadPremiados?n="+alltrim(str(nNumero)),.F.)
oHttp:Send()
cTexto:=oHttp:ResponseText()
* MemoWrit("Loteria.html",cTexto)
* msginfo("*"+cTexto+"*")
if "busqueda={'error':1}" $ cTexto
   cTexto:="Ni puta idea"
else
   nPremio:=val(substr(cTexto,at("'premio':",cTexto)+9))
   if nPremio=0
      cTexto:="Va a ser que no..."
   else
      cTexto:="Pues "+alltrim(str(nPremio/20,10,0))+"€ al euro"
   endif
endif
oGet:Enable()
oBtn:Enable()
return (cTexto)

1 24 "themed.man"

1 VERSIONINFO 
FILEVERSION 1, 0, 0, 0
PRODUCTVERSION 1, 0, 0, 0
FILEOS VOS__WINDOWS16
{
 BLOCK "StringFileInfo"
 {
  BLOCK "040904E4"
  {
   VALUE "ProductVersion", "Loteria de Navidad"
   VALUE "FileVersion", "© JmGarcia 2010 (ßeta)"
   VALUE "FileDescription", "FiveWin+xHarbour"
  }
 }
}

PRINCIPAL DIALOG 50, 50, 124, 52
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Loteria (ßeta)"
FONT 8, "MS Sans Serif"
{
 LTEXT "Número:", 10, 5, 5+2, 30, 15
 EDITTEXT 101, 35, 5, 30, 12
 PUSHBUTTON "&Comprobar", 102, 72, 5, 47, 15
 EDITTEXT 103, 10, 30, 108, 12, ES_CENTER | NOT WS_BORDER | WS_TABSTOP
}