Adding Machine Tape

[Gösta H. Lovgren-2]

Rod, my Kevin (son) stopped by today and rearranged (cleaned up) my desk, lowering the monitor 7" so that the center is at eye level. What a difference in looking at the Portrait View. Wow!, what an improvement. Never go back to Landscape view now. Thanks for the prod.

On another front - Michael, "accelerator" keys are being added at an astounding rate (see exe below). {laughing}

==============================
The comic book [is]
the marijuana of the nursery,
the bane of the bassinet,
the horror of the home,
the curse of the kids and
a threat to the future.
John Mason Brown
==============================

[Rodney Hicks]

Yes, I can believe you like it. To me, portrait monitors are the best improvement in computers since the mouse. Or PowerBasic, which ever came last.

[Michael Mattias]

>..... "accelerator" keys are being added at an astounding rate ....

Gosta, let me give you some free advice, worth every penny:

Learn how to say, "no," quickly, or you are going to have something which is as easy to learn and use as Microsoft Word(r).

[Gösta H. Lovgren-2]

Originally Posted by Michael Mattias

>..... "accelerator" keys are being added at an astounding rate ....

Gosta, let me give you some free advice, worth every penny:

Learn how to say, "no," quickly, or you are going to have something which is as easy to learn and use as Microsoft Word(r).

Gee, M, I'm confused. You're the guy who, at the very outset of this thread, said

I must be "Windows-fied." I tried to navigate using the tab keys... but this is designed for those accustomed to using the <ENTER> key

For sure on the buttons... you'll want to add accelerator keys when implemented, so user can "Alt+S" to save, or "Alt+R" to retrieve, since you can't navigate with the keyboard to those buttons very easily.

eg ""&Save Tape", "&Retrieve Tape", "C&lear" , etc.

Am I to understand that you are rescinding that very well taken advice. Jeez, what's a guy to do? {sigh}

================================================== ====
"The oldest and strongest emotion of mankind is fear,
and the oldest and strongest kind of fear is
of the unknown."
H.P. Lovecraft
================================================== ====

[Michael Mattias]

When you said you are rapidly adding accelerator keys, I interpreted that as adding many more possible actions... i.e, you are turning what started out to be a nice, simple little "adding machine tape" program into a four-headed monster.

Sounds like "feature creep" to me. I've never had a good experience with feature creep. Ever.

[Gösta H. Lovgren-2]

Originally Posted by Michael Mattias

When you said you are rapidly adding accelerator keys, I interpreted that

as in Felix Unger's "assume"?

as adding many more possible actions... i.e, you are turning what started out to be a nice, simple little "adding machine tape" program into a four-headed monster.

Sounds like "feature creep" to me. I've never had a good experience with feature creep. Ever.

"Sounds like"? Have you even looked the "little" program lately? Or are just shooting from the hip (area)?

Your deep concern over feature creep to my "little" program is admirable, even touching. However on the other side of the coin - it's worthwhile to keep in mind that if it wasn't for "feature creep" we'd still be driving Model T's and using Z80's.

Latest code attached and the exe can be seen from link below.

=====================================
"An inconvenience is only
an adventure wrongly considered;
An adventure is an inconvenience
rightly considered."
Gilbert Keith Chesterton (1874-1936)
=====================================

[Gösta H. Lovgren-2]

Latest code uploaded. Exe in sig below.

==========================================
"There is a country in Europe
where multiple-choice tests are illegal."
Sigfried Hulzer
==========================================

[Gösta H. Lovgren-2]

Roooooodddddnnnnneeeeyyyyy! I need your help, Pleeaaaassse.? Pretty please? Sugar n top.

I forgot how to reset my monitor back to Landscape. When I set it to Portrait lo those many days ago, I found instructions on Google. And now I can't refind them. {sigh}

Need to be able to detect abd adjust accordingly in program but can't get back to Landscape to test, Didn't realize it wasn't roght until I looked at it on the wife's computer. She's still using the old archaic Landscape mode. Can you imagine? {laughing}

PS version is now 1.85. (been some significant changes since last code ul.) Better Instructions, ...

PSS on a 1920x1280 res, it shows 74 rows.


CANCEL - just got it. Was just playing in the water before. For reference:

Right Click Desktop
Settings>Advanced>Video Card Tab
Run its "Control Panel" (card mgmnt program)
(At least that's how I remember it {sigh})

===========================================
"Wagner's music is better than it sounds."
Mark Twain (1835-1910)
===========================================

[Rodney Hicks]

Good thing you found it Gösta.
I have never switched my monitor back to the landscape mode since I got it. Not even to prove it could be done.

I figure the rest of the world will catch up and we won't have to worry about the ancients and their landscape monitors.

[Gösta H. Lovgren-2]

Originally Posted by Rodney Hicks

Good thing you found it Gösta.
I have never switched my monitor back to the landscape mode since I got it. Not even to prove it could be done.

I figure the rest of the world will catch up and we won't have to worry about the ancients and their landscape monitors.

You wouldn't be so "cheeky" if YOUR wife had a landscape only monitor. It was fix the layout or spring for a new monitor or the icebox treatment (where mere days seem like forever). {grin}

==============================
Dogs are not our whole life,
but they make our lives whole.
Roger Caras
==============================

[Gösta H. Lovgren-2]

Tab works now Mike. It wasn't a big deal to me to have Tab as only type with my right hand and it's long trip across the keyboard. {laugh}

Up to version 1.90. (see below). Late tonight. Still gotta go ul to wife's computer. Hope the display width is fixed. Keep your fingers crossed for me will'ya. Can get awful chilly on the Jersey shore, if you know what I mean.

Will ul code maybe tomorrow probably. Depends on temperature inside.

=======================================
"Everyone lives by selling something."
R.L. Stevenson
=======================================

[Gösta H. Lovgren-2]

As promised, latest code is attached (exe in sig below). Added a neat new feature today (5 separate Checked Items subtotals). (I hope it's not creepy) I *think* everything is still working.

Still got stuff to do (mostly file stuff) and the to do list ain't getting any shorter.

[Gösta H. Lovgren-2]

Added /\* functionality to tthe Amount tb's today (see Help). For the couple guys interested in the code

'
' *******************************************************
'
Function Parser(v As String, pctl As Long, ppsn As Long) As Double
   Common_Locals    
   Reset g_Parser_Error
   If Len(v$) = 0 Then 'blank
      Exit Function
   End If
'
   v$ = Remove$(v$, ",") 'JIC
   v$ = Remove$(v$, " ") 'JIC
   v$ = UCase$(v$) 'case of x
   '
   s$ = Tape(Ppsn).Comment
   s1$ = $AutoAdd_Marker
     i = InStr(s$, s1$)
     If i Then
        s$ = Mid$(s$, i + Len(s1$)) 'remove previous AutoAdd if there
     End If
     Tape(Ppsn).Comment = s$ 'put it back
   '
   s1$ = $Parser_Marker
   i = InStr(s$, s1$)
     If i Then
        s$ = Mid$(s$, i + Len(s1$)) 'remove previous AutoAdd if there
     End If
     Tape(Ppsn).Comment = s$ 'put it back
   '
   i = InStr(Mid$(v$, 2), Any "+-")'<<<"AT sign, X / \ * + -" in here (no spaces, forum editor quirk)
   If i Then  'Yes  
      Tape(Ppsn).Comment = v$ & $Parser_Marker & Tape(Ppsn).Comment
     Else
      Function = Val(v) 'ain't any so must be positive value
      Exit Function
   End If
'   
   Dim vlue$(1 To 20)'way more than needed JIC
'
   i = InStr(Mid$(v$, 2), Any "") '<<<"AT sign, X / \ *" in here (no spaces, forum editor quirk)
     If i Then GoTo Complex_Expressions20 
Parser10:
   i = InStr(Mid$(v$, 2), "-")
   If i = 0 Then i = InStr(Mid$(v$, 2), "+")
   If i = 0 Then  'no? so go
     dv = dv + Val(v$)
     Function = dv
     Exit Function
   End If
   'got here so found some
   dv = dv + Val(v$) 'Val(Left$(v$, i - 1))
   v$ = Mid$(v$, i + 1)
  GoTo Parser10
''
Complex_Expressions20: 'vlue$()
   l$ = Left$(v$, 1) 'make sure + or - first char
     If l$ <> "+" And l$ <> "-" Then
        v$ = "+" & v$
     End If 
'                      
   l$ = " " '<<<"AT sign, X / \ * + -" in here (no spaces, forum editor quirk)         
   i = ParseCount(v$, Any l$)
   If i > 10 Then
      ? "Ease up, Mate!!"  & $CrLf & $CrLf & _
        "10 expressions is all wot I can 'andle at a time.", %top, $Title
        Exit Function
   End If
   '
   Reset n
   Do Until i = 0      
      Incr n 'array elements
      i = InStr(2, v$, Any l$)'any actioners?
       If i Then 'found one
           vlue$(n) = Left$(v$, i - 1) 'array it
           v$ = Mid$(v$, i)
          Else 'only 1 left
           vlue$(n) = v$  'last one
       End If
   Loop     
'  
   Reset l$, dv
   For ctr = 1 To n
       l$ = Left$(vlue$(ctr), 1)
       Select Case l$           
         Case "+": v$ = Mid$(vlue$(ctr), 2): dv = dv + Val(v$)
         Case "-": v$ = Mid$(vlue$(ctr), 2): dv = dv - Val(v$)
         Case "/": v$ = Mid$(vlue$(ctr), 2): dv = dv / Val(v$)
         Case "\": v$ = Mid$(vlue$(ctr), 2): dv = dv \ Val(v$)
         Case "X": v$ = Mid$(vlue$(ctr), 2): dv = dv * Val(v$)
         Case "*": v$ = Mid$(vlue$(ctr), 2): dv = dv * Val(v$)
         Case "@": v$ = Mid$(vlue$(ctr), 2): dv = dv * Val(v$)
       End Select
   Next ctr                     
   Function = dv
End Function                                           
''''
'Note forum editor apparently doesn't like AT sign, or some other combinations.

While not elegant or clean, I do think it was clever.

I think after I add the File(s) functions, I'll have pretty much run out my string on this creepy program. {sigh}

================================================
"We have art to save ourselves from the truth."
Friedrich Nietzsche (1844-1900)
================================================

[Rodney Hicks]

I like the recent changes, even though I was not one of those requesting same.

I still haven't figured out why I get two colours in the help screen but I haven't looked too hard either, other things on my plate.
Well done, Gösta!

[Rodney Hicks]

Gösta

I found a little glitch with the Backspace key, the cursor is placed infront of any remaining text. I just thought I should let you know about it!

This program is handier than I thought it would be!!! Thank you very much!!