Simple Finances Utility

[ASCIIhole]

It keeps track of balances and transactions for multiple accounts with an ability to search for transactions based on balance, transaction amount, transaction description or date. I find it quite useful
  Finances.bas (Size: 84.9 KB / Downloads: 24)

[ASCIIhole]

It keeps track of balances and transactions for multiple accounts with an ability to search for transactions based on balance, transaction amount, transaction description or date. I find it quite useful

Posted this not 2 hours ago and I just found a bug I never noticed. The LongCenter$() FUNCTION doesn't work for short strings. This will fix that: 

Code: (Select All)

[FUNCTION LongCenter$ (Text$, MinCharactersPerLine%, MaxCharactersPerLine%, ScreenWidth%)

  IF LEN(Text$) <= MaxCharactersPerLine% THEN Rtrn$ = Text$: GOTO EndOfLongCenterFUNCTION

  TryAgain:

  OriginalString$ = Text$: NumCharactersOnRemainingLine% = 0: CatchInfiniteLoops% = 0

  DO

    BeforeCutLocation% = LEN(Text$) - MaxCharactersPerLine%

    CutLocation% = BeforeCutLocation%

    DO

      CutLocation% = CutLocation% + 1

    LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "

    LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)

    Text$ = MID$(Text$, 1, CutLocation% - 1)

    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain

  LOOP UNTIL LEN(Text$) <= MaxCharactersPerLine%

  NumCharactersOnRemainingLine% = LEN(Text$)



  CurrentCharactersPerLine% = MaxCharactersPerLine% + 1

  DO WHILE NumCharactersOnRemainingLine% < MinCharactersPerLine%

    CurrentCharactersPerLine% = CurrentCharactersPerLine% - 1

    Text$ = OriginalString$

    DO

      BeforeCutLocation% = LEN(Text$) - CurrentCharactersPerLine%

      CutLocation% = BeforeCutLocation%

      DO

        CutLocation% = CutLocation% + 1

      LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "

      LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)

      Text$ = MID$(Text$, 1, CutLocation% - 1)

    LOOP UNTIL LEN(Text$) <= CurrentCharactersPerLine%

    NumCharactersOnRemainingLine% = LEN(Text$)

    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain

  LOOP



  CurrentCharactersPerLine% = CurrentCharactersPerLine% - 1

  Text$ = OriginalString$

  Rtrn$ = ""

  DO

    BeforeCutLocation% = LEN(Text$) - CurrentCharactersPerLine%

    CutLocation% = BeforeCutLocation%

    DO

      CutLocation% = CutLocation% + 1

    LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "

    LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)

    SideSpaces% = INT((ScreenWidth% - LEN(LastPart$)) / 2)

    Rtrn$ = SPACE$(SideSpaces%) + LastPart$ + SPACE$(SideSpaces%) + Rtrn$

    IF (ScreenWidth% - LEN(LastPart$)) / 2 <> INT((ScreenWidth% - LEN(LastPart$)) / 2) THEN Rtrn$ = " " + Rtrn$

    Text$ = MID$(Text$, 1, CutLocation% - 1)

    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain

  LOOP UNTIL LEN(Text$) <= CurrentCharactersPerLine%

  SideSpaces% = INT((ScreenWidth% - LEN(Text$)) / 2)

  Rtrn$ = SPACE$(SideSpaces%) + Text$ + SPACE$(SideSpaces%) + Rtrn$

  IF (ScreenWidth% - LEN(LastPart$)) / 2 <> INT((ScreenWidth% - LEN(LastPart$)) / 2) AND Left% = 1 THEN Rtrn$ = " " + Rtrn$

  NumCharactersOnRemainingLine% = LEN(Text$)



  EndOfLongCenterFUNCTION:

  LongCenter$ = Rtrn$

END FUNCTION

[ahenry3068]

This IS NOT MY CODE.     This app actually was one of the example programs that came with QBasic in Dos 5.0

It compiles fine under QB64PE

[ASCIIhole]

This IS NOT MY CODE.     This app actually was one of the example programs that came with QBasic in Dos 5.0

It compiles fine under QB64PE

I like mine better

[ahenry3068]

This IS NOT MY CODE.     This app actually was one of the example programs that came with QBasic in Dos 5.0

It compiles fine under QB64PE

I like mine better

   I wouldn't expect anything else.   I always like using tools I design myself as well.    I posted it merely in the hope that others might glean some information from the code and find it useful.     I think it's awesome that most of the old QBasic & QB45 example code build without changes in QB64PE !

[bplus]

Well if we are comparing accounting methods here is my Accts Tracker in my GUIb package:
found at https://qb64phoenix.com/forum/showthread...689&page=8

One Picture should say it all:
   

[ASCIIhole]

   Buggy. I posted this without realizing how buggy it was. Sorry.

It keeps track of balances and transactions for multiple accounts with an ability to search for transactions based on balance, transaction amount, transaction description or date. I find it quite useful

Posted this not 2 hours ago and I just found a bug I never noticed. The LongCenter$() FUNCTION doesn't work for short strings. This will fix that: [qb][FUNCTION LongCenter$ (Text$, MinCharactersPerLine%, MaxCharactersPerLine%, ScreenWidth%)
  IF LEN(Text$) <= MaxCharactersPerLine% THEN Rtrn$ = Text$: GOTO EndOfLongCenterFUNCTION
  TryAgain:
  OriginalString$ = Text$: NumCharactersOnRemainingLine% = 0: CatchInfiniteLoops% = 0
  DO
    BeforeCutLocation% = LEN(Text$) - MaxCharactersPerLine%
    CutLocation% = BeforeCutLocation%
    DO
      CutLocation% = CutLocation% + 1
    LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "
    LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)
    Text$ = MID$(Text$, 1, CutLocation% - 1)
    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain
  LOOP UNTIL LEN(Text$) <= MaxCharactersPerLine%
  NumCharactersOnRemainingLine% = LEN(Text$)

  CurrentCharactersPerLine% = MaxCharactersPerLine% + 1
  DO WHILE NumCharactersOnRemainingLine% < MinCharactersPerLine%
    CurrentCharactersPerLine% = CurrentCharactersPerLine% - 1
    Text$ = OriginalString$
    DO
      BeforeCutLocation% = LEN(Text$) - CurrentCharactersPerLine%
      CutLocation% = BeforeCutLocation%
      DO
        CutLocation% = CutLocation% + 1
      LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "
      LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)
      Text$ = MID$(Text$, 1, CutLocation% - 1)
    LOOP UNTIL LEN(Text$) <= CurrentCharactersPerLine%
    NumCharactersOnRemainingLine% = LEN(Text$)
    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain
  LOOP

  CurrentCharactersPerLine% = CurrentCharactersPerLine% - 1
  Text$ = OriginalString$
  Rtrn$ = ""
  DO
    BeforeCutLocation% = LEN(Text$) - CurrentCharactersPerLine%
    CutLocation% = BeforeCutLocation%
    DO
      CutLocation% = CutLocation% + 1
    LOOP UNTIL MID$(Text$, CutLocation%, 1) = " "
    LastPart$ = MID$(Text$, CutLocation% + 1, LEN(Text$) - (CutLocation% + 1) + 1)
    SideSpaces% = INT((ScreenWidth% - LEN(LastPart$)) / 2)
    Rtrn$ = SPACE$(SideSpaces%) + LastPart$ + SPACE$(SideSpaces%) + Rtrn$
    IF (ScreenWidth% - LEN(LastPart$)) / 2 <> INT((ScreenWidth% - LEN(LastPart$)) / 2) THEN Rtrn$ = " " + Rtrn$
    Text$ = MID$(Text$, 1, CutLocation% - 1)
    CatchInfiniteLoops% = CatchInfiniteLoops% + 1: IF CatchInfiniteLoops% < 0 THEN MaxCharactersPerLine% = MaxCharactersPerLine% + 1: GOTO TryAgain
  LOOP UNTIL LEN(Text$) <= CurrentCharactersPerLine%
  SideSpaces% = INT((ScreenWidth% - LEN(Text$)) / 2)
  Rtrn$ = SPACE$(SideSpaces%) + Text$ + SPACE$(SideSpaces%) + Rtrn$
  IF (ScreenWidth% - LEN(LastPart$)) / 2 <> INT((ScreenWidth% - LEN(LastPart$)) / 2) AND Left% = 1 THEN Rtrn$ = " " + Rtrn$
  NumCharactersOnRemainingLine% = LEN(Text$)

  EndOfLongCenterFUNCTION:
  LongCenter$ = Rtrn$
END FUNCTION/qb]