err help

[Bobba]

Hi there annoying Pita again... had a little help getting some code written but i've got a few error messages i cannot get rid of, below i've indluded the code and errors i am getting. Sorry but they are text files as i ran out of space to simply copy and paste.

Can anyone fix the errors up and/or tell me how they did or would do it.

[mendhak]

You know... you could have just included the project, instead of making us do the download.open.copy.openvsnet2003.paste thing.

[mendhak]

Where did you get this code from?

For starters, your command buttons have not been properly defined. THey should be:

Private WithEvents Townbutton As System.Windows.Forms.Button
        Private WithEvents AddQuest As System.Windows.Forms.Button

[mendhak]

Oh great... there are more. Most of your errors have been fixed now:

Public Class MainForm
        Inherits System.Windows.Forms.Form
        Private WithEvents DarkBlizzardPassbutton As System.Windows.Forms.Button
        Private MarkerStonecomboBox As System.Windows.Forms.ComboBox
        Private CausewaycomboBox As System.Windows.Forms.ComboBox
        Private PaintscomboBox As System.Windows.Forms.ComboBox
        Private CotleycomboBox As System.Windows.Forms.ComboBox
        Private WithEvents Ashwoodbutton As System.Windows.Forms.Button
        Private WithEvents AddQuest As System.Windows.Forms.Button
        Private WithEvents Cotleybutton As System.Windows.Forms.Button
        Private TowncomboBox As System.Windows.Forms.ComboBox
        Private TokenscomboBox As System.Windows.Forms.ComboBox
        Private WithEvents Paintsbutton As System.Windows.Forms.Button
        Private WithEvents MarkerStonesbutton As System.Windows.Forms.Button
        Private label7 As System.Windows.Forms.Label
        Private WithEvents Darkwellbutton As System.Windows.Forms.Button
        Private DarkBlizzardPasscomboBox As System.Windows.Forms.ComboBox
        Private label3 As System.Windows.Forms.Label
        Private label2 As System.Windows.Forms.Label
        Private label1 As System.Windows.Forms.Label
        Private AshwoodcomboBox As System.Windows.Forms.ComboBox
        Private label6 As System.Windows.Forms.Label
        Private label5 As System.Windows.Forms.Label
        Private label4 As System.Windows.Forms.Label
        Private WithEvents Tokensbutton As System.Windows.Forms.Button
        Private WithEvents Townbutton As System.Windows.Forms.Button
        Private label9 As System.Windows.Forms.Label
        Private label8 As System.Windows.Forms.Label
        Private DarkwellcomboBox As System.Windows.Forms.ComboBox
        Private WithEvents Causewaybutton As System.Windows.Forms.Button

Now, what is AddQuestForm?

[Bobba]

thank you for helping.. definately solved a lot of headaches, sorry if i'm creating a lot of hassle... bout the only thing i'm good at.. <G>. Went down to jut threee errors though went i added addquest.vb went up to 11 again...

i've added the adquest vb below..

[mendhak]

Where's the SLN file?

[mendhak]

ZIP the ENTIRE folder please.

[Bobba]

told you i was a moron when it comes to this... well just about anything...

[mendhak]

I have two suggestion to make, which will be helpful to you in the future.

One is, use proper naming conventions for your objects so that another person reading it knows what you're doing.

I just had a harrowing time figuring out what exactly you were doing, and what exactly a "dark blizzard" is

Second, comments help tremenduously. It may seem trivial at first, but as your coding progresses and your app grows larger, you'll have a harder time knowing what you just did and where.

With that said, here's the code to be used in AddQuestform.vb:

Imports System.Xml
Imports System.io
 
Public Class AddQuestform
    Inherits System.Windows.Forms.Form
    Friend Label2 As System.Windows.Forms.Label
    Friend Label1 As System.Windows.Forms.Label
    Friend TextBox1 As System.Windows.Forms.TextBox
    Friend TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend ComboBox1 As System.Windows.Forms.ComboBox
    Friend Label3 As System.Windows.Forms.Label
    
 
    Dim mainform As WindowsApplication1.DefaultNamespace.MainForm
 
 
 
 
#Region " Windows Form Designer generated code "
 
    Public Sub New(ByRef mainform As Form)
        MyBase.New()
 
        mainform = mainform
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label3 = New System.Windows.Forms.Label
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(56, 64)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(112, 24)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Name: "
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"Area1", "Area2", "Area3", "Area4"})
        Me.ComboBox1.Location = New System.Drawing.Point(192, 16)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(144, 21)
        Me.ComboBox1.TabIndex = 0
        AddHandler Me.ComboBox1.SelectedIndexChanged, AddressOf Me.ComboBox1SelectedIndexChanged
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(200, 304)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(120, 48)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "Save!"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(192, 64)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(184, 20)
        Me.TextBox2.TabIndex = 6
        Me.TextBox2.Text = ""
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(192, 112)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(344, 168)
        Me.TextBox1.TabIndex = 2
        Me.TextBox1.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(56, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(112, 24)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Select Area:"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(56, 120)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(112, 32)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Commands (one per line):"
        '
        'AddQuestform
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(568, 374)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ComboBox1)
        Me.Name = "AddQuestform"
        Me.Text = "AddQuestform"
        Me.ResumeLayout(False)
    End Sub
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.SelectedIndex > -1 Then
            Dim filename = ComboBox1.SelectedItem & ".xml"
            Dim fStrm As FileStream
            Try
                fStrm = New FileStream(filename, FileMode.Truncate, FileAccess.Write)
            Catch ex As Exception
                Try
                    fStrm = New FileStream(filename, FileMode.Create, FileAccess.Write)
                Catch ex2 As Exception
                    MessageBox.Show("cannot save file")
                    Exit Sub
                End Try
            End Try
 
            Dim xtw As New XmlTextWriter(fStrm, System.Text.Encoding.UTF8)
            xtw.Formatting = Formatting.Indented
            xtw.Indentation = 2
            xtw.QuoteChar = """"c
            xtw.WriteStartDocument(True)
            xtw.WriteStartElement("Quests")
            For Each quest As QuestStorage In mainform.getComboBoxForArea(ComboBox1.SelectedItem)
                xtw.WriteStartElement("Quest")
                xtw.WriteElementString("Name", quest.ToString())
                xtw.WriteStartElement("Commands")
                For Each line As String In quest.getCommands()
                    xtw.WriteElementString("Command", line)
                Next
                xtw.WriteEndElement()
                xtw.WriteEndElement()
            Next
 
            xtw.WriteStartElement("Quest")
            xtw.WriteElementString("Name", TextBox2.Text)
            xtw.WriteStartElement("Commands")
            For Each line As String In TextBox1.Text.Split(vbCrLf)
                If (line.Chars(0) = vbLf) Then
                    line = line.Substring(1)
                End If
 
                xtw.WriteElementString("Command", line)
            Next
            xtw.WriteEndElement()
            xtw.WriteEndElement()
            xtw.WriteEndElement()
            xtw.WriteEndDocument()
            xtw.Close()
 
            mainform.loadQuests()
            MessageBox.Show("Quest: " & TextBox2.Text & " is saved!")
        End If
    End Sub
    Private Sub ComboBox1SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
    
    
    End Sub
    
End Class

[Bobba]

First of thanks for all the help mendhak its really appreciated. i've copied the code to the vb file and i'm still getting a hole host of errors... do you think we could talk over msn or aim or soemthing perhaps you could talke me through and sort the problems quicker that way, i could explain excactly what its ment to do and hopefully get it fixed?

[mendhak]

Sorry, I am not open to talking over any messenger, because I am too poor to afford one.

You can post your errors and problems here.

One thing I did notice in your solution when I opened it up, was that Form1.VB was showing an error there. Apparently, you must have renamed or removed it improperly. I deleted Form1.vb from the solution explorer.

I'm attaching the corrected project here:

[Bobba]

as far as i know the messenger programs i liseted were free least i'm not paying apenny for them... gonna take a peek at the new zip you sent

[Bobba]

ok tried compiling what you sent in that zip file, got the following build errors... getting closer though


------ Build started: Project: questerer Configuration: Debug ------
Performing main compilation...


C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(15) : error BC30002: Type 'WindowsApplication1.DefaultNamespace.MainForm' is not defined.

Dim mainform As WindowsApplication1.DefaultNamespace.MainForm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(22) : error BC30002: Type 'Form' is not defined.

Public Sub New(ByRef mainform As Form)
~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(142) : error BC30002: Type 'Exception' is not defined.

Catch ex As Exception
~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(145) : error BC30002: Type 'Exception' is not defined.

Catch ex2 As Exception
~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(146) : error BC30451: Name 'MessageBox' is not declared.

MessageBox.Show("cannot save file")
~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(171) : error BC30451: Name 'vbCrLf' is not declared.

For Each line As String In TextBox1.Text.Split(vbCrLf)
~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(185) : error BC30451: Name 'MessageBox' is not declared.

MessageBox.Show("Quest: " & TextBox2.Text & " is saved!")
~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(3) : error BC30002: Type 'ArrayList' is not defined.

Private commandList As New ArrayList
~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(14) : error BC30002: Type 'ArrayList' is not defined.

Public Function getCommands() As ArrayList
~~~~~~~~~

Build complete -- 10 errors, 0 warnings

[Bobba]

just occured to me to let ya know ha's going on there might be a better way of doing things!

I'm trying to create a program that will have various buttons for different locations within a game a play, these buttons should trigger of a pattern of commands being sent to that game to do whatever it is thats needed to be done, move the character north picking up items etc.

preferably these commands would be stored in atext file or somesuch that is easily editable, so i can change whats going on wtihout having to rewrite another program.

the program would also have to send a 1 second pause after each line from the text file is sent

as an example:

Line 1 :<whatever the commands are>
wait one second
Line 2 :<whatever the commands are>

etc.
etc.

hope that helps with either getting what i;ve got so far to work correctly or getting soemthing that will!

[mendhak]

Here's a good question:

How exactly have you come across this code? Did you place the buttons on the form yourself or what?

I think you have a serious problem with your IDE. The error messages I just saw are odd, odd in the sense that they appear.

Try adding the following lines to the top of your code:

Imports System
Imports System.Object
Imports Microsoft.VisualBasic

And see how many errors it comes down to.

[Bobba]

well done to seven now.

------ Build started: Project: questerer Configuration: Debug ------
Performing main compilation...


C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(19) : error BC30002: Type 'WindowsApplication1.DefaultNamespace.MainForm' is not defined.

Dim mainform As WindowsApplication1.DefaultNamespace.MainForm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(26) : error BC30002: Type 'Form' is not defined.

Public Sub New(ByRef mainform As Form)
~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(150) : error BC30451: Name 'MessageBox' is not declared.

MessageBox.Show("cannot save file")
~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(189) : error BC30451: Name 'MessageBox' is not declared.

MessageBox.Show("Quest: " & TextBox2.Text & " is saved!")
~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(3) : error BC30002: Type 'ArrayList' is not defined.

Private commandList As New ArrayList
~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(14) : error BC30002: Type 'ArrayList' is not defined.

Public Function getCommands() As ArrayList
~~~~~~~~~

Build complete -- 7 errors, 0 warnings

[mendhak]

Imports System.Collections
Imports System.Windows.Forms

[Bobba]

wooo just three now

------ Build started: Project: questerer Configuration: Debug ------
Performing main compilation...


C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(21) : error BC30002: Type 'WindowsApplication1.DefaultNamespace.MainForm' is not defined.

Dim mainform As WindowsApplication1.DefaultNamespace.MainForm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(3) : error BC30002: Type 'ArrayList' is not defined.

Private commandList As New ArrayList
~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\QuestStorage.vb(14) : error BC30002: Type 'ArrayList' is not defined.

Public Function getCommands() As ArrayList
~~~~~~~~~

Build complete -- 3 errors, 0 warnings

[mendhak]

That's it.

Dude... your IDE is seriously messed up. Your application is running perfectly fine on my machine (except the XML part) and don't even have the Imports statements in there.

[Bobba]

heh well that's sharpdevelop for you... guess it doesn't do quite as much as say visual studio... I'll have to get that as soon as i can afford it... well thanks for your help ths far anyhow... guess it just wasn;t ment to be!

[mendhak]

Originally posted by Bobba
heh well that's sharpdevelop for you... guess it doesn't do quite as much as say visual studio... I'll have to get that as soon as i can afford it... well thanks for your help ths far anyhow... guess it just wasn;t ment to be!

I had no idea what sharpdevelop was!

No wonder... ok, hold on, let me check a few more things.

[Bobba]

sharpdevelop is the program i'm using to write this stuff... i'll try nd find a link for it.. http://www.icsharpcode.net/OpenSource/SD/ wel thats the hompage... might help niot sure

[mendhak]

In the Solution Explorer, add references to:

System
System.Data
System.Drawing
System.Windows.Forms
System.XML

[Bobba]

solution explorer?

[mendhak]

Does it have some place where you can add a reference?

[Bobba]

if i knew what excactly to look for it might...

[Bobba]

oh wait... found it sorry being a moron

[mendhak]

Originally posted by Bobba
oh wait... found it sorry being a moron

You're my long lost twin!

[Bobba]

added the references i think looked a bit complicated went upto 103+ errors... gonna undo that bit

[Bobba]

just thought if it works on your's couldn;t you coompile it then all i'd have to do is alter the xml files... that is where the data would be stored right?

[mendhak]

Originally posted by Bobba
added the references i think looked a bit complicated went upto 103+ errors... gonna undo that bit

Your IDE is on drugs.


I don't see why it would produce the errors.

Perhaps there's something that didn't get through from you to me.

ZIP up the entire folder again, and upload it here. I'll take a look at it. Perhaps there's something we're missing?

[Bobba]

here you go

[mendhak]

Go to QuestStorage.vb and put these lines there:

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.xml
Imports System.io
Imports System.Data
Imports System.Collections
Imports Microsoft.VisualBasic

Do the same in Mainform.vb

Do the same in AddQuestForm.vb

(If there are imports statements there already, replace them)

[Bobba]

woot just one more error now!

Performing main compilation...


C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(26) : error BC30002: Type 'WindowsApplication1.DefaultNamespace.MainForm' is not defined.

Dim mainform As WindowsApplication1.DefaultNamespace.MainForm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Build complete -- 1 errors, 0 warnings

[mendhak]

In AddQuestForm.vb, add another imports line:

Imports WindowsApplication1.DefaultNamespace

And change this line:

Dim mainform As WindowsApplication1.DefaultNamespace.MainForm

to this:

Dim mainform As mainform

[Bobba]

two errors now

C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(10) : error BC30466: Namespace or type 'DefaultNamespace' for the Imports 'WindowsApplication1.DefaultNamespace' cannot be found.

Imports WindowsApplication1.DefaultNamespace
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(27) : error BC30002: Type 'mainform' is not defined.

Dim mainform As mainform
~~~~~~~~

Build complete -- 2 errors, 0 warnings

[mendhak]

Whoopsie...

Change

Dim mainform As mainform

to

Dim mf As mainform

HAHA! MF! Ok, ok....

And your button click event should look like this:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.SelectedIndex > -1 Then
            Dim filename = ComboBox1.SelectedItem & ".xml"
            Dim fStrm As FileStream
            Try
                fStrm = New FileStream(filename, FileMode.Truncate, FileAccess.Write)
            Catch ex As Exception
                Try
                    fStrm = New FileStream(filename, FileMode.Create, FileAccess.Write)
                Catch ex2 As Exception
                    MessageBox.Show("cannot save file")
                    Exit Sub
                End Try
            End Try
 
            Dim xtw As New XmlTextWriter(fStrm, System.Text.Encoding.UTF8)
            xtw.Formatting = Formatting.Indented
            xtw.Indentation = 2
            xtw.QuoteChar = """"c
            xtw.WriteStartDocument(True)
            xtw.WriteStartElement("Quests")
            For Each quest As QuestStorage In mf.getComboBoxForArea(ComboBox1.SelectedItem)
                xtw.WriteStartElement("Quest")
                xtw.WriteElementString("Name", quest.ToString())
                xtw.WriteStartElement("Commands")
                For Each line As String In quest.getCommands()
                    xtw.WriteElementString("Command", line)
                Next
                xtw.WriteEndElement()
                xtw.WriteEndElement()
            Next
 
            xtw.WriteStartElement("Quest")
            xtw.WriteElementString("Name", TextBox2.Text)
            xtw.WriteStartElement("Commands")
            For Each line As String In TextBox1.Text.Split(vbCrLf)
                If (line.Chars(0) = vbLf) Then
                    line = line.Substring(1)
                End If
 
                xtw.WriteElementString("Command", line)
            Next
            xtw.WriteEndElement()
            xtw.WriteEndElement()
            xtw.WriteEndElement()
            xtw.WriteEndDocument()
            xtw.Close()
 
            mf.loadQuests()
            MessageBox.Show("Quest: " & TextBox2.Text & " is saved!")
        End If
    End Sub

Then try again.

[Bobba]

still two errors C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(10) : error BC30466: Namespace or type 'DefaultNamespace' for the Imports 'WindowsApplication1.DefaultNamespace' cannot be found.

Imports WindowsApplication1.DefaultNamespace
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\Documents and Settings\Scott\My Documents\SharpDevelop Projects\questerer\AddQuestform.vb(27) : error BC30002: Type 'mainform' is not defined.

Dim mf As mainform
~~~~~~~~

Build complete -- 2 errors, 0 warnings

[mendhak]

*SIGH*

There's something seriously screwed up with your IDE... SharpDeveloper.

I feel that even after you solve this one, it'll give you more problems as you code further. It can't even place a button on a form correctly.

[Bobba]

grr!! we're so close to buti think your right.....

is there a sipler way of doing what i'm wnting it to do?