HOW do you clear the keystate buffer ?

Author

Message

-majic-

7

Years of Service

User Offline

Joined: 8th May 2016

Location: 3rd rock from the Sun

Posted: 23rd Nov 2016 23:23 Edited at: 24th Nov 2016 12:00

Link

Have a program that when it first runs needs to know 1 of 3 conditions

e=500:h=150:i=3

rem conditions
Q$(1)="New"
Q$(2)="Continue"
Q$(3)="End Program"

program goes to _menu1

_menu1:
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,19:print "( )";
ink rgb(150,0,200),0:set cursor (e+21),19:print str$(x);
ink rgb(150,150,150),0:set cursor (e+58),19:print Q$(x);
e=(e+h)
next x
_menu01:
if keystate(79) = 1 then r=1:goto _endm1
if keystate(80) = 1 then r=2:goto _endm1
if i = 2 then goto _menu01
if keystate(81) = 1 then r=3:goto _endm1
if i = 3 then goto _menu01
if keystate(75) = 1 then r=4:goto _endm1
if i = 4 then goto _menu01
if keystate(76) = 1 then r=5:goto _endm1
if i = 5 then goto _menu01
if keystate(77) = 1 then r=6:goto _endm1
goto _menu01
_endm1:
ink rgb(0,0,0),0:box 0,16,1920,50

after I get the condition from _menu1

program goes to _menu2 to get condition number TWO

e=500:h=150:i=3

say keystate 79 was pressed in _menu1 - then r=1 , tells the program to create a NEW file
then program goes to _menu2

rem conditions
Q$(1)="Red file"
Q$(2)="Blue file"
Q$(3)="Main Menu"

_menu2:
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,1040:print "( )";
ink rgb(150,0,200),0:set cursor (e+21),1040:print str$(x);
ink rgb(80,40,20),0:set cursor (e+58),1040:print Q$(x);
e=(e+h)
next x
_menu02:
if keystate(79) = 1 then r=1:goto _endm2
if keystate(80) = 1 then r=2:goto _endm2
if i = 2 then goto _menu02
if keystate(81) = 1 then r=3:goto _endm2
if i = 3 then goto _menu02
if keystate(75) = 1 then r=4:goto _endm2
if i = 4 then goto _menu02
if keystate(76) = 1 then r=5:goto _endm2
if i = 5 then goto _menu02
if keystate(77) = 1 then r=6:goto _endm2
_endm2:
ink rgb(0,0,0),0:box 0,1040,1920,1070

here in lies my problem: in _menu1 keystate(79) was pressed so now keystate(79) = 1
when the program gets to _menu2 , keystate(79) is already at 1 so the program automatically passes program control to keystate(79) even though I have not pressed "any" keys yet
HOW do you clear keystate() buffers so that they return to 0 ?

using inkey$ does not work either - SAME problem , what ever was last pressed , STAYS in the buffer , How do you clear the inkey$ buffers ?

The program works fine if I use input R
but this method requires me to press the condition number I want ( 1-2-3 ) and press the [enter] key.
My goal is to make the program run by pressing only one key ( 1-2-3 / a-b-c )

suggestions ???

-majic-

Back to top

Profile PM

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 24th Nov 2016 01:35 Edited at: 24th Nov 2016 01:37

Link

Hi there
Immediately you get into the new label , you could reset variable ....something like this:

+ Code Snippet

if scancode()=0 then variable=0

Here an example

+ Code Snippet

do
ink rgb(255,0,0),0 :box 0,0,100,100
ink rgb(90,90,90),0 :box 1,1,99,99
ink rgb(255,255,0),0
if keystate(30)=1 then a=1
set cursor 0,0
print "a  ",a
if scancode()=0 then a=0
if a=1 then text 0,40 ,"a is pressed"

sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

-majic-

7

Years of Service

User Offline

Joined: 8th May 2016

Location: 3rd rock from the Sun

Posted: 24th Nov 2016 10:25 Edited at: 24th Nov 2016 13:18

Link

using scancode() is no good either - has same problem as keystate() and inkey$ - once either of them is used the , the last data put into their buffer stays and it does not reset

the issue is not resetting the var r

the issue is resetting the keystate(79) back to zero

having scancode() = 0 , keystate() = 0 , inkey$ = "" , does not clear the buffer

When you use successive 'menus' as I am above , using scancode() , keystate() or inkey$ , ONLY works for the first time because the buffers are at zero , but once used , buffer changes from 0 to 1 and it stays at 1 , it does not reset itself for the next occurrence of the keystate() check
run this program with [num lock] ON , (scancode 156 is the [enter] key on the numeric keypad and keystate 79 is the number 1 of the numeric keypad
may need to adjust ( set cursor commands) depending on your screen resolution , mine is at 1920,1080,32

scancode()=0
keystate(79)=0
inkey$()=""

_001:
set cursor 500,400:print "at label 001";
_011:
if scancode()=156 then scancode()=0:goto _002
rem press this key or
if keystate(79)=1 then keystate(79)=0:goto _002
rem press this key
goto _011

_002:
set cursor 500,450:print "at label 002";
_012:
if scancode()=156 then scancode()=0:goto _003
if keystate(79)=1 then keystate(79)=0:goto _003
rem the program should STOP here at _002 and wait
rem for you to press another key either 1 or enter
rem but it does NOT , it goes straight thru to label _005
goto _012

_003:
set cursor 500,500:print "at label 003";
_013:
if inkey$()<>"" then inkey$()="":goto _004
goto _013
rem once 1 or enter is pressed , the buffers are filled with the 1 or enter data and it
rem just keeps passing the buffer data right on thru - never resetting itself to 0
rem that is the problem, how to reset buffers to zero state so that it stops at each
rem of the labels and WAITS for a key press , without having to use the input command

_004:
set cursor 500,550:print "at label 004";
_014:
if inkey$()<>"" then inkey$()="":goto _005
goto _014

_005:
set cursor 500,600:print "at label 005";

_wk:
wait key

_end:
end

so basically : HOW does one clear the keyboard buffer
if the keyboard buffer is cleared , then all scancodes for scancode() , keystate() , inkey$() , etc. should all revert to zero state

-majic-

Back to top

Profile PM

-majic-

7

Years of Service

User Offline

Joined: 8th May 2016

Location: 3rd rock from the Sun

Posted: 24th Nov 2016 14:29 Edited at: 24th Nov 2016 14:45

Link

< < < < < < < < < < < EUREKA > > > > > > > > > >

I THINK I FOUND THE SOLUTION !

call the function

clearbuffer()

create the function

function clearbuffer()
while inkey$() <> ""
az=0
endwhile
endfunction

-majic-

Back to top

Profile PM

-majic-

7

Years of Service

User Offline

Joined: 8th May 2016

Location: 3rd rock from the Sun

Posted: 24th Nov 2016 14:36 Edited at: 25th Nov 2016 10:05

Link

Here is my new program thus far and it WORKS !

cls
set display mode 1920,1080,32
set text font "tiredofcourier":set text size 26
set text to bold:set text opaque
hide mouse

_start:
cls
dim FD$(10,500):dim Q$(10)

ink rgb(0,100,0),0:box 0,0,1920,64
ink rgb(0,0,0),0:box 0,16,1920,50
Q$(1)="Current Month":Q$(2)="Previous Month":Q$(3)="Search"
e=650:h=260:i=3:r=0
gosub _menu1
if r=1 then goto _CM
if r=2 then goto _PM
goto _search

_CM:
GD$=get date$():GD1$=left$(GD$,2):GD2$=right$(GD$,2):CM$=GD1$+"-"+GD2$+".dbf"
if file exist (CM$) = 0 then goto _CM02
open to read 1,CM$
for x = 1 to 501
for y = 1 to 9
read string 1,FD$(x,y)
if FD$(x,y)="end" then goto _CM01
next y
next x

_CM01:
close file 1
LN=(x-1)
goto _CM03

_CM02:
LN=24
gosub _titles
gosub _linenumbers
gosub _Bmenu
e=600:h=260:i=3
Q$(1)="New Month":Q$(2)="New Account":Q$(3)="Main Menu"
gosub _menu2
if r=1 then goto _NM
if r=2 then goto _NA
goto _start

_NA:
ink rgb(255,0,0),0:set cursor 400,500:print "new account";
goto _wk

_NM:
ink rgb(0,0,255),0:set cursor 400,500:print "new month";
goto _wk

_CM03:

_PM:

_search:

_wk:
wait key

_end:
end
 
rem ==========================================================================================================================================
function clearbuffer()
while inkey$() <> ""
r=0
endwhile
endfunction

_titles:
ink rgb(0,100,0),0:box 0,0,1920,64
ink rgb(0,0,0),0:box 0,16,1920,50
ink rgb(0,0,255),0:set cursor 10,19:print "LINE";
set cursor 130,19:print "DATE";
set cursor 245,19:print "TRANSACTION";
set cursor 420,19:print "LOCATION";
set cursor 840,19:print "DESCRIPTION";
set cursor 1285,19:print "AMOUNT";
set cursor 1436,19:print "BALANCE";
set cursor 1574,19:print "CLEARED";
set cursor 1734,19:print "BANK";
return

_Bmenu:
ink rgb(0,0,50),0:box 0,1030,1920,1080
ink rgb(0,0,0),0:box 0,1040,1920,1070
return

_linenumbers:
f=70
if LN > 24 then N=24 else N=LN
for x = 1 to N
if x < 10 then np=8 else np=0
ink rgb(150,150,150),0:set cursor (20+np),f:print str$(x);
ink rgb(30,30,30),0:box 0,(f+34),1920,(f+36)
f=(f+40)
next x
return

_menu1:
clearbuffer()
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,19:print "(  )";
ink rgb(150,0,200),0:set cursor (e+21),19:print str$(x);
ink rgb(150,150,150),0:set cursor (e+58),19:print Q$(x);
e=(e+h)
next x
_menu01:
if keystate(79) = 1 then r=1:goto _endm1
if keystate(80) = 1 then r=2:goto _endm1
if i = 2 then goto _menu01
if keystate(81) = 1 then r=3:goto _endm1
if i = 3 then goto _menu01
if keystate(75) = 1 then r=4:goto _endm1
if i = 4 then goto _menu01
if keystate(76) = 1 then r=5:goto _endm1
if i = 5 then goto _menu01
if keystate(77) = 1 then r=6:goto _endm1
goto _menu01
_endm1:
ink rgb(0,0,0),0:box 0,16,1920,50
return

_menu2:
clearbuffer()
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,1040:print "(  )";
ink rgb(150,0,200),0:set cursor (e+21),1040:print str$(x);
ink rgb(80,40,20),0:set cursor (e+58),1040:print Q$(x);
e=(e+h)
next x
_menu02:
if keystate(79) = 1 then r=1:goto _endm2
if keystate(80) = 1 then r=2:goto _endm2
if i = 2 then goto _menu02
if keystate(81) = 1 then r=3:goto _endm2
if i = 3 then goto _menu02
if keystate(75) = 1 then r=4:goto _endm2
if i = 4 then goto _menu02
if keystate(76) = 1 then r=5:goto _endm2
if i = 5 then goto _menu02
if keystate(77) = 1 then r=6:goto _endm2
_endm2:
ink rgb(0,0,0),0:box 0,1040,1920,1070
return

+ Code Snippet

cls
set display mode 1920,1080,32
set text font "tiredofcourier":set text size 26
set text to bold:set text opaque
hide mouse

_start:
cls
dim FD$(10,500):dim Q$(10)

ink rgb(0,100,0),0:box 0,0,1920,64
ink rgb(0,0,0),0:box 0,16,1920,50
Q$(1)="Current Month":Q$(2)="Previous Month":Q$(3)="Search"
e=650:h=260:i=3:r=0
gosub _menu1
if r=1 then goto _CM
if r=2 then goto _PM
goto _search

_CM:
GD$=get date$():GD1$=left$(GD$,2):GD2$=right$(GD$,2):CM$=GD1$+"-"+GD2$+".dbf"
if file exist (CM$) = 0 then goto _CM02
open to read 1,CM$
for x = 1 to 501
for y = 1 to 9
read string 1,FD$(x,y)
if FD$(x,y)="end" then goto _CM01
next y
next x

_CM01:
close file 1
LN=(x-1)
goto _CM03

_CM02:
LN=24
gosub _titles
gosub _linenumbers
gosub _Bmenu
e=600:h=260:i=3
Q$(1)="New Month":Q$(2)="New Account":Q$(3)="Main Menu"
gosub _menu2
if r=1 then goto _NM
if r=2 then goto _NA
goto _start

_NA:
ink rgb(255,0,0),0:set cursor 400,500:print "new account";
goto _wk


_NM:
ink rgb(0,0,255),0:set cursor 400,500:print "new month";
goto _wk




_CM03:




_PM:

_search:



_wk:
wait key

_end:
end
 
rem ==========================================================================================================================================
function clearbuffer()
while inkey$() <> ""
r=0
endwhile
endfunction

_titles:
ink rgb(0,100,0),0:box 0,0,1920,64
ink rgb(0,0,0),0:box 0,16,1920,50
ink rgb(0,0,255),0:set cursor 10,19:print "LINE";
set cursor 130,19:print "DATE";
set cursor 245,19:print "TRANSACTION";
set cursor 420,19:print "LOCATION";
set cursor 840,19:print "DESCRIPTION";
set cursor 1285,19:print "AMOUNT";
set cursor 1436,19:print "BALANCE";
set cursor 1574,19:print "CLEARED";
set cursor 1734,19:print "BANK";
return

_Bmenu:
ink rgb(0,0,50),0:box 0,1030,1920,1080
ink rgb(0,0,0),0:box 0,1040,1920,1070
return

_linenumbers:
f=70
if LN > 24 then N=24 else N=LN
for x = 1 to N
if x < 10 then np=8 else np=0
ink rgb(150,150,150),0:set cursor (20+np),f:print str$(x);
ink rgb(30,30,30),0:box 0,(f+34),1920,(f+36)
f=(f+40)
next x
return

_menu1:
clearbuffer()
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,19:print "(  )";
ink rgb(150,0,200),0:set cursor (e+21),19:print str$(x);
ink rgb(150,150,150),0:set cursor (e+58),19:print Q$(x);
e=(e+h)
next x
_menu01:
if keystate(79) = 1 then r=1:goto _endm1
if keystate(80) = 1 then r=2:goto _endm1
if i = 2 then goto _menu01
if keystate(81) = 1 then r=3:goto _endm1
if i = 3 then goto _menu01
if keystate(75) = 1 then r=4:goto _endm1
if i = 4 then goto _menu01
if keystate(76) = 1 then r=5:goto _endm1
if i = 5 then goto _menu01
if keystate(77) = 1 then r=6:goto _endm1
goto _menu01
_endm1:
ink rgb(0,0,0),0:box 0,16,1920,50
return

_menu2:
clearbuffer()
for x = 1 to i
ink rgb(110,150,240),0:set cursor e,1040:print "(  )";
ink rgb(150,0,200),0:set cursor (e+21),1040:print str$(x);
ink rgb(80,40,20),0:set cursor (e+58),1040:print Q$(x);
e=(e+h)
next x
_menu02:
if keystate(79) = 1 then r=1:goto _endm2
if keystate(80) = 1 then r=2:goto _endm2
if i = 2 then goto _menu02
if keystate(81) = 1 then r=3:goto _endm2
if i = 3 then goto _menu02
if keystate(75) = 1 then r=4:goto _endm2
if i = 4 then goto _menu02
if keystate(76) = 1 then r=5:goto _endm2
if i = 5 then goto _menu02
if keystate(77) = 1 then r=6:goto _endm2
_endm2:
ink rgb(0,0,0),0:box 0,1040,1920,1070
return

-majic-

Back to top

Profile PM

Mage

17

Years of Service

User Offline

Joined: 3rd Feb 2007

Location: Canada

Posted: 25th Nov 2016 12:27 Edited at: 25th Nov 2016 13:47

Link

+ Code Snippet

Function Input_Generic(MyX, MyY, Prompt$)
   MyBuffer$ = ""
   clear entry buffer
   Repeat
      Text MyX, MyY, Prompt$
      text MyX, MyY + 10, Entry$()
      if keystate(14) then clear entry buffer
      Sync
   Until keystate(28)
   while keystate(28)
   endwhile

   MyBuffer$ = Entry$()
   Ln = Len(MyBuffer$)
   MyBuffer$ = Left$(MyBuffer$, Ln - 1)
   clear entry buffer
EndFunction MyBuffer$

Consider using common input functions and organizing input processing into central locations within your program.
Peppering you program with inputs everywhere is building you own nightmare.

Also if you're going to use Keystates like that you should consider programming it to activate when the button is released,
This problem is called Input Flooding.

Back to top

Profile PM

-majic-

7

Years of Service

User Offline

Joined: 8th May 2016

Location: 3rd rock from the Sun

Posted: 25th Nov 2016 13:39

Link

input flooding

Thank You for your input , something to consider later on

but your code is above this nubbys' skills at this time

my five lines of function code vs your 17 is enough for me

Thanks again

-majic-

Back to top

Profile PM

Mage

17

Years of Service

User Offline

Joined: 3rd Feb 2007

Location: Canada

Posted: 25th Nov 2016 13:55

Link

Quote: "my five lines of function code vs your 17 is enough for me"

The point is my 17 lines only needs to be written once, and when I improve them the whole program sees the benefit.

The code I posted also lets you type a complete sentence. I thought it might be helpful to someone.

Thanks for the reply.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / HOW do you clear the keystate buffer ?