[VB6 TUT] XYZ (Current / GoTo)

Ok because of high demand of XYZ Code i am making a Current and Go To XYZ Tut, i will attach a source code with it so if you don't understand exactly what to do you will be able to look at that :-D

ok first off we are going to start off with Go To XYZ:
Step 1. Go get the ReadAFloat / WriteAFloat Module:
click me (Updated link)

Step2. now that we have that we need to add 3 Textboxes and 1 Button (doesnt matter what there name is but you may have to change the code / name to make it work)

Step 3. Adding The Code: The code below you need to put into a button. No timer needed for this hack :-D

Code:

Dim TX As Long
Dim TX1 As Long
Dim TX2 As Single

Call ReadALong("Warrock", &H8B5288, TX)
TX1 = TX + &H17C
TX2 = Val(Text1.text)
Call WriteAFloat("Warrock", TX1, TX2)

Dim TY As Long
Dim TY1 As Long
Dim TY2 As Single

Call ReadALong("Warrock", &H8B5288, TY)
TY1 = TY + &H184
TY2 = Val(Text2.text)
Call WriteAFloat("Warrock", TY1, TY2)

Dim TZ As Long
Dim TZ1 As Long
Dim TZ2 As Single

Call ReadALong("Warrock", &H8B5288, TZ)
TZ1 = TZ + &H180
TZ2 = Val(Text3.text)
Call WriteAFloat("Warrock", TZ1, TZ2)

Ok now that should work any problems with that please tell me :-D
SRC Code: [HIDE="40"]http://**********.com/files/56209614/Go_To_XYZ.rar[/HIDE] (Need 40 posts to see)

Ok Onto Current XYZ
Step1. Get the ReadAFloat / WriteAFloat Module

2. Now add 3 Text Boxes, 2 buttons and 1 timer

Ok the following code goes in the timer:

Code:

Dim X4 As Long
Dim X5 As Long
Dim X6 As Long
Dim Y4 As Long
Dim Y5 As Long
Dim Y6 As Long
Dim Z4 As Long
Dim Z5 As Long
Dim Z6 As Long
Call ReadALong("Warrock", &H8B5288, X4)
X5 = X4 + &H17C
Call ReadALong("Warrock", X5, X6)
text1.Text = X6 'X Value

Call ReadALong("Warrock", &H8B5288, Y4)
Y5 = Y4 + 184
Call ReadALong("Warrock", Y5, Y6)
text2.Text = Y6 ' Y Value

Call ReadALong("Warrock", &H8B5288, Z4)
Z5 = Z4 + 180
Call ReadALong("Warrock", Z5, Z6)
text3.Text = Z6 'Z Value

Step 4 A. in button 1 put:

Code:

Timer1.interval = 1

Step 4 B. In button 2 put:

Code:

timer1.interval = 0

Now it should work :-D
Source Code: [HIDE="40"]http://**********.com/files/56214818/Current_XYZ.rar[/HIDE]
(Need 40 posts to see)
End Notes:
If there is any code problems or i worded something wrong tell me and i will fix it

+Karma is appreciated because this has taken me 2 hours :-D

[VB6 TUT] XYZ (Current / GoTo)

Similar Threads

Tags for this Thread