Dynamic Spawn Creator

Topics related to tools created by the Core Team or 3rd-party community members.

Moderator: Team Members

Post Reply
User avatar
thefoof
Retired
Posts: 630
Joined: Wed Nov 07, 2012 7:36 pm
Location: Florida

Dynamic Spawn Creator

Post by thefoof » Mon Feb 11, 2013 10:05 pm

I decided to try my hand at some coding because I got an idea for a tool I thought would be useful for me, so without knowing a language; and a ton of google use (don't expect this to be efficient!) Here is my Group Linker :mrgreen: (written in Visual Basic.NET 2010)Image

Features: takes up to 10 spawn group ID's and associates all of them to eachother.
Connection Test
Clear All button (zazzy!)
Add Spawn Chances


This is my first program but it is functional. Enjoy :D

If you feel something should be added/changed let me know. I may consider adding a checkbox to just add spawn chances or option to change output to a text file.
Last edited by thefoof on Wed Feb 13, 2013 6:51 pm, edited 3 times in total.
Top
User avatar
John Adams
Retired
Posts: 9684
Joined: Thu Jul 26, 2007 6:27 am
EQ2Emu Server: EQ2Emulator Test Center
Characters: John
Location: Arizona
Contact:
Contact John Adams

Re: Dynamic Spawn Creator

Post by John Adams » Tue Feb 12, 2013 6:58 am

Hah, that's awesome. Far better than me for your first try ;)

Do yourself a favor tho, learn C#. VB is so 2003 :D sooo much easier to work with (imo) and looks sharp on a resume'.


btw, I just now realized I (again) whacked my authz file for SVN when I did my maintenance the other day, so let me know if any permissions are missing. You should be able to commit to eq2tools, should you choose to do so.
Top
User avatar
thefoof
Retired
Posts: 630
Joined: Wed Nov 07, 2012 7:36 pm
Location: Florida

Re: Dynamic Spawn Creator

Post by thefoof » Tue Feb 12, 2013 4:57 pm

I think my write access got wiped, I can login but get an error when I try to add the folder. Finished it up fully though now so spawn chances work :mrgreen:

Also a couple folders in the tools trunk are hidden if you are logged in anonymous fyi, not sure if it was like that before
Top
Jabantiz
Lead Developer
Posts: 2912
Joined: Wed Jul 25, 2007 2:52 pm
Location: California

Re: Dynamic Spawn Creator

Post by Jabantiz » Tue Feb 12, 2013 5:15 pm

For your first program that is really good work.

I also favor C# but the first language I learned was C++ wich made C# easy to pick up.

If you have any general programing questions I will do my best to help, sadly I haven't used VB in years so I'm affraid I won't be much help with VB specific questions.
Top
User avatar
John Adams
Retired
Posts: 9684
Joined: Thu Jul 26, 2007 6:27 am
EQ2Emu Server: EQ2Emulator Test Center
Characters: John
Location: Arizona
Contact:
Contact John Adams

Re: Dynamic Spawn Creator

Post by John Adams » Tue Feb 12, 2013 8:42 pm

thefoof wrote:Also a couple folders in the tools trunk are hidden if you are logged in anonymous fyi, not sure if it was like that before
Yeah, not all Tools were supposed to be released. They either aren't ready, or I didn't get approval to add them (just put them there so I wouldn't lose them).

You have read/write access. No idea why it's not letting you add a folder. Maybe wipe your local copy, re-checkout and move your folder back in, Add, Commit? cache could be corrupt from the redo.
Top
User avatar
thefoof
Retired
Posts: 630
Joined: Wed Nov 07, 2012 7:36 pm
Location: Florida

Re: Dynamic Spawn Creator

Post by thefoof » Tue Feb 12, 2013 10:43 pm

Okay so, I checked out again to a new folder, same error. Updated tort svn same thing, not sure what else to do (i'm able to add but when I go to commit this happens). here is the error message:Image
Top
User avatar
John Adams
Retired
Posts: 9684
Joined: Thu Jul 26, 2007 6:27 am
EQ2Emu Server: EQ2Emulator Test Center
Characters: John
Location: Arizona
Contact:
Contact John Adams

Re: Dynamic Spawn Creator

Post by John Adams » Wed Feb 13, 2013 11:38 am

Oh ffs... sometimes I think I left my brain next to my teeth on the nightstand. Sorry... I added the SVN group to permissions, but forgot to add you to the group :)

Give it another try. :oops:
Top
User avatar
thefoof
Retired
Posts: 630
Joined: Wed Nov 07, 2012 7:36 pm
Location: Florida

Re: Dynamic Spawn Creator

Post by thefoof » Wed Feb 13, 2013 11:57 am

Worked that time thanks :P
Top
User avatar
alfa
Team Member
Posts: 550
Joined: Fri Jul 27, 2007 6:24 pm
Location: France
Contact:
Contact alfa

Re: Dynamic Spawn Creator

Post by alfa » Tue Feb 19, 2013 6:33 am

Great work, some points, if it can help you.

In Dynamic1 it is better to use select case unstead of if elseif it better cause your code dont have to check all if to go on the good thing. It point directly to good case

Code: Select all

Select Case Cint(ComboBox1.Text)
            Case 2
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = False
                TextBox4.Enabled = False
                TextBox5.Enabled = False
                TextBox6.Enabled = False
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = False
                SpawnBox4.Enabled = False
                SpawnBox5.Enabled = False
                SpawnBox6.Enabled = False
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 3
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = False
                TextBox5.Enabled = False
                TextBox6.Enabled = False
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = False
                SpawnBox5.Enabled = False
                SpawnBox6.Enabled = False
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 4
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = False
                TextBox6.Enabled = False
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = False
                SpawnBox6.Enabled = False
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 5
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = False
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = False
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 6
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = True
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = True
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 7
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = True
                TextBox7.Enabled = True
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = True
                SpawnBox7.Enabled = True
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 8
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = True
                TextBox7.Enabled = True
                TextBox8.Enabled = True
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = True
                SpawnBox7.Enabled = True
                SpawnBox8.Enabled = True
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

            Case 9
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = True
                TextBox7.Enabled = True
                TextBox8.Enabled = True
                TextBox9.Enabled = True
                TextBox10.Enabled = False
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = True
                SpawnBox7.Enabled = True
                SpawnBox8.Enabled = True
                SpawnBox9.Enabled = True
                SpawnBox10.Enabled = False

            Case 10
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                TextBox3.Enabled = True
                TextBox4.Enabled = True
                TextBox5.Enabled = True
                TextBox6.Enabled = True
                TextBox7.Enabled = True
                TextBox8.Enabled = True
                TextBox9.Enabled = True
                TextBox10.Enabled = True
                SpawnBox1.Enabled = True
                SpawnBox2.Enabled = True
                SpawnBox3.Enabled = True
                SpawnBox4.Enabled = True
                SpawnBox5.Enabled = True
                SpawnBox6.Enabled = True
                SpawnBox7.Enabled = True
                SpawnBox8.Enabled = True
                SpawnBox9.Enabled = True
                SpawnBox10.Enabled = True

            Case Else
                TextBox1.Enabled = False
                TextBox2.Enabled = False
                TextBox3.Enabled = False
                TextBox4.Enabled = False
                TextBox5.Enabled = False
                TextBox6.Enabled = False
                TextBox7.Enabled = False
                TextBox8.Enabled = False
                TextBox9.Enabled = False
                TextBox10.Enabled = False
                SpawnBox1.Enabled = False
                SpawnBox2.Enabled = False
                SpawnBox3.Enabled = False
                SpawnBox4.Enabled = False
                SpawnBox5.Enabled = False
                SpawnBox6.Enabled = False
                SpawnBox7.Enabled = False
                SpawnBox8.Enabled = False
                SpawnBox9.Enabled = False
                SpawnBox10.Enabled = False

        End Select
For your MySQL connexion use ConnectionStringBuilder (if some server are different MySQL Connector fix it)

Code: Select all

Dim conncStringBuild As New MySql.Data.MySqlClient.MySqlConnectionStringBuilder
        Dim conncString As String

        conncStringBuild.Server = TextBox3.Text 'Define Server Host
        conncStringBuild.UserID = TextBox4.Text 'Define User
        conncStringBuild.Password = TextBox2.Text 'Define Pass
        conncStringBuild.Database = TextBox1.Text 'Define Database

        conncString = conncStringBuild.GetConnectionString(True)
Use parameters for your query it automaticly fix some cool things like decimal separator, date, string ' char...

Code: Select all

   spwn.Connection = Conn
            spwn.Parameters.AddWithValue("@group_id", TextBox1.Text)
            spwn.Parameters.AddWithValue("@percentage", SpawnBox1.Text)
            spwn.CommandText = "INSERT INTO spawn_location_group_chances (group_id,percentage) VALUES (@group_id, @percentage);"
And last, prevent user to type char in your textboxs (add this event on TextBox KeyPress)

Code: Select all

Private Sub TextBoxKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 
        'If not digit Handled event
        If Char.IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled = True
    End Sub
You can also do it with decimal

Code: Select all

 Private Sub TextBoxKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 
        If Asc(e.KeyChar) = 46 Then e.KeyChar = "," 'Check we have good separator
        If Asc(e.KeyChar) = 44 And (CType(sender, TextBox).Text.IndexOf(",") > 0 Or CType(sender, TextBox).Text = "") Then e.Handled = True
        If Char.IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back And Asc(e.KeyChar) <> 44 Then e.Handled = True
    End Sub
Hope it can help you ;)
Fight with me... Or die, like the rest.
J.A. say: "I think Xinux tried to tell me this, but I ignore most things he suggests."
Top
User avatar
thefoof
Retired
Posts: 630
Joined: Wed Nov 07, 2012 7:36 pm
Location: Florida

Re: Dynamic Spawn Creator

Post by thefoof » Tue Feb 19, 2013 9:10 pm

Thanks for the advice alfa, any info is useful to me really heh, I just built this on a whim so I didn't really have any knowledge of the language I just figured that I knew enough about computer theory to get it done with a lot of research =p
Top
User avatar
alfa
Team Member
Posts: 550
Joined: Fri Jul 27, 2007 6:24 pm
Location: France
Contact:
Contact alfa

Re: Dynamic Spawn Creator

Post by alfa » Wed Feb 20, 2013 11:57 am

Anyone have to learn, that's why I post it for you :)
Fight with me... Or die, like the rest.
J.A. say: "I think Xinux tried to tell me this, but I ignore most things he suggests."
Top
Post Reply

Return to “Tools Development”

Who is online

Users browsing this forum: No registered users and 0 guests