Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: NOVARSEG on February 08, 2021, 01:01:11 am

Title: Line Editor
Post by: NOVARSEG on February 08, 2021, 01:01:11 am

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.  
  5. DIM oldcp AS INTEGER
  9.  
  11.  
  12. oldcp = 25
  13. cp = 25
  14. LOCATE 26, cp, 1, 31, 31
  15.  
  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.  
  62.  
Title: Re: Line Editor
Post by: NOVARSEG on February 08, 2021, 02:18:05 am
Added Home, Back space,  End

Code: QB64: [Select]
  1. _TITLE " LINE EDITOR    Press ESC to exit"
  2.  
  3.  
  5. DIM oldcp AS INTEGER
  8.  
  10.  
  11. oldcp = 25
  12. cp = 25
  13. LOCATE 26, cp, 1, 0, 3
  14.  
  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.  
  88.  
  90.  
Title: Re: Line Editor
Post by: bplus on February 08, 2021, 12:04:44 pm
Your on you way to remaking GW Basic :)
Title: Re: Line Editor
Post by: NOVARSEG on February 08, 2021, 01:15:01 pm
LOL


Trying to get it to work in other screen modes.


Title: Re: Line Editor
Post by: bplus on February 08, 2021, 01:34:28 pm
Quote from: NOVARSEG on February 08, 2021, 01:15:01 pm
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.
Title: Re: Line Editor
Post by: NOVARSEG on February 08, 2021, 05:35:14 pm
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?
Title: Re: Line Editor
Post by: bplus on February 08, 2021, 06:00:56 pm
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.


Title: Re: Line Editor
Post by: Pete on February 08, 2021, 08:16:06 pm
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
Title: Re: Line Editor
Post by: SMcNeill on February 08, 2021, 08:17:12 pm
Quote from: bplus on February 08, 2021, 06:00:56 pm
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.
Title: Re: Line Editor
Post by: bplus on February 08, 2021, 09:45:41 pm
Thanks but if something is good enough for fonts, I would likely want more flexibility than Screen 0.
Title: Re: Line Editor
Post by: Pete on February 09, 2021, 12:17:44 am
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.
Title: Re: Line Editor
Post by: NOVARSEG on February 09, 2021, 02:22:27 am
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


Title: Re: Line Editor
Post by: SMcNeill on February 09, 2021, 10:32:20 am
You need to learn the _FONT command.

SCREEN _NEWIMAGE(1024, 768, 32)
_FONT _LOADFONT(“courbd.ttf”, 48, “monospace”
PRINT “Hello World”
SLEEP
SYSTEM
Title: Re: Line Editor
Post by: Pete on February 09, 2021, 02:08:58 pm
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
Title: Re: Line Editor
Post by: bplus on February 09, 2021, 02:29:42 pm
I just looked up the forumla:
Quote
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?

Title: Re: Line Editor
Post by: Pete on February 09, 2021, 04:16:16 pm
Wow, that brought back a lot of memories of all the scribbles I had over several sheets of cheap brown paper, which lead up to such a formula. That does look very similar, and could be exact, but my memory of over 4 decades ago is a little cloudy. Sorry about that.

Pete
Title: Re: Line Editor
Post by: NOVARSEG on February 09, 2021, 07:12:09 pm
@bplus


A = P * i * (1 + i) ^ n / ((1 + i) ^ n - 1)   eq 1
where
A = monthly payment
P = amount borrowed !!!
The above equation works but look at this one

mp = i * (A * (1 + i) ^ n - P) / ((1 + i) ^ n - 1)   eq2

where mp = monthly payment

A = Amount borrowed
i = interest rate   = APR / 12
n = number of monthly payments
P = Principal

Most books on finance and anywhere on the net do not consider the above equation.

Initially, the amount borrowed = Principal. (That is where the confusion comes from)  The fact is  the Principal gets paid down so the amount borrowed is NOT the same as the Principal. The above equation proves that.

The amount borrowed stays the same
The Principal decreases (to zero usually)

The principal usually decreases to zero as it is paid down. If P = 0 then eq 2 can  be written as

mp = i * A * (1 + i) ^ n / ((1 + i) ^ n - 1)

Text Only | Text with Attachments