QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 20, 2020, 05:19:11 pm

Title: Get the most current exchange rate of any currency via online API!
Post by: SpriggsySpriggs on July 20, 2020, 05:19:11 pm

As I mentioned in a discussion post; here is code for getting the exchange rate of any currency as it currently stands! Use this function and receive the latest numbers!
To make your account, go to ExchangeRate-API.com! I won't be posting my API key here, of course.
 

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. PRINT "The exchange rate of USD to GBP is : "; ExchangeRate("USD", "GBP")
5. SLEEP
6.  
7. FUNCTION ExchangeRate$ (currency1 AS STRING, currency2 AS STRING)
8.     DIM URL AS STRING
9.     DIM URLFile AS STRING
10.     DIM a%
11.     DIM Request AS STRING
12.     URLFile = "exchangerate"
13.     URL = " https://v6.exchangerate-api.com/v6/YOURAPIKEYHERE/latest/" + currency1
14.     a% = API_Request(URL, URLFile)
15.     DIM U AS INTEGER
16.     U = FREEFILE
17.     OPEN URLFile FOR BINARY AS #U
18.     IF LOF(U) <> 0 THEN
19.         LINE INPUT #U, Request
20.     ELSE
21.         CLOSE #U
22.         KILL URLFile
23.         ExchangeRate = ""
24.         EXIT FUNCTION
25.     END IF
26.     CLOSE #U
27.     KILL URLFile
28.     IF INSTR(Request, currency2) THEN
29.         ExchangeRate = _TRIM$(STR$(VAL(MID$(Request, INSTR(Request, currency2) + LEN(currency2) + 2, 10))))
30.     ELSE
31.         ExchangeRate = "Not found"
32.     END IF
33. END FUNCTION
34.  
35.  
36. DECLARE DYNAMIC LIBRARY "urlmon"
37.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
38. END DECLARE
39.  
40. FUNCTION API_Request (URL AS STRING, File AS STRING)
41.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
42. END FUNCTION

Text Only | Text with Attachments