Shop OBEX P1 Docs P2 Docs Learn Events
VB6 'BS2 Event Sequencer' — Parallax Forums

VB6 'BS2 Event Sequencer'

RGuyserRGuyser Posts: 90
edited 2006-06-12 15:57 in General Discussion
no

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
3D & 2D Design - Technical Documentation
www.robertguyser.com

Post Edited (RGuyser) : 6/18/2006 7:42:28 PM GMT

Comments

  • DigitalDjDigitalDj Posts: 207
    edited 2006-06-11 17:49
    I tried to unzip and look at this in VB6 but you must have a couple of files missing because it didn't want to load correctly. I did notice all of your IF Then Statements and there is a few. The only thing i can say is you can combine those in a way that you are looking for multiple conditions. Using IF Then Else would also help. There may be a better way but with understanding your program more that's about all i can help for now.

    Actually i think it would be a great idea for us forum members to have a thread dedicated to visual programming for the Parallax line of processors for external control from the computer.

    I like it, Yes you have alot of questions! This looks like a very interesting project, also could be used for machine control(visual ladder logic)! I suggest going to the codegurus forum, the guys over there are great. I am in the process of doing some coding for led lighting myself and they have helped me out especially with arrays in the fact of redimmensioning and adding to the arrays for more storage. I am making a user interface for (2) 4x16 grids that you can do patterns and colors on. These are done as frames like video. The cool thing is i can run text across the grids and this is all for my jukebox project. One of the hardest thing for me to understand at this point is what gets sent from the computer to the processor for control.

    If i can help in any way let me know, i can send you some code examples of what i have come up with via email adigitaldj1@sbcglobal.net

    You can setup control arrays like in this example:

    Private Sub Form_Load() 
    Dim n As Integer 
    
    'loop to set index
    For n = 0 To 2 'set scrollbars startpoint and however many controls you have
    hScroll(n).Value = 100 'can be any control, picturebox, label etc. set upper value to 100 or your max 255 etc.
    Next n 
    
    End Sub
    

    Good Luck!

    http://www.codeguru.com/forum/forumdisplay.php?f=4

    I would be interested in seeing this when you get it done!

    Kevin
    ·


    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Education And Experience Teaches Knowledge Not Arrogance ! (Unknown)
    The Only Stupid Question Is The One Not Asked ! (Unknown, of coarse this is something that i would say)
    Do Not Burn The Bridge That Has Brought You Forth You May·Need To Journey Back ! (Chinese)


    Post Edited (DigitalDj) : 6/11/2006 11:58:50 PM GMT
  • RGuyserRGuyser Posts: 90
    edited 2006-06-12 13:34
    well. i spent a ton of time over the weekend. all my old problems are gone. i have made many experimental programs.. having just checked the file i liknked, it is missing the 'really-nice' .ini read\write module i found.

    now that i can dynamically create object arrays, the process of making custom user controls has now become my obsession!

    codeguru eh? i was about to look for a good VB forum. That is a place to look?


    i am trying to have the following features:

    -drag and drop event creation
    -multiple events per 'row'
    -0.1second resolution
    -Several event types.. i was thinking inputs, outputs, and sounds(from PC soundcard). inputs could trigger various states like 'end sequence, or a location jump.

    currently i have been making a user control timer module... i want it to be the module the rest of the softeware is built around...
    your project sounds interesting as well.. i will post again soon with more screen shots of the current experimental version...
    thx for the interest.
  • DigitalDjDigitalDj Posts: 207
    edited 2006-06-12 15:57
    Robert,

    Repost your code with the .ini i would like to look at again in working order.

    Kevin



    ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
    Education And Experience Teaches Knowledge Not Arrogance ! (Unknown)
    The Only Stupid Question Is The One Not Asked ! (Unknown, of coarse this is something that i would say)
    Do Not Burn The Bridge That Has Brought You Forth You May·Need To Journey Back ! (Chinese)
Sign In or Register to comment.