TheGameCreators - CodeBase - ASCII Transelator

Return to the CodeBase listing

Category: Miscellaneous

Version: .5

Information

Uploaded: 19th Oct 2005 14:26

Modified: 19th Oct 2005 15:46

Author: Coder#05

Summary

Translete your name to ASCII Values. No attachments. im a begginer( as you can see) hehe

Full Description

Just a fun litle thing

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : ASCII Transelator

Rem * Author : Mika J Olaussen

Rem * Date   : 101905

rem create a array to store the charecters in:

start:

DIM name$(100)

repeat

cls

print "ascii transelator"

print "please enter your name"

rem inform user that he/she just need to press enter to see the result

print "pres enter to continue"

input name$

until len(name$) <=100 and len(name$) >0

rem the transelator

for x = 1 to len(name$) step 1

print asc(mid$(name$,x))

next x

wait key

rem the info scren

rem some info

cls

Print "type end to quit the program, or enter to try again"

Print "hold the upkey and press enter to view the info screen, ","if you want to ",name$

input a$

if a$= "end" then end

rem the help screen

if upkey()=1

cls

else

goto start

endif

help$="info screen"

width= text width(help$)

set text font "times new roman"

ink rgb(55,255,55),rgb(10,10,10)

set text size 30

text 320 - width /2,10,help$

set text size 20

text 20,40, "the numbers below your name are the ascii value off the characters in your name"

text 20,65, "example:"

print "mika"

print chr$(77), " ",asc(mid$("mika",1))

print chr$(105), " ",asc(mid$("mika",2))

print chr$(107), " ",asc(mid$("mika",3))

print chr$(97), " ",asc(mid$("mika",4))

dim whatisasc$(4)

dim q(4)

set text size 15

whatisasc$(0) ="ASCII stands for American Standard Code for Information Interchange."

q(0)= text width(whatisasc$(0))

text 300 - q(0)/2,200,whatisasc$(0)

whatisasc$(1) ="Computers don't know what characters and words are, but they do understand numbers."

q(1)= text width(whatisasc$(1))

text 300 - q(1)/2,220,whatisasc$(1)

whatisasc$(2)="so a loong time ago some people decided to give every character on the keyboard a number"

q(2)= text width(whatisasc$(2))

text 300 - q(2)/2,240,whatisasc$(2)

whatisasc$(3)= "they also created numbers for varius other signs like the smiley, now press any key"

q(3)= text width(whatisasc$(3))

text 300 - q(3)/2,260,whatisasc$(3)

suspend for key

cls

text 30,10,"authur: Mika J Olaussen"

text 30,30,"now plz donate 100$ to nylandsvej 1 D and get a free cigaret (just joking)"

text 30,40,"sorry for all the miss spelling, but the time is 06:14 in the morning"

CodeBase - ASCII Transelator

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Coder#05
CodeBase Entries:	2