Jump to content

Criminal

Active Members
 View Profile  See their activity

  • Posts

    166

  • Joined

  • Last visited

    Never

 Content Type 

Posts posted by Criminal

  20. [Visual Basic]

    in Tutoriale in romana

    Posted

    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", "

×
×
  • Create New...