Automatic covertion to ASCII problem

schtygnedec · Joined: 23 Jan 2014 Posts: 4

Hi, i'm new here Smile

I need to make a program but i have problems with ASCII converting... I need to input the key from number 1 to 100, but if i input letter key, it automatictly converts it to ASCII and that's not what it should be... Please help me, what's the easiest way to disable converting (which action)?

Sorry for my bad english, and thanks in advance Very Happy

albertsm · Joined: 09 Apr 2004 Posts: 5921 Location: Holland

i have no idea what you mean Very Happy

where do you get the letter from ?
Do you read this from the serial port or keyboard or what?
Anyway say you have a string with value "100" ., you can use VAL() to convert it to a numeric value.

Say you have "1" you can use ASC() to get the ascii value and the subtract 48 from it.
Just some ideas.

schtygnedec · Joined: 23 Jan 2014 Posts: 4

albertsm · Joined: 09 Apr 2004 Posts: 5921 Location: Holland

you say on PC but you mean the terminal emulator? when you enter a key on the keyboard of your PC, how will it end up at the micro?
you use some serial connection ?
in that case this would work :
dim x as byte, s as string * 3
do
x=waitkey()
s=s + chr(x)
if len(s)=3 then
x=val(s) 'now the value is stored in byte value into x
print "got " ; x
s="" ' reset for next time
end if
loop

schtygnedec · Joined: 23 Jan 2014 Posts: 4

I don't use any connection....

It's just a simple program, here :

albertsm · Joined: 09 Apr 2004 Posts: 5921 Location: Holland

aha, you mean you want input validation?
in that case you can input a string :
input "number?" , sSomeString

and then you check all characters in the string to be valid. you could use the mid() function for that.
here is some pseudo code:
J=len(sSomestring)
for a=1 to J
krk=mid(sSomestring,a,1) 'get character
p=instr("0123456789", krk) 'get pos
if p=0 then ' illegal data
....
end if
next

schtygnedec · Joined: 23 Jan 2014 Posts: 4

Thanks, it works great Very Happy