Re: HEBREW in QB64 console?

[bplus]

So in English what were the letters of "hello world!" typed in reply #27? (one last try before I call it a night)

[bplus]

Can you translate the Hebrew letters to English?

Never mind, there doesn't look to be a 1 to 1 translation, let alone alphabets going in same order.

Goodnight!

[bplus]

Hi Ron,

I am wondering if this function:
http://qb64.org/wiki/MAPUNICODE
under function

Needs to be used for translating Asc key press values from INKEY$

Fellippe, Petr, Fifi, TempodiBasic might have more experience here than I... if they would like to join the conversation? Or maybe they enjoy watching us twist in the wind of not knowing :D

Anyway, I will try to write a little test code for my theory for you to tell me if it works:

[bplus]

Man! where was I?

I was right in the middle of posting code when my mouse dies, I start replacing batteries, nothing works. Oh the computer completely frozen.

I shut down, restart and next thing I know I am loading Windows update! The f..

Crap did I save the code? Well a backup restorer came up in QB64 when I restarted, who do I thank for that? Thanks!

Hi Ron,

I have something maybe worked out for English to Hebrew, maybe you tell me.
This code takes the Hebrew symbols made from code you posted earlier and gets from you what symbol you want associated with what key for capital letters A to Z, 26 symbols or 0 if no symbol works.

I convert these associations to DATA statement in _CLIPBOARD that you need to paste back in under the other Hebrew DATA lines, then we can make a better English2Heb translator:

Warning: this overwrites your clipboard contents so if you have anything important in clipboard get it saved before running code.

Code: QB64: [Select]

1. _TITLE "Get Hebrew symbol data" 'b+ 2019-08-16
2. SCREEN 0
3. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "MONOSPACE") 'select monospace font
4.  
5. RESTORE Microsoft_windows_cp1255 'or restore single DATA field w/o field name
6. FOR ascii = 128 TO 255 'assign unicode values to ascii 128 to 255 only
7.     READ unicode&
8.     IF unicode& = 0 THEN unicode& = 9744 'make undefined characters look like a box
9.     _MAPUNICODE unicode& TO ascii 'replace ascii with unicode value
10. NEXT
11.  
12. 'FOR code = 128 TO 255
13. '    PRINT code; CHR$(code); 'display unicode characters
14. 'NEXT
15. 'PRINT
16.  
17. 'PRINT "Ron, for each letter you see, type the 3 digit symbol code to the left"
18. 'PRINT "of the Hebrew symbol you want to see associated with that key."
19. DIM SHARED dat(1 TO 26) AS INTEGER
20. FOR a = 65 TO 90
21.     CLS
22.     FOR code = 128 TO 255
23.         PRINT code; CHR$(code); 'display unicode characters
24.     NEXT
25.     PRINT: PRINT
26.     PRINT "Ron, for each letter you see, type the 3 digit symbol code to the left"
27.     PRINT "of the Hebrew symbol you want to see associated with that key."
28.     PRINT
29.     PRINT CHR$(a); " ";
30.     INPUT "code or 0 > "; code
31.     dat(a - 64) = code
32. NEXT
33.  
34. PRINT "OK, now we test Hebrew echo's of input:"
35. DO
36.     INPUT "Enter word or phrase (no commas, nothing quits) > "; test$
37.     eng2heb test$
38.     PRINT: PRINT
39. LOOP UNTIL test$ = ""
40. d$ = "English2Hebrew:" + CHR$(13) + CHR$(10) + "DATA "
41. FOR i = 1 TO 26
42.     d$ = d$ + _TRIM$(STR$(dat(i))) + ","
43. NEXT
44. _CLIPBOARD$ = d$
45. PRINT: PRINT "Please paste the contents of your clipboard into this source program for storage."
46.  
47. END
48.  
49. Microsoft_windows_cp1255:
50. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
51. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
52. DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
53. DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
54. DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
55. DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
56. DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
57. DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
58.  
59. 'bplus test run pasted from clipboard after match english letters to Hebrew symbols
60. English2Hebrew:
61. DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,
62.  
63. SUB eng2heb (s$)
64.     c = _WIDTH
65.     su$ = UCASE$(s$)
66.     FOR i = 1 TO LEN(s$)
67.         LOCATE , c
68.         ch$ = MID$(su$, i, 1)
69.         p = INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ch$)
70.         IF p > 0 THEN
71.             IF dat(p) <> 0 THEN PRINT CHR$(dat(p)); ELSE PRINT "*";
72.         ELSE
73.             PRINT ch$;
74.         END IF
75.         c = c - 1
76.     NEXT
77. END SUB
78.  

This is what I pasted in for testing, paste your correct version right over it please or let me know what's wrong or not working.
English2Hebrew:
DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,
 

[bplus]

Hi Ron,

Wow, that was quick PLUS good news!

OK I need the correct two lines you should have pasted in source for safe keeping storage, otherwise you have to run again and get clipboard contents pasted somewhere so you can copy and pass to me.

Then I can fix inputBack$ function and we might be back in business where we left off last night :)

Oh! are there other keys beside Capital Letters that might also need a Hebrew symbol to show on a keypress?

Update: OK I have to run errands now, be back in a couple hours...

[bplus]

bplus listen... there is a problem cause the qwerty of hebrew is different then english in keyboard (for instence Q key in hebrew key is "/") so actually some letters are missing...

at first i didn't realized it and i didn't understand how to use your code now i do and i tell you it wont work...

i think we should stop here :

i made a hebrew chatbot without printback or inputback$ functions and that okay by me...

we made it the best way we could and i thank you for helping me...

here is the hebrew bot post:
https://www.qb64.org/forum/index.php?topic=1623.0

ron77

OK, but it is just a matter of translating key press codes to Hebrew symbols. It would have been nice to go through alphabet in sequence, easier on amount of data to store if we could have used a formula, but not necessary.

Once completed you can use code for other projects and having been completed, you might be eager to take on projects that need similar translating rather than avoid them. :)

On the other hand, it is probably no fun doing this without understanding what is going on. :(