Statistics: Posted by technoweasel — Tue Dec 30, 2008 6:40 pm
Code:
Declare Sub ArraySub(myInt() as Integer)Sub ArraySub(myInt() as Integer) 'array processing code hereEnd SubDim intArray(10) as integerArraySub(intArray())
Statistics: Posted by Imortis — Sun Oct 05, 2008 4:44 am
Statistics: Posted by Kiyotewolf — Sat Oct 04, 2008 9:07 pm
Statistics: Posted by Kiyotewolf — Sat Oct 04, 2008 9:02 pm
Code:
#include "fbgfx.bi" 'This includes the type info for fb.imageScreenres 640, 480, 32 'Set up 640*480 screen, 32 bppdim pPic as fb.Image ptr 'Points to picturepPic = imageCreate(10, 10) 'Set it upbload "Some picture.bmp", pPic 'Load from a bitmap fileput (4, 7), pPic, pset 'Put to screensleep 'waitimageDestroy(pPic)end
Code:
Dim myints(10) as integerDim mystrings(10) as String
Code:
Declare sub Add(x as integer, y as integer)'what ever code you like goes hereSub Add(x as integer, y as integer) 'whatever is in the subend sub
Code:
Dim As Integer x,y,xvel,yvel,rad,w,h,dScreenInfo(w,h,d) 'gets the width, height, and depth of current windows/linux screen resScreenRes w/2,h/2,d,2 x = 300y = 200xvel = 1yvel = 1rad = 25ScreenSet 0,1WindowTitle("Bouncing Ball")Circle(x,y), rad, RGB(255,0,0)Paint(x,y), RGB(255,0,0)DoclsIf x- rad <0>= w/2 Then xvel *= (-1)If y- rad <0>= h/2 Then yvel *= (-1)x += xvely += yvelCircle(x,y),rad,RGB(255,0,0)Paint(x,y), RGB(255,0,0)ScreenCopyLoop Until MultiKey(1) 'loops until escape key is pressed
Statistics: Posted by Imortis — Sat Oct 04, 2008 3:54 pm
Code:
Screenres 640, 480, 32 'Set up 640*480 screen, 32 bppdim pPic as uinteger ptr 'Points to picturepPic = imageCreate(10, 10) 'Set it upbload "Some picture.bmp", pPic 'Load from a bitmap fileput (4, 7), pPic, pset 'Put to screensleep 'waitimageDestroy(pPic)end
Statistics: Posted by Mentat — Sat Oct 04, 2008 9:44 am
Statistics: Posted by Kiyotewolf — Sat Oct 04, 2008 3:52 am
Statistics: Posted by Kiyotewolf — Sat Oct 04, 2008 3:48 am