Adblock breaks this site

First VB6 Program (Slayer Counter)

Discussion in 'Programming General' started by Billyy, Feb 13, 2008.

  1. Billyy

    Billyy Guru of Ganja
    Banned

    Joined:
    Nov 3, 2007
    Posts:
    2,842
    Referrals:
    6
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    Alright so Nullware helped me to create my first ever VB program. It is a very simple program, as it was my first.

    Scenario:

    You get a slayer task, you need to kill 37 hill giants. Pull out this program, and after each hill giant you kill you hit the plus sign. This will show you quickly your progress on your task. And once you hit 37, you know you've completed your task and you can return to your Slayer Master.

    This also has the function of clicking the 'RuneScape' button, and it pulls up an Internet browser, and loads RuneScape's homepage.

    There is also a 'Clear' button to clear your current number, and a '-' button, in case you need to subtract one.

    Screenshot:

    [​IMG]

    And here's the code:

    Code:
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Const SW_SHOWNORMAL = 1
    Private Sub ClearButton_Click()
    TextNumber.Text = 0
    End Sub
    
    Private Sub MinusBox_Click()
    If TextNumber.Text > 0 Then
    TextNumber.Text = TextNumber.Text - 1
    End If
    End Sub
    
    Private Sub PlusBox_Click()
    TextNumber.Text = TextNumber.Text + 1
    End Sub
    
    Private Sub RuneScapeButton_Click()
    Dim iret As Long
    iret = ShellExecute(Me.hwnd, _
    vbNullString, _
    "http://www.runescape.com", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
    End Sub
    
    Thanks again Nullware, you really helped me. Hopefully I'll get better at VB and learn to make all different kinds of programs. :)

    Oh, and if you want the download, tell me, I'll upload it and post the link. :p
     
  2. Eric

    Eric Grand Master
    Banned

    Joined:
    Feb 23, 2007
    Posts:
    3,344
    Referrals:
    13
    Sythe Gold:
    25
    First VB6 Program (Slayer Counter)

    Nice :) Gl with future scripts.
     
  3. Daily

    Daily BANNED FROM MARKET
    Banned

    Joined:
    May 6, 2005
    Posts:
    4,425
    Referrals:
    18
    Sythe Gold:
    5
    First VB6 Program (Slayer Counter)

    Cool beans.
     
  4. Nullware

    Nullware Guru

    Joined:
    Jan 30, 2007
    Posts:
    1,761
    Referrals:
    4
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    No flaming yet, getting lucky. :)
     
  5. hockeykid09

    hockeykid09 Guru
    Banned

    Joined:
    Mar 16, 2007
    Posts:
    1,162
    Referrals:
    0
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    Very basic, but its a good start.
     
  6. Billyy

    Billyy Guru of Ganja
    Banned

    Joined:
    Nov 3, 2007
    Posts:
    2,842
    Referrals:
    6
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    Working on a Combat Calculator now, including Summoning.
     
  7. Covey

    Covey Creator of EliteSwitch
    Retired Sectional Moderator Visual Basic Programmers

    Joined:
    Sep 9, 2005
    Posts:
    4,510
    Referrals:
    9
    Sythe Gold:
    9
    Discord Unique ID:
    807246764155338833
    Discord Username:
    Covey#1816
    First VB6 Program (Slayer Counter)

    You should work on your display ;)

    Other then that, good start.
     
  8. Darthatron

    Darthatron Massive Troll
    Retired Sectional Moderator Visual Basic Programmers

    Joined:
    May 22, 2006
    Posts:
    1,612
    Referrals:
    3
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    It is pretty basic, but a good start. :) Stick to it and you will pick it up pretty quickly. :D Good luck.
     
  9. Rdogg999

    Rdogg999 Active Member

    Joined:
    Jan 16, 2008
    Posts:
    215
    Referrals:
    0
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    dl link pl0x?
     
  10. jdsfighter

    jdsfighter Forum Addict
    Visual Basic Programmers

    Joined:
    Jan 21, 2007
    Posts:
    603
    Referrals:
    0
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    Very basic, but we all have to start from somewhere. Keep it up and you will be going good one day. Also I see that you are using APIs, this is always a good habit to get into. Keep it up. :)
     
  11. The Volume

    The Volume Active Member
    Banned

    Joined:
    Feb 28, 2008
    Posts:
    161
    Referrals:
    0
    Sythe Gold:
    0
    First VB6 Program (Slayer Counter)

    Very Nice Program Not that I'll ever use it.Keep up the good work!
     
< Login form | Basic string parser >


 
 
Adblock breaks this site