Untouchable
Administrator
Data inscrierii: 29/Aug/2007
Mesaje: 83
|
|
 Visual Basic Tutorial |
 |
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 - natural 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 indiferent ce 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 utiliza 2 functii in VB:
Replace(Testul original, Cauta, Inlocuieste) - Aceasta functie este folosita pentru a incarca intregul test dintr-un text box sau absolut orice alt obiect intr-o variabila de tipul String si in interiorul acestu test VB o sa caute un rand si il va modifica 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.
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", "Ã¥"
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 :
Quote:
Private Sub txtAscii_KeyPress()
KeyAscii = 0
End Sub
Si asa veti face un Ascii Maker ...
|
|
