Another quickie for this morning and Aurels Forum: http://basic4all.info8-hosting.info/index.php

Showing Aurel how he might do this more satisfactory with his MicroA interpreter with this QB64 example:

Code: QB64: [Select]

1. _Title "Rotating Pyramid" 'b+ 2022-03-01
2. Screen 12
3. cx = _Width / 2
4. ax = cx: ay = 50 ' apex
5. ex = cx: ey = 330 ' ellipse
6. xr = cx * .7: yr = .33 * xr
7. Do
8.     Cls
9.     x1 = ex + xr * Cos(a): y1 = ey + yr * Sin(a)
10.     x2 = ex + xr * Cos(a + _Pi * .5): y2 = ey + yr * Sin(a + _Pi * .5)
11.     x3 = ex + xr * Cos(a + _Pi): y3 = ey + yr * Sin(a + _Pi)
12.     x4 = ex + xr * Cos(a + _Pi * 1.5): y4 = ey + yr * Sin(a + _Pi * 1.5)
13.     l x1, y1, x2, y2
14.     l x2, y2, x3, y3
15.     l x3, y3, x4, y4
16.     l x4, y4, x1, y1
17.     l x1, y1, ax, ay
18.     l x2, y2, ax, ay
19.     l x3, y3, ax, ay
20.     l x4, y4, ax, ay
21.     a = a + .01
22.     _Display
23.     _Limit 30
24. Loop Until _KeyDown(27)
25.  
26. Sub l (a, b, c, d) ' this is just way easier to code lines Aurel you dont need this part
27.     Line (a, b)-(c, d)
28. End Sub
29.  

 

Love this, reminds me of the demo scene.

Sounds interesting.

I don't think LINE INPUT accepts a given input limit, but I made a restricted input routine function that you can freely have/use/abuse.

- Dav

Code: QB64: [Select]

1. '==========
2. 'KINPUT.BAS
3. '==========
4. 'Restricted keyboard INPUT$ routine.
5. 'Limit how many characters you can enter.
6. 'Coded by Dav, JAN/2021
7.  
8. a$ = KINPUT$(3, 3, "Enter up to 12 letters: ", 12)
9.  
10. PRINT
11. PRINT "You entered: "; a$
12.  
13.  
14. FUNCTION KINPUT$ (y, x, text$, limitnum)
15.  
16.     LOCATE y, x: PRINT text$;
17.  
18.     entry$ = ""
19.     y = CSRLIN: x = POS(1)
20.  
21.     DO
22.         a$ = INPUT$(1)
23.  
24.         IF a$ = CHR$(13) THEN 'enter returns entry
25.             KINPUT$ = entry$: EXIT FUNCTION
26.         END IF
27.  
28.         IF a$ = CHR$(27) THEN 'ESC bails out
29.             KINPUT$ = "": EXIT FUNCTION
30.         END IF
31.  
32.         IF a$ = CHR$(8) THEN 'Backspace goes back a space
33.             IF LEN(entry$) > 0 THEN
34.                 entry$ = MID$(entry$, 1, LEN(entry$) - 1)
35.             END IF
36.         ELSE
37.             'add letter entered, if not over limitnum
38.             IF LEN(entry$) < limitnum THEN
39.                 entry$ = entry$ + a$
40.             END IF
41.         END IF
42.  
43.         LOCATE y, x: PRINT SPACE$(limitnum);
44.         LOCATE y, x: PRINT entry$;
45.  
46.     LOOP
47.  
48. END FUNCTION
49.  

Thank you! Going to try this code.

Looks great!

I made a fake QR-code generator, but I want to convert it into a working text to QR-code generator. For this I need to know how QR codes work.

This is all the information I can find:
- A QR code contains position indicators, format information converted into monochrome blocks, data converted into monochrome blocks.
- A higher version of a QR code means a bigger size.
-  There are 4 "error correction levels" (L, M, Q, and H). L has the lowest error correction capability but can contain more data.
- It is also possible to set a mode, like numeric or alphanumeric. The alphanumeric mode indicator (probably for URLs and text) is "0010".
- The QR code also contains a character count indicator. If the QR code is "hello", 5 characters need to be indicated in binary (000000101).
- The version information is stored near two position indicators.
- The format information is also stored near position indicators.

Where can I find more information about where and how to put information in a QR-code?

Yeah not trying to take away from your fun, sorry if I gave that impression.
Just showing a Quick easy to use tool for QB64 on Windows.

No problem, I even learned something from your code. Didn't know that you could use Dim that way.
There is even a command prompt way to do Speech-to-Text.

This is awesome!

Thank you!

Hi!

Thanks to the help of hardcore programmers on Discord, I made my first text-to-speech program.
The first lines the program says are, "Hello, this is a test. I would like to thank you."

It is still very primitive.

It reads a phonetic input from a text file and converts it into speech.

The English language contains 19 vowel sounds (5 short vowels, 6 long vowels, 3 diphthongs, 2 oo sounds, and 3 r-controlled vowel sounds) and 25 consonant sounds.

I attempted to make a simple speech generator with these main ingredients. I recorded the sounds.
Of course, language is more complex. There are a lot of phonological processes going on (assimilation, elision, etc.) and there is also intonation, stress, volume and many other processes.

But hey, this is a beginning. I know that there are geniuses on this forum who create chess programs and even moon orbit programs.

My recordings are not great. English is my 3rd language. When it comes to phonetics my English is 2 on the scale of Arnold Schwarzenegger. When it comes to phonology, I know how to improve the program. When it comes to programming not, unfortunately. So feel free to adapt this, improve this, etc.

An example video: