PureBasic Forums - English

Code: Select all

;scroll the image down

InitNetwork() 

If Not ReadFile(0,"SetiChallenge.txt")
  ReceiveHTTPFile("http://www2.mps.mpg.de/homes/heller/downloads/files/SETI_message.txt", "SetiChallenge.txt")
Else 
  CloseFile(0)
EndIf 

If ReadFile(0,"SetiChallenge.txt") 
  len = Lof(0)  
  *mem = AllocateMemory(len*4) 
  *char.long = *mem   
  While Not Eof(0) 
    a = ReadByte(0)    
    a - 48 
    If a 
      *char\l=$2357BD;
    EndIf 
    *Char+1
  Wend 
  CloseFile(0) 
EndIf 

*char = *mem 
While *char\l <> 0 
  w + 1
  *char+1
Wend   

w-2 
h = len / w 

CreateImage(1,w,h,24,0)
StartDrawing(ImageOutput(1)) 
For y = 0 To h-1 
  For x = 0 To w-1 
    Plot(x,y,*char\l) 
    *char+1 
  Next 
Next   
StopDrawing()

OpenWindow(0,0,0,w,600,"message") 
ScrollAreaGadget(1,0,0,w,600,w,h) 
ImageGadget(2,0,0,w,h,ImageID(1)) 
Repeat 
  ev = WaitWindowEvent() 
Until ev = #PB_Event_CloseWindow