Results 1 to 8 of 8

Thread: VB6 3D-Surface-Plotting (based on RichClient5)

  1. #1

    Thread Starter
    PowerPoster
    Join Date
    Jun 2013
    Posts
    7,219

    VB6 3D-Surface-Plotting (based on RichClient5)

    Just another Demo, which applies antialiased and semitransparent Drawing-commands in a somewhat similar way as the "Bezier-Art"-Demo here:
    http://www.vbforums.com/showthread.p...ezier-Art-quot

    But in a perhaps more useful (or practical) fashion...

    The implementation allows for a few nice things as rotation around the Z-axis (Azimuth) - as well as changing the Altitude per Mouse (the height above the x-y-plane).
    There's a few predefined Formulas in the appropriate Combo-Box, but you can type in your own stuff as well.
    To support symmetrical Surfaces as e.g. spheres or "donuts", the Plotter allows also the formula: z² = f(x,y) (as an alternative to the usual z = f(x,y)).

    But here's a few screen-shots which are far more telling I assume:




    This is the wellknown "saddle":




    And this is the same saddle-plot. but now with an altitude of 90 degrees (full Top-View):




    Here a few more shots, but only as "normal links", to not clutter the posting with too many images:
    http://vbRichClient.com/Downloads/3dSrfPlot1.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot4.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot5.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot6.jpg

    Ok, finally the Source-code-link (as said, dependent on the RC5-libs which one can download from vbRichClient.com):
    (only 7KB, so it's a pretty small code-base to study).

    Have fun with it.

    Olaf
    Attached Files Attached Files
    Last edited by Hack; Sep 3rd, 2013 at 10:31 AM.

  2. #2
    Addicted Member
    Join Date
    Oct 2004
    Location
    Philippines
    Posts
    149

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Hi, I've downloaded the zip file attachment of your post and the vbRC5BaseDlls.zip from your website. I've extracted the contents of the project to a folder and dropped the dll's from your website in it.

    The problem arises when I run the project and I get a "ActiveX component can't create object" on this line Set Panel = Cairo.WidgetForms.CreateChild(Me.hWnd)

  3. #3

    Thread Starter
    PowerPoster
    Join Date
    Jun 2013
    Posts
    7,219

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Quote Originally Posted by Zelot View Post
    Hi, I've downloaded the zip file attachment of your post and the vbRC5BaseDlls.zip from your website. I've extracted the contents of the project to a folder and dropped the dll's from your website in it.
    I would not mix the Content of Demo-Folders with the 3 RC5-Framework-Dlls.

    Those 3 Base-Dlls should (on a developer-machine) go into their own dedicated folder (e.g. C:\RC5\) -
    and in this folder you could then place also future updates of the RC5-Base-Dlls and thus update those binaries in a central place.

    The content of the Demo-Folders (there's also other Demos and tutorials on vbRichClient.com, as well as here in the VB6-codebank)
    can then remain as it is - just unzip the Demos into their own separate Folders and don't place any additional copies of the RC5-Binaries in them -
    just starting the appropriate *.vbp should be enough.

    Quote Originally Posted by Zelot View Post
    The problem arises when I run the project and I get a "ActiveX component can't create object" on this line Set Panel = Cairo.WidgetForms.CreateChild(Me.hWnd)
    Yes, that error is normal, as long as you did not register one of the 3 RC5-Dlls (as said, all 3 best sitting in their own, isolated RC5-Folder) beforehand.

    Here's what is statet on the Download-page: http://www.vbrichclient.com/#/en/Downloads.htm

    Code:
    Out of the contained dlls you'd have only:
    
    - vbRichClient5.dll   <-- this one here to register (per regsvr32 in Admin-Mode) 
    - vb_cairo_sqlite.dll
    - DirectCOM.dll
    
    In addition, please keep those Dlls always together in their Folder - also when you deploy them with your App.
    As stated in the copied text above - on Systems > XP you will need to run the regsvr32-command from an elevated CMD-console (in Admin-Mode).

    Hope that helps to get you started with RC5-based Demos.

    Olaf

  4. #4
    Addicted Member
    Join Date
    Oct 2004
    Location
    Philippines
    Posts
    149

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Thanks, I already have it working together with the other GUI demos from your site. I was very excited to get this running on my machine (when I saw the attached pictures) that I didn't bother reading anything lol.

    Anyway these are cool examples/demos that I didn't even know possible with vb6, I can surely use this in my work. Just an advice on that web thingy, add pictures. You have a very good framework and most people won't bother reading what you wrote. Pictures would give it the attention it deserve (at least it works on me).

    ~ rick

  5. #5
    New Member
    Join Date
    Apr 2017
    Posts
    2

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Hi, Can anyone help me. how to change background color? In this example backgroung color is black but I need white. I change any parametrs in code but without result.Color of Lines and points I can change

  6. #6

    Thread Starter
    PowerPoster
    Join Date
    Jun 2013
    Posts
    7,219

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Quote Originally Posted by Azizxon View Post
    Hi, Can anyone help me. how to change background color? In this example backgroung color is black but I need white. I change any parametrs in code but without result.Color of Lines and points I can change
    I was using the "default-non-background" of the Plot-(Cairo-)Surface, therefore you didn't find any code-line to adjust it.
    I've now introduced Optional Parameters into the appropriate Functions and made a new Zip-Download:

    http://vbRichClient.com/Downloads/Th...BackGround.zip
    (the changes start within the routine 'ReDrawUsing(...) - I've also adjusted/increased a few of the Alpha-Values,
    because on Black they were be a bit lowered since the colors "shine" better on dark backgrounds).

    Here's what the Zip-content produces:


    HTH

    Olaf

  7. #7
    New Member
    Join Date
    Apr 2017
    Posts
    2

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Thank You Very Much!))

  8. #8
    Addicted Member
    Join Date
    Apr 2017
    Location
    India
    Posts
    234

    Re: VB6 3D-Surface-Plotting (based on RichClient5)

    Quote Originally Posted by Schmidt View Post
    Just another Demo, which applies antialiased and semitransparent Drawing-commands in a somewhat similar way as the "Bezier-Art"-Demo here:
    http://www.vbforums.com/showthread.p...ezier-Art-quot

    But in a perhaps more useful (or practical) fashion...

    The implementation allows for a few nice things as rotation around the Z-axis (Azimuth) - as well as changing the Altitude per Mouse (the height above the x-y-plane).
    There's a few predefined Formulas in the appropriate Combo-Box, but you can type in your own stuff as well.
    To support symmetrical Surfaces as e.g. spheres or "donuts", the Plotter allows also the formula: z² = f(x,y) (as an alternative to the usual z = f(x,y)).

    But here's a few screen-shots which are far more telling I assume:




    This is the wellknown "saddle":




    And this is the same saddle-plot. but now with an altitude of 90 degrees (full Top-View):




    Here a few more shots, but only as "normal links", to not clutter the posting with too many images:
    http://vbRichClient.com/Downloads/3dSrfPlot1.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot4.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot5.jpg
    http://vbRichClient.com/Downloads/3dSrfPlot6.jpg

    Ok, finally the Source-code-link (as said, dependent on the RC5-libs which one can download from vbRichClient.com):
    (only 7KB, so it's a pretty small code-base to study).

    Have fun with it.

    Olaf
    AWESOME! Awesome! Awesome! Absolute Treat! I don't know how many in this forum have seen this! And, I wonder, how many such treats of yours I myself am yet to see in our forum! You are an extraordinary human being with a Golden Heart where LOVE is overflowing at all times to reach out to help out the world community at any time.

    God Bless You! God Bless ALL!

    Have a Divineful Day!

    Kind Regards.

Posting Permissions

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



Click Here to Expand Forum to Full Width