Home Budget-Slip System-VBForums
Results 1 to 13 of 13

Thread: Home Budget-Slip System

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Home Budget-Slip System

    My first successful home budget program written was back in QuickBasic 7, in the late 1980's and Early 1990's.

    The name "Law" stick from the first time till now.

    I upgraded (actually, re-written) to VB3 in the old Win 3.11 system and when Win98 came along, I upgraded it to VB5 and later change a bit here-and-there to VB6.

    The face did not changed a lot over these years, but currently have changed (still busy) it completely, re-building everything in some of the forms.

    Some people who (try) to use it says it's too difficult, but a recent acquaintance who is in business for more than 30 years feels this is exactly what he need.

    There's a smaller, quicker version I wrote for my wife, in a similar layout but with only a few pages (forms), but that will be discussed later.

    So, before I change everything and forget what I have done, let me give this one for you.

    There are still some errors (after all this time ), as can been seen in the Accumulative and Report form...

    (( Uncle Sam Brown (and many others) will hate this code... ))

    LAW8: (Yes, the .vbp says LAW9)
    Name:  Image 060.jpg
Views: 268
Size:  38.3 KB

    Updated Zip: (deleted unnecessary controls) [Controls included: Threed32, richtx32, COMDLG32 ]
    Law9.zip
    Last edited by Inside; Aug 28th, 2017 at 05:23 AM.
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  2. #2
    Frenzied Member
    Join Date
    Dec 2008
    Posts
    1,045

    Re: Home Budget-Slip System

    Problem when first starting in the IDE (probably Sheridan Controls)

    Name:  Sheridan_Problem.jpg
Views: 153
Size:  17.4 KB

  3. #3

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    Look at the .vbp, and see if it's correctly set for your PC. You can:

    Change Between [brackets]: x86
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#[F:\WINDOWS\system32]\stdole2.tlb#OLE Automation

    to THIS without [brackets]: x64
    ..\..\..\Windows\SysWOW64

    or vice versa

    ...sometimes it's not that easy though...
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  4. #4
    Frenzied Member
    Join Date
    Dec 2008
    Posts
    1,045

    Re: Home Budget-Slip System

    My main PC (and the one I do ALL VB6 on) is XP Pro 32 bit
    My gut tells me that you have used purchased controls, that many won't have the license for, and won't run in their IDE's

  5. #5
    Sinecure devotee
    Join Date
    Aug 2013
    Location
    Southern Tier NY
    Posts
    3,923

    Re: Home Budget-Slip System

    In particular the Threed32 controls. I think I've only had them back when they were included with the VB3 distribution (of course not the 32-bit versions of the controls). Probably not a lot of people purchase the controls when they upgraded to VB4 and above, so your code will probably be of little interest to the majority of VB6 users.

  6. #6

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    Quote Originally Posted by Bobbles View Post
    ...My gut tells me that you have used purchased controls,...
    Nope.

    I believe in "open";- and free ware only.

    Controls included: Threed32, richtx32, COMDLG32

    The program was mainly written in XP, but for the last few months in win 10. I never wrote any programs in win7.
    In some of the forms a programmer can see when I have upgraded a form or not. Dates included on the top of each form-code.

    I still have a dual system with XP, but I convert most of my programs to run in 10. Some of them (as this one) did not wanted to open in w10, until I done the compatibility of vb6.exe to Win XP Pack 2 or 3. Now all of my own written programs open in w10 (not qbx though )

    Here's a count of them, in different categories (.exe count only-completed):
    Bible programs: 103
    Backup Tools: 13
    Clipboard Tools: 30
    Controls: 200 (Mine) 17 (others-modified)
    Data Tools: 209
    Desktop: 2
    Dictionary Tools: 6
    Drive Tools: 2
    Edit Tools: 166
    Web Tools: 64
    File Tools: 205
    Folder Tools: 6
    Client programs (current): 26
    Game programs & Tools: 65
    Help Tools: 7
    Math Tools: 7
    Misc tools: 118
    Music tools: 72
    Net tools: 139
    Picture tools: 109 (one of my oldest I written in VB3, converted it to VB5, re-code the DATA parts, works now in W10 also - save a picture to a database, can be extracted at any stage into original? file again. The icon file for the main form was created in 2003/04/17)
    Name:  Image 061.png
Views: 124
Size:  9.6 KB
    Registry tools: 14
    Screen tools: 8
    Security tools: 30

    Then there are VB3 (.vbx) which I converted into VB5, too many to count for, now, some my own and some not, and these are also working in VB6...This (LAW) was one of them!

    I'm currently busy with a few programs, but this one I'm converting to VS 2012:
    Name:  Image 062.jpg
Views: 124
Size:  27.4 KB

    Sorry for any inconvenience. Maybe I must place the smaller one here? (Threed32 was taken out in that one).
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  7. #7

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    Quote Originally Posted by passel View Post
    In particular the Threed32 controls. I think I've only had them back when they were included with the VB3 distribution (of course not the 32-bit versions of the controls). Probably not a lot of people purchase the controls when they upgraded to VB4 and above, so your code will probably be of little interest to the majority of VB6 users.
    I got mine from here:
    https://www.ocxdump.com/download-ocx.../download.html

    Edited:

    And I run my own .bat file:
    Code:
    regedit vbctrls.reg
    regsvr32.exe anibtn32.ocx
    regsvr32.exe richtx32.ocx
    regsvr32.exe spind32.ocx
    regsvr32.exe tabctl32.ocx
    regsvr32.exe threed32.ocx  
    regsvr32.exe GAUGE32.OCX
    regsvr32.exe GRAPH32.OCX
    regsvr32.exe GRID32.OCX
    regsvr32.exe KEYSTA32.OCX
    regsvr32.exe MSOUTL32.OCX
    ...and a good policy:
    VBCTRLS.REG
    Code:
    REGEDIT
    HKEY_CLASSES_ROOT\Licenses = Licensing: Copying the keys may be a violation of established copyrights.
    
    // The 16 bit and 32-bit OCX Professional license follows:
    HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB = mgkgtgnnmnmninigthkgogggvmkhinjggnvm
    							
    // The 32 bit OCX Professional license follows:
    HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB = gifblihbhiiihbciocfbkifbqcfcdiebbiqh
    
    // spin32 DB key
    // anibtn DB key
    // gauge  7B key
    // grid   DB key
    // keysta DB key
    // msoutl DB key
    // threed DB key

    The readme.txt file of 1996 states:
    \Tools\Controls

    This directory contains all of the ActiveX Controls that shipped with Visual
    Basic 4.0 Professional and Enterprise Editions, which are no longer shipping
    with Visual Basic 5.0.

    AniBtn32.ocx
    Gauge32.ocx
    Graph32.ocx
    Gsw32.EXE
    Gswdll32.DLL
    Grid32.ocx
    KeySta32.ocx
    MSOutl32.ocx
    Spin32.ocx
    Threed32.ocx

    The \Tools\Controls\BiDi directory contains a Bi-directional version of
    Grid32.Ocx.

    If you have Visual Basic 4.0 Professional or Enterprise Editions installed on
    your machine, you should already have these ActiveX controls available to you in
    Visual Basic 5.0.

    Graph32.ocx has been updated to work properly in Visual Basic 5.0 and it
    requires two additional support files: gsw32.exe and gswdll32.dll. You must
    place the three files together in the \Windows\System directory or the control
    will not function properly.

    If you do not have these controls and wish to use these in Visual Basic 5.0, you
    can install them by:

    1. Copy all of the files in this directory to your \WINDOWS\SYSTEM directory.

    2. Register the controls by either Browsing to them in Visual Basic itself, or
    manually register them using RegSvr32.Exe. RegSvr32.EXE can be found in the
    \Tools\RegistrationUtilities directory. The command line is:

    regsvr32.exe grid32.ocx

    3. Register the design time licenses for the controls. To do this, merge the
    vbctrls.reg file found in this directory into your registry. You can merge this
    file into your registry using RegEdit.Exe (Win95 or WinNT4) or RegEd32.Exe
    (WinNT3.51):

    regedit vbctrls.reg
    Hope it help
    Last edited by Inside; Aug 28th, 2017 at 02:45 PM. Reason: Add extra info
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  8. #8

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    Here is the small version of the same program, and not even a 3rd of the original options ( ).
    • To create a New business: create a folder and place the exe here
    • No last month-end date
    • Deleted entries: Slip is not used again
    • Slip numbers can be changed-unreliable count (a user can forget)
    • Delete must be done outside the program
    • No more sub-categories
    • no more notes
    • No more data path settings
    • ...etc


    The only extra control is MSFLXGRD.OCX

    Quick and to the point:

    QLaw.zip

    This was not the best of programming either, but it was a quick solution.
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  9. #9
    Sinecure devotee
    Join Date
    Aug 2013
    Location
    Southern Tier NY
    Posts
    3,923

    Re: Home Budget-Slip System

    Well, I don't know if downloading from there is technically legal, but further reading shows that the files were provided on the VB6 CDs under Common\Tools\Vb\Controls. I just didn't bother installing and registering them before. I don't know if I'll bother now since I don't do that much VB6 work and shy away from adding dependencies for the few tools I have written that are still in play. Just lazy I guess.

  10. #10
    Frenzied Member
    Join Date
    Dec 2008
    Posts
    1,045

    Re: Home Budget-Slip System

    The problem will be to do with Sheridan's THREED32.OCX
    I like to keep things simple, and try to avoid too many dependencies especially MS's extra controls.
    So I will not attempt to fix this (Sheridan's THREED32.OCX) on my PC.
    For other members that do have problem opening/running your contribution, these links may help them -
    http://www.vbforums.com/showthread.p...s-THREED32-OCX
    https://support.microsoft.com/en-us/...ot-found-error

    Regards,
    Rob
    PS I would be the last person on Earth that would encourage people to migrate to VB.NET (I am still hoping it will die and go away) .However because I was born to be a helpful sharing good Samaritan, I will share these links for those wishing to migrate their code to VB.NET -
    https://www.mobilize.net/solution/vb-upgrade-companion
    Download free for 10,000 lines of code -
    https://www.mobilize.net/vbuc-free-t...1-7e90f8d21e9c
    Last edited by Bobbles; Aug 28th, 2017 at 08:16 PM.

  11. #11

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    Quote Originally Posted by Bobbles View Post
    ...PS I would be the last person on Earth that would encourage people to migrate to VB.NET (I am still hoping it will die and go away)...
    Myself and I also hate it, but maybe in the future someone ask me to do some project in the net environment, then I know at least some basic stuff.

    I have done the screen layout so far.

    Yes. So far.

    ...will need some time to think a bit, but I already done the layout so far...


    Just take a bit of rest for awhile, and the feeling of changing over creep slowly over me....

    for i = 0 to 5000000
    doevents
    print
    next i

    Nope. that feeling has just past...

    That's it!

    I'm done.

    Thanx Bobbles
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  12. #12

    Thread Starter
    Addicted Member
    Join Date
    Aug 2017
    Location
    South Africa (in the middle)
    Posts
    159

    Re: Home Budget-Slip System

    I found this threed32 register program IF anyone is interested:

    http://www.planet-source-code.com/vb...11934&lngWId=1


    I'm busy replacing every threed32 in my programs with my own user control...

    Dammer! The link does not work anymore - get a "404"
    Last edited by Inside; Sep 13th, 2017 at 11:14 AM. Reason: The link does not work anymore
    Programmers are very patient people....while programming....but don't expect them to be patient all the time

  13. #13
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    3,040

    Re: Home Budget-Slip System

    Hi Inside,

    Here's the official Microsoft page for the ThreeD32.ocx controls for use in the VB6 IDE (for development). They just give them away now. There are also a few other OCX files that'll get registered for development, but I'll let you read the list on the Microsoft page.

    Enjoy,
    Elroy

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.