QBJS - QBasic for the Web

[dbox]

Hey @bplus nice example!  Yes, Subs and Functions are supported and at present all variables must be declared. 

Goto and gosub are not supported at present. There will be some complexity to do that as there is not a parallel in javascript.

[George McGinn]

If you support SUBS, all a GOSUB is is a SUB with a label. I would think you should be able to process a GOSUB the same way as a SUB.

Hey @bplus nice example!  Yes, Subs and Functions are supported and at present all variables must be declared. 

Goto and gosub are not supported at present. There will be some complexity to do that as there is not a parallel in javascript.

[bplus]

@dbox
I am trying a game of Hangman and I can't seem to get to first base with this code:

Code: QB64: [Select]

1. Dim Shared As String w(1 To 7) ' word list
2. LoadWords
3. For i = 1 To 7
4.     Print w(i)
5. Next
6.  
7. Sub LoadWords
8.     w(1) = "HANGMAN"
9.     w(2) = "GALLOWS"
10.     w(3) = "REVEAL"
11.     w(4) = "KEYPRESS"
12.     w(5) = "REPORT"
13.     w(6) = "LETTERS"
14.     w(7) = "BASIC"
15.     'w(8) = ""
16.     'w(9) = ""
17.     'w(10) = ""
18.     'w(11) = ""
19.     'w(12) = ""
20.     'w(13) = ""
21.     'w(14) = ""
22.     'w(15) = ""
23.     'w(16) = ""
24.     'w(17) = ""
25.     'w(18) = ""
26.     'w(19) = ""
27.     'w(20) = ""
28.     'w(21) = ""
29.     'w(22) = ""
30.     'w(23) = ""
31.     'w(24) = ""
32.     'w(25) = ""
33.     'w(26) = ""
34.     'w(27) = ""
35.     'w(28) = ""
36.     'w(29) = ""
37.     'w(30) = ""
38.     'w(31) = ""
39.     'w(32) = ""
40.     'w(33) = ""
41.     'w(34) = ""
42.     'w(35) = ""
43.     'w(36) = ""
44.     'w(37) = ""
45.     'w(38) = ""
46.     'w(39) = ""
47.     'w(40) = ""
48.     'w(41) = ""
49. End Sub
50.  
51.  

Originally I had Data and Read to read into w$() but those aren't supported so am trying a simple array def in a sub.

What am I doing wrong?

[dbox]

I’m not yet supporting the (x to y) syntax when dim-ing arrays.  Try this instead:

Code: QB64: [Select]

1. Dim Shared As String w(7)
2.  

[bplus]

Ah good! Thanks!

Oh while I'm here, will REDIM work from w(7) to say REDIM as string w(25) in the Sub probably.

[dbox]

Yes, ReDim is supported as well as ReDim _Preserve.

[bplus]

@dbox

OK I have some code running but as soon as I uncomment this function, it all dies!

Code: QB64: [Select]

1. 'Function Reveal$ ' from remaining selected letters a * will cover unchosen letters in w$(round)
2. '    Dim as integer i
3. '    dim b$
4. '    For i = 1 To Len(w$(round))
5. '        If InStr(selectLetters$, Mid$(w$(round), i, 1)) > 0 Then b$ = b$ + "*" Else b$ = b$ + Mid$(w$(round), i, 1)
6. '    Next
7. '    Reveal$ = b$
8. 'End Function
9.  

selectLetters$ is shared (and tracks letters guessed by replacing with a -) and so is w$ and round

I am not even calling the function yet.

[bplus]

@dbox

More info, shouldn't Mid$( ) be color coded same as InStr?
 

PS I started to break down the loaded call to InStr with c$= Mid$(...

[dbox]

Try putting the if/then/else on separate  lines.

[bplus]

Yep! that fixed it, I'll remember for other places I do that.

[dbox]

@dbox

More info, shouldn't Mid$( ) be color coded same as InStr?
 

Yes, the syntax highlighting still needs a bit of refinement.  I started from a vbscript implementation that already existed for the codemirror editor.

[Pete]

I like the part of the console that shows the JavaScript conversion. It would be fun to make a small qb app, and then use the JS code on a server. I have made a few dozen JS snippets for various websites, but I do so at such an infrequent rate, I find myself constantly in need of refreshing my language skills. That's very time consuming. It would be much more intuitive to program in QB and convert. Thanks for this. It's a very neat project on a couple of levels!

Pete

[bplus]

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

Code: QB64: [Select]

1. _Title "Hangman" 'for QB64 B+ (redo Hang it) restarted 2019-06-14 for strip down version
2. Const hung = "Hanged!" ' allows 7 misses
3. ReDim Shared w$(7) ' word list
4. Dim Shared As Integer round, nHung, done
5. Dim Shared selectLetters$
6. Dim As Integer place
7. Dim k$
8. LoadWords
9. For i = 0 To 7
10.     cp i + 1, w$(i)
11. Next
12. Sleep
13. Do ' main loop manages the letters to select from and removes letter when selected
14.     selectLetters$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
15.     nHung = 0
16.     done = 0
17.     Cls
18.     Update
19.     While done = 0
20.         k$ = ""
21.         While Len(k$) = 0
22.             k$ = UCase$(InKey$)
23.             _Limit 60
24.         Wend
25.         place = InStr(selectLetters$, k$)
26.         If place Then
27.             selectLetters$ = Mid$(selectLetters$, 1, place - 1) + "-" + Mid$(selectLetters$, place + 1)
28.         End If
29.         If InStr(w$(round), k$) = 0 Then
30.             nHung = nHung + 1
31.         End If
32.         Update
33.         _Limit 30
34.     Wend
35. Loop Until round > 7
36.  
37. Function Reveal$ ' from remaining selected letters a * will cover unchosen letters in w$(round)
38.     Dim i, b$
39.     b$ = ""
40.     For i = 1 To Len(w$(round))
41.         If InStr(selectLetters$, Mid$(w$(round), i, 1)) > 0 Then
42.             b$ = b$ + "*"
43.         Else
44.             b$ = b$ + Mid$(w$(round), i, 1)
45.         End If
46.     Next
47.     Reveal$ = b$
48. End Function
49.  
50. Sub Update 'draw everything for screen 0 and while we're at it decide if word round is done
51.     cp 8, "Hangman: " + Reveal$
52.     cp 10, "Press a letter from: " + selectLetters$
53.     cp 12, "Gallows Report: " + Mid$(hung, 1, nHung)
54.     If Reveal$ = w$(round) Then
55.         cp 14, "Congratulations! you got it."
56.         done = -1
57.     End If
58.     If Len(hung) = nHung Then
59.         cp 14, "Yikes! You were hung by: " + w$(round)
60.         done = -1
61.     End If
62.     If done = -1 Then
63.         If round + 1 > 7 Then
64.             cp 16, "Hangman is out of words to play. Goodbye in 5"
65.             _Delay 5
66.             End
67.         End If
68.     End If
69.     If done = -1 Then
70.         If round + 1 <= 7 Then
71.             round = round + 1
72.             cp 16, "Next Round in 5 secs"
73.             _Delay 5
74.             'sleep2 ' sleeps suck!!!
75.             '_KeyClear ' >>>>>>>>>>>> unsupported
76.         End If
77.     End If
78. End Sub
79.  
80. Sub cp (row, s$)
81.     Locate row, (80 - Len(s$)) / 2: Print s$
82. End Sub
83.  
84. Sub LoadWords
85.     w$(0) = "BPLUS GAMES"
86.     w$(1) = "HANGMAN"
87.     w$(2) = "GALLOWS"
88.     w$(3) = "REVEAL"
89.     w$(4) = "KEYPRESS"
90.     w$(5) = "REPORT"
91.     w$(6) = "LETTERS"
92.     w$(7) = "BASIC"
93.     'w$(8) = ""
94.     'w$(9) = ""
95.     'w$(10) = ""
96.     'w$(11) = ""
97.     'w$(12) = ""
98.     'w$(13) = ""
99.     'w$(14) = ""
100.     'w$(15) = ""
101.     'w$(16) = ""
102.     'w$(17) = ""
103.     'w$(18) = ""
104.     'w$(19) = ""
105.     'w$(20) = ""
106.     'w$(21) = ""
107.     'w$(22) = ""
108.     'w$(23) = ""
109.     'w$(24) = ""
110.     'w$(25) = ""
111.     'w$(26) = ""
112.     'w$(27) = ""
113.     'w$(28) = ""
114.     'w$(29) = ""
115.     'w$(30) = ""
116.     'w$(31) = ""
117.     'w$(32) = ""
118.     'w$(33) = ""
119.     'w$(34) = ""
120.     'w$(35) = ""
121.     'w$(36) = ""
122.     'w$(37) = ""
123.     'w$(38) = ""
124.     'w$(39) = ""
125.     'w$(40) = ""
126.     'w$(41) = ""
127. End Sub
128.  
129.  

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.

Sharing
https://v6p9d9t4.ssl.hwcdn.net/html/5279712/index.html?qbcode=BfIqNLo2MoBBAIgyQwtzO2sLd3AJwJmb3J4KihYA2YBowBCIBWgAosNyZWRvuDSGFuZ7QWl0wApnIcmVzdGFydGVkmAMlAMEAMTAOSALTwFKyNCI5ujk0uFoNkb3dusjOzK5ObS3t2AAp4iG3tzm6Tg2h1bmeaAeysFSGFuZ2VkSAQpRahWFsbG93c8wBvlFbWlzc2VzdIIpMqI0tuIVTaGFyZWTCA7gAJCCbM/eG7t7kydIbY0uboOoJEaW3B6QUFz4xkludGVnZXLmEcm91bmSEAstBG5IdW5nf2YbI3tzK/fcT5LmytjKxuiYyujoyEyuTnXg9zeXuCODYwsbKitgBrbQ0hMb2FkV29yZHNFAkZvcskBp5G9nAqjf2p/mAsbhmeb0xZgERUUlhpzK8Ok0xFNsZWVwkQFEb+/khtrC0t2AG2N7e4ccZtYW5hZ2Vz7wTo0MvFGbGV0dGVyc+4C6N/DFc2VsZWN07QbM5N7bwQmFuZOwM5Mra3uzK578VsZXR0ZXLrBu7Qyt29Hc2VsZWN0ZWSf3D45trOoSgoSGiIqMjpCSlLyUtMTU5PUFFSU1SgKqqyusLK0yf+sfH2AqEyWAjhIbY5yEAVVcGRhdGXQ7RFdoaWxlQXLjQCAzdP4EiItAPy/Akxlbu/7nweudAAydvX0IqobC5svfzXESW5LZXm3nAAOdzCJjS2tLohc4AdAauytzJgBMKuMRJblN0crJcq214tTgBdgpLM4mcGqNDK3aABcq2UTYSa0smr923XBVjVHyz1u5XQwQ2w5whhzS1MSKugDYCRW5kbOgD9t7hxe+3F9r97pBy2NAAYiDxfklAF0o1AGdoDYUvOgDNkjL6hwaY3t7hGBFVudGlsmd2gH13XZYdGdW5jdGlvbnpFUmV2ZWFs4vrmhiHJlbWFpbmluZ2LV9IAMLJgFSMDd2lsbHhEY292ZXJ/h3VuY2hvc2VuRzvgtLc7+b9++BWeFqIAYuYF/eP1dwLygv31alr4h86hb74AT1R7u38tVfPb3fbvNrVo/8+JOtUVgAQHXjM63v8XqsAgQ0Vsc2WwAGdrxU64M/v2zstfujRql/sA8qrYfdYdDD9li7h0uZxQlN1YnkVLSGyOTC7r8SyuzK5PLo0NLczvusIrmxuTKytyt6DeCO7Q0tjKzQLuy4YWC5MrcAsLo6VkxWRlY2lkZU3BaWZuTI2gLS5qiw6VrgDjRRxeKAOlDk4P7DVpq9FGoEUHJlc3N3LuHlq9WkVcX7CeTeZowz4yOwtjY3u7myAqkyuDe5OmcYpHHH349pu3T3QWk/92v/+2eJygDJWZLxjhyUNvbmdyYXR1bGGOiOjS3tznpy+BPLe6rEEzt7o20hBLiKgDWdMe2g0VqgtthDDeukRf0Ad66T8b3gRZaWtlc72iISy3uq0Bu7K5MqJQUFieZRuhYO+7faAOd65rqDlbaDagPX/q46APzoharaunfQAEVrNdNbiuVZAm91dEiBb2Zvoju3uTI5rQTwNwbGF5hwBc+EZHb29kYnllXWnABrrQA4ENhERlbGF5srL/9+P/CXyeMv08GEuwisIn+JZ39WFwDx24Q6f/ub19AsJ/+AtkDVUpVvEUm91bmSN4OgwNzZWNzXT/8aButE//AhMRzbGVlcCjA2FFc2xlZXBzvkG5urG1tMESj//QpjQjpbK8obYysLlUWk/kFTegBdGoZOXkDEurc5urg4N7k6MqJgMh/5eIfoZRo4KGbAw1VxgnJvd1r2AOaVD9FRUxvY2F0Zbt16oeuoq1Fn6oUVv0AX2iQ3kEUHJpbnS8qDV0+ZviHB+RQy6Yt1F/EQlBMVVOVYiOgpqKpqH5ZLSjNus6gyQgpyOmoKcwfoENPlm5YTEZHQUxMT1dTZP0qGQ0ZuW2CFUkVWRUFMbP1yWg9m5ddgdLRVlQUkVTU3j9eloIZuRF6KpIqgnqSoI/YqbLmrsaXDJiKqKiKpKYz9wptKahjE8RCQVNJQyH5cFT7cPQ2lPy4igPQfhlkzWDKBnz/RY+w20ahnn+k+thvq1Halgkp7DlVqO3kwSZlh8q1Hejgm4rD5VqW9FFN72H7DUuKiKaFYQZbl5oRTUbCHLcva1FNRsIcty9qGKavYUZ7lTc4psdhRn2WJ7FNlsKtOyyfKKbPYYadl7wuKjnYYcdnBjZKPFhhz2cKIko+WGPPZ1cGSj7YY89nW1ZKP9hl52eHUSUQWGXvZ4/+kqgsN/e0wfCaqCw3+7T8eTVRWG/3af7bNVHQb/dtJYk10dBz/62zLTXSUHP/rccfNdJIdf+t9ZlV1Mh3/631v1XUyHf/rQ/jVhdId/+tGvVWWsh3/7FPuuy1kO4expcXZaz/ufVVN

[Dav]

It's a very neat project on a couple of levels!

I totally agree.  And Pete -- welcome back!  You were missed.

- Dav

[dbox]

I like the part of the console that shows the JavaScript conversion. It would be fun to make a small qb app, and then use the JS code on a server. I have made a few dozen JS snippets for various websites, but I do so at such an infrequent rate, I find myself constantly in need of refreshing my language skills. That's very time consuming. It would be much more intuitive to program in QB and convert. Thanks for this. It's a very neat project on a couple of levels!

Pete

Thanks @Pete!  If you are interested in using just the converter you can check it out here: https://github.com/boxgaming/gx/blob/main/tools/qb2js.bas.  It's actually written in QB64 and can be run from the command line.  In fact, it actually converts itself to javascript to be included in the web version:

Code: [Select]

qb2js.exe qb2js.bas > qb2js.js