Ascii Maker in vb

Pentru a crea un ASCII MAKER :
In primul rand trebuie sa intelegeti ce fac nishte chestii in visual basic:
NomeText_Change() - Folosita pentru Text Box - normal aceasta vine activata de fiecare data cand actualul text se schimba.
NomeText_KeyPress(KeyAscii as Integer) - Folosita pentru Text Box - aceasta sub se activeaza de fiecare daca cand cand se apasa absolut orice tasta ( la alegere ) si gaseste deja o variabila numita KeyAscii , o indentifica ca o variabila de tipul integer, peste un numar prim si de marimea maxima de 2 byte ,este urmata de simbolul % care cuprinde o raza de 32.768 a 32.768.
NomeCommand_Click() - Folosita pentru indiferent ce obiect din visual basic , cum ar fii : Option Box, Check Box, List Box, Command Botton, etc. - aceasta sub este activata de cate ori se da click pe un obiect.
Form_Load() - Doar pentru FORM - aceasta sub este activata de cate ori un FORM este incarcat de catre windows.
Acestea sunt principalele functii pentru a crea un Ascii Maker.

Vom utiliza 2 functii in VB:
Replace(Testul original, Cauta, Inlocuieste) - Aceasta functie este folosita pentru a incarca intregul test dintr-un text box sau orice alt obiect intr-o variabila de tipul String si in interiorul acestu test VB o sa caute un rand si il va schimba cu altul.
Clipboard - nu este o functie adevarata in vb dar activeaza probabilitatea de a incarca textul din clipboard de la windows ( Copy - Paste ).
Clipboard.Clear - Sterge Clipboard, trebuie mereu scrisa aceasta functie daca nu windows o sa salveze textul peste cel care este deja prezent in clipboard.
Clipboard.GetText - Pentru a incarca textul deja prezent in Clipboard
Clipboard.GetText Text - Pentru a salva textul pe clipboard

Creati interfata si programul vostru tre sa cuprinda:
2 TextBox, 2 Butoane si 2 Label.
Puneti asa numele llor:
1° TextBox: txtNick
2° TextBox: txtAscii
1° Buton: cmdCopy
2° Buton: cmdClear

Cele 2 label punetile ce nume vreti.
Cod:

La butoane proprietatea Caption va fii :
cmdCopy: Copy Ascii
cmdClear: Clear

Acum puneti comenzile cum vreti, dati 2 click pe cmdCopy si scrieti asta:
Cod:

Quote:
Clipboard.Clear
Clipboard.SetText txtAscii.Text

Dati 2 click pe cmdClear si scrieti asta:
Cod:

Quote:
txtAscii.Text = ""
txtNick.Text = ""

Am decis de a folosi functiunea Replace pentru ca e mai simpla dar metodele sunt multe, Dublu click pe txtNick si verificati ca sunteti la sub Private Sub txtNick_Change().
Acum bagati acest cod la txtNick:
Cod:

Quote:
txtAscii.Text = txtNick.Text
txtAscii.Text = Replace(txtAscii.Text, "a", "å")
txtAscii.Text = Replace(txtAscii.Text, "A", "/\")
txtAscii.Text = Replace(txtAscii.Text, "b", "b")
txtAscii.Text = Replace(txtAscii.Text, "B", "ß")
txtAscii.Text = Replace(txtAscii.Text, "c", "c")
txtAscii.Text = Replace(txtAscii.Text, "C", "©")
txtAscii.Text = Replace(txtAscii.Text, "d", "d")
txtAscii.Text = Replace(txtAscii.Text, "D", "Ð")
txtAscii.Text = Replace(txtAscii.Text, "e", "€")
txtAscii.Text = Replace(txtAscii.Text, "E", "Ê")
txtAscii.Text = Replace(txtAscii.Text, "f", "ƒ")
txtAscii.Text = Replace(txtAscii.Text, "F", "F")
txtAscii.Text = Replace(txtAscii.Text, "g", "g")
txtAscii.Text = Replace(txtAscii.Text, "G", "G")
txtAscii.Text = Replace(txtAscii.Text, "h", "h")
txtAscii.Text = Replace(txtAscii.Text, "H", "[]-[]")
txtAscii.Text = Replace(txtAscii.Text, "i", "i")
txtAscii.Text = Replace(txtAscii.Text, "I", "[]")
txtAscii.Text = Replace(txtAscii.Text, "l", "l")
txtAscii.Text = Replace(txtAscii.Text, "L", "[_")
txtAscii.Text = Replace(txtAscii.Text, "m", "m")
txtAscii.Text = Replace(txtAscii.Text, "M", "]\/[")
txtAscii.Text = Replace(txtAscii.Text, "n", "ñ")
txtAscii.Text = Replace(txtAscii.Text, "N", "]\[")
txtAscii.Text = Replace(txtAscii.Text, "o", "ø")
txtAscii.Text = Replace(txtAscii.Text, "O", "Ø")
txtAscii.Text = Replace(txtAscii.Text, "p", "Þ")
txtAscii.Text = Replace(txtAscii.Text, "P", "þ")
txtAscii.Text = Replace(txtAscii.Text, "q", "q")
txtAscii.Text = Replace(txtAscii.Text, "Q", "Q")
txtAscii.Text = Replace(txtAscii.Text, "r", "®")
txtAscii.Text = Replace(txtAscii.Text, "R", "R")
txtAscii.Text = Replace(txtAscii.Text, "s", "$")
txtAscii.Text = Replace(txtAscii.Text, "S", "§")
txtAscii.Text = Replace(txtAscii.Text, "t", "†")
txtAscii.Text = Replace(txtAscii.Text, "T", "']['")
txtAscii.Text = Replace(txtAscii.Text, "u", "u")
txtAscii.Text = Replace(txtAscii.Text, "U", "Ú")
txtAscii.Text = Replace(txtAscii.Text, "v", "v")
txtAscii.Text = Replace(txtAscii.Text, "V", "\/")
txtAscii.Text = Replace(txtAscii.Text, "z", "z")
txtAscii.Text = Replace(txtAscii.Text, "Z", "Z")
txtAscii.Text = Replace(txtAscii.Text, "x", "x")
txtAscii.Text = Replace(txtAscii.Text, "X", "X")
txtAscii.Text = Replace(txtAscii.Text, "w", "w")
txtAscii.Text = Replace(txtAscii.Text, "W", "\x/")
txtAscii.Text = Replace(txtAscii.Text, "y", "ý")
txtAscii.Text = Replace(txtAscii.Text, "Y", "Ÿ")
txtAscii.Text = Replace(txtAscii.Text, "j", "j")
txtAscii.Text = Replace(txtAscii.Text, "J", "J")
txtAscii.Text = Replace(txtAscii.Text, "k", "k")
txtAscii.Text = Replace(txtAscii.Text, "K", "!<")

In acest mod programul va schimba cifrele naturale cu cele in ascii.

Pentru a bloca txtAscii scrieti acest cod :
Cod:

Quote:
Private Sub txtAscii_KeyPress()
KeyAscii = 0
End Sub

Si asa veti face un Ascii Maker ...
_________________
Romania e tara in care ilegalitatea e sfanta.