Line Editor

[NOVARSEG]

What I got so far

There are bugs for sure.   Basic line editor with APPEND, INSERT, DELETE and BACKSPACE

Have to add Backspace yet.   

Code: QB64: [Select]

1. _TITLE " LINE EDITOR   Press ESC to exit"
2.  
3. DIM x AS INTEGER
4. DIM cp AS INTEGER
5. DIM oldcp AS INTEGER
6. DIM kh AS LONG
7. DIM t AS STRING
8. DIM tt AS STRING
9.  
10. _FULLSCREEN
11.  
12. oldcp = 25
13. cp = 25
14. LOCATE 26, cp, 1, 31, 31
15.  
16. DO
17.     DO
18.         kh& = _KEYHIT
19.  
20.         IF kh& > 0 THEN EXIT DO
21.  
22.     LOOP
23.  
24.     ' PRINT kh
25.     ' END
26.  
27.     IF kh = 27 THEN EXIT DO
28.  
29.     IF kh < 256 AND cp - oldcp = LEN(t) THEN 'APPEND
30.         t = t + CHR$(kh)
31.         LOCATE 26, 25: PRINT t
32.         cp = cp + 1
33.         LOCATE 26, cp, 1, 31, 31
34.     END IF
35.  
36.     IF kh < 256 AND cp - oldcp < LEN(t) THEN 'INSERT
37.         t = LEFT$(t, cp - oldcp) + CHR$(kh) + RIGHT$(t, (LEN(t) - (cp - oldcp)))
38.         LOCATE 26, 25: PRINT t; "                                    "
39.         cp = cp + 1
40.         LOCATE 26, cp, 1, 31, 31
41.     END IF
42.  
43.     IF kh = 21248 THEN 'DELETE
44.         t = LEFT$(t, cp - oldcp) + RIGHT$(t, (LEN(t) - (cp - oldcp)) - 1)
45.         LOCATE 26, 25: PRINT t; "                                    "
46.         LOCATE 26, cp, 1, 31, 31
47.     END IF
48.  
49.     'left arrow
50.     IF kh = 19200 AND cp > oldcp THEN
51.         cp = cp - 1
52.         LOCATE 26, cp, 1, 31, 31
53.     END IF
54.  
55.     'right arrow
56.     IF kh = 19712 AND cp - oldcp < LEN(t) THEN
57.         cp = cp + 1
58.         LOCATE 26, cp, 1, 31, 31
59.     END IF
60.  
61. LOOP
62.  
63. END

[NOVARSEG]

Added Home, Back space,  End

Code: QB64: [Select]

1. _TITLE " LINE EDITOR    Press ESC to exit"
2.  
3.  
4. DIM cp AS INTEGER
5. DIM oldcp AS INTEGER
6. DIM kh AS LONG
7. DIM t AS STRING
8.  
9. _FULLSCREEN
10.  
11. oldcp = 25
12. cp = 25
13. LOCATE 26, cp, 1, 0, 3
14.  
15. DO
16.     DO
17.         _LIMIT 100
18.         kh& = _KEYHIT
19.  
20.         IF kh& > 0 THEN EXIT DO
21.  
22.     LOOP
23.  
24.     'PRINT kh
25.     'END
26.  
27.     IF kh = 27 THEN EXIT DO
28.  
29.     IF kh = 8 AND cp > oldcp THEN 'BACKSPACE
30.         cp = cp - 1
31.         t = LEFT$(t, cp - oldcp) + RIGHT$(t, (LEN(t) - (cp - oldcp)) - 1)
32.         LOCATE 26, 25: PRINT t; " "
33.         LOCATE 26, cp, 1, 31, 31
34.         GOTO LL1
35.     END IF
36.  
37.     IF kh = 8 AND cp = oldcp THEN GOTO LL1 ' To avoid inserting or appending the back space character
38.  
39.  
40.     IF kh < 256 AND cp - oldcp = LEN(t) THEN 'APPEND
41.         t = t + CHR$(kh)
42.         LOCATE 26, 25: PRINT t
43.         cp = cp + 1
44.         LOCATE 26, cp, 1, 31, 31
45.     END IF
46.  
47.     IF kh < 256 AND cp - oldcp < LEN(t) THEN 'INSERT
48.         t = LEFT$(t, cp - oldcp) + CHR$(kh) + RIGHT$(t, (LEN(t) - (cp - oldcp)))
49.         LOCATE 26, 25: PRINT t
50.         cp = cp + 1
51.         LOCATE 26, cp, 1, 31, 31
52.     END IF
53.  
54.     LL1:
55.  
56.     IF kh = 21248 THEN 'DELETE
57.         t = LEFT$(t, cp - oldcp) + RIGHT$(t, (LEN(t) - (cp - oldcp)) - 1)
58.         LOCATE 26, 25: PRINT t; " "
59.         LOCATE 26, cp, 1, 31, 31
60.     END IF
61.  
62.  
63.     IF kh = 20224 THEN 'END
64.         LOCATE 26, 25: PRINT t
65.         cp = LEN(t) + oldcp
66.         LOCATE 26, cp, 1, 31, 31
67.     END IF
68.  
69.     IF kh = 18176 THEN 'HOME
70.         LOCATE 26, 25: PRINT t
71.         cp = oldcp
72.         LOCATE 26, cp, 1, 31, 31
73.     END IF
74.  
75.     'left arrow
76.     IF kh = 19200 AND cp > oldcp THEN
77.         cp = cp - 1
78.         LOCATE 26, cp, 1, 31, 31
79.     END IF
80.  
81.     'right arrow
82.     IF kh = 19712 AND cp - oldcp < LEN(t) THEN
83.         cp = cp + 1
84.         LOCATE 26, cp, 1, 31, 31
85.     END IF
86.  
87. LOOP
88.  
89. END
90.  

[bplus]

Your on you way to remaking GW Basic :)

[NOVARSEG]

LOL


Trying to get it to work in other screen modes.

[bplus]

LOL


Trying to get it to work in other screen modes.

I have that, Steve just posted one, I think (ExtendedInput Sub or Function)?

I'd show mine if you want but more fun to struggle with it yourself, good practice.

In other screens all you have to watch is Locate, it throws error if not inside screen, 2nd problem screen starts scrolling past Printing 2 lines before bottom unless you use Print with ;

Then there are the problems of the line going past the width of screen.

(Just ran your code) Oh man don't test this in full screen until works in regular one is my suggestion.
Hey I thought you were trying SCREEN _NEWIMAGE(yourWidth, yourHeight, 32)?
I don't think the cursor thing is going to work outside SCREEN 0 but I never tried. You could draw a cursor and blink it with graphics if extended LOCATE doesn't work.

[NOVARSEG]

Ok need a font library that can work with a cursor.  The font position and cursor position are independent. Maybe something that duplicates what text mode already has and then scale the size

Did you run the latest code?

[bplus]

Yes I ran code of Screen 0 in _FULLSCREEN mode.

For Fonts can you do Fonts in Screen 0?  I never tried, maybe through a _Newimage trick.

Screens from _NewImage provide way more flexibility.

[Pete]

Just to give you a heads up, when you get to all the bells and whistles, you are looking at a few thousand lines of code. If you are thinking about going the wp route with a working GUI, it's around 6000+. It's fun stuff, but quite a commitment if you have other projects you want to get to.

Pete

[SMcNeill]

Yes I ran code of Screen 0 in _FULLSCREEN mode.

For Fonts can you do Fonts in Screen 0?  I never tried, maybe through a _Newimage trick.

Screens from _NewImage provide way more flexibility.

Fonts work in Screen 0, as long as they’re monospaced.

[bplus]

Thanks but if something is good enough for fonts, I would likely want more flexibility than Screen 0.

[Pete]

More flexibility than SCREEN 0? For what? So you can bend over and kiss your ascii goodbye?

Pete

SCREEN 0, because anything else is just a waste of good pixels.

[NOVARSEG]

Working on a calculator that calculates mortgages etc anyone interested?

HaH you say  - what about the online ones???

Good point :)

114 lines of code so far

FULLSCREEN is nice but how do you minimize it?. It takes up the WHOLE screen.  It would be nice to have a say, 1024 * 768 pixel screen with big font.   Is there a universal screen that does everything? without 6000 lines of code

[SMcNeill]

You need to learn the _FONT command.

SCREEN _NEWIMAGE(1024, 768, 32)
_FONT _LOADFONT(“courbd.ttf”, 48, “monospace”
PRINT “Hello World”
SLEEP
SYSTEM

[Pete]

When I was 18, I went to bankers, to find out how amortization was calculated. Every loan officer I spoke with had the same answer, we look in this book. Frustrated with these replies, I went home, and started fiddling around with various methods to make a formula to calculate amortization. I had success using geometric progressions. I used the same technique two years later, when I got my T.I. 4A computer. It was correct within one or two pennies of "The Book." That was fun. I might have something similar on some old stored hard drive from a ghosted  computer, but these days, I would suspect you can search that algorithm online... unless it returns Buy this book now at ScAmazon.con. 

Good luck with it, and you might want to search "calculator" for some ideas already posted to these forums.

Pete

[bplus]

I just looked up the forumla:

A=P * (  i(1+i)^n) / ((1+i)^n-1)  )
A   =   periodic payment amount
P   =   amount of principal, net of initial payments
i   =   periodic interest rate
n   =   total number of payments

Look OK?