You're probably aware that the 12 function keys can generate 48 functions (FKey, Shift FKey, Ctrl FKey, Alt Fkey). You might be aware that there are 12 more function keys by using ALT and any of 0-9 , - , and -. You're probably not aware of some functions, like ALT-Pg Down , Shift Pg Down, beyond the usual Pg Down and Ctrl Pg Down. But did you know about ALT-Comma, and Alt-Open Brace (Actually it's available as ALT-[ and as ALT-{.)

I have created a file containing the definition for essentially every key combination recognized by Inkey$ a set of named constants. It's intended to go by most used to least used:

• All F-Keys
  
• ALT numbers
  
• ALT punctuation
  
• Regular upper case (Capitals)
  
• Regular lower case
  
• Digits
  
• Punctuation
  
• Control Characters
  

'                                ASCII Keyboard Codes

'

'  Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11  F12  Sys ScL Pause

'  27 +59 +60 +61 +62 +63 +64 +65 +66 +67 +68  +133 +134  -  -    -

'  `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp  Ins Hme PUp  NumL  /  *    -

'  126 33  64  35  36  37  94  38  42  40  41 95 43  8    +82 +71 +73    -    47  42  45

'  96 49  50  51  52  53  54  55  56  57  48 45 61

'  Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del End PDn  7Hme 8/?  9PU  +

'  9  81  87  69  82  84  89  85  73  79  80 123 125 124  +83 +79 +81  +71  +72  +73  43

'    113 119 101 114 116 121 117 105 111 112  91  93  92                55  56  57

'  CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                4/?-  5  6/-?

'    -  65  83  68  70  71  72  74  75  76  58  34  13                  +75  +76  +77  E

'        97 115 100 102 103 104 106 107 108  59  39                      52  53  54  n

'  Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ?        1End 2/?  3PD  t

'    *    90  88  67  86  66  78  77  60  62  63      *        +72      +79  +80  +81  e

'        122 120  99 118  98 110 109  44  46  47                          49  50  51  r

'  Ctrl Win Alt      Spacebar          Alt Win Menu Ctrl  ?-  ?  -?  0Ins    .Del

'  *    -  *          32              *  -  -    *    +75 +80 +77  +82      +83  13

'                                                                        48        46

'

'    Italics = LCase/NumLock On  * = 2 byte combo only,  + = 2 Byte: CHR$(0) + CHR$(code)

'







' Alt #

Const KeyAlt0 = Chr$(0) + Chr$(129)

Const KeyAlt1 = Chr$(0) + Chr$(120)

Const KeyAlt2 = Chr$(0) + Chr$(121)

Const KeyAlt3 = Chr$(0) + Chr$(122)

Const KeyAlt4 = Chr$(0) + Chr$(123)

Const KeyAlt5 = Chr$(0) + Chr$(124)

Const KeyAlt6 = Chr$(0) + Chr$(125)

Const KeyAlt7 = Chr$(0) + Chr$(126)

Const KeyAlt8 = Chr$(0) + Chr$(127)

Const KeyAlt9 = Chr$(0) + Chr$(128)

Const KeyAltMinus = Chr$(0) + Chr$(130)

Const KeyAltPlus = Chr$(0) + Chr$(131)



' Alt + Letter

Const KeyAltA = Chr$(0) + Chr$(30)

Const KeyAltB = Chr$(0) + Chr$(48)

Const KeyAltC = Chr$(0) + Chr$(46)

Const KeyAltD = Chr$(0) + Chr$(32)

Const KeyAltE = Chr$(0) + Chr$(18)

Const KeyAltF = Chr$(0) + Chr$(33)

Const KeyAltG = Chr$(0) + Chr$(34)

Const KeyAltH = Chr$(0) + Chr$(35)

Const KeyAltI = Chr$(0) + Chr$(23)

Const KeyAltJ = Chr$(0) + Chr$(36)

Const KeyAltK = Chr$(0) + Chr$(37)

Const KeyAltL = Chr$(0) + Chr$(38)

Const KeyAltM = Chr$(0) + Chr$(50)

Const KeyAltN = Chr$(0) + Chr$(49)

Const KeyAltO = Chr$(0) + Chr$(24)

Const KeyAltP = Chr$(0) + Chr$(25)

Const KeyAltQ = Chr$(0) + Chr$(16)

Const KeyAltR = Chr$(0) + Chr$(19)

Const KeyAltS = Chr$(0) + Chr$(31)

Const KeyAltT = Chr$(0) + Chr$(20)

Const KeyAltU = Chr$(0) + Chr$(22)

Const KeyAltV = Chr$(0) + Chr$(47)

Const KeyAltW = Chr$(0) + Chr$(17)

Const KeyAltX = Chr$(0) + Chr$(45)

Const KeyAltY = Chr$(0) + Chr$(21)

Const KeyAltZ = Chr$(0) + Chr$(44)



' Function Keys

Const KeyF1 = Chr$(0) + Chr$(59)

Const KeyF2 = Chr$(0) + Chr$(60)

Const KeyF3 = Chr$(0) + Chr$(61)

Const KeyF4 = Chr$(0) + Chr$(62)

Const KeyF5 = Chr$(0) + Chr$(63)

Const KeyF6 = Chr$(0) + Chr$(64)

Const KeyF7 = Chr$(0) + Chr$(65)

Const KeyF8 = Chr$(0) + Chr$(66)

Const KeyF9 = Chr$(0) + Chr$(67)

Const KeyF10 = Chr$(0) + Chr$(68)

Const KeyF11 = Chr$(0) + Chr$(133)

Const KeyF12 = Chr$(0) + Chr$(134)



' Function Keys - Alt

Const KeyAltF1 = Chr$(0) + Chr$(104)

Const KeyAltF2 = Chr$(0) + Chr$(105)

Const KeyAltF3 = Chr$(0) + Chr$(106)

Const KeyAltF4 = Chr$(0) + Chr$(107) ' Closes Program

Const KeyAltF5 = Chr$(0) + Chr$(108)

Const KeyAltF6 = Chr$(0) + Chr$(109)

Const KeyAltF7 = Chr$(0) + Chr$(110)

Const KeyAltF8 = Chr$(0) + Chr$(111)

Const KeyAltF9 = Chr$(0) + Chr$(112)

Const KeyAltF10 = Chr$(0) + Chr$(113)

Const KeyAltF11 = Chr$(0) + Chr$(139)

Const KeyAltF12 = Chr$(0) + Chr$(140)



' Function Keys - Ctrl

Const KeyCtrlF1 = Chr$(0) + Chr$(94)

Const KeyCtrlF2 = Chr$(0) + Chr$(95)

Const KeyCtrlF3 = Chr$(0) + Chr$(96)

Const KeyCtrlF4 = Chr$(0) + Chr$(97)

Const KeyCtrlF5 = Chr$(0) + Chr$(98)

Const KeyCtrlF6 = Chr$(0) + Chr$(99)

Const KeyCtrlF7 = Chr$(0) + Chr$(100)

Const KeyCtrlF8 = Chr$(0) + Chr$(101)

Const KeyCtrlF9 = Chr$(0) + Chr$(102)

Const KeyCtrlF10 = Chr$(0) + Chr$(103)

Const KeyCtrlF11 = Chr$(0) + Chr$(137)

Const KeyCtrlF12 = Chr$(0) + Chr$(138)



' Function Keys - Shift

Const KeyShiftF1 = Chr$(0) + Chr$(84)

Const KeyShiftF2 = Chr$(0) + Chr$(85)

Const KeyShiftF3 = Chr$(0) + Chr$(86)

Const KeyShiftF4 = Chr$(0) + Chr$(87)

Const KeyShiftF5 = Chr$(0) + Chr$(88)

Const KeyShiftF6 = Chr$(0) + Chr$(89)

Const KeyShiftF7 = Chr$(0) + Chr$(90)

Const KeyShiftF8 = Chr$(0) + Chr$(91)

Const KeyShiftF9 = Chr$(0) + Chr$(92)

Const KeyShiftF10 = Chr$(0) + Chr$(93)

Const KeyShiftF11 = Chr$(0) + Chr$(133)

Const KeyShiftF12 = Chr$(0) + Chr$(134)





' Cursor keys -

Const KeyDel = Chr$(0) + Chr$(83)

Const KeyDown = Chr$(0) + Chr$(80)

Const KeyEnd = Chr$(0) + Chr$(79)

Const KeyIns = Chr$(0) + Chr$(82)

Const KeyLeft = Chr$(0) + Chr$(75)

Const KeyPgDown = Chr$(0) + Chr$(81)

Const KeyPgUp = Chr$(0) + Chr$(73)

Const KeyRight = Chr$(0) + Chr$(77)

Const KeyUp = Chr$(0) + Chr$(72)



' Cursor keys - Alt

Const KeyAltDel = Chr$(0) + Chr$(163)

Const KeyAltDown = Chr$(0) + Chr$(160)

Const KeyAltEnd = Chr$(0) + Chr$(159)

Const KeyAltIns = Chr$(0) + Chr$(162)

Const KeyAltLeft = Chr$(0) + Chr$(157)

Const KeyAltPgDown = Chr$(0) + Chr$(161)

Const KeyAltPgUp = Chr$(0) + Chr$(153)

Const KeyAltRight = Chr$(0) + Chr$(155)

Const KeyAltUp = Chr$(0) + Chr$(152)



' Cursor keys - Ctrl

Const KeyCtrlDel = Chr$(0) + Chr$(147)

Const KeyCtrlDown = Chr$(0) + Chr$(145)

Const KeyCtrlEnd = Chr$(0) + Chr$(117)

Const KeyCtrlIns = Chr$(0) + Chr$(146)

Const KeyCtrlLeft = Chr$(0) + Chr$(115)

Const KeyCtrlPgDown = Chr$(0) + Chr$(118)

Const KeyCtrlPgUp = Chr$(0) + Chr$(132)

Const KeyCtrlRight = Chr$(0) + Chr$(116)

Const KeyCtrlUp = Chr$(0) + Chr$(141)



' Cursor keys - Shift

Const KeyShiftDel = Chr$(0) + Chr$(83)

Const KeyShiftDown = Chr$(0) + Chr$(80)

Const KeyShiftEnd = Chr$(0) + Chr$(79)

Const KeyShiftIns = Chr$(0) + Chr$(82)

Const KeyShiftLeft = Chr$(0) + Chr$(75)

Const KeyShiftPgDown = Chr$(0) + Chr$(81)

Const KeyShiftPgUp = Chr$(0) + Chr$(73)

Const KeyShiftRight = Chr$(0) + Chr$(77)

Const KeyShiftUp = Chr$(0) + Chr$(72)



'Other

Const KeyAltComma = Chr$(0) + Chr$(51)

Const KeyAltPeriod = Chr$(0) + Chr$(52)

Const KeyAltSlash = Chr$(0) + Chr$(53)

Const KeyAltSemiColon = Chr$(0) + Chr$(39)

Const KeyAltQuote = Chr$(0) + Chr$(40)

Const KeyAltOpenBracket = Chr$(0) + Chr$(26) '  [

Const KeyAltCloseBracket = Chr$(0) + Chr$(27) ' ]

Const KeyAltBackSlash = Chr$(0) + Chr$(43) '    \

Const KeyAltNumericPlus = Chr$(0) + Chr$(131) ' + on the number pad

Const KeyAltBackspace = Chr$(0) + Chr$(14)

Const KeyAltTilde = Chr$(0) + Chr$(41)



Const KeyCtrlBackspace = Chr$(0) + Chr$(147)



' Capital Letters

Const KeyCapitalA = "A"

Const KeyCapitalB = "B"

Const KeyCapitalC = "C"

Const KeyCapitalD = "D"

Const KeyCapitalE = "E"

Const KeyCapitalF = "F"

Const KeyCapitalG = "G"

Const KeyCapitalH = "H"

Const KeyCapitalI = "I"

Const KeyCapitalJ = "J"

Const KeyCapitalK = "K"

Const KeyCapitalL = "L"

Const KeyCapitalM = "M"

Const KeyCapitalN = "N"

Const KeyCapitalO = "O"

Const KeyCapitalP = "P"

Const KeyCapitalQ = "Q"

Const KeyCapitalR = "R"

Const KeyCapitalS = "S"

Const KeyCapitalT = "T"

Const KeyCapitalU = "U"

Const KeyCapitalV = "V"

Const KeyCapitalW = "W"

Const KeyCapitalX = "X"

Const KeyCapitalY = "Y"

Const KeyCapitalZ = "Z"



' Lower Case

Const KeyLowerCaseA = "a"

Const KeyLowerCaseB = "b"

Const KeyLowerCaseC = "c"

Const KeyLowerCaseD = "d"

Const KeyLowerCaseE = "e"

Const KeyLowerCaseF = "f"

Const KeyLowerCaseG = "g"

Const KeyLowerCaseH = "h"

Const KeyLowerCaseI = "i"

Const KeyLowerCaseJ = "j"

Const KeyLowerCaseK = "k"

Const KeyLowerCaseL = "l"

Const KeyLowerCaseM = "m"

Const KeyLowerCaseN = "n"

Const KeyLowerCaseO = "o"

Const KeyLowerCaseP = "p"

Const KeyLowerCaseQ = "q"

Const KeyLowerCaseR = "r"

Const KeyLowerCaseS = "s"

Const KeyLowerCaseT = "t"

Const KeyLowerCaseU = "u"

Const KeyLowerCaseV = "v"

Const KeyLowerCaseW = "w"

Const KeyLowerCaseX = "x"

Const KeyLowerCaseY = "y"

Const KeyLowerCaseZ = "z"



' Digits

Const KeyDigit0 = "0"

Const KeyDigit1 = "1"

Const KeyDigit2 = "2"

Const KeyDigit3 = "3"

Const KeyDigit4 = "4"

Const KeyDigit5 = "5"

Const KeyDigit6 = "6"

Const KeyDigit7 = "7"

Const KeyDigit8 = "8"

Const KeyDigit9 = "9"



' Punctuation

Const Dquote = Chr$(34) ' "

Const Squote = "''" '    '



Const KeyAmpersand = "&"

Const KeyAsterisk = "*"

Const KeyAt = "@"

Const KeyBackslash = "\"

Const KeyCaret = "^"

Const KeyCloseBracket = "]"

Const KeyCloseCurl = "}"

Const KeyCloseParen = ")"

Const KeyColon = ":"

Const KeyComma = ","

Const KeyDollar = "$"

Const KeyEqual = "="

Const KeyExclamation = "!"

Const KeyGreaterThan = ">"

Const KeyLessThan = "<"

Const KeyMinus = "-"

Const KeyOpenBracket = "["

Const KeyOpenCurl = "{"

Const KeyOpenParen = "("

Const KeyPercent = "%"

Const KeyPeriod = "."

Const KeyPipe = "|"

Const KeyPlus = "+"

Const KeyPound = "#"

Const KeyQuestion = "?"

Const KeySemiColon = ";"

Const KeyTick = "`"

Const KeyTilde = "~"

Const KeyUnderscore = "_"



' Control Codes

Const KeyCtrlA = Chr$(1)

Const KeyCtrlB = Chr$(2)

Const KeyCtrlC = Chr$(3)

Const KeyCtrlD = Chr$(4)

Const KeyCtrlE = Chr$(5)

Const KeyCtrlF = Chr$(6)

Const KeyCtrlG = Chr$(7)

Const KeyCtrlH = Chr$(8)

Const KeyCtrlI = Chr$(9)

Const KeyCtrlJ = Chr$(10)

Const KeyCtrlK = Chr$(11)

Const KeyCtrlL = Chr$(12)

Const KeyCtrlM = Chr$(13)

Const KeyCtrlN = Chr$(14)

Const KeyCtrlO = Chr$(15)

Const KeyCtrlP = Chr$(16)

Const KeyCtrlQ = Chr$(17)

Const KeyCtrlR = Chr$(18)

Const KeyCtrlS = Chr$(19)

Const KeyCtrlT = Chr$(20)

Const KeyCtrlU = Chr$(21)

Const KeyCtrlV = Chr$(22)

Const KeyCtrlW = Chr$(23)

Const KeyCtrlX = Chr$(24)

Const KeyCtrlY = Chr$(25)

Const KeyCtrlZ = Chr$(26)

Const KeyEscape = Chr$(27)

Const KeyFS = Chr$(28) ' File Separator

Const KeyGS = Chr$(29) ' Group Separator

Const KeyRS = Chr$(30) ' Record Separator

Const KeyUS = Chr$(31) ' Unit Separator

Const KeySpace = " "











Do

    R$ = InKey$

    If R$ <> "" Then

        Print Asc(R$, 1);

        If Len(R$) = 2 Then Print Asc(R$, 2)

    End If

Loop

Attached Files

  KeyCodes.bas (Size: 10.3 KB / Downloads: 45)

Rosetta code didn't have a QB64 version of a Gnome Sort so I made one.

'GnomeSort.bas

'a sorting algorithm that will sort a one dimensional array of any size from lowest to greatest value

'https://en.wikipedia.org/wiki/Gnome_sort

'initialize two different one dimensional arrays to demonstrate the subroutine

Randomize Timer

Dim A(1 To 6)

Dim B(-5 To 5)

For I = LBound(A) To UBound(A)

    A(I) = (Rnd(1) * 100)

Next I

For I = LBound(B) To UBound(B)

    B(I) = Int(Rnd(1) * 100) + 1

Next I



'display the arrays before and after the gnomesort

Print "unsorted array: ";: printarray A(): Print

gnomesort A()

Print "  sorted array: ";: printarray A(): Print



Print "unsorted array: ";: printarray B(): Print

gnomesort B()

Print "  sorted array: ";: printarray B(): Print

End



Sub printarray (array())

    'print all the elements in a 1 dimensional array  of any range

    For I = LBound(array) To UBound(array)

        Print array(I);

    Next I

End Sub



Sub gnomesort (array())

    'sort a one dimensional array of any size using gnomesort

    'https://en.wikipedia.org/wiki/Gnome_sort

    I = LBound(array) + 1 'find the lowest element in the array and add 1 for the sorting routine

    J = I + 1

    While I <= UBound(array)

        If array(I - 1) <= array(I) Then

            I = J

            J = J + 1

        Else If array(I - 1) > array(I) Then

                Swap array(I - 1), array(I)

                I = I - 1

                If I = LBound(array) Then

                    I = J

                    J = J + 1

                End If

            End If

        End If

    Wend

End Sub

Const limit = 200000

Dim Shared NumStr(limit) As String



MakeNumsStrings

t# = Timer(0.001)

o$ = AddStrings 'time how long it takes to add those strings together

t1# = Timer(0.001)

o1$ = MidStrings(Len(o$)) 'and time how long it takes to just mid$ those strings, if you know the size

t2# = Timer(0.001)



Print "Results:"

Print "First 50: "; Left$(o$, 50)

Print "First 50: "; Left$(o1$, 50)

Print "Last  50: "; Right$(o$, 50)

Print "Last  50: "; Right$(o$, 50)

Print

Print

Print Using "It took ###.### seconds to AddStrings"; t1# - t#

Print Using "It took ###.### seconds to MidStrings"; t2# - t1#



Sub MakeNumsStrings

    For i = 1 To limit

        NumStr(i) = _Trim$(Str$(i))

    Next

End Sub



Function AddStrings$

    For i = 1 To limit

        temp$ = temp$ + NumStr(i)

    Next

    AddStrings = temp$

End Function



Function MidStrings$ (size)

    temp$ = Space$(size)

    p = 1 'position in full string

    For i = 1 To limit

        Mid$(temp$, p) = NumStr(i)

        p = p + Len(NumStr(i))

    Next

    MidStrings = temp$

End Function

I asked Perplexity AI what it thought my pipecom code did by asking it to read that page of the forum.

My prompt was

Quote:Analyze the code in the code block and give a best guess as to what it is used for

Quote:The code you provided appears to be an implementation of a pipe command in QB64, a BASIC programming language. The purpose of this code is to allow executing external commands and capturing their output and error streams[1].

Here's a breakdown of what the code does:

1. It defines a function called `pipecom` that takes a command string, an output string variable, and an error string variable as parameters.

2. The function creates two pipes using `CreatePipe` - one for standard output and one for standard error. It also sets up the necessary security attributes and startup information for the child process.

3. It then creates a child process using `CreateProcess` or `CreateProcessW` (depending on whether UNICODE is defined) to execute the specified command.

4. The function reads the output from the child process's standard output and error pipes using `ReadFile` and stores them in the provided output and error string variables.

5. Finally, it waits for the child process to exit, retrieves its exit code, and returns it.

There is also a helper function called `pipecom_lite` that simplifies the usage of `pipecom` by returning either the standard output or standard error stream as a string, depending on which one is not empty.

This code allows running external commands and capturing their output and error streams within a QB64 program, which can be useful for tasks such as executing system commands, parsing command output, or handling errors from external processes.

Citations:
[1] https://qb64phoenix.com/forum/showthread...20has%20co

I'm working on a game, see, and I don't want the player to be able to hold down the fire-button indefinitely (that's cheating!). So I tried setting up a timer that kills the left mouse button after a second and a half. All is cool if the mouse is stationary, but the minute you move the mouse the button resets itself - without the user letting the button up - not cool. Is this a Mac mouse issue, a QB64PE mouse issue or a dumb NakedApe issue?
Is there a better way to do this?       

Thanks in advance for any insights, Ted

DIM AS _BYTE leftClick, started
DIM startTime AS LONG
SCREEN _NEWIMAGE(800, 600, 32)

DO
    WHILE _MOUSEINPUT
        leftClick = _MOUSEBUTTON(1) '
        mouseX = _MOUSEX
        mouseY = _MOUSEY
    WEND

    IF leftClick THEN

        IF NOT started THEN startTime = TIMER: started = -1

        IF TIMER - startTime > 1.5 THEN '    no holding the button down forever!
            leftClick = 0 '                              kill left click
            started = 0 '                                reset timer
            SOUND 1000, .7 '                         pip
        END IF

        _PRINTSTRING (380, 280), "Button Down"
        _PRINTSTRING (380, 320), STR$(TIMER - startTime)
    END IF

    IF NOT leftClick THEN '                            if buttonUP then reset timer and erase
        CLS
        started = 0
    END IF

LOOP UNTIL _KEYDOWN(27)
SYSTEM

I want to alphabetically sort the characters of a single word string. The only way i can think of so far is to get each character individually and make each one a single character variable, check the ASC value and bubble sort them with a SWAP function. Is there a better way?

Say I have a string variable abcd$. The letters in the variable can be arranged 4 factorial or 4x3x2x1 different ways. How can I produce every combination? Find Len(abcd$) then a for/next loop Len factorial times, but what inside the loop? I'm at a loss here.

I need to delete a file from within a programme), and I'm trying to use shell, as in:
Shell "rm C:\qb64pe\myfile"
but I can't get it to work. I've read through the Wiki notes but can't find anything that makes it work. Where am I going wrong?

Hello, I'm a Newbie here and just started using QB64 PE. I first posted this under utilities because I did not see the programs listing, ha! So I figured that this really is a program and not a utility I would post it here as well.
  
This is my first QB64 PE project. It started out with just me learning how to use lines and circles in QB64 PE and it kind of got out of control. I find the aquascape is relaxing, but I'm biased.

I mostly program with the unrelated Batari BASIC language, and I dabble with 6502 ASM on the Atari tip.
I find QB64 PE very enjoyable to program with! and am looking forward to learning more!

Let me know what you think...

Attached Files

  aquascape_screen_saver.zip (Size: 152.9 MB / Downloads: 29)

I'm an electrical power engineer by profession. Frequently I need to calculate the available short circuit current in a circuit (electrical code requirement). I have very fancy analysis programs to calculate fault currents in a large system (say an entire building), but occasionally I need to quickly calculate a short circuit current for a single circuit or a very small network.

There is a well-documented method to calculate a short circuit current from point A to point B. Doing the calculation by hand is a PITA. So I put together a utility to do the calculation with a form-style data entry to avoid having to refer to all those tables.

The method's conductor constants as published only work on 60 Hz power systems. The conductor constants are invalid on 50 Hz power systems because the overall impedances are different. I haven't located an equivalent set of tables for 50 Hz systems, but I would be surprised to find they don't exist somewhere.

I plan to extend this to allow me to retrieve results from other studies and create a network in one overall project.

Real life QB64PE paying me back for all that money I spent on it.

Attached Files

  Faults.bas (Size: 55.28 KB / Downloads: 44)
  Faults data.bi (Size: 4.64 KB / Downloads: 45)