TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Core

Version: 1.0

Information

Uploaded: 16th May 2008 09:25

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

TextBox on Dark Basic Pro

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 1024,768,16

fname$=""

cls rgb(0,0,0)

set cursor 325,252

print "Firstname:"

set cursor 414,252

print fname$

line 409,249,611,249

line 409,271,611,271

line 409,249,409,271

line 611,249,611,271

dim keyz(211)

if mouseclick()=1 and mousex()>=409 and mousex()<=611 and mousey()>=249 and mousey()<=271

k=100

pos# = len(fname$)

z=z+1

cls rgb(0,0,0)

set cursor 325,252

print "Firstname:"

line 409,249,611,249

line 409,271,611,271

line 409,249,409,271

line 611,249,611,271

for p=14 to 211

keyz(p)=keyz(p)+1

next p

if z>=10

z=0

line 414+8*pos#,252,414+8*pos#,267

if l=1

l=0

else

l=1

line 414+8*pos#,252,414+8*pos#,267

endif

if leftkey()=1 and pos#>0 and keyz(203)>=200 then pos#=pos#-1:keyz(203)=0

if scancode()=14 and pos#>0 and keyz(14)>=200

fname$ = left$(fname$,pos#-1)+right$(fname$,len(fname$)-pos#)

keyz(14)=0

pos#=pos#-1

endif

if scancode()=211 and keyz(211)>=200

fname$ = left$(fname$,pos#)+right$(fname$,len(fname$)-pos#-1)

keyz(211)=0

endif

if rightkey()=1 and pos#<=len(fname$) and keyz(205)>=200 then pos#=pos#+1:keyz(205)=0

if spacekey()=1 and keyz(57)>=100 and len(fname$)<24

fname$ = left$(fname$,pos#)+" "+right$(fname$,len(fname$)-pos#)

keyz(57)=0

pos#=pos#+1

endif

if keystate(scancode())=1 and keyz(scancode())>=200 and len(fname$)<24

fname$ = left$(fname$,pos#)+code_to_symbol(Scancode())+right$(fname$,len(fname$)-pos#)

keyz(scancode())=0

if code_to_symbol(Scancode())<>"" then pos#=pos#+1

endif

if scancode()=28 or scancode()=156

EXIT

endif

set cursor 414,252

print fname$

loop

cls rgb(0,0,0)

endif

loop

function code_to_symbol(sc)

SELECT sc

case 16

symb$="q"

endcase

case 17

symb$="w"

endcase

case 18

symb$="e"

endcase

case 19

symb$="r"

endcase

case 20

symb$="t"

endcase

case 21

symb$="y"

endcase

case 22

symb$="u"

endcase

case 23

symb$="i"

endcase

case 24

symb$="o"

endcase

case 25

symb$="p"

endcase

case 30

symb$="a"

endcase

case 31

symb$="s"

endcase

case 32

symb$="d"

endcase

case 33

symb$="f"

endcase

case 34

symb$="g"

endcase

case 35

symb$="h"

endcase

case 36

symb$="j"

endcase

case 37

symb$="k"

endcase

case 38

symb$="l"

endcase

case 44

symb$="z"

endcase

case 45

symb$="x"

endcase

case 46

symb$="c"

endcase

case 47

symb$="v"

endcase

case 48

symb$="b"

endcase

case 49

symb$="n"

endcase

case 50

symb$="m"

endcase

endselect

endfunction symb$

Download

Please login to download

Comments

No comments yet.

CodeBase - TextBox

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1