Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - daro

Pages: [1]
1
QB64 Discussion / Error with Constant comparison in SELECT CASE?
« on: May 17, 2021, 08:51:48 am »
I'm finding this strange error when using a constant inside of a select case, any ideas why?
I've tried many different ways but it seems to be the use of a CONST inside of the SELECT CASE giving the error.

Expected string expression on line 12
Caused by (or after) CASE "A", 1 , "a",1 , KEY_ARROW_LEFT


Code: QB64: [Select]
  1. Const KEY_ARROW_LEFT = Chr$(0) + Chr$(72)
  2. Const KEY_ARROW_UP = Chr$(0) + Chr$(72)
  3. Const KEY_ARROW_RIGHT = Chr$(0) + Chr$(77)
  4. Const KEY_ARROW_DOWN = Chr$(0) + Chr$(80)
  5. Const KEY_PAGE_UP = Chr$(0) + Chr$(73)
  6. Const KEY_PAGE_DOWN = Chr$(0) + Chr$(81)
  7.  
  9.  
  10.     keyp$ = InKey$
  11.     Select Case keyp$
  12.         Case "A", "a", KEY_ARROW_LEFT
  13.             Print " Left ";
  14.         Case "W", "w", KEY_ARROW_UP
  15.             Print " Up   ";
  16.         Case "D", "d" , KEY_ARROW_RIGHT
  17.             Print " Right";
  18.         Case "S", "s", KEY_ARROW_DOWN
  19.             Print " Down ";
  20.         Case "Z", "z", KEY_PAGE_DOWN
  21.             Print " P.Up ";
  22.         Case "X","x", KEY_PAGE_UP
  23.             Print "P.Down ";
  24.         Case KEY_ESCAPE
  25.             Exit Do
  26.     End Select
  27.  

Pages: [1]