QBJS - QBasic for the Web

[dbox]

Hey @bplus, it looks like the non-printable characters that are returned for InKey$ do not match the QB64 version at present.  I'll add that to the list.  Here is an example using the GXKeyDown function as an alternative in the meantime:

Code: QB64: [Select]

1. _Title "15 Squares Puzzle" 'b+ mod for QBJS 2022-02-19
2. Dim Shared As Integer board(4, 4)
3. Dim Shared As Integer r0, c0, d
4. Dim Shared As Integer keyState(0)
5. Dim As Integer r, c, i, solved
6. Dim As String b, k
7. For r = 1 To 4
8.     For c = 1 To 4
9.         board(c, r) = c + (r - 1) * 4
10.     Next
11. Next
12. board(4, 4) = 0
13. c0 = 4
14. r0 = 4
15. Cls
16. For i = 0 To 50 * 4 * 4
17.     d = Val(Mid$("0358", Int(Rnd * 4) + 1, 1))
18.     handle
19. Next
20.  
21. While 1
22.     Locate 1, 1
23.     b = ""
24.     solved = 1
25.     For r = 1 To 4
26.         For c = 1 To 4
27.             If board(c, r) Then
28.                 If board(c, r) <> c + (r - 1) * 4 Then
29.                     solved = 0
30.                 End If
31.                 b = b + Right$("   " + Str$(board(c, r)), 3) + " "
32.             Else
33.                 b = b + "    "
34.             End If
35.         Next
36.         Print b
37.         b = ""
38.     Next
39.     Print
40.     If solved Then
41.         Locate 4 + 2, 2
42.         Print "Solved!"
43.         _Delay 5
44.         'End
45.     End If
46.     'd = InKey$
47.     'If Len(k) = 2 Then
48.     '    d = (Asc(Right$(k, 1)) - 72)
49.     '    handle
50.     'End If
51.     d = -1
52.     handle
53.     UpdateKeyState
54.     _Limit 30
55. Wend
56.  
57. Sub handle
58.     'Select Case d
59.         'Case 3
60.     If KeyPressed(GXKEY_LEFT) Or d = 3 Then
61.             If c0 < 4 Then
62.                 board(c0, r0) = board(c0 + 1, r0)
63.                 board(c0 + 1, r0) = 0
64.                 c0 = c0 + 1
65.             End If
66.    
67.         'Case 5
68.     ElseIf KeyPressed(GXKEY_RIGHT) Or d = 5 Then
69.             If c0 > 1 Then
70.                 board(c0, r0) = board(c0 - 1, r0)
71.                 board(c0 - 1, r0) = 0
72.                 c0 = c0 - 1
73.             End If
74.         'Case 0
75.     ElseIf KeyPressed(GXKEY_UP) Or d = 0 Then
76.             If r0 < 4 Then
77.                 board(c0, r0) = board(c0, r0 + 1)
78.                 board(c0, r0 + 1) = 0
79.                 r0 = r0 + 1
80.             End If
81.         'Case 8
82.     ElseIf KeyPressed(GXKEY_DOWN) Or d = 8 Then
83.             If r0 > 1 Then
84.                 board(c0, r0) = board(c0, r0 - 1)
85.                 board(c0, r0 - 1) = 0
86.                 r0 = r0 - 1
87.             End If
88.     End If
89.     'End Select
90. End Sub
91.  
92.  
93. Function KeyPressed (key As Integer)
94.     KeyPressed = (Not GXKeyDown(key) && keyState(key)
95. End Function
96.  
97. Sub UpdateKeyState
98.     Dim i as integer
99.     For i = 1 To 350 'GXKEY_UP To GXKEY_DOWN
100.         keyState(i) = GXKeyDown(i)
101.     Next i
102. End Sub
103.  

[DANILIN]

https://boxgm.itch.io/qbjs

Bubble Sorting

10 ^ 3 = 0,81 s
10 ^ 4 = 78 s
10 ^ 5 = ? 780 seconds ?
10 ^ 6 = ??? 8100 seconds ??? 1,5 hours

Code: [Select]

https://v6p9d9t4.ssl.hwcdn.net/html/5279712/index.html?qbcode=BOAQAHvAM8A6QDCjgGNAMEAXlQ8JESU1gDJYBRagCmAAr4SMnqWwDTjdqCqJ/NfUd38+wklOVM0CUk5E2gFX6vuQacirCpRJh316doBq+ERQUklOVNwEFad6G9AD1zxiKiSmoqkyC8ueDppUAWo2/cwGpDz8AVtvm6AHUFJRnk+zegD55n3wzhqiQipy4AHEB0QtrmLgAW3zSWN9tYAAz/31TQ4ANASKnIjX3q6o9GTaFWjM6xNe5z637P/N19R6rDNSXtnfdy0jCWK3SVzS43A=

Code: QB64: [Select]

1. N = 3: a = 10 ^ N: DIM d(a)
2. FOR i = 1 TO a: d(i) = INT(RND * a): NEXT
3. FOR i = 1 TO 5: PRINT d(i): NEXT: PRINT: z = TIMER
4.  
5. FOR i = 1 TO a - 1: FOR j = i + 1 TO a
6.         IF d(i) > d(j) THEN
7.             t = d(i)
8.             d(i) = d(j)
9.             d(j) = t
10.         END IF
11. NEXT: NEXT
12.  
13. FOR i = 1 TO 5: PRINT d(i): NEXT: PRINT
14. FOR i = a - 5 TO a: PRINT d(i): NEXT
15. PRINT: PRINT TIMER - z: END

error ":" without "end if"
IF d(i) > d(j) THEN t = d(i): d(i) = d(j): d(j) = t

[bplus]

Yeah @DANILIN, single line IF statements not working. I am surprised all your other : lines are!!!

@dbox  so are : supported?

Also can this:

Code: QB64: [Select]

1. 'Function KeyPressed (key As Integer)
2. '    KeyPressed = (Not GXKeyDown(key) && keyState(key)
3. 'End Function
4.  
5.  

be written in such a way that QB64 doesn't red line it?

[dbox]

@bplus, yes, the : line separator is supported.  The single line if/then should also work in most scenarios, I just didn’t account for the single line if/then/else.  You should also be able to use the _ to continue a line.

If you want to use the GX functions in QB64 you will need to $include the gx.bi and gx.bm files from here:

https://github.com/boxgaming/gx/tree/main/gx

[bplus]

Oh look at what's at the end of 3000+ LOC GX.BM

Code: QB64: [Select]

1.  
2.     '$Include: 'gx_fs.bm'
3.     '$Include: 'resource/font-default.png.bm'
4.     '$Include: 'resource/font-default-black.png.bm'
5.  
6.  
7.  

Ehh this is too much!

[dbox]

Ha! Well, you did ask if it could be used in QB64.  But, yeah I get it, including the entire game engine for one method is a bit overkill.

I’ll plan to prioritize fully porting the standard QB/QB64 keyboard methods for the next build.

[bplus]

@dbox

I'm sorry, bad day, too crabby! What you are working on is really good! Ground level stuff requires patience.

[dbox]

Bubble Sorting

10 ^ 3 = 0,81 s
10 ^ 4 = 78 s
10 ^ 5 = ? 780 seconds ?
10 ^ 6 = ??? 8100 seconds ??? 1,5 hours

Hey @DANILIN this is a good example for testing out performance improvements.  I'll look into this one further.  There is definitely a significant difference between the QBJS version and the natively complied version.

[DANILIN]

2d arrays matrix are supported?

simply in "Bubble Sorting" replace "d(" on "d(5, "

Javascript without variables:
 
var d = QB.initArray([ 5], }); //


update:

Code: QB64: [Select]

1. Dim As Integer matrix(5, 5)
2. matrix(1, 1) = 3: matrix(2, 2) = 5: matrix(3, 3) = 7
3.      
4. for i = 1 to 5: for j = 1 to 5
5.     Print matrix(i, j);
6. next: print : next

30000
05000
00700
00000
00000

[dbox]

Hi @DANILIN.  Looks like you found an issue with the Dim/Redim that I need to fix.  There is an issue when you declare a multi-dimensional array like this:

Code: QB64: [Select]

1. Dim matrix(5, 5) As Integer
2.  

I will add this to the list for the next build.   In the meantime, if you declare the array with the newer Dim As Type syntax it will work as expected:

Code: QB64: [Select]

1. Dim As Integer matrix(5, 5)
2.  
3. matrix(1, 1) = 3
4. matrix(1, 2) = 5
5. matrix(3, 4) = 7
6.  
7. Print matrix(1, 1)
8. Print matrix(1, 2)
9. Print matrix(3, 4)
10. Print matrix(5, 5)
11.  

[dbox]

Fun fact: you can include native javascript in your QBJS program.  This is to allow you to use external libraries or generally just add additional functionality.  This would be analogous to calling out to a DLL in QB64 or calling inline assembly in classic QBasic.

Here's a simple example that will create a message box method by calling out to javascript's alert function:

Code: QB64: [Select]

1. Dim msg As String
2. Input "Enter the message text: ", msg
3.  
4. MessageBox msg
5.  
6. Print "After message"
7.  
8. Sub MessageBox (text As String)
9. $If Javascript
10.     alert(text);
11. $End If  
12. End Sub
13.  

View in QBJS

[bplus]

@dbox

We (I) need a public check list of known issues unsupported or differences with QB64, that is detailed enough to pin point problem so that we (I) don't go trying to fix things not broken or attempt things not possible because of an issue like anything using arrow keys and probably all len(2) INKEY$ returns.

The : thing, works unless in one-liner If.
The keys number thing, work unless beyond the ascii list.
Something about dimensioning strings?
DIM a$, b$, c$ ' does not work (or did not for me once with 15 squares puzzle)
DIM as string a, b, c ' does work

DIM as something a, b, c works better than DIM a as something, b as something,...

2 Dimensional arrays work but assume base 1?

These are what I vaguely have picked up along the way in this thread but I am sure I don't have things clearly correct.

Perhaps we can track these issues in updated Supported Keywords page I am constantly consulting:
https://github.com/boxgaming/qbjs/wiki/Supported-Keywords

Like a pilot for an aircraft, a QB64 coder has a list of items to check before take off.

[dbox]

Hey @bplus.  That was the intent of this page that I referenced in the first post:

QBasic Language Support

However, there are several things that have been discovered since I posted that need to be added to this page.  Perhaps to make it easier to reference I can put a bulleted list at the top, similar to what you've created here with links to the detail to make it easier to scan through.  I'll also update the keyword reference page for the issues that have been discovered that are related to a specific keyword.

[bplus]

Hey @bplus.  That was the intent of this page that I referenced in the first post:

QBasic Language Support

However, there are several things that have been discovered since I posted that need to be added to this page.  Perhaps to make it easier to reference I can put a bulleted list at the top, similar to what you've created here with links to the detail to make it easier to scan through.  I'll also update the keyword reference page for the issues that have been discovered that are related to a specific keyword.

That would be great. See, I am making a sort of mental checklist but never sure it is correct in detail and extent.

It also may be good for a Punch list for you.

[dbox]

Hey @bplus, I found a temporary workaround for the delay and KeyClear issue until I can get a new build out.  This seems to be working as intended now:

View Hangman in QBJS