another question about line input

[badger]

Hello

Sorry to post so many questions but i have not use qb since the 90s. This new version has some things i dont even know are there...

Question is there any way to trap chr$(13) <enter> from a line input
as far as i know you cant

Badger

[SMcNeill]

Trap it from it?  CHR$(13) is the ENTER key, and designates the end of input; it’s not included in the input itself.

What exactly are you attempting/wanting to do?

[badger]

Hello

I am using only one input in my program. I do not want the ? mark that input puts in. So when the user hits enter the input sr should have the value of chr$(13) instead line input used the enter to end the string. so here is what i want to do

if a$=chr$(13) then do something else

Badger

[bplus]

Sounds like you want INKEY$ (the old way) or _KEYHIT the new way or _KEYDOWN for key combos.

[FellippeHeitor]

On the other hand, if the variable is empty, that means the user just pressed enter.

[badger]

Hello

@FellippeHeitor
that is try but i am unable to trap that condition in a case statement any suggestions


this is a condition i sorta need to fix .. i dont like to have loop holes in my programs LOL

Badger

[bplus]

Hello

@FellippeHeitor
that is try but i am unable to trap that condition in a case statement any suggestions


this is a condition i sorta need to fix .. i dont like to have loop holes in my programs LOL

Badger

No fix needed, if the variable comes back empty = "" then <enter> is all that was pressed (for LINE INPUT or just INPUT)

Code: QB64: [Select]

1. LINE INPUT "prompt ", var$ ' <<<<<<<<<< notice no ?
2. IF var$ = "" THEN PRINT "You just pressed <enter>."
3.  
4.  
5.  

[badger]

Hello

Gee that worked i must have done something wrong LOL i will go back and check and see

I guess that was a dumb question

Thanks a lot for your response

Badger

[bplus]

So here, try this:

Code: QB64: [Select]

1. _DEFINE sr AS STRING
2. SELECT CASE sr
3.         CASE CHR$(88): RETURN 'X
4.         CASE CHR$(45): GOTO inv6 '-
5.         'CASE CHR$(13): GOTO s1 ' enter key or ""
6.          CASE "" : GOTO s1  '<<<<<<<<<<<<<<<<<<<<<<<<< try for just enter on LINE INPUT
7.         CASE ELSE
8.                 GOSUB custinforec_null
9.                 custinforec.id = sr
10.                 GOSUB inv0
11.                 GOTO s2
12. END SELECT
13.  
14.  

[badger]

Hello

I am so embarrassed i figured out why that was not working.. i had left out a gosub so sr was equal to the value it received when from the main menu which was 1. so i figured that out and all is fine thanks so much for your the help i received. i cant get over what i did LOL.  i am sorta cleaning up some code going from a bunch of if/then to  case i cut to much.

Badger

[bplus]

Me, I have 1 - 3 stupid blunders a day usually. @!%# Why isn't this working... oh!

[badger]

Hello

Yes that is exactly what happened .. just sorta look at another spot that worked and there it was ok should have had a v8

lol

Badger