TheGameCreators - CodeBase - use of Array commands

Category: Input / Output

Version: 1.0

Information

Uploaded: 16th Feb 2005 14:17

Modified: 22nd Apr 2006 14:04

Author: HowDo

Summary

A working demo of using the array commands to load in data from a text file, then save them out for use in other progs like wordpad for say printing.

Full Description

this is something i have been working on that alows you to make a list of items in wordpad and then load in into this prog to select the items i want to be printed.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Dim ITEM$(500)` - thi sets up 6 slots (one for 0)

dim _thelist$(500)

dim _newlist$(50)

`set text font "wingdings"

`set text size 14

`box$=chr$(75)

set text font "arial"

set text size 16

global r=0

GLOBAL BGM = 1

GLOBAL BGMVOLPOS = 150

GLOBAL BGMVOL = 100

global l=0

sw = screen width()

sh = screen height()

click=0 : _printed=0

gosub drawboxes

`ink RGB(255,0,128),0

rem this bit loads it the data list made in wordpad.

`eg:

`item 1

`item 2

`make sure your items files ends with a *

` save as item.txt

rem load in your data may need to make a is file there if its not there to start.

load array "item.txt",item$() ` -this loads all the data in the array

`PRINT "LOADED"

for r=0 to 500

if item$(r)="*"

exit

endif

next r

IT=ARRAY COUNT(ITEM$())

`PRINT "COUNT=";IT, " r = ";r

i=0 : oldi=1 : l=0 : cc=50

bevelbox(sw-620,sh-450,sw-20,sh-400,6,RGB(0,128,0),RGB(128,255,128),0,rgb(0,128,0))

ink rgb(0,0,0),rgb(0,0,0)

center text  screen width()/2,38,"P = Pick Item   Up Key = Move up List   Down Key = Move down List  Space bar To Print List"

center text  screen width()/2,54,"Delete Key = Clear all   Back space = Remove last item"

rem press space bar

if scancode()=57 and _printed=0

scaned=0

nl=0

for tl=0 to l

ink rgb(0,0,0),rgb(200,200,200)

if scaned=0

if tl=>0 and tl<25

li=len(_thelist$(tl))

sp=20-li

text 0,0, str$(sp)

if sp<0 then sp=0

ink rgb(0,0,0),rgb(0,0,0)

_newlist$(nl)=_newlist$(nl)+chr$(91)+" "+chr$(93)+" "+_thelist$(tl)+space$(sp)

endif

if scaned=1

if tl>24 and tl<50

li=len(_thelist$(tl))

sp=20-li

if sp<0 then sp=0

ink rgb(0,0,0),rgb(0,0,0)

_newlist$(nl)=_newlist$(nl)+chr$(9)+chr$(91)+" "+chr$(93)+" "+_thelist$(tl)+space$(sp)

endif

if scaned=2

if tl>49 and tl<75

li=len(_thelist$(tl))

sp=20-li

if sp<0 then sp=0

ink rgb(0,0,0),rgb(0,0,0)

_newlist$(nl)=_newlist$(nl)+chr$(9)+chr$(91)+" "+chr$(93)+" "+_thelist$(tl)+space$(sp)

endif

if scaned=3

if tl>74 and tl<100

li=len(_thelist$(tl))

sp=20-li

if sp<0 then sp=0

ink rgb(0,0,0),rgb(0,0,0)

_newlist$(nl)=_newlist$(nl)+chr$(9)+chr$(91)+" "+chr$(93)+" "+_thelist$(tl)+space$(sp)

endif

inc nl

if nl>=25 then nl=0:inc scaned

next tl

rem *****************************************************************888

rem save out file to be loaded into wordpad

save array "list.txt",_newlist$() ` -this loads all the data in the array

cls RGB(0,128,0)

center Text 100,50, "Loading NotePad Please Wait."

sync

execute file "list.txt","1","1"

if printed<>0

empty array _newlist$(0)

dim _newlist$(50)

DELETE FILE  "list.txt"

endif

gosub drawboxes

_printed=1

ink RGB(0,128,0),RGB(0,128,0)

box 100,50,100,150

ink rgb(0,0,0),rgb(0,0,0)

endif

if scancode()=200 and click=0 : rem up

click=1

inc i

if i>r: i=r

endif

if scancode()=208 and click=0 : rem down

click=1

dec i

if i<0 : i=0

endif

`Prints list on screen

if scancode()=25 and click=0 :rem 25 = p key

click=1

if _printed=1 then _printed=0

set text font "arial",1

set text size 14

lc=0

tl=0

if oldi<>i

lc=0

_thelist$(l)=item$(i)

bevelbox(sw-620,sh-345,sw-20,sh-15,6,RGB(0,128,0),RGB(128,255,128),0,rgb(200,200,200))

ink rgb(0,0,0),rgb(255,255,255)

for tl=0 to l

if lc>=25 then lc=0

if tl<25

text 68,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>24 and tl<50

text 200,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>49 and tl<75

text 350,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>74 and tl<100

text 500,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

inc lc

next tl

inc l

oldi=i

inc i

if i>r: i=r:

endif

set text font "arial",1

set text size 16

endif

rem show items

if item$(i)<>"*"

ink RGB(200,200,200),RGB(0,0,0)

box 26,95,612,119

ink rgb(0,0,0),rgb(0,0,0)

text 50,98,"ITEM "+STR$(I)+" : "+ITEM$(I)

else

i=i-1

ink RGB(0,200,0),RGB(0,0,0)

box 27,97,612,119

ink rgb(0,0,0),rgb(0,0,0)

text 50,100,"ITEM "+STR$(I)+" : "+ITEM$(I)

endif

rem delete one

if scancode()=14 and click=0 and l<>0

click=1

REMOVE FROM STACK _thelist$(0)

lc=0

l=l-1

bevelbox(sw-620,sh-345,sw-20,sh-15,6,RGB(0,128,0),RGB(128,255,128),0,rgb(200,200,200))

ink rgb(0,0,0),rgb(255,255,255)

for tl=0 to l-1

if lc>=25 then lc=0

if tl<25

text 68,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>24 and tl<50

text 200,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>49 and tl<75

text 350,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

if tl>74 and tl<100

text 500,150+(12*lc),chr$(91)+" "+chr$(93)+" "+_thelist$(tl): rem +"  "+str$(l)+" "+str$(tl)+" "+str$(oldi)

endif

inc lc

next tl

endif

rem find a key code

if scancode()<>0

text 0,0,str$(scancode())

endif

rem clear all

if scancode()=211

EMPTY ARRAY _thelist$(0)

empty array _newlist$(0)

save array "C:Program FilesDark Basic SoftwareDark Basic ProfessionalProjectslist.txt",_newlist$() ` -this loads all the data in the array

dim _thelist$(500)

i=0

tl=0

lc=0

oldi=-1

l=0

bevelbox(sw-620,sh-345,sw-20,sh-15,6,RGB(0,128,0),RGB(128,255,128),0,rgb(200,200,200))

endif

if scancode()<>0

click=1

else

click=0

endif

loop

drawboxes:

rem screen bevel

bevelbox(sw/sw,sh/sh,sw,sh,6,RGB(0,128,0),RGB(128,255,128),0,rgb(0,128,0))

rem Item bevel

bevelbox(sw-620,sh-390,sw-20,sh-354,6,RGB(0,128,0),RGB(128,255,128),0,rgb(0,128,0))

rem List bevel

bevelbox(sw-620,sh-345,sw-20,sh-15,6,RGB(0,128,0),RGB(128,255,128),0,rgb(200,200,200))

return

function bevelbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_bevshade,_circlesize,_pagecolor)

rcol=rgbr(_maincolor) : gcol=rgbg(_maincolor) : bcol=rgbb(_maincolor)

box _left,_top,_right,_bottom,_pagecolor,_pagecolor,_pagecolor,_pagecolor

for _bev = 0 to _bevwidth

gcol=gcol-_bev

ink rgb(rcol,gcol,bcol),_foundcol

line _left+_bev-1,  _top+_bev,    _right-_bev, _top+_bev

line _left+_bev,  _bottom-_bev, _right-_bev, _bottom-_bev

line _left+_bev,  _top+_bev,    _left+_bev,  _bottom-_bev

line _right-_bev, _top+_bev,    _right-_bev, _bottom-_bev

next _bev

rem BOX 50,92,151,510,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	HowDo
CodeBase Entries:	5

CodeBase - use of Array commands

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments