[Visual Basic]

[Criminal]

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 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 orice 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 folosi 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 posibilitatea 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.

La butoane proprietatea Caption va fii :

cmdCopy: Copy Ascii

cmdClear: Clear

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

Quote:

Clipboard.Clear

Clipboard.SetText txtAscii.Text

Dati 2 click pe cmdClear si scrieti asta:

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:

Quote:

txtAscii.Text = txtNick.Text

txtAscii.Text = Replace(txtAscii.Text, "a", "

[Icarius]

funny

[Criminal]

merge l-am incercat... dc funny? nu prea inteleg ....