TheGameCreators - CodeBase - ASCII Values Chart in Terminal Font

Category: Complete Applications

Version: 1.0

Information

Uploaded: 13th Feb 2011 05:13

Modified: 22nd Mar 2011 20:42

Author: MaPo

Summary

I need a chart to help show me ASCII values. When running, I hit PrintScreen key and then I can paste it into a graphics program (I like Paint.Net these days). Then print it out. ** 3/14/11 ** I just realized the code was broken so I fixed it up; hope it works for anyone who wants to use it. I've been having a heck of a time experimenting with XP vs Vista vs 7 and so on, so I increased the resolution and the text size to something I think modern video drivers can support while still having the "text" look. *I think!*

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,32

set text font "terminal",1

set text size 30

`make the background white

box 0,0,1024,768

ypos=1

for i=33 to 63

drawStringFromInteger(1,ypos,i,0,0,0)

drawASCII(7,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=64 to 94

drawStringFromInteger(16,ypos,i,0,0,0)

drawASCII(22,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=95 to 125

drawStringFromInteger(31,ypos,i,0,0,0)

drawASCII(38,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=126 to 156

drawStringFromInteger(46,ypos,i,0,0,0)

drawASCII(53,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=157 to 187

drawStringFromInteger(61,ypos,i,0,0,0)

drawASCII(68,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=188 to 218

drawStringFromInteger(76,ypos,i,0,0,0)

drawASCII(83,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=219 to 249

drawStringFromInteger(91,ypos,i,0,0,0)

drawASCII(98,ypos,i,0,0,0)

ypos=ypos+2

next i

ypos=1

for i=250 to 255

drawStringFromInteger(107,ypos,i,0,0,0)

drawASCII(114,ypos,i,0,0,0)

ypos=ypos+2

next i

wait key

function drawASCII(x as integer,y as integer,char as integer,r as integer,g as integer, b as integer)

ink rgb (r,g,b),0

text (x*8),(y*12), chr$(char)

endfunction

function drawStringFromInteger(x as integer,y as integer,char as integer,r as integer,g as integer, b as integer)

ink rgb (r,g,b),0

text (x*8),(y*12),str$(char)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	MaPo
CodeBase Entries:	14

CodeBase - ASCII Values Chart in Terminal Font

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments