[ OTO HP MP çekdirme Modül+ KOD ]USKO kendi KOXPUNU kendin yap VB6

Gerekenler :



2 Adet Check Box Ekliyoruz.

2 Adet Text Box Ekliyoruz.

2 Adet Combo Box Ekliyoruz.

1 Adet Timer Ekliyoruz.

Yeni bir modül ekliyoruz. Adını Skiller Koyuyoruz. ( Varsa gerek yok)

(New Modül olarak verdiğim genel modülü kullanıcaz. )

Yapılışı :

Check Box Modül Kısmına Aşağıdaki Kodu Yazıyoruz. ( Captionu Oto HP )



Diğer Check Box Kod Kısmına Aşağıdaki Kodu Yazıyoruz. ( Captionuna Oto MP Yazıyoruz. )



Private Sub Check2_Click()



If Check2.Value = 1 Then



UseAutoMana = 1



Else



UseAutoMana = 0



End If



End Sub

Text Box Modül Kısmına Aşağıdaki Kodu Yazıyoruz. ( Text1 Kısmı 30 )



Private Sub Text2_Change()



If IsNumeric(Text2.Text) Then



HealPercent = Text2.Text



End If



End Sub

Diğer Text Boxumuza Aşağıdaki Kodu Yazıyoruz. ( Text1 Kısmı 30 )





Private Sub Text3_Change()



If IsNumeric(Text3.Text) Then



ManaPercent = Text3.Text



End If



End Sub



Skiller Modül Kısmına Aşağıdaki Kodu Yazıyoruz..



Public Sub skiller()







'Scrollar



Form1.List1.AddItem "%50 Exp Scrol"



Form1.List1.ItemData(Form1.List1.NewIndex) = 610088



Form1.List1.AddItem "%50 NP Scrol"



Form1.List1.ItemData(Form1.List1.NewIndex) = 610089



Form1.List1.AddItem "+1000 HP Scrol"



Form1.List1.ItemData(Form1.List1.NewIndex) = 491078



Form1.List1.AddItem "+200 Defans Scrol"



Form1.List1.ItemData(Form1.List1.NewIndex) = 491081



Form1.List1.AddItem "%10 Atak Scrol"



Form1.List1.ItemData(Form1.List1.NewIndex) = 491075



'HP Potlar



Form1.Combo1.AddItem "90"



Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490011



Form1.Combo1.AddItem "180"



Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490012



Form1.Combo1.AddItem "360"



Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490013



Form1.Combo1.AddItem "720"



Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490014







'MP Potlar



Form1.Combo2.AddItem "120"



Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490016



Form1.Combo2.AddItem "240"



Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490017



Form1.Combo2.AddItem "480"



Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490018



Form1.Combo2.AddItem "960"



Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490019



Form1.Combo2.AddItem "1920"



Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490020



End Sub



Eğer genel modülünüz yoksa buradaki konumdan bulabilirsiniz ..

Cash Advance | Debt Consolidation | Insurance | Free Credit Report | Cell Phones at Ekeyfi.com