fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

ClickMapCreator.bas

Uploader:	Muttonhead
Datum/Zeit:	07.09.2014 09:54:16

#include "fbgfx.bi"

screen 19,32

dim as integer fieldwidth=40'<---

dim as FB.Image ptr img=imagecreate(fieldwidth*8,fieldwidth*8)

dim as uinteger col=1

for y as integer=8 to 1 step-1

  for x as integer=0 to 7

    line img,(x*fieldwidth, y*fieldwidth-1) - ((x+1)*fieldwidth-1, (y-1)*fieldwidth),col,bf

    col +=1

  next x

next y

put (0,0),img,pset

bsave "ClickMap.bmp",img

print "press any key"

sleep

imagedestroy img

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.