[TutorialV6]Checador de Ips

[~~Surfistinha~~² 1]

{VS}[Tutorial] Gerador de nick

 

Add ao formulário: (altere a ForeColor da form para: Active Caption) - (Obs: não é necessário)

 

• 2 Button (altere o text para: Gerar) (altere o BackColor para: ButtonFace) - (Obs: não é necessário)

• 1 TextBox

 

 

 

 

 

De um duplo clique sobre o button1 e adicione o seguinte código:

 

TextBox1.Text = Replace(TextBox1.Text, "a", "α")

TextBox1.Text = Replace(TextBox1.Text, "b", "b")

TextBox1.Text = Replace(TextBox1.Text, "c", "c")

TextBox1.Text = Replace(TextBox1.Text, "d", "d")

TextBox1.Text = Replace(TextBox1.Text, "e", "є")

TextBox1.Text = Replace(TextBox1.Text, "f", "f")

TextBox1.Text = Replace(TextBox1.Text, "g", "g")

TextBox1.Text = Replace(TextBox1.Text, "h", "н")

TextBox1.Text = Replace(TextBox1.Text, "i", "i")

TextBox1.Text = Replace(TextBox1.Text, "j", "j")

TextBox1.Text = Replace(TextBox1.Text, "k", "k")

TextBox1.Text = Replace(TextBox1.Text, "l", "l")

TextBox1.Text = Replace(TextBox1.Text, "m", "м")

TextBox1.Text = Replace(TextBox1.Text, "n", "и")

TextBox1.Text = Replace(TextBox1.Text, "o", "σ")

TextBox1.Text = Replace(TextBox1.Text, "p", "ρ")

TextBox1.Text = Replace(TextBox1.Text, "q", "q")

TextBox1.Text = Replace(TextBox1.Text, "r", "я")

TextBox1.Text = Replace(TextBox1.Text, "s", "s")

TextBox1.Text = Replace(TextBox1.Text, "t", "т")

TextBox1.Text = Replace(TextBox1.Text, "u", "υ")

TextBox1.Text = Replace(TextBox1.Text, "v", "v")

TextBox1.Text = Replace(TextBox1.Text, "w", "w")

TextBox1.Text = Replace(TextBox1.Text, "y", "y")

TextBox1.Text = Replace(TextBox1.Text, "x", "x")

TextBox1.Text = Replace(TextBox1.Text, "z", "z")

 

 

Intendendo um pouco do código:

 

TextBox1. (Objeto que deseja alterar)

 

Text = (Deseja alterar o que nele)

 

Replace(TextBox1.Text, "x", "x") (ele irá tranformar o dado "x" para "x" quando digitado no formulário e a o botão ser ativado.[/b]