QBJS - QBasic for the Web

[dbox]

@dbox
 I almost have this guy roughed out but _delay is not working

Sleep is messing with Keypresses need a _KeyClear

I tried my own version of sleep and that worked perfect in QB64 keeping inkey$ clear for next letter but QBJS ignored code. So I am just trying _delay to give user time to read what happened before next round starts.

Hey @bplus, looking good so far.  _KeyClear should be easy to add.  I'll put that on the top of the list.  Thanks for the good feedback! I'll also look into what's happening with _Delay in your example.

[DANILIN]

https://boxgm.itch.io/qbjs

does work... goto & labels ?
does work... circle ? 

Circle (100,150),25,5
QB.sub_Circle(false, 100, 150, 25, 5);

so far: has been calculated in this shell only ... factorial

[dbox]

@DANILIN

Goto and labels are not currently supported.

Circle is supported but I have not mapped the color table for the legacy screen modes.  I do plan to, but at the moment colors need to be defined with the _RGB or _RGB32 function:

Code: QB64: [Select]

1. Circle (100,150), 25, _RGB(100,255,50)
2.  

[DANILIN]

theoretically it works and there will still be uncovered functions

Code: [Select]

https://v6p9d9t4.ssl.hwcdn.net/html/5279712/index.html?qbcode=BOAQAHvAN8AKgkRJTdAZAAoXAKeoqmhqSKipyQDEAGU8JGT1J4BrvX7QVRPmANV/mKmJ6GgqiLuQBZhedrgNLi5u74BUByQkEkpypd+EpJyI3AKngBzqAYOgCt17aAOnpc0Mr2uQC1+rKy2AJCIaemJ6ldgL5ASkjoWv85k1Dw9iQxYBOIoKSSnKiqwahpyKsKhmRj386O3dc5evgfr8ARWQlNVTat3cAdo7R4sO6CrTu2sA3zLCr3M8MABel2HGdsigqCT3N2gCUCkoyfp9fIB9d+o/eeqAaokIqct+vmkcP8XlAhAF16wFBAdEABqbZcVdbdgamqIqg7PyAaSAf02mT63kAD6u2cYSanojLrLaBnlFQ0lSQ0xFevQDPXcbjl77g6eKWR+y6nvunuY7+59bZr2j71+/1r2s8+o51fcs7iIepdVa/OF86kziuad/vll7bv9/cAAxgkVORGFwADqfyx7vySbA5ev3nc6Rgz7Ss1qgbQXP1u95alLv23f866+47/n2+h/HjfEZt+4rdxsziXF++5akvvuWtR77557OuvYfez3YAHdXfsA72wCjqiIiKmIKy1d1xIBtsMXYUcSrvT4=
 

This is Danilin Russian Circle Diagram
https://qb64forum.alephc.xyz/index.php?topic=4367.msg138214#msg138214

[dbox]

Nice @DANILIN, cool example!

[bplus]

+1 I am still trying to get a graphics working, so far getting 0 drawn from small apps.

[dbox]

@bplus can you share the code that is not working?

[bplus]

Sure here is last simple one that I've cut and cut, turns out I use one liner IF's allot and also :'s that are so common I don't see them.  Connett Circles:

Code: QB64: [Select]

1. Const xmax = 600
2. Const ymax = 600
3.  
4. Dim As Integer i, j, s, sq
5. Dim As Double x, y, c, d
6. Dim As _Unsigned Long cc
7.  
8. Screen _NewImage(xmax, ymax, 32)
9.  
10. s = 1
11. sq = 5
12. Do
13.     For j = 0 To ymax / sq
14.         For i = 0 To xmax / sq
15.             x = i * s / 600
16.             y = j * s / 600
17.             c = x * x + y * y
18.             d = c / 2
19.             d = d - Int(d)
20.             d = Int(d * 1000)
21.             If d < 250 Then
22.                 cc = _RGB32(d, 0, 0)
23.             ElseIf d < 500 Then
24.                 cc = _RGB32(0, d - 250, 0)
25.             ElseIf d < 750 Then
26.                 cc = _RGB32(0, 0, d - 500)
27.             Else
28.                 cc = _RGB32(255, 255, 255)
29.             End If
30.             Line (i * sq, j * sq)-Step(sq, sq), cc, BF
31.         Next
32.     Next
33.     _Delay 2
34.     'Color _RGB32(255, 255, 255)
35.     'Locate 1, 1
36.     'Print s
37.     s = s + 15
38.     If s > 1000 Then  ' it was this on one line!
39.         s = 1
40.     End If
41. Loop
42.  
43.  
44.  

Finally! Share:
https://v6p9d9t4.ssl.hwcdn.net/html/5279712/index.html?qbcode=RDb25zdAEAbw2sLxwD1gG0AYd0An6E3N7ogzu3uTW0tzP4BDyUAFDgN5bWF42wKqdBIjS26AoLn3GSW50ZWdlcsgGmoBZgA1T9wHO3EFzcYu7ugqI3urE2MusB4XcA8tpAYzqAZJjwxgL6B1Vuc2lnbmVk7Q0xvbmfMCxsdVOKpsbkysrdnkHTmV3SW1hZ2W4AoIrWrCAZzAGT4BTumWtwAYo+bZAGqeBRG9X54SM3uXE4cNwFUb+vaAL99f//6rjC7zWPKz0ACEw7vIBUjc0d8aABjMPbaqVCfkYAB8NNyykbQCtsRocAHXrpidO1//IXX0iAWxgSS3OhGOML/+xdFopuVGGMYJX/8WCks0MEAeRow+BDVGhlbk//8xsincJSR0IaWsQhuLcvT/99FRWxzZUlmlv+AcN9p//79ZVtt8evBNLfMNQJotz//bWW2W0A3XjaT//89XatB0kITRPLZb8Sfl/+IhorY5spf/+xrvQzBQJQFBFxNtFxt0A//1YJFbmSyz//Kw0xpbmWg8XNGmEubQp5a4am6Mrgg6ZGOZbsjwKEjF/uENOZXh0LxxL3o4IiMrYwvNsvJgkIht7Y3uUUkvbVebdZCADIRHPPxkYFTG9jYXRlqLKifr69EUHJpbnSZTzcVdGkCc/Fre+gD6ic51jP/fy2B+P6uj4DTG9vcERg==

BTW _delay might be working for this.

 

[dbox]

Nice @bplus!  Looks great.  I’ll add this and @DANILIN’s to the sample apps later!

[dbox]

Also, I’ll add single line if/then/else support to the todo list.

And yes it looks like the issue is when _Delay is called from a Sub instead of from the main program.  I’ll fix that too.

[bplus]

Here finally got this working, without _Display in QB64 this blinks to great annoyance! but in QB64 it's just a little slow but not as slow as other Basic's I've run it in so JS is fast Interpreter.

share:
https://v6p9d9t4.ssl.hwcdn.net/html/5279712/index.html?qbcode=VPcHRpb24BAAvx0V4cGxpY2l0ABTiKjS6NjKIBFx1BhcnRpY2xlMOjN7q3OjC0t25RENvbnN0EC3KB4B7cAZ6AYYujgao8uDKwO4MLk6NLG2MpXxAeMAUFz7iqbS3M7Yyn/sA8rVcCoLI8KJ+EgWR5Q74cgOSHfDgBjahmOqtzm0s7cysjYNMb25nlYSK3MjhNAkRpbWQqm0MLkysj+A4YAFGq8ApU2S0VTY3JlZW5/9HTmV3SW1hZ2W3QAbc5EAWIfeyrBKAZU+xvMb6A0/20FscO2BIze5Nl0ocwVRvRaHAJuZXdy3GGnMrw6bmBRG+BbCQ2xzgZAUlmc7GAeL3+GqNDK3QAxOKxeAK1UAx/+BtL+BwqlT7PXQA4NNda0AXZipRi6loMtapVD4B1nhNyvnCPWGkWekst4bYzXAGn9/s55s8/v93ksr22K+ZdAKCdsVlyRLD8BT3JS2az6JMA+Rcgiu0sjo0PfgAH4bwA9V7ADgpXNZ3HHRcYqQytLO0Oj/hILcyJW3WXVqKuLAAJ39aX5olgC2cKAbygBq+YBUlf2KxUABPPsX1rkU9TlNaAIT5QBNCobS5MbYytW57WvkFfnt657gs99zU5xs99zc6sKRYQSgiY0trS6MKEL/waY3t7hd4cJTdWJWt+3YX57evS1DP0AAXp6qPsEpNzIlL+xTDYpYZ77mtzBVEq7+L8pWwx33M/1W/DRfrVZyKDG/b12XvqxOgxz29RLNdPt/aDG/b1EOln8CUkdCtrrlyUkl3L7L3xr7XOayjtCKxhxvStXhRYnP/qfZzszX

Particle Fountain:

Code: QB64: [Select]

1. Option _Explicit
2. _Title "Particle Fountain"
3. Const nP = 30000
4. Type particle
5.     x As Single
6.     y As Single
7.     dx As Single
8.     dy As Single
9.     r As Single
10.     c As _Unsigned Long
11. End Type
12. Dim Shared p(nP) As particle
13. Screen _NewImage(600, 600, 32)
14. Dim As Long i, lp
15. For i = 0 To nP
16.     new i
17. Next
18. Do
19.     Cls
20.     If lp < nP Then
21.         lp = lp + 100
22.     End If
23.     For i = 0 To lp
24.         p(i).dy = p(i).dy + .1
25.         p(i).x = p(i).x + p(i).dx
26.         p(i).y = p(i).y + p(i).dy
27.         If p(i).x < 0 Or p(i).x > _Width Then
28.             new i
29.         End If
30.         If p(i).y > _Height And p(i).dy > 0 Then
31.             p(i).dy = -.75 * p(i).dy
32.             p(i).y = _Height - 5
33.         End If
34.         Circle (p(i).x, p(i).y), p(i).r, p(i).c
35.     Next
36.     _Limit 30
37. Loop
38.  
39. Sub new (i)
40.     p(i).x = _Width / 2 + Rnd * 20 - 10
41.     p(i).y = _Height + Rnd * 5
42.     p(i).dx = Rnd * 1 - .5
43.     p(i).dy = -10
44.     p(i).r = Rnd * 3
45.     p(i).c = _RGB32(100 * Rnd + 155, 100 * Rnd + 155, 200 + Rnd * 55)
46. End Sub
47.  
48.  
49.  

Oh hey! It worked with Option _Explicit, I forgot I had that at top, great!

A screen shot that took awhile to setup, so I had lunch while it ran:
 

[dbox]

That’s a lot of circles!  Very cool.

[bplus]

@dbox _Keydown and _Keyhit have notesthat say see GXKeyDown but links to HomePage with no further info.
I assume these are constants, are they similar to QB64's?

[dbox]

Hey @bplus, looks like when I moved that page from the GX project I broke the link to that page.   I ported most of the GX game engine code to JS first, so the input handling is a bit more fleshed out there.  I plan to fully implement _KeyDown and _KeyHit but I thought I would reference the GX-specific methods since they were already available.

I fixed the links in the supported keywords page.  Here is what it is pointing to now:
https://github.com/boxgaming/gx/wiki/GXKeyDown

Also, links to your examples are up on the qbjs main page.

[bplus]

Hi @dbox

Here's one I can't figure out what's not working with keys. I found I had to get rid of $ for string variables and DIM as String just to get board to show.

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 As Integer r, c, i, solved
5. Dim As String b, k
6. For r = 1 To 4
7.     For c = 1 To 4
8.         board(c, r) = c + (r - 1) * 4
9.     Next
10. Next
11. board(4, 4) = 0
12. c0 = 4
13. r0 = 4
14. Cls
15. For i = 0 To 50 * 4 * 4
16.     d = Val(Mid$("0358", Int(Rnd * 4) + 1, 1))
17.     handle
18. Next
19. While 1
20.     Locate 1, 1
21.     b = ""
22.     solved = 1
23.     For r = 1 To 4
24.         For c = 1 To 4
25.             If board(c, r) Then
26.                 If board(c, r) <> c + (r - 1) * 4 Then
27.                     solved = 0
28.                 End If
29.                 b = b + Right$("   " + Str$(board(c, r)), 3) + " "
30.             Else
31.                 b = b + "    "
32.             End If
33.         Next
34.         Print b
35.         b = ""
36.     Next
37.     Print
38.     If solved Then
39.         Locate 4 + 2, 2
40.         Print "Solved!"
41.         _Delay 5
42.         'End
43.     End If
44.     k = InKey$
45.     If Len(k) = 2 Then
46.         d = (Asc(Right$(k, 1)) - 72)
47.         handle
48.     End If
49.     _Limit 30
50. Wend
51.  
52. Sub handle
53.     Select Case d
54.         Case 3
55.             If c0 < 4 Then
56.                 board(c0, r0) = board(c0 + 1, r0)
57.                 board(c0 + 1, r0) = 0
58.                 c0 = c0 + 1
59.             End If
60.         Case 5
61.             If c0 > 1 Then
62.                 board(c0, r0) = board(c0 - 1, r0)
63.                 board(c0 - 1, r0) = 0
64.                 c0 = c0 - 1
65.             End If
66.         Case 0
67.             If r0 < 4 Then
68.                 board(c0, r0) = board(c0, r0 + 1)
69.                 board(c0, r0 + 1) = 0
70.                 r0 = r0 + 1
71.             End If
72.         Case 8
73.             If r0 > 1 Then
74.                 board(c0, r0) = board(c0, r0 - 1)
75.                 board(c0, r0 - 1) = 0
76.                 r0 = r0 - 1
77.             End If
78.     End Select
79. End Sub
80.  
81.