Compilation error

[HardySpicer]

The procedure is

Option Explicit On
Option Strict On
Imports Microsoft.VisualBasic
Imports System
Imports System.Xml
Imports System.Text
Imports System.Collections.Generic

Namespace AIMLbot.AIMLTagHandlers
''' <summary>
''' The random element instructs the AIML interpreter to return
exactly one of its contained li
''' elements randomly. The random element must contain one or more li
elements of type
''' defaultListItem, and cannot contain any other elements.
''' </summary>
Public Class random
Inherits AIMLbot.Utils.AIMLTagHandler
''' <summary>
''' Ctor
''' </summary>
''' <param name="bot">The bot involved in this request</param>
''' <param name="user">The user making the request</param>
''' <param name="query">The query that originated this node</param>
''' <param name="request">The request inputted into the system</
param>
''' <param name="result">The result to be passed to the user</param>
''' <param name="templateNode">The node to be processed</param>
Public Sub New(ByVal bot As AIMLbot.Bot, ByVal user As AIMLbot.User,
ByVal query As AIMLbot.Utils.SubQuery, ByVal request As
AIMLbot.Request, ByVal result As AIMLbot.Result, ByVal templateNode As
XmlNode)
MyBase.New(bot, user, query, request, result, templateNode)
Me.isRecursive = False
End Sub

Protected Overrides Function ProcessChange() As String
If Me.templateNode.Name.ToLower() = "random" Then
If Me.templateNode.HasChildNodes Then
' only grab <li> nodes
Dim listNodes As List(Of XmlNode) = New List(Of XmlNode)()
For Each childNode As XmlNode In Me.templateNode.ChildNodes
If childNode.Name = "li" Then
listNodes.Add(childNode)
End If
Next childNode
If listNodes.Count > 0 Then
Dim r As New random()
Dim chosenNode As XmlNode = CType(listNodes(r.Next
(listNodes.Count)), XmlNode)
Return chosenNode.InnerXml
End If
End If
End If
Return String.Empty
End Function
End Class
End Namespace

and I am getting the error at every Dim r as New random()

Error 1 Argument not specified for parameter 'bot' of 'Public Sub New
(bot As Bot, user As User, query As Utils.SubQuery, request As
Request, result As Result, templateNode As System.Xml.XmlNode)'. C:
\Users\smithy\Desktop\vbaiml\AIMLbot\AIMLTagHandlers\random.vb 42 29
AIMLbot


any ideas

Hardy

 

[Mike]

Well, the only constructor I see for the Random() class is

Public Sub New(ByVal bot As AIMLbot.Bot, _
ByVal user As AIMLbot.User, _
ByVal query As AIMLbot.Utils.SubQuery, _
ByVal request As AIMLbot.Request, _
ByVal result As AIMLbot.Result, _
ByVal templateNode As XmlNode)
MyBase.New(bot, user, query, request, result, templateNode)
Me.isRecursive = False
End Sub

So the instantiation process:

Dim r As New random()

will fail it because the constructor says you need 6 parameters
starting with "bot" parameter, hence the error.

Now the Random Class also inherits AIMLbot.Utils.AIMLTagHandler so it
may have a constructor with no parameters.

But that doesn't seem to be the case.

Overall, you need to put parameters in the instantiation statement:

dim r as New Random(x1, x2, x2, x4, x5, x6)

--

 

[Mike]

Well, the only constructor I see for the Random() class is

Public Sub New(ByVal bot As AIMLbot.Bot, _
ByVal user As AIMLbot.User, _
ByVal query As AIMLbot.Utils.SubQuery, _
ByVal request As AIMLbot.Request, _
ByVal result As AIMLbot.Result, _
ByVal templateNode As XmlNode)
MyBase.New(bot, user, query, request, result, templateNode)
Me.isRecursive = False
End Sub

So the instantiation process:

Dim r As New random()

will fail it because the constructor says you need 6 parameters
starting with "bot" parameter, hence the error.

Now the Random Class also inherits AIMLbot.Utils.AIMLTagHandler so it
may have a constructor with no parameters.

But that doesn't seem to be the case.

Overall, you need to put parameters in the instantiation statement:

dim r as New Random(x1, x2, x2, x4, x5, x6)

--

 

[Family Tree Mike]

The procedure is

Option Explicit On
Option Strict On
....

If listNodes.Count > 0 Then
Dim r As New random()
....

any ideas

Hardy

Are you intending to call new System.Random() or new
AIMLbot.AIMLTagHandlers.Random()? I actually get the error on the next line
where r.Next(...) is used.

Mike

 

[Family Tree Mike]

The procedure is

Option Explicit On
Option Strict On
....

If listNodes.Count > 0 Then
Dim r As New random()
....

any ideas

Hardy

Are you intending to call new System.Random() or new
AIMLbot.AIMLTagHandlers.Random()? I actually get the error on the next line
where r.Next(...) is used.

Mike

 

[HardySpicer]

Well, the only constructor I see for the Random() class is

    Public Sub New(ByVal bot As AIMLbot.Bot, _
                  ByVal user As AIMLbot.User, _
                   ByVal query As AIMLbot.Utils.SubQuery, _
                   ByVal request As AIMLbot.Request, _
                   ByVal result As AIMLbot.Result, _
                   ByVal templateNode As XmlNode)
        MyBase.New(bot, user, query, request, result, templateNode)
        Me.isRecursive = False
    End Sub

So the instantiation process:

    Dim r As New random()

will fail it because the constructor says you need 6 parameters
starting with "bot" parameter, hence the error.

Now the Random Class also inherits AIMLbot.Utils.AIMLTagHandler so it
may have a constructor with no parameters.

But that doesn't seem to be the case.

Overall, you need to put parameters in the instantiation  statement:

     dim r as New Random(x1, x2, x2, x4, x5, x6)

Ok thanks

 

[HardySpicer]

Well, the only constructor I see for the Random() class is

    Public Sub New(ByVal bot As AIMLbot.Bot, _
                  ByVal user As AIMLbot.User, _
                   ByVal query As AIMLbot.Utils.SubQuery, _
                   ByVal request As AIMLbot.Request, _
                   ByVal result As AIMLbot.Result, _
                   ByVal templateNode As XmlNode)
        MyBase.New(bot, user, query, request, result, templateNode)
        Me.isRecursive = False
    End Sub

So the instantiation process:

    Dim r As New random()

will fail it because the constructor says you need 6 parameters
starting with "bot" parameter, hence the error.

Now the Random Class also inherits AIMLbot.Utils.AIMLTagHandler so it
may have a constructor with no parameters.

But that doesn't seem to be the case.

Overall, you need to put parameters in the instantiation  statement:

     dim r as New Random(x1, x2, x2, x4, x5, x6)

Ok thanks