19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
PUBLIC SUB Build2() DIM sUrl AS String DIM x AS Integer DIM hfile AS Stream sUrl = "http://chart.apis.google.com/chart?cht=p3&chd=t:" FOR EACH arraydati x = x + 1 IF x = Numrecs(arraydati) THEN sUrl = sUrl & CStr(arraydati[x - 1]) ELSE sUrl = sUrl & CStr(arraydati[x - 1]) & "," ENDIF NEXT sUrl = sUrl & "&chs=" & ll & "x" & al & "&chl=Prot|Gra|Carb&chtt=" & ti & "&chf=bg,s," & cs hFile = OPEN user.home & "/Gambas/Diet/" & nomefile FOR CREATE PRINT #hFile, "" PRINT #hFile, "" PRINT #hFile, "" PRINT #hFile, "" PRINT #hFile, "" CLOSE #hFile END