[League of Legends] CounterHelper

    Publicités

Users Who Are Viewing This Thread (Total: 1, Members: 0, Guests: 1)

Status
Not open for further replies.

Flipote

Membre actif
Nov 25, 2011
181
62
934
Bonjour tout le monde. Aujourd'hui je vous présente un programme que j'ai développé avec un ami et qui permet de connaitre tous les counter de tous les champions.

Screen :

1364649088-capture.png


Téléchargement :

View attachment CounterHelper.rar

VirusScan :

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Si vous rencontrez des Bugs ou si vous avez des propositions merci de nous en faire part grâce au bouton prévu à cet effet.
 
Last edited by a moderator:

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
Je suis un peu noob sur LoL et je ne sait pas ce que signifie "Counter".
Un counter est un champion qui peux kill facilement mon champion ou l'inverse ?
 

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
Une petite suggestion : Rajoutez le stuff à utiliser pour chaque perso en AD, AP et pour les support
Je sais que sa va être un peu long, mais sa va rendre service à beaucoup de gens(y compris moi) xD
 

Flipote

Membre actif
Nov 25, 2011
181
62
934
C'est prévu et se serait sympa que tu explore un peu la fonction "Nous Contacter" pour éventuellement trouvé des bugs etc...
 

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
Oh sa ! J'ai essayer de faire bugger le logiciels de diverse manière, mais c'est difficile vu qu'il n'y a pas beaucoup de fonctions ...
 

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
If Operators.CompareString(Me.ComboBox1.Text, "Ahri", False) = 0 Then
Me.TextBox1.Text = "Talon, LeBlanc, Swain, Annie"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Akali", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Garen, Rumble, Renekton"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Alistar", False) = 0 Then
Me.TextBox1.Text = "Janna, Vayne, Cho'Gath, Lulu"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Amumu", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Dr. Mundo, Olaf, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Anivia", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Kassadin, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Annie", False) = 0 Then
Me.TextBox1.Text = "Brand, Orianna, Morgana, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ashe", False) = 0 Then
Me.TextBox1.Text = "Ezreal, Kha'Zix, Graves, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Blitzcrank", False) = 0 Then
Me.TextBox1.Text = "Thresh, Alistar, Leona, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Brand", False) = 0 Then
Me.TextBox1.Text = "Kassadin, Galio, Fizz, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Caitlyn", False) = 0 Then
Me.TextBox1.Text = "Sivir, Kog'Maw, Blitzcrank, Varus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Cassiopeia", False) = 0 Then
Me.TextBox1.Text = "Galio, LeBlanc, Talon, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Cho'Gath", False) = 0 Then
Me.TextBox1.Text = "Warwick, Vayne, Kog'Maw, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Corki", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Draven, Kog'Maw, Urgot"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Darius", False) = 0 Then
Me.TextBox1.Text = "Kayle, Yorick, Jayce, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Diana", False) = 0 Then
Me.TextBox1.Text = "Mordekaiser, Irelia, Cho'Gath, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Draven", False) = 0 Then
Me.TextBox1.Text = "Varus, Thresh, Blitzcrank, Caitlyn"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Dr. Mundo", False) = 0 Then
Me.TextBox1.Text = "Kog'Maw, Tristana, Miss Fortune, Fizz"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Elise", False) = 0 Then
Me.TextBox1.Text = "Kassadin, Yorick, Mordekaiser, Malzahar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Evelynn", False) = 0 Then
Me.TextBox1.Text = "Ryze, Kassadin, Mordekaiser, Talon"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ezreal", False) = 0 Then
Me.TextBox1.Text = "Draven, Miss Fortune, Caitlyn, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fiddlesticks", False) = 0 Then
Me.TextBox1.Text = "Janna, Alistar, Diana, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fiora", False) = 0 Then
Me.TextBox1.Text = "Jax, Malphite, Pantheon, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Fizz", False) = 0 Then
Me.TextBox1.Text = "Ryze, Elise, Mordekaiser, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Galio", False) = 0 Then
Me.TextBox1.Text = "Udyr, Talon, Janna, Vladimir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Gangplank", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Fiora, Udyr, Irelia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Garen", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Pantheon, Nidalee"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Gragas", False) = 0 Then
Me.TextBox1.Text = "Fizz, Mordekaiser, Ahri, Swain"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Graves", False) = 0 Then
Me.TextBox1.Text = "Sivir, Caitlyn, Urgot, Miss Fortune"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Hecarim", False) = 0 Then
Me.TextBox1.Text = "Nasus, Sejuani, Warwick, Cho'Gath"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Heimerdinger", False) = 0 Then
Me.TextBox1.Text = "Syndra, Zed, Nunu, Ziggs"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Irelia", False) = 0 Then
Me.TextBox1.Text = "Olaf, Udyr, Pantheon, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Janna", False) = 0 Then
Me.TextBox1.Text = "Sivir, Sona, Lulu, Graves"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jarvan IV", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Jax, Garen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jax", False) = 0 Then
Me.TextBox1.Text = "Malphite, Singed, Elise, Garen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Jayce", False) = 0 Then
Me.TextBox1.Text = "Yorick, Pantheon, Nidalee, Ahri"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Karma", False) = 0 Then
Me.TextBox1.Text = "Veigar, Nami, Katarina, Karthus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Karthus", False) = 0 Then
Me.TextBox1.Text = "Soraka, Kassadin, Fizz, Veigar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kassadin", False) = 0 Then
Me.TextBox1.Text = "Talon, Pantheon, Gangplank, Sion"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Katarina", False) = 0 Then
Me.TextBox1.Text = "Diana, Fiddlesticks, Vi, Alistar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kayle", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Anivia, Elise, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kennen", False) = 0 Then
Me.TextBox1.Text = "Janna, Ryze, Swain, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kha'Zix", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Pantheon, Yorick, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Kog'Maw", False) = 0 Then
Me.TextBox1.Text = "Blitzcrank, Akali, LeBlanc, Sivir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "LeBlanc", False) = 0 Then
Me.TextBox1.Text = "Galio, Sion, Fizz, Diana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lee Sin", False) = 0 Then
Me.TextBox1.Text = "Trundle, Udyr, Garen, Renekton"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Leona", False) = 0 Then
Me.TextBox1.Text = "Alistar, Lulu, Janna, Morgana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lulu", False) = 0 Then
Me.TextBox1.Text = "Soraka, Sivir, Caitlyn, Sona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Lux", False) = 0 Then
Me.TextBox1.Text = "Talon, Fizz, Kassadin, Zed"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Malphite", False) = 0 Then
Me.TextBox1.Text = "Rumble, Cho'Gath, Yorick, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Malzahar", False) = 0 Then
Me.TextBox1.Text = "Gangplank, Galio, LeBlanc, Lux"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Maokai", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Dr. Mundo, Lee Sin, Shaco"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zyra", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Talon, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zilean", False) = 0 Then
Me.TextBox1.Text = "Morgana, Karma, Galio, Kha'Zix"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ziggs", False) = 0 Then
Me.TextBox1.Text = "Leblanc, Talon, Fizz, Akali"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Zed", False) = 0 Then
Me.TextBox1.Text = "Singed, Kayle, Wukong, Rumble"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Yorick", False) = 0 Then
Me.TextBox1.Text = "Cho'gath, Nunu, Trundle, Xin Zhao"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Xin Zhao", False) = 0 Then
Me.TextBox1.Text = "Malphite, Jax, Pantheon, Volibear"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Xerath", False) = 0 Then
Me.TextBox1.Text = "Ahri, Fizz, LeBlanc, Kassadin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Wukong", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Darius, Garen, Olaf"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Warwick", False) = 0 Then
Me.TextBox1.Text = "Kayle, Yorick, Olaf, Udyr"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Volibear", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Kennen, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vladimir", False) = 0 Then
Me.TextBox1.Text = "Swain, Fiddlesticks, Xin Zhao, Malzahar"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Viktor", False) = 0 Then
Me.TextBox1.Text = "Talon, Fizz, LeBlanc, Tristana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vi", False) = 0 Then
Me.TextBox1.Text = "Jax, Riven, Pantheon, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Veigar", False) = 0 Then
Me.TextBox1.Text = "Ryze, Talon, Fizz, Galio"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Vayne", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Quinn, Draven, Corki"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Varus", False) = 0 Then
Me.TextBox1.Text = "Graves, Blitzcrank, Sivir, Tristana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Urgot", False) = 0 Then
Me.TextBox1.Text = "Soraka, Nami, Sivir, Irelia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Udyr", False) = 0 Then
Me.TextBox1.Text = "Ashe, Teemo, Trundle, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Twitch", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Corki, Draven, Lulu"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Twisted Fate", False) = 0 Then
Me.TextBox1.Text = "Fizz, Diana, Nocturne, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tryndamere", False) = 0 Then
Me.TextBox1.Text = "Teemo, Rammus, Malphite, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Trundle", False) = 0 Then
Me.TextBox1.Text = "Twitch, Sona, Kennen, Heimerdinger"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tristana", False) = 0 Then
Me.TextBox1.Text = "Corki, Draven, Diana, Caitlyn"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Tresh", False) = 0 Then
Me.TextBox1.Text = "Alistar, Lulu, Ezreal, Leona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Teemo", False) = 0 Then
Me.TextBox1.Text = "Yorick, Pantheon, Rumble, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Taric", False) = 0 Then
Me.TextBox1.Text = "Sivir, Lulu, Nami, Morgana"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Talon", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Yorick, Pantheon, Riven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Syndra", False) = 0 Then
Me.TextBox1.Text = "Fizz, Talon, Kassadin, LeBlanc"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Swain", False) = 0 Then
Me.TextBox1.Text = "Viktor, Galio, Fizz, Cassiopeia"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Soraka", False) = 0 Then
Me.TextBox1.Text = "Miss Fortune, Tristana, Blitzcrank, Varus"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sona", False) = 0 Then
Me.TextBox1.Text = "Blitzcrank, Leona, Thresh, Draven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Skarner", False) = 0 Then
Me.TextBox1.Text = "Morgana, Ashe, Shyvana, Olaf"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sivir", False) = 0 Then
Me.TextBox1.Text = "Vayne, Draven, Kha'Zix, Corki"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sion", False) = 0 Then
Me.TextBox1.Text = "Morgana, Teemo, Jax, Mordekaiser"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Singed", False) = 0 Then
Me.TextBox1.Text = "Teemo, Elise, Kayle, Jayce"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shyvana", False) = 0 Then
Me.TextBox1.Text = "Olaf, Yorick, Teemo, Jax"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shen", False) = 0 Then
Me.TextBox1.Text = "Yorick, Warwick, Jayce, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Shaco", False) = 0 Then
Me.TextBox1.Text = "Lee Sin, Riven, Olaf, Warwick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Sejuani", False) = 0 Then
Me.TextBox1.Text = "Quinn, Morgana, Shyvana, Tryndamere"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Ryze", False) = 0 Then
Me.TextBox1.Text = "Cassiopeia, Xerath, Anivia, Brand"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rumble", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Xin Zhao, Galio"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Riven", False) = 0 Then
Me.TextBox1.Text = "Garen, Olaf, Elise, Kennen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rengar", False) = 0 Then
Me.TextBox1.Text = "Jax, Fiora, Pantheon, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Renekton", False) = 0 Then
Me.TextBox1.Text = "Elise, Garen, Malphite, Ryze"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Rammus", False) = 0 Then
Me.TextBox1.Text = "Trundle, Shyvana, Olaf, Dr.Mundo"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Quinn", False) = 0 Then
Me.TextBox1.Text = "Caitlyn, Varus, Miss Fortune, Draven"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Poppy", False) = 0 Then
Me.TextBox1.Text = "Olaf, Darius, Teemo, Kennen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Pantheon", False) = 0 Then
Me.TextBox1.Text = "Yorick, Elise, Udyr, Shen"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Orianna", False) = 0 Then
Me.TextBox1.Text = "LeBlanc, Syndra, Diana, Zed"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Olaf", False) = 0 Then
Me.TextBox1.Text = "Elise, Yorick, Kennen, Kayle"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nunu", False) = 0 Then
Me.TextBox1.Text = "Sona, Soraka, Sivir, Janna"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nocturne", False) = 0 Then
Me.TextBox1.Text = "Olaf, Shyvana, Udyr, Karma"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nidalee", False) = 0 Then
Me.TextBox1.Text = "Pantheon, Akali, Xin Zhao, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nautilus", False) = 0 Then
Me.TextBox1.Text = "Shyvana, Hecarim, Udyr, Lee Sin"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nasus", False) = 0 Then
Me.TextBox1.Text = "Teemo, Riven, Rumble, Elise"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Nami", False) = 0 Then
Me.TextBox1.Text = "Lulu, Ezreal, Fizz, Leona"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Morgana", False) = 0 Then
Me.TextBox1.Text = "Talon, Mordekaiser, Fizz, Vladimir"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Mordekaiser", False) = 0 Then
Me.TextBox1.Text = "Garen, Zyra, Cassiopeia, Yorick"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Miss Fortune", False) = 0 Then
Me.TextBox1.Text = "Tristana, Taric, Draven, Thresh"
End If
If Operators.CompareString(Me.ComboBox1.Text, "Maître Yi", False) = 0 Then
Me.TextBox1.Text = "Jax, Cho'gath, Rammus"
End If
Attend, c'est la décompilation ou tu n'utilise de Select et Case ?
 

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
Evaelis > OMG ! Le spoiler existe ...

En faite ce logiciel est tout con, fait en VB.NET et un peu mal codé...
Mais tout de même un programme utile :)
 

Flipote

Membre actif
Nov 25, 2011
181
62
934
P3ter97kaf T'as pas un site avec tous les stuffs conseillés ecrits stp ?
 

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
Nan j'en connais aucun, certains disent les stuffs sur le forum mais c'est des stuffs de noob... C'est pour sa que je t'ai proposé de mettre les stuffs :p
 

Flipote

Membre actif
Nov 25, 2011
181
62
934
Oui mais le problème c'est que sur internet il n'y a pas écrit le stuff mais il est en image et donc je peux pas le copier coller.
 

P3ter97kaf

Membre actif
Nov 2, 2011
267
1
924
bah tu devrais essayer de voir les images que tu vois et trouver quel objet c'est en jeu ^^"
 
Status
Not open for further replies.