Auto Ts yapılışı

Selam Arkadaşlar Bu Dersimizde Oto Ts Yapılışını Göstericem.

İlk Önce Form`a 1 List ,1 Text box,2 Adet Label,1 Adet Timer Ekliyoruz.


Modül Açıp Su Kodları Ekliyoruz.

Kod:

Public Sub ts() Dim pStr As String, pBytes() As Byte
If Form1.List2.ListIndex = 0 Then
Skilid = "FA2B07"
Else
If Form1.List2.ListIndex = 1 Then
Skilid = "042C07"
Else
If Form1.List2.ListIndex = 2 Then 'Bulture
Skilid = "182C07"
Else
If Form1.List2.ListIndex = 3 Then 'Zombie
Skilid = "222C07"
Else
If Form1.List2.ListIndex = 4 Then 'Lycan
Skilid = "362C07"
Else
If Form1.List2.ListIndex = 5 Then 'Stripter Scorpion
Skilid = "402C07"
Else
If Form1.List2.ListIndex = 6 Then 'Kobolt
Skilid = "4A2C07"
Else
If Form1.List2.ListIndex = 7 Then 'Death Knight
Skilid = "862C07"
Else
If Form1.List2.ListIndex = 8 Then 'Mastadon
Skilid = "722C07"
Else
If Form1.List2.ListIndex = 9 Then 'Black Window
Skilid = "742C07"
Else
If Form1.List2.ListIndex = 10 Then 'Sheriff
Skilid = "9A2C07"
Else
If Form1.List2.ListIndex = 11 Then 'Harunga
Skilid = "B82C07"
Else
If Form1.List2.ListIndex = 12 Then 'Burning Skeloton
Skilid = "BA2C07"
Else
If Form1.List2.ListIndex = 13 Then 'Raven Harpy
Skilid = "EA2C07"
Else
If Form1.List2.ListIndex = 14 Then 'Uruk Tron
Skilid = "F42C07"
Else
If Form1.List2.ListIndex = 15 Then 'Troll Warior
Skilid = "FE2C07"
Else
If Form1.List2.ListIndex = 16 Then 'Centaur
Skilid = "042D07"
Else
If Form1.List2.ListIndex = 17 Then 'Stone Golem
Skilid = "082D07"
Else
If Form1.List2.ListIndex = 18 Then 'Orc Bowman
Skilid = "262D07"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
pStr = ("3101" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3104" + Skilid + "00" + Form1.CharID.Caption + Form1.CharID.Caption + "0000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub

Modül Kodlarımızı Ekledikden Sonra,Forma Eklediğimiz Timer Çift Tıklıyoruz Ve Kodları Ekliyoruz.
Kod:

Dim TStime
Label13.Caption = Label13.Caption + 1
TStime = Text8.Text
If Label13.Caption = Text8.Text Then
ts
Text8.Text = 5400
End If
End Sub

Burdaki Label13 0 Dan 5400 Sayması İçindir text8 İse Sanie Yi Göstermesi İçindir text ve labelleri Kendinize Göre Düzenleyebilirsiniz.

Son Olarak Bir Checkbox ekleyip Buton Şekline Çeviriyoruz Ve Kodları Ekliyoruz.

Kod:

If Check22.Value = 1 Then
Label13.Caption = 0
ts
Timer4.Enabled = True
Check22.Caption = "Durdur"
Else
Label13.Caption = ""
Timer4.Enabled = False
Check22.Caption = "Başlat"
End If