Proton BASIC Community

Quote from: Yasin on May 19, 2022, 12:33 PM@keytapper thaks a lot. This was out of my mind.

Endproc and I assume Exitproc is the same, they are just a Return in different clothes
John

Quote from: John Drew on May 19, 2022, 01:52 PMEndproc and I assume Exitproc is the same, they are just a Return in different clothes
John

Dear @John Drew  They are not the same. While in PROC, ENDPROC can be used once. Its purpose is to tell the compiler where PROC ends. EXITPROC can be written more than once. To return when there is no need to continue PROC.

Thanks for the correction Yasin. I'll have to read the manual
Cheers
John

@basiclover

Here's a simple setup that reads the keypad and then debounces. It shows a complete procedure and a way of calling it.
There are many other ways to debounce as shown on this thread, some of them simpler. I find this one very effective.
Note you need to dimension bInkey as a global byte  (that is, outside the procedure).
I haven't tried to compile it but I think it's free of errors.

'dimension bInkey as byte

Proc GetKey()
Dim bCountIn As Byte
Dim bTemp As Byte

    bCountin = 0
    bInkey = InKey
    If bInkey = 16 Then          'no press
      Return
    Else
      bTemp = binkey            'contact of button
    EndIf 
    Repeat                      'look for delays in no button
    Agn:bInkey = InKey
        If bInkey = bTemp And bInkey <> 16 Then
            GoTo Agn
        Else
            If binkey = 16 then
              Inc bCountIn
              DelayMS 10
            Else
              bcountin = 0
            EndIf 
        EndIf     
    Until bCountIn = 10
    bInkey = bTemp
EndProc

Main:
    GetKey()
    If bInkey<> 16 Then Print At 1,1, Dec bInkey
    GoTo Main


seems that code lines are missing ? or I'm stupid

Quote from: John Drew on May 20, 2022, 05:12 AMHere's a simple setup

Sorry for spotting your oversight. There could be a better readability if you will use
code rather than quote tags

BasicLover,

Click on [Expand], and you will see all the code.

Regards,
Gamboa

thanks John and Gamboa

Click on expand button.
I couldn't find the code button, but I've fixed it now. Thanks Gamboa.
John

Hy John
when I compile I get error "item missing" on the last EndIf

added "then" at the end of line "If binkey = 16", then it compiles
any comment?

In old versions of the compiler you could often omit 'then' but in the latest versions of the Positron compiler 'then' is often necessary.

Johan

thanks

Quote from: basiclover on May 20, 2022, 02:29 PMadded "then" at the end of line "If binkey = 16", then it compiles
any comment?

Whoops, My most frequent mistake. Sorry about that. I also program in Delphi where "then" is not required. That's my excuse
I've fixed it with an edit.
John

no excuse required John
I appreciate your help very much
Thanks again