Tails111
2007-09-01 09:08:02
Well, this was my first Visual Basic project for school, I never actually got a round to finishing it, cursed SCAR stealing my love for VB :P
it is hidden from Jagex seeing it, I don't know if you are allowd to run Calcs so it is hidden from the task bar. It has a nice little splash screen also.
Well some of the Skills work, they are all posted there but I never quite got to all of them the working ones are woodcutting and Firemaking. I had to just "show" it at school so I just did 2 of em and then "presented" them, and no the Instructions button doesn't work either.
It has some nice pictures, thus the larger attachment.
While I have deleted most of the source code I kept the rounding and math procedures, here is a sample. I also have all the images I used…
And yes this was my first ever working, useful, VB project.
Always Round up
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each C As Control In Me.Controls
If TypeOf C Is Label And C.Name.StartsWith("lbl") Then
C.Text = Math.Ceiling(CDbl(C.Text)).ToString
End If
Next
End Sub
Wood cutting level 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtLevel.Text = "2" Then
Label16.Text = frmLevels.lbl2.Text - txtExp.Text
lblNormal.Text = Label16.Text / 25
lblLight.Text = Label16.Text / 32
lblOak.Text = Label16.Text / 37.5
lblMedium.Text = Label16.Text / 55
lblWillow.Text = Label16.Text / 67.5
lblTeak.Text = Label16.Text / 85
lblDense.Text = Label16.Text / 80
lblMaple.Text = Label16.Text / 100
lblHollow.Text = Label16.Text / 82.5
lblMahogany.Text = Label16.Text / 125
lblYew.Text = Label16.Text / 175
it is hidden from Jagex seeing it, I don't know if you are allowd to run Calcs so it is hidden from the task bar. It has a nice little splash screen also.
Well some of the Skills work, they are all posted there but I never quite got to all of them the working ones are woodcutting and Firemaking. I had to just "show" it at school so I just did 2 of em and then "presented" them, and no the Instructions button doesn't work either.
It has some nice pictures, thus the larger attachment.
While I have deleted most of the source code I kept the rounding and math procedures, here is a sample. I also have all the images I used…
And yes this was my first ever working, useful, VB project.
Always Round up
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each C As Control In Me.Controls
If TypeOf C Is Label And C.Name.StartsWith("lbl") Then
C.Text = Math.Ceiling(CDbl(C.Text)).ToString
End If
Next
End Sub
Wood cutting level 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtLevel.Text = "2" Then
Label16.Text = frmLevels.lbl2.Text - txtExp.Text
lblNormal.Text = Label16.Text / 25
lblLight.Text = Label16.Text / 32
lblOak.Text = Label16.Text / 37.5
lblMedium.Text = Label16.Text / 55
lblWillow.Text = Label16.Text / 67.5
lblTeak.Text = Label16.Text / 85
lblDense.Text = Label16.Text / 80
lblMaple.Text = Label16.Text / 100
lblHollow.Text = Label16.Text / 82.5
lblMahogany.Text = Label16.Text / 125
lblYew.Text = Label16.Text / 175