Page 1 of 2 12 LastLast
Results 1 to 10 of 12

Thread: Need Help with ExtPlug exemple

  1. #1
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,840

    Smile Need Help with ExtPlug exemple

    Hello all,

    I try to create my first VB6 plugin for RR and use the ExtPlug files like example.
    I want just to set ON an indicator when the plugin is launched.

    Is the good way to add my RR command , i think no because i have an undefined variable error when i compile the dll !
    Code:
    Private Sub Class_Initialize()
    'Code here is executed when loading the Extension plugin
     RRSDK.Execute ("SETIND;GMAILNOTIFIER;ON")
    End Sub
    In this case, what is the difference between COMSend "RoadRunner", "SETIND;GMAILNOTIFIER;ON" and RRSDK.Execute ("SETIND;GMAILNOTIFIER;ON")

    Thanks

  2. #2
    MySQL Error
    Auto Apps:loading...

    Join Date
    Oct 2004
    Posts
    5,255
    COMSend is depreciated from extension plugins
    it was how you did things before extension plugins
    dont use
    -Thanks
    Mitch
    www.rush2112.net

    "Did you test it in carwings??"

    Sun, Come shine my way
    May healing waters bury all my pain
    Wind, Carry me home
    The fabric of reality is tearing apart
    The piece of me that died
    Will return To live again

  3. #3
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,840
    Quote Originally Posted by mitchjs View Post
    COMSend is depreciated from extension plugins
    it was how you did things before extension plugins
    dont use
    Is it possible to have a new good exemple in the faq because the exemple that com with the RR install don't run for me in vb6

    Code:
    '*****************************************************************
    '* This is an interface to add commands/labels/indicators/sliders
    '* to RoadRunner without needing a whole new application for such.
    '*
    '* You can monitor commands executed in RR by checking the CMD
    '* paramter of ProcessCommand and similarly monitor labels and
    '* indicators of the current screen. The idea is so you can create
    '* new commands, labels, indicators and sliders without having
    '* to re-compile or understand the code in RoadRunner.
    '*
    '* Furthermore, it should be possible to intercept commands and
    '* modify them to your interst, say "AUDIO" to "LOAD;MYAUDIO.SKIN"
    '* for this all you need to do is modify CMD and return 3 on the
    '* processcommand call so that RR executes the command you return.
    '*
    '* You can also use ComSend "RoadRunner","COMMAND" to execute any
    '* standard RR command from here. Keep in mind that any commands
    '* executed in that fashion will NOT execute until your current
    '* command is done processing.
    '*
    '* NOTE >> COMSEND ONLY WORKS WITH THE COMPILED VERSION OF RR <<
    '*
    '* NOTE 2 >> You should consider removing ModCom from this project
    '* and using the COM interface instead of COMSEND. It Offers more
    '* features with less code. To know more about this, please check
    '* RR's help file or mp3car.com for documentation.
    '*
    '* You're free to use this code in any way you see fit.
    '*
    '*****************************************************************
    
    '*****************************************************************
    '* This Function will be called with the current command string
    '* The return parameter of this function determines the handling
    '* To be taken upon returning to RR:
    '*
    '* 0 = Command not processed here
    '* 1 = Command completed + return to previous screen
    '* 2 = Command completed, stay on current screen
    '* 3 = Command has been changed/modified, execute returned one
    '*
    '* frm is the form object which generated the current command. Be
    '* VERY VERY careful when using it.
    '*
    '* frm.tag contains the screen name for the same screen.
    '* you can poll other propperties/methods from the screen but you
    '* will need to look at RR's frmskin to know what you can use/do.
    '*****************************************************************
    Public Function ProcessCommand(CMD As String, frm As Object) As Integer
    
        Select Case LCase(CMD)
            Case "mycommand"
                'This example shows a message on screen (never recommended)
                MsgBox "MYCOMMAND was executed from " + frm.Tag + " !", vbOKOnly + vbExclamation, "Extension Plugin"
                ProcessCommand = 2 'Command completed
        
            Case "test"
                CMD = "audio"
                ProcessCommand = 3
        
            Case "boo"
                COMSend "RoadRunner", "vol+"
                ProcessCommand = 1
                
            Case "gmailon"
                COMSend "RoadRunner", "gmailon"
                ProcessCommand = 2
        
            Case "gmailexit"
                COMSend "RoadRunner", "ESC"
                ProcessCommand = 2
        
            'Specify whatever and whichever commands you wish to create
            'You can add as many as you'd like, and you can process complex commands as long
            'as you parse them yourself (i.e. "mycomplexcommand;parameter")
            
            'Case "mycommand2"
                'Insert Command code here
        
        End Select
    
    End Function
    
    '*****************************************************************
    '* This Function will be called with a requested label code and
    '* format specified at the skin file. Simply return any text to
    '* be displayed for the specified format.
    '*****************************************************************
    Public Function ReturnLabel(LBL As String, FMT As String) As String
    
        Select Case LCase(LBL)
            Case "plugindesc"
                    ReturnLabel = "GmailNotifier"
            Case "pluginver"
                    ReturnLabel = "1.0"
            Case "GmailNotifier"
                'This example returns a "hello" text to show it works
                ReturnLabel = "Hello from Extension!"
            
            'Specify whatever and whichever labels you wish to create
            'You can add as many as you'd like, and you can process complex labels as long
            'as you parse them yourself (i.e. "mycomplexlabel;parameter")
            
            'Case "mycommand2"
                'Insert Command code here
            
        End Select
    
    End Function
    
    '*****************************************************************
    '* This Function will be called with requested indicator code
    '* specified at the skin file. Simply return "True" or "False" to
    '* displayed the respective ON or OFF layer of the skin images.
    '* alternatively you can specify a path to a file to be displayed
    '* as the indicator specified. Return "False" to erase the image.
    '* ONLY return something else IF AND ONLY IF you process that code
    '*****************************************************************
    Public Function ReturnIndicatorEx(IND As String) As String
    
        'Default (No Action)
        'ONLY return something else IF AND ONLY IF you process that code
        ReturnIndicatorEx = ""
    
        Select Case LCase(IND)
            Case "GMAILNOTIFIER"
                'This example show ON for even seconds and OFF otherwise
                ReturnIndicatorEx = IIf(Val(Format(Time, "SS")) Mod 2 = 0, "C:\VBStuff\Road Runner\XMArt\1.gif", "")
            
            'Specify whatever and whichever indicators you wish to create
            'You can add as many as you'd like, and you can process complex indicators as long
            'as you parse them yourself (i.e. "mycomplexindicator;parameter")
            
            'Case "myindicator2"
                'Insert Code here to return "True", "False" or Path name
    
        End Select
    
    End Function
    
    '*****************************************************************
    '* This Sub will be called with an indicator code "CLICKED"
    '* specified at the skin file. This "event" so to speak can be used
    '* to toggle indicators or execute any code you desire when clicking
    '* on a specifig indicator in the skin. You can also modify IND and
    '* monitor the IND parameter as to detect/alter the behaviour of
    '* how RR will process the indicator code being clicked.
    '*****************************************************************
    Public Sub IndicatorClick(IND As String)
    
        'If one of our indicators
        Select Case LCase(IND)
            Case "GMAILNOTIFIER"
                'Displays message box
                MsgBox "IndGmail has been clicked!"
                            
        End Select
    
    End Sub
    
    '*****************************************************************
    '* This Function will be called with requested slider code
    '* specified at the skin file. Simply return the value of the
    '* slider to be displayed. Values should range from 0 to 65536.
    '* It is also possible to intercept/change the slider code before
    '* it is processed in RoadRunner (to overwrite existing codes).
    '*****************************************************************
    Public Function ReturnSlider(SLD As String) As Long
    
        'This tells RR that the Slider was not processed in this plugin
        ReturnSlider = -1
    
        Select Case LCase(SLD)
            Case "myslider"
                ReturnSlider = 1000! * Val(Format(Time, "SS"))
                
            'case "myslider2"
                'Insert code here to return your slider value
                
        End Select
        
    End Function
    
    
    '*****************************************************************
    '* This Function will be called with requested slider code
    '* specified at the skin file. Simply return the value of the
    '* slider to be displayed. Values should range from 0 to 65536.
    '* It is also possible to intercept/change the slider code before
    '* it is processed in RoadRunner (to overwrite existing codes).
    '*****************************************************************
    Public Sub SetSlider(SLD As String, Value As Long, Direction As Boolean)
    
        Select Case LCase(SLD)
            Case "myslider"
                MsgBox "Myslider Clicked to set value to:" + CStr(Value) + " Direction: " + IIf(Direction, "UP", "DOWN")
        
            'Case "myslider2"
                'Insert code to process/set slider value here
        
        End Select
    
    End Sub
    
    Private Sub Class_Initialize()
    
    'Code here is executed when loading the Extension plugin
    ' RRSDK.Execute ("SETIND;GMAILNOTIFIER;ON")
     COMSend "RoadRunner", "SETIND;GMAILNOTIFIER;ON"
    ' ProcessCommand = 2
    End Sub
    
    Private Sub Class_Terminate()
    
    'Code here is executed when unloading the Extension plugin
    
    End Sub
    Actually, i just play with the exemple plugin two understand how to create a plugin and how vb6 run.

    Green commands run well for me , not the red commands.

    Can you to correct me please ?

  4. #4
    RoadRunner Mastermind
    Auto Apps:loading...
    guino's Avatar
    Join Date
    Nov 2004
    Location
    Toronto, Canada
    Posts
    9,818
    If you downloaded the Plugin example from the FAQ thread, that was an older example which has been updated. I would suggest you to use the ones from the RR installer instead -- this is probably why the "RRSDK.Execute" command is not working for you. I have updated the FAQ with the latest examples which you can find here: http://guino.home.insightbb.com/RREx...inExamples.zip
    Ride Runner RR's Myspace

    "Being happy is not about having what you want, it's about wanting what you have."
    "The best things in life are always free - but that doesn't mean money can't buy you good things."

  5. #5
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,840
    Thanks for the new example than i have already tried .

    I have an error with this messages:



  6. #6
    FLAC
    Auto Apps:loading...
    EL CAMINO's Avatar
    Join Date
    Jul 2005
    Location
    upland california us
    Posts
    1,283
    you just need to deselect riderunner.exe, and browse for riderunner.exe real path, also in debugging you need to set that path as well. for debugging when working in your PI, sorry pierrot. try to download working PI sources, and learn from them.

  7. #7
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,840
    Quote Originally Posted by EL CAMINO View Post
    you just need to deselect riderunner.exe, and browse for riderunner.exe real path, also in debugging you need to set that path as well. for debugging when working in your PI, sorry pierrot. try to download working PI sources, and learn from them.
    Wel well ! It's ok for i can to create a dll . Now, i must to learn VB6 .

    Where can i found Pi source ?

  8. #8
    RoadRunner Mastermind
    Auto Apps:loading...
    guino's Avatar
    Join Date
    Nov 2004
    Location
    Toronto, Canada
    Posts
    9,818
    The example posted is a WORKING example, if you don't change it it should just work -- as long as you have RR installed on the same machine ?
    Ride Runner RR's Myspace

    "Being happy is not about having what you want, it's about wanting what you have."
    "The best things in life are always free - but that doesn't mean money can't buy you good things."

  9. #9
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,840

    Smile

    It working for me but i search other exemple PI.

    I have tried to add just one indicator into your gpsexec source , but the RR interface work with Comsend , so i don't know how to do.

    I have added these lignes into the modSDK.cls file.
    Code:
    '*****************************************************************
    '* This Function will be called with requested indicator code
    '* specified at the skin file. Simply return "True" or "False" to
    '* displayed the respective ON or OFF layer of the skin images.
    '* alternatively you can specify a path to a file to be displayed
    '* as the indicator specified. Return "False" to erase the image.
    '* ONLY return something else IF AND ONLY IF you process that code
    '*****************************************************************
    Public Function ReturnIndicatorEx(IND As String) As String
    
        'Default (No Action)
        ' DO NOT RETURN "False" for unprocess indicators, return ""
        ReturnIndicatorEx = ""
    
        Select Case LCase(IND)
            'Case "myindicator"
                'This example show ON for even seconds and OFF otherwise
                'ReturnIndicatorEx = IIf(Val(Format(Time, "SS")) Mod 2 = 0, "C:\VBStuff\Road Runner\XMArt\1.gif", "False")
            
            'Specify whatever and whichever indicators you wish to create
            'You can add as many as you'd like, and you can process complex indicators as long
            'as you parse them yourself (i.e. "mycomplexindicator;parameter")
            
            Case "gpsexec"
                'Insert Code here to return "True", "False" or Path name
                ReturnIndicatorEx = "True"
                
        End Select
    
    End Function
    
    '*****************************************************************
    '* This Sub will be called with an indicator code "CLICKED"
    '* specified at the skin file. This "event" so to speak can be used
    '* to toggle indicators or execute any code you desire when clicking
    '* on a specifig indicator in the skin. You can also modify IND and
    '* monitor the IND parameter as to detect/alter the behaviour of
    '* how RR will process the indicator code being clicked.
    '*****************************************************************
    Public Sub IndicatorClick(IND As String)
    
        'If one of our indicators
        Select Case LCase(IND)
            Case "gpsexec"
                'Displays message box
                'MsgBox "GPSExec has been clicked!"
    
        End Select
    
    End Sub
    but the indicator don't run

  10. #10
    RoadRunner Mastermind
    Auto Apps:loading...
    guino's Avatar
    Join Date
    Nov 2004
    Location
    Toronto, Canada
    Posts
    9,818
    Your code seems right.

    When you're dealing with extension plugins, you need to always overwrite the DLL with the one you just compiled. MAKE SURE you only have ONE DLL -- the one you compiled. Otherwise you may be running the old (original) DLL without knowing.
    Ride Runner RR's Myspace

    "Being happy is not about having what you want, it's about wanting what you have."
    "The best things in life are always free - but that doesn't mean money can't buy you good things."

Page 1 of 2 12 LastLast

Similar Threads

  1. SpeedZone w/GPS Position Alarm - GPS POSITION TRIGGER - 28SEP09
    By ThunderStick in forum RR Released Plugins
    Replies: 129
    Last Post: 10-07-2009, 05:39 AM

Bookmarks

Posting Permissions

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