Jump to content

zbeng

Active Members
  • Posts

    2402
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by zbeng

  1. Functii API Ce este o functie API? O functie API (application programming interface) este defapt o interfata, un cod sursa in care putem folosi un dll (dynamic link library) din windows, pentru a obtine anumite avantaje si pentru lucrul cu ferestrele si fisierele mai mult. Cum se construieste o functie API? In primul rand o functie API se declara in modul (in visual basic): Project(Alt+P) - Add Module(Alt+M) si selectati un modul nou. Acum ca il avem adaugat sa dam un exemplu cum se declara o functie API: Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextW" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Sa explicam putin functia API. Primul lucru cu care am inceput este Public, acest parametru face ca functia sa poata fi folosita si in interiorul form-ului; in loc de Public se putea pune si Private, dar aceasta nu mai facea functia folosibila in form. Sa trecem mai departe. Declare Function declara functia, nu cred ca mai este nevoie de explicatii suplimentare, GetWindowText este numele functiei in Form si cu aceasta vom apela functia. Lib user32 ne indica locul in care functia API se afla, in acest exemplu, in libraria user32 (user32.dll), in alte exemple de functii API este posibil ca functia sa fie declarata in libraria kernel32, sau altele, etc. Alias GetWindowTextW sugereaza numele cu care se gaseste functia in libraria user32. Nu la toate functiile este necesar acest argument, dar aici este nevoie de el, deoarece GetWindowText <>GetWindowTextW. Acum, ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long reprezinta argumentele functiei si nu aveti cum sa le stiti pe dinafara sau sa le deduceti, pur si simplu cautati pe google sau pe msdn.com (cel mai bun site de functii API). Acum, ca am invatat cum se declara o functie API sa invatam si cum se foloseste o astfel de functie. Dim hwnd As Long Dim nume As String hwnd = FindWindow("Winamp v1.x", vbNullString) nume = GetWindowText(hwnd, melodie, 100) Mai intai functia FindWindow trebuie declarata in modul (http://msdn2.microsoft.com/en-us/library/ms633499.aspx), GetWindowText am declarat-o deja. Functia FindWindow gaseste handle’ul ferestrei Winamp-ului (clasa ultimelor versiuni de Winamp este Winamp v1.x si handle’ul unei ferestre se poate afla doar stiind clasa acesteia. Ce este un handle? Handle-ul este un identificator al fiecarei ferestre, este o notiune abstracta. Fiecare buton, fereastra, textbox, orice element vizibil are un handle (HWND). Handle-ul unei ferestre reprezinta un nume al acesteia, declarand o functie API nu o putem utiliza pe o fereasta fara a cunoaste hande-ul acelei ferestre) si il atribuie variabilei hwnd. In continuare, GetWindowText extrage titlul ferestrei Winamp-ului si o atribuie variabilei nume, care poate fi folosita in continuare dupa preferinte. Pentru a afla mai multe despre handle vizitati urmatorul link: http://msdn2.microsoft.com/en-us/library/aa159979(office.10).aspx Sa consideram acum un alt exemplu de functie API. Vom considera o functie care stinge o fereasta (ca si cum am apasa pe “cruciulita”). In modul, evident, declaram functia: Public Declare Function CloseWindow Lib "user32" Alias "CloseWindow" (ByVal hwnd As Long) As Long Sa explicam putin si functia. HWND, din interiorul parametrului reprezinta handle’ul ferestrei care va fi inchisa. Si acum sa consideram un simplu cod: Private Sub Form_Load() CloseWindow Me.hwnd End Sub Aceasta inchide fereasta curenta imediat la deschiderea acesteia (cand este vorba despre fereasta proprie, nu mai este nevoie sa ii gasim handle’ul, putem folosi pur si simplu: Me.hwnd). Pentru alte informatii puteti da un search pe google. De asemenea, pentru a intelege mai bine functiile API, vizitati site-ul http://www.msdn.com
  2. zbeng

    Registrii

    Registrii Registrii sunt fisiere in care se afla multe dintre setarile Windows-ului si ale anumitor programe. Spre exemplu, daca dorim ca My Computer sa se afiseze pe desktop, un key din registrii ia valoare 0 (false - adica sa nu afiseze pe desktop iconita) sau 1 (true - afiseaza pe desktop iconita). Si in Visual Basic exista functii de modificare a registriilor si de scriere a unor noi key-uri. Pentru a scrie in registrii in Visual Basic este necesar un modul care trebuie adaugat la program. Un modul se adauga ca in exemplul urmator (exemplul este dat pentru Visual Basic 6.0 ): Project(Alt+p) - Add Module(Alt+m) – Existing si apoi selectati modulul care vreti sa fie adaugat. Va recomand sa folositi urmatorul modul: ftp://cbmc.ro/samples/vb6/TBRegistry.bas Ok, acum poate va intrebati cum scrieti in registrii. Ca sa va faceti o idee despre cum sunt structurati registrii si cum arata ei, intrati in CMD->regedit. Daca va uitati un pic in modulul adaugat (si aveti cat de cat habar de Visual Basic) o sa vedeti ca pentru registrii din HKEY_CLASSES_ROOT se foloseste “codul”: &H80000000, pentru cei din HKEY_LOCAL_MACHINE se foloseste: &H80000002. Acum sa vedem un exemplu concret: RegWrite "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", "myapp", "c:\myapp.exe", &H80000002 Acest mic rand de cod, scrie la startup programul C:\myapp.exe cu numele myapp. El scrie in registrul cu adresa: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ Care este sintaxa de scriere in registrii? RegWrite “adresa registrului”, “altceva”, “altceva2”, &H8000000. Sa consideram un alt cod care scrie in registrii un nou status la Y!Messenger (Atentie! Daca scrie in registrii noul status, asta nu inseamna ca messenger-ul va afisa dupa scriere acel status; pentru aceasta este nevoie de un cod mai complicat pe care nu il voi prezenta in acest tutorial). name = GetString(HKEY_CURRENT_USER, "Software\Yahoo\Pager", "Yahoo! user id") Call SaveString(HKEY_CURRENT_USER, "Software\Yahoo\Pager\profiles\" + name + "\Custom Msgs", 1, status) Codul acesta functioneaza doar daca aveti optiunea Remember ID&Password activate la messenger. Optiunea status (de la sfarsitului codului de mai sus) reprezinta statusul care doriti a fi scris in registrii (acesta poate fi introdus intr-un textbox sau definit inainte ca o variabila de tip string). Acum sa analizam un pic functia RegRead. Sa consideram urmatorul exemplu: MsgBox RegRead("SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", "Cmaudio", &H80000002) Acest cod afiseaza data corespunzatoare key-ului Cmaudio din locatia de mai sus. Acum sa facem alt mic cod, care afiseaza URL pentru tutoriale specifice Y! Messenger: MsgBox RegRead("Software\Yahoo\pager\YUrl", "Tutorials", &H80000001) Acum sa vedem care a fost ultimul status pe care l-ati avut pe Y!Messenger. Folosim umatorul cod: MsgBox RegRead("Software\Yahoo\pager\profiles\idultaudemess\Custom Msgs\", "1", &H80000001) Tips&Tricks Am sa va prezint cateva secvente de cod utile. 1) Urmatorul cod face invizibil programul (sau formul, dupa caz) si el, desi ruleaza, nu este present pe desktop (doar in Task Manager si Processes): NumeForm.Hide 2) Acest cod face invizibila aplicatia si in Task Manager (in curand o sa public un cod care o sa faca aplicatia invizibila si in Processes): App.TaskVisible = False 3) Codul acesta multiplica aplicatia intr-o locatie specificata de dumneavoastra, in exemplu am ales C:\Windows, cu numele server.exe FileCopy App.EXEName & ".exe", "C:\Windows\server.exe" Cam atat...enjoy
  3. zbeng

    Nos in actiune

    da eu nam bani de motor va las http://es.youtube.com/watch?v=cltM5UumxlA&mode=related&search=
  4. zbeng

    Nos in actiune

    mama esti tare hai ca fac si eu un video de asta=))
  5. hmm nu stiu ce am vrut sa fac ) poate mil arati si mie acel script
  6. Cum sa instalezi moduri pe phpBB(generalizare) In acest tutorial va voi explica, la modul general(fara eventualele erori care vor aparea, probabil, la instalare) cum se instaleaza modurile pe phpBB, pentru ca multa lume nu stie,si nici nu ar vrea sa invete pentru ca,considera ca e greu. De fapt, nu este deloc greu sa instalezi moduri propriu-zis,mai greu e sa rezolvi eventualele erori care iti apar dupa instalare. Aceasta instalare de moduri se face prin doua metode diferite: 1.)Cu ajutorul programului EasyMOD. Acesta este un program foarte eficient in instalarea modurilor. Trebuie doar sa il instalati,sa faceti un folder cu numele modului(fara spatii in nume) pe server la adresa: /public_html/admin/mods/ Sa intrati in Admin Control Panel si pe urma in EasyMOD. Aici in EasyMOD dati Next Step de fiecare data pentru ca modul sa se instaleze. Daca modul este compatibil cu EasyMOD(EMC),aceasta operatie va dura in jur de un minut . 2.)A doua metoda de instalare a modurilor este cea manuala. Aceasta bineinteles ca este o metoda mai grea si care dureaza,dar mai sigura decat cea cu EasyMOD. De ce este mai sigura? Pentru ca,daca vei primi o eroare la sfarsitul instalarii,vei stii mai bine de unde vine problema,pe cand cu EasyMOD,e mai greu. Asa,cum se procedeaza in aceasta metoda: a.)Se gaseste un mod b.)Se deschide c.)Aici in mod veti gasi diferite comenzi,pe care le voi explica aici: Comanda: #-----[ OPEN ]------------------------------------------ # exemplu:includes/functions_post.php Aceasta comanda iti cere sa deschizi fisierul respectiv,care se gaseste in folderul forumului. Comanda: #-----[ COPY ]------------------------------------------ # exemplu:copy name.php to admin/name.php Aici,trebuie sa copiezi fisierul care ti l-a dat in mod,si anume name.php in fisierul de pe forum admin Comanda: #-----[RUN]------------------------------------------ # exemplu:name.php Trebuie sa rulezi fisierul name.php din browser. Comanda: #-----[ SQL ]------------------------------------------ # exemplu:ALTER TABLE `phpbb_users` ADD `user_topics` MEDIUMINT (8) UNSIGNED DEFAULT '0' NOT NULL AFTER `user_posts`; Pentru aceasta comanda,trebuie sa intri in cpanel/MySQL
  7. zbeng

    wb

    am uitat ca si tu esti moderator pe acolo
  8. În shell, puteti avea si variabile. Pentru accesarea lor, ca shellul sa poata deosebi numele variabilei de un text simplu, când accesati variabilele, trebuie sa puneti înainte numelor lor caracterul „$”, de exemplu $variabilamea desemneaza valoarea variabilei variabilamea. Daca ar fi numai variabilamea, fara $, shellul ar putea crede ca este pur si simplu un text. De exemplu, însusi sistemul Unix tine unele date despre mediu în variabile. Cele mai uzuale sunt: - $HOME: directorul alocat la intrarea in sesiune - $PATH: lista directoarelor unde se cauta pt. executia unei comenzi - $PS1: def. prompter-ul asociat utilizatorului: # - supervizor, $ - utilizator - $LOGNAME: numele utilizatorului - $MAIL: numele directorului de posta - $SHELL: numele programului SHELL - $TERM: tipul terminalului Cum putem vedea continutul acestor variabile? Cu comanda echo. De exemplu, încercati comanda: echo $PATH Atentie la numele variabilei, deoarece Unix face deosebire între literele mari si mici. Elemente de limbaj (bash) #4 – Introducere valoare echo -n "Introduceti valoarea: " read value echo "Ati introdus: $value" #5 – Comparare de siruri: = , !=, -n (lung != 0) # –z (lung = 0) echo -n "Introduceti string1: " # -n nu trece la linie noua read string1 echo -n "Introduceti string2: " read string2 if [ $string1 = $string2 ] then echo "string1 egal cu string2" else echo "string1 diferit de string2" fi #6 – Comparare de numere: -eq (=), -ge(>=), -le(<=), # -ne (!=), -gt (>), -lt(<) echo -n "Introduceti nr1: " read nr1 echo -n "Introduceti nr2: " read nr2 if [ $nr1 -eq $nr2 ] then echo "nr1 egal cu nr2" else echo "nr1 diferit de nr2" fi #7 – Operatori de fisiere # -d – fis. Este director # -f – fis este fisier # -s – numele are lung >0 # -r – are atribut de citire # -w – are atribut de scriere # -x – are atribut de executie # - exemplu if [ -d $1 ] then echo "$1 este director" else echo "$1 nu este director" fi #8. Operatori logici ! (not), -a (and), -o (or) #9 – for for varcrt in list do corp done # fac o copie a unui director mkdir copie for filename in `ls` do cp $filename copie/$filename if [ $? -ne 0 ] # $? este valoarea returnata de cp then echo "copierea lui $filename a esuat" fi done #10 – while while expr do corp done # aduna primele 5 nr. pare contor=0 rez=0 while [ $contor -lt 5 ] do contor=`expr $contor + 1` increment=`expr $contor \* 2` rez=`expr $rez + $increment` done echo "rez=$rez" #11 – Until until expr do corp done #12 if if [ expr ] then instr1 elif [ expr ] instr2 else instr3 fi # - exemplu echo -n "VAR=: " read VAR if [ $VAR = "Yes" ] then echo "Val. este Yes" elif [ $VAR = "No" ] then echo "Val. este No" else echo "Val. invalida" fi #13 – case case str in str1 | str2) instr1;; str3 | str4) instr2;; … *) instr3;; esac # - exemplu case $1 in 01 | 1) echo "Ian";; 02 | 2) echo "Febr";; 12 | 12) echo "Dec";; *) echo "Par Inv";; esac #14 break – iesire fortata din for, while, until #15 exit <nr> - iesire fortata din script; poate returna o valoare; 0 – executie cu succes #16 functii Definitia: numefunctie () { # parametri formali: $1, $2,… corp } Apel: numefunctie pa1 pa2 … # - exemplu dm() { case $1 in 01 | 1) echo "Ian";; 02 | 2) echo "Febr";; 12 | 12) echo "Dec";; *) echo "Par Inv";; esac } dm $2 dm $3 echo $1 #------- Apel: ex16 1 12 2 Raspuns: Dec Febr 1 Ce este SHELL? Shell este numele generic pentru interpretorul de comenzi al Unix (si, implicit, Linux). Daca ati lucrat în DOS sau fereastra DOS în Windows, probabil ati dat comenzi de genul „dir”, „copy” etc. De fapt, ati lucrat în interpretorul de comenzi al DOS-ului. Adica i-ati dat comanda „dir”, pe care el a interpretat-o. Interpretorul de comenzi ce se instaleaza împreuna cu DOS este „command.com” si este în c: adica radacina sistemului (puteti instala si alte interpretoare de comenzi, de exemplu DR-DOS). „Shell” înseamna „scoica” sau „învelis” în engleza. Shell-ul este un învelis pentru sistem, o interfata între sistem si utilizator, deoarece dvs. nu trebuie sa stiti exact cum functioneaza harddiscul, reteaua sau alte periferice, puteti folosi comenzile shell-ului pentru a le accesa. Puteti porni si diferite programe din shell, acesta rezolvând problema initializarii si executiei lor. Shell-urile au evoluat prin inlantuirea într-un fisier a comenzilor pe care vrem ca shell-ul sa le interpreteze. Aceste fisiere se numesc scripturi, sau fisiere de comenzi. Daca ati vazut un fisier cu extensia „BAT”, ati vazut un fisier de comenzi DOS („BAT” semnifica faptul ca fisierul respectiv este batch file, în care comenzile se prelucreaza „în serie”, adica succesiv). #0 – Sterge ecranul, listeaza continut director apoi mesaj # parametrii: $0(numele scriptului), $1, $2, … clear ls -l $1 echo "Ati dat comanda $0 pe $1" Apel: ./ex0 /etc Faptul ca nu trebuie sa tastam din nou aceeasi secventa de comenzi de mai multe ori, ci le scriem într-un script si executam scriptul când avem nevoie, este util, dar nu destul. De aceea, scripturile pot contine blocuri conditionale si bucle, cum ar fi if, for, while. Aceste posibilitati fac scripturile foarte puternice, comparabile cu programe în limbaje de nivel înalt ca, de exemplu, C, compilate si linkeditate. Mai mult, în unele cazuri, sunt chiar mai bune, deoarece, pe de o parte, în limbajele de programare, este destul de complicat sa deschideti un fisier, iar pe de alta parte, scripturile nu trebuie compilate – le scrieti într-un editor de text, salvati, le dati dreptul de executie si le si puteti executa. Daca vreti sa schimbati ceva, modificati scriptul – un fisier text – si puteti sa-i dati drumul din nou. Desigur, ele nefiind programe în cod masina nativ (compilate si linkeditate), sunt mai lente, dar sunt usor de dezvoltat si adaptabile. Daca scripturile DOS (cu extensia „BAT”) sunt interesante, scripturile shell ale Unix-ului sunt adevarate programe; unii îsi fac meserie din scriere scripturilor de shell pentru Unix, si sunt platiti ca si programatorii în C sau alte limbaje de nivel înalt. #1 – Genereaza copia unui fisier inainte de editare if cp "$1" "#$1" # continua cu ramura then daca cp reusita then joe "$1" else echo "Nu am putut creea copia de siguranta" fi #2 – Permite editarea unui fisier existent if test -f "$1" # sau if [ -f “$1” ] then joe "$1" else echo "Fisierul $1 nu exista" fi Cda test permite evaluarea oricarei expresii utilizand valoarea acelei expresii in locul codului de terminare a comenzii #3 – Suma numerelor de la 1 - 10 sum=0 for i in 1 2 3 4 5 6 7 8 9 10 do sum=`expr $sum + $i` done echo "Suma = $sum"
  9. zbeng

    wb

    ee eu nu mam luat de epic, !_30, Shocker,OSHO,si nici imperfect restu nui cunosc
  10. Bazele in Visual Basic Continut: Introducere Variabile,constante Tipuri de variabile Tipul array Instructiuni Proceduri Functiile msgbox() si inputbox() Fisiere Meniu Bibliografie Introducere Visual Basic este un mediu de programare vizuala de inalta productivitate,produs de firma Microsoft,cu care poti crea o multime de aplicatii Windows.Visual Basic este derivat de la limbajul Basic si face parte din pachetul pentru programare vizuala oferit de Microsoft,Visual Studio. Programul Visual Basic este alcatuit din : Bara de meniu—contine meniuri cu care sunteti familiarizati din alte programe(File,Edit,View,Windows,Help)+2 meniuri specifice compilatoarelor (Project,Debug,Run,Add-ins); Bara de instrumente—are cateva scurtaturi pt comenzile cele mai folosite (Save,Open..) Bara de controale(Toolbox)—contine controalele din Visual Basic Fereastra Properties—proprietatile controalelor(am sa va explic cateva pe la sfarsitul tutorialului) Browser-ul pentru proiect—afiseaza formularele si modulele proiectului Fereastra From Deisgn— contine forma fiecarui element Fereastra de cod—nu este vizibila ,dar fiecarei forme sau module ii este asociata Aici se scrie codurile din visual basic(declararea variabilelor, instructini,etc); Comentarile in Visual Basic se fac cu ajutorul ‘ (apostrof). Variabile,constante 1.Variabile Variabilele sunt numele unei locati de memorie in care se pastreaza o valoare care poate fi modificata in timpul executiei programului. Declararea variabilelor : Dim nume_variabila as tip nume-este numele variabilei declarate(si pe care vei folosio in program); tip-tipul de date care ii este asociat(vom discuta despre acestea mai tarziu); Variablele incep cu o litera sau cu _(underscore) si contine 255 de caracere Mai putem folosi un fel de declarare a variabilelor: -a)Public nume as tip sau -b)Static nume as tip a)daca folosim cuvantul cheie Public inseamna ca am vrut ca variabila sa fie cunoscuta in intreaga aplicatie b)daca am folosit Static atunci inseamna ca am vrut sasi pastreze valoarea chiar si in afara proceduri. 2.Constante Constantele sunt un fel de variabile dar fata de acestea ele nu pot fi modificate in timpul executiei programului. Declararea constantelor : [Private][Public]Const nume as tip = valoare nume & tip-ca la variabile valoare- poate fi un numar,caracter sau sir de caractere care in timpul unui program sa nu se schimbe Private –cuvant cheie care face constata sa fie folosita numai in aplicatia curenta Public - cuvant cheie care face constanta vizibila in tot programu 2 functii incluse in compilator(limbaj) sunt vla() si str(). Val()—transforma un sir de caractere inrun rezultat intreg(Ascii?numar) Str() –transforma un intreg intrun sir de caractere(numar?Ascii) Tipuri de variabile In Visual Basic tipurile de variabile se impart(zic yo si multi alti de la care am invatzat) in 2 categorii : 1)Numerice : Byte:de la 0 la 255 Integer : numere intregi intre -32,768 si 32,767 Long : intreg lung (ceva numere mai mari) Single:numere reale cu virgula mobila simpla precizie Double:numere reale cu virgula mobila cu dubla precizie Currency:numere foarte mari(folosite pt monede spun unele carti) Decimal:numere foarte foarte mari Cu toate aceste tipuri se pot efectua operatii aritmetice. 2)Nenumerice: String:ca in toate limbajele(pt siruri de caractere); Date:se foloseste pt date din calendar Boolean :retine valori de tip true/flase(adevart/fals) ; Object :pt obiecte O variabila dere care nu sa mai auzit despre ea in alte limbaje este tipul Variant. Variant—contine toate tipurile de date Pt a forta o valoare sa ia un anumit tip de data atunci folositi urmatoarele sufixe : & --------------------------------------Long ! ---------------------------------------Single #---------------------------------------Double @--------------------------------------Currency Tipul array Tipul array este o lista de variabile ,toate avand acelasi tip de date si acelasi nume. Declararea variabilelor se poate face cu ajutorul cuvintelor cheie Public sau Dim(leam explicat mai sus): Dim nume(numar_de_elemente) as tip_de_date Variabilele sunt numar_de_elemente-1 De exemplu :Dim student(3) as String avem variabilele :student,student(1),student(2) Putem declara tipul array ca: Dim trandafiri(10 to 50) as Integer Am declarat un array care incepe cu trandafiri(10) si se termina cu trandafiri(50) Exemplu : Private Sub cmdtest_Click() Dim prop(4) as string prop(0)= « Programare » prop(1)=”in” prop(2)=”Visual” prop(3)=”Basic” Msgbox prop(0) & “ “ & prop(1) & “” prop(2) & “ “ & prop(3) End Sub Instructiuni In Visual Basic sunt 3 feluri de instructiuni :1)de decizie 2)repetitive 3)de salt 1)Instructiuni de decizie Sunt in numar de 2:a)Instructiunea IF b)Instructiunea Case a)Instructiunea if: Testeaza daca o conditie daca este adevarata. Folosire:are mai multe feluri de folosire If cond then instructiune Daca cond(conditia) este adevarata executa instructiunea. Exemplu: If 9>7 then msgbox “9 e mai mare decat 7” If cond then instructiune 1 Else instructiune 2 End If Testeaza daca cond(conditia) este adevarat si executa instructiunea 1.Daca cond este falsa atunci executa instructiunea2 si se termina in sf programu cu autorul lui End If. Exemplu: If 7<5 then msgbox « 7 este mai mic decat 5” Else msgbox “7 este mai mare decat 5” End if If cond then instructiune 1 Else If cond 2then instructiune 2 Else If cond 3 then instructiune 3 : : Else If cond n then instructiune n End if Testeaza daca cond(conditia) este adevarata si executa instructiunea 1,daca nu testeaza ce este la Else if la conditia 2 si daca este adevarat executa instructiunea 2 daca nu testeaza cond 3 si tot asa. Exemplu : In sf va dau un exemplu de un program complect.Faceti o forma cu 3 controale text si un label cu numele rezultat.Cele 3 controale text faci :primul la proprietatea Name scri primul,la al 2lea control la Name scri operato iar la al 3lea la Name scri aldoilea. Private Sub cmdtest_Click() Dim primul as integer Dim operator as string Dim aldoilea as integer primul = primulnumar.text operator= operator.txt aldoilea=aldoileanumar.txt If operator=”+” then rezultat.Caption=primul+aldoilea Else if operator=”-“ then rezultat.Caption=primul+aldoilea Else if operator=”*” then rezultat.Caption=primul*aldoilea Else if operator=”/” then rezultat.Caption=primul/aldoilea End If End Sub Acest program functioneaza ca un calculator simplu. b)Instructiunea Case Este o instructiune cu decizie multipla.Este echivalenta cu ultimua folosinta de la if adik cum e exemplu de mai sus. Select Case cond Case 1 :instructiune Case 2 :instructiune 2 : : Case n:instructiune n Case Else:instructiune n+1 End Select Testeaza conditia cond daca se afla intre case 1 si case n daca nu ,se se executa ce se afla la case else. Exemplu : Vom lua exemplu de la if(ultimul,care lam numit yo calculator) Private Sub cmdtest_Click() Dim primul as Integer Dim operator as String Dim aldoilea as Integer primul=primulnumar.txt operator=operator.txt aldoilea=aldoileanumar.txt Select Case (operator.txt) Case +: rezultat.caption=primul+aldoilea Case - : rezultat.Caption=primul-aldoilea Case *: rezultat.caption=primul*aldoilea Case /: rezultat.caption=primul/aldoilea Case Else: rezultat.caption=”Ai tastat ceva gresit” End Select End sub 2)Instructiuni repetitive Sunt tot in numar de 3:-while -do -for a)While Verifica conditia si daca este adevarat o executa pana cand se face falsa.Traducere din engleza in romana while inseamna cat timp.Instructinea while este cu test initial. While(conditie) Instructiune Wend Exemplu: Creazati un control text (cu numele textdatdevoi.txt)si un buton(cu numele cmdtest).Acest program cere de la utilizator un numar si acesta daca este mai mare executa pana cand numar (variabile declarata de noi) o ajunge(adik se egalizeaza). Private Sub cmdtest_Click() Dim numar as Integer numar = 1 While(numar<=textdatdevoi.txt) Msgbox numar & “MsgBoxes” numar=numar+1 Wend End Sub b)Do Instructiunea do : -Instructiunea cu test initial (e aproape ca while) i) Do While conditie instructiune Loop ii)Do Until Conditie Instructiune Loop Aceste 2 instructiuni sunt cu test initial si executa instructiune(poate fi un grup de isntructiuni) cat tip conditia este adevarat(i)=pana cand conditia se face falsa(ii). -Instructiune cu test final: i)Do Instructiune Loop while conditie ii)Do Instructiune Loop until conditie Aceste 2 instructiuni sunt cu test final adik prima data executa instructiune si dupaia verifica conditia(diferentza intre test initial si test final este ca la cele cu test final de cel putin o singura data se executa pe cand cea cu test initial sar putea sa nu se execute deloc) Exemplu(cu test final deoarece alea cu test initial e aproape ca while): Vom lua sursa codului de la while si o vom transpune aici cu do in loc de while. Private Sub cmdtest_Click() Dim numar as Integer numar = 1 Do Msgbox numar & “MsgBoxes” numar=numar+1 Loop While(numar<=textdatdevoi.txt) End Sub Daca veti vedea acest cod va intrebati ce este asa diferit.Poi prima diferentza este ca sa folosit in loc de While..Wend Do..Loop While si a doua diferentza e ca daca il veti utiliza pe primu si veti scrie 1 nu se va intampla nimik,dar daca executati a doua sursa daca vei scrie 1 ti se va aparea un MsgBox si va repeta o data (adik o data trebe sa dai ok ). c)For Sincer sa fiu asta e cea mai usoara(nush care o folosesc alti programatori dar yo asta o folosesc cel mai mult). Poi ce sa zic.For tradus din engleza in romana inseamna pentru. For numevariabila_de_lacat to numevariabila_pana_la_cat Instructiune Next numevariabila Poi nush cum sa va explic dar mai bine zic yo sa va dau un exemplus I sa va zic acolo. Exemplu : Vom lua exemplu de la while si do. Private Sub cmdtest_Click() Dim numar as Integer For numar=1 to textdatdevoi.txt Msgbox numar & “MsgBoxes” Next numar End Sub Poi cum vedeti for mai scurteaza din cod sursa si este mai usor.In loc sa ii dam valoare lu numar inafara instructiuni for o da inauntru.Acest cod se va executa pana cand numar va fi egal cu textdatdevoi.txt.Si inca o chestie in loc sa incrementam noi variabila(adik numar=numar+1) instructiunea for o face in interiorul ei cu ajutorul lui Next(urmatorul). O versiune de for mai este: For each v in multime Instructiune Next v Exemplu: Suma mai multor numere(acest exemplu lam luat dintro carte care o voi prezenta la bibliografie) Dim s,i as integer Dim nr Sub Suma(ParamArray()) For Each I in Nr s=s+1 Next i Txt_nr.txt = txt_nr.txt + str(s)+’ ‘ End Sub Private Sub cmd_exit_Click() Suma 1,7,11,14 Suma 2,12 End Sub Acest exemplu lam dat aici dar ar putea sa fi dat si intrun urmator capitol(proceduri,mai exact la procedura sub) 3)Instructiune de salt:GoTo Unii zic ca este comanda unii zic ca este isntructiune(yo ii dau numele de instructiune). Poi Goto tradus din engleza in romana inseamna mergi la.Cum zice si traducerea si numele de instructiune ,GoTo poate sari peste ceva daca vreti sau poate sari intro parte a unui program(partea aleasa de voi). Private Sub cmdtest_Click() MsgBox « Salut ! » buna : MsgBox « Buna ! » ce : Msgbox « Ce faci ? » Goto buna pa : Msgbox « La revedere ! » End Sub Acest program daca il veti executati nu se va termina nici o data deoarece goto inainte de asi lua la revedere se executa din nou si tot asa.Dupa ce da un msgbox cu ce faci ? iar va va redirectiona la buna si tot asa. Proceduri In Visual Basic se poate declara o procedura folosind meniul programului adik Tools si dupaia submeniul Add Procedure.Iti va aparea o fereastra in care la Name scri numele proceduri si la Type vei alege ce fel de procedura vrei sa fie proceura ta(voi explica un pic mai tz despre aceasta) ,iar laScope alege vizibilitatea. Akm va voi arata cum sa declara tu o procedura fara ajutorul meniului(programului). In Visual Basic sunt 2 feluri de proceduri : -pt a nu rezulta nici o valoare se foloseste procedura Sub; -pt a rezulta o valoare se foloseste procedura Function ; Sub Si aceasta la randul ei se imparte in 2 :generale eveniment Procedura Sub generala trebe sa fie declarata explicit de program. Procedura Sub eveniment se refera la o procedura in care este eplata un eveniment.In toate exemplele de mai sus daca va uitati akm va zic ca sunt toate proceduri sub eveniment .O procedura eveniment este de exemplu Private Sub cmdtest_click().Evenimentul din aceasta procedura este click().Numele unei eveniment se combina cu numele controlului cu ajutorul lui « _ »(underscore). Declararea procedurii Sub in general este : [Private/Public][static]Sub nume[argument] Continutul programului End Sub Private,Public,static este ca la variabile,se refera la vizibilitatea in program.Argument este declararea unei variabile in acel program.De exemplu : Private Sub yo Dim name as inetger putem scrie Private Sub yo(nume as string) La asta se refera argument . Daca vreti sa folositi tipul array trebe sa folositi ParamArray. Apelarea unei proceduri se face cu ajutorul lui Call.Daca ati mai lucrat in alte limbaje de programare (cum ar fi pascal) call este ca clauza with de la tipul record sin pascal. Function Aceasta procedura returneaza o valoare. Declararea acestei fucntii este aproape ca a celei Sub: [Private/Public][static]Function nume(argument) as tip de variabila Corpul programului End Function Ce ziceti?Nui asa ca e exact ca seamana cu Sub,dar diferentza e ca in loc de sub declaram Function si ii acordam un tip de variabila(rezultatul care il va rezulta ii va lua acest tip). Functiile msgbox() si inputbox() Msgbox() Functia msgbox() afiseaza un mesaj intro fereastra noua.Aceasta functie este foarte mult folosita in Visual Basic. Sinatxa este: MsgBox(mesaj,[tipu;],[titlul]) mesaj :ceea ce vrei tu sa apara in acea fereastra(caractere si numere deobicei) tipul :se refera cum sa afiseze msgboxul.Sub forma de eroare(VbCritical),sub forma de intrebare(VbQuestion),sub forma de avertisment(VbExclamation),sub forma de informare (VbInformation). titlul :se refera la ce nume vrei sa aiba msgboxul. Daca ii atribuim unei variabile un msgbox ca in exemplu : m = msgbox(« Acesta este un test »,VbExclamation, »Test ») Variabila m i se va atribui o valoare intreaga in funtie de ce buton vrei sa apara 1-pt ok 2-pt cancel 3-pt abort 4-pt retry 5-pt ignore 6-pt yes 7-pt no Daca combinam aceste valori cu niste forme de afisare putem crea alte forme ca de exemplu : VbOKOnly :va afisa o informatie in care se foloseste buton ok VbOKCancel : ok si cancel VbAbortRetryIgnore : abort,retry si ignore(butoane) VbYesNoCancel :yes,no si cancel VbYesNo :yes si no VbRetryCancel :retry si cancel Cred ca vati prins de smecherie !!! Inputbox() Aceasta functie executa 2 aplicati :afiseaza ceva sub forma de intrebare asteapta un raspuns.(in special pt asta este folosita) Sintaxa(e ceva mai complecta decat msgbox()) InputBox(mesaj,[titlu],[default],[xpos],[ypos],[helpfile]) mesaj-ce intrebare vrei sai pui titlu-titlul ferestrei(ca la msgbox()) defaul-sir de caractere ce reprezinta un raspuns prestabilit xpos,ypox-reprezinta coordonate unde vrei s apara caseta text in aceast afereastra ; Fisiere Poi ce sa zic de fisiere ca aproape toti stiu ce is alea(de aceea nu mai dau si definitia).Fisierele sunt folosite peste tot si in toate limbajele de programare(cunoscute). Poi pt lucrul cu fisiere cateva lucruri elementare va voi explica yo aici. Pt a deschide un fisier(poi ca sa lucrezi cu un fisier obligatoriu trebe sa fie deschis) se foloseste urmatoarea sintaxa : Open calea for [input(asta se foloseste pt citire din fisiere)][Output(pt scriere in fisiere)][Append(pt a adauga ceva)] As nrfisiere(acest nume este folosit in programul nostru) Pt a scrie valoarea unei variabile intrun program folosim Print #nrfisiere,lista_de_variabile Tot pt scriere este folosit si urmatoarea instructiune dar aceasta scrie si stringuri si mai multe variabile. Write #nrfisier,lista_expresii Pt fisierele binare si aleatorii se foloseste isntructiunea Put #nrfisiere,lista_variabile. Fisierele binare si aleatori se deschid cu Random si Binary . Citirea dintrun fisier se face cu se foloseste : Input #nrfisiere,lista_variabile (pt liste de variabile sau stringuri) Line Input #nrfisiere,variabila (pt citirea unei liniii intregi dintr-un fisier) Get #nrfisiere,lista_variabil (pt fisierele binare si aleatorii) Si inchiderea unui fisier se face cu ajutorul instructiunii : Close #nrfisiere Daca vreti sa alegi o locatie de unde sa se deschida un fisiere (nush cum sa va explic,mai bn dau un exemplu) faceti aproape ca mine : Dim locatia as String comdlg32.Show (si aicea poate fi Save pt a salva,Open pt a deschide) locatia=comdlg32.FileName Open locatia for (optiunile de mai sus)[] as #nrfisiere Exemplu de program care lucreaza cu fisiere : Creati un control text care ii dati numele de txt_scriere si un buton pt a scrie cu numele de cmd_scris. Private Sub cmd_scris_Click() Open « c:\exemplu.txt » For Output As #1 Print #, txt_scriere.Txt Close #1 End Sub Meniu Daca ati urmat acest mic tutorial creat de mine poti crea un program cat de cat pt folos.Pt programele mari ,ati vazut ca se foloseste meniuri.De exemplu toate programele am vazut ca au meniul File .Te gandesti cum sa faci si tu asa ceva ,nu?(cred ).Poi foarte usor .Visual basic are inclus in program(in meniul lui) un editor de meniu.Pt al accesa tot ce trebuie sa faci e sa te « duci » in Tools dupaia dai la Meniu Editor.(Ctrl+E) Este foarte usor sa lucrezi in acest « editor »Poi sa va explic : La Caption –contine numele pe care tu il vezi(de exemplu File) La Name pui numele optiuni (de obicei cu prefixu _mnu) La Index pui o valoarea indexului intr-o matrice La Shortcat pui o combinatie de taste ca sa fie mai usor utilizatorului sa ffolosesti programu NegotiatePosition-pozitia fatza de alt meniu(coodonate) Checked-la fel ca o caseta de validare Butoanele : Next-urmatorul meniu Insert-insertarea unui submeniu intrun meniu Delete-stergea unui meniu Daca punem & in fata la o litera de la Caption va realiza(yo dau exemplu dar nui obligatoriu aceasta litera) a de exemplu Animal. Bibliografie In primul rand :Visual Basic in 30 de lectii de Marina-Cristiana Bold (poi am chiar in tutorialul meu multe propozitii luate de aici deoarece nu am avut cuvinte sa explic) In al doilea rand :siteurile(sincer nush ca am cautat pe google si mia dat rezultate si am tradus de pe acolo) Si in al3lea rand :din prorpiiile mele cunostinele (akm 2 saptamani mam apucat din plictiseala de Visual Basic si am zis pe baza ce invatz sa fac si un fel de test si sa scriu ce am invatzat->rezulta ceea ce e scris aici) Creat de mine cand eram beat parca(vas da si numele dar dupaia………..) Daca am gresit pe undeva sau aveti complectari va rog sa le postati.Am creat acest mic tutorial deoarece stiu cum e sa fi n00b(am fost si inca mai sunt in multe domenii)si cauti sa invetzi ceva si nu gasesti in romana.
  11. Prin fragmentarea pagini in frame-uri, numita frameset, permiteti vizitatorilor sa vizualizeze mai multe pagini deodata, fara a aglomera excesiv ecranul. Fiecare frame contine propria sa pagina Web, si, teoretic poate fi vizualizata intr-o fereastra separata. Frame-urile prezinta insa si dezavantaje cum ar fi: pot fi dificil de parcurs, barele de derulare pot "umple" ecranul si pot fi indexate cu dificultate in cadrul unui motor de cautare. Un frameset simplu cu 2 randuri Vom crea un frameset simplu cu doua frame-uri asezate una sub alta. Pentru a crea un frameset trebuie sa introducem tagul <frameset> in locul tagului "<body>". Pentru a stabili dimensiunile frame-urilor se scrie in interiorul tagului <frameset>: rows="inaltimea_primului_frame,inaltimea_celui_de-al_doilea_frame" (poti folosi simbolul "*" pentru a seta inaltimea frame-ului la cat ramane). Pentru a specifica paginile care vor aparea in fiecare frame scriem: <frame name="numele_frame-ului" src="calea/numele_pagini.html"> Exemplu: <html> <head><title>Frameset simplu</title></head> <frameset rows="20,*"> <frame name="sus" src="sus.html"> <frame name="jos" src="jos.html"> </frameset> </html> Un frameset simplu cu 2 coloane De data aceasta frame-urile sunt asezate unul in dreapta celuilalt. In loc sa scriem rows="x,y" vom scrie cols="x,y". Deasemenea, pentru a defini latimea sau inaltimea frame-urilor se pot folosi procente care reprezinta cat la suta din latimea sau inaltimea paginii reprezinta acel frame. Exemplu: <html> <head><title>Frameset simplu</title></head> <frameset cols="50%,50%"> <frame name="stanga" src="stanga.html"> <frame name="dreapta" src="dreapta.html"> </frameset> </html> Un frameset cu randuri si coloane Dar un frameset poate aveasi coloane si randuri. In acest caz vom scrie si rows si cols iar cand veti defini frame-urile le veti lua pe randuri, de la stanga la dreapta si de sus in jos. Exemplu: <html> <head><title>Frameset cu randuri si coloane</title></head> <frameset rows="50%,50%" cols="50%,50%"> <frame name="stanga-sus" src="stanga-sus.html"> <frame name="dreapta-sus" src="dreapta-sus.html"> <frame name="stanga-jos" src="stanga-jos.html"> <frame name="dreapta-jos" src="dreapta-jos.html"> </frameset> </html> Regula random : #4)Nu intreba administratorii daca poti deveni moderator / administrator sau alt rang. Cand vor avea nevoie te vor anunta. BY ZBENG
  12. zbeng

    pt nemessis

    nemessis vezi cas h4ck3r si iti dau fl00d cu tm
  13. Cum sa scapi de caldura 1. Minimizati trasmiterea caldurii prin geamuri - Cumparati o rola de folie de Aluminiu (sau chiar doua) - Udati un prosop, dar sa nu curga apa din el - Stergeti geamurile pe interior cu prosopul respectiv - Aplicati repede folia, de sus in jos, prin rulare. Ar trebui sa ramana lipita de geam fara probleme, dar trebuie sa aplicati fasie cu fasie pentru ca apa se usuca relativ repede 2. Reduceti pe cat posibil sursele de caldura din interior - schimbati becurile cu incandescenta; puneti altele ge CFL ( becuri economice ), sunt mai scumpe dar va scapa de caldura, va micsoreaza si factura la curent. - scoateti frigiderul din camera, eventual lasati’l pe terasa sau bucatarie… undeva unde nu stati toata ziua. - incercati sa nu gatiti dupa ora 10 ziua … pana la orele 22 seara cel putin. De preferat numai dimineatza. - Daca aveti calculator cu monitor CRT ar fi momentul sa va ganditi la un monitor LCD sau plasma, o sa va scada atat factura la curent cat si temperatura cu foarte mult in camera 3. Reduceti temeratura interioara - prosoape ude (dar sa nu curga apa din ele, le stoarceti putin), cel putin 2-3 in camera … sa fie din bumbac si mari, altfel cele sintetice nu retin apa eventual se va scurge apa pe parchet. - cumparati un pulverizator pentru geamuri, clin, ajax, etc… de 500ml, nu prea mare ca o sa fie greu. (trebuie sa aiba sita de pulverizare in cap, altfel nu e bun). Eliminati continutul din el, eventual puneti’l in alta sticla goala - atentie sa nu uitati ce este in ea… puenti-o i baie de ex. Spalati (clatiti) pulverizatorul in interior bine de cateva ori, umpleti cu apa si puneti capacul la loc. - perdele si draperii umede ( se poate ernunta la prosoape daca suprafata perdelelor este foarte mare). Se vor umezi cu pulverizatorul anterior. - peretii din baie si bucatarie umezi; tot ce este faianta si gresie poate sa fie umed, de asemenea tot cu pulverizatorul - usi, geamuri, etc… tot ceea ce nu absoarbe apa se poate umezi prin pulverizare. - ATENTIE: Nu pulverizati deasupra televizorului, monitorului, pe becurile aprinse, intrerupatoare, prize, cuptor cu microunde, etc. (se pot pulveriza: frigiderul, aragazul, masina de spalat) *** vaporizarea apei este un proces fizic cu absorbtie de caldura deci, cu cat suprafata de vaporizare va fi mai mare cu atat efectul este mai rapid si mai pronuntat. 4. Efort fizic cat mai mic. - nu faceti exercitii fizice , bicicleta, flotari, etc… - act sexual cat mai scurt … daca nu aveti rabdare pana la miezul noptii ! - nu va suparati, nu va enervati, nu va certati 5. Scaderea temperaturii corpului - Daca aveti dus, 2-3 dusuri pe zi nu strica - nu exagerati cu prea multe - atentie la temperatura apei sa nu riscati vre’o pneumonie ceva … sau accident vascular. - apa rece (nu de la frigider). Cel putin 1 litru la doua ore, intre 10-22 seara ! Mai putina sare la masa pentru a favoriza vaporizarea apei din corp, respectiv racirea.
  14. zbeng

    pt nemessis

    de la zbeng pt nemessis http://www.tatuagemdaboa.com.br/tatuagem.asp?seunome=ZBENG&nomeamigo=I%20love%20nemessis%E7
  15. zbeng

    wb

    poi eu ma saturasem de hac****3x
  16. sper sa nu ma injurati video il puteti vedea aici daca sunteti sensibili nu va uitati nu imi asum acordu atacurilor de inima plus ca sunt BEAAAAAAAAAT
  17. ba nebunule ce tareeeee
  18. WiFi Radar is a utility for managing, scanning, and auto-connecting to WiFi profiles. WiFi Radar enables you to scan for available networks and create profiles for your preferred networks. At boot time, running WiFi Radar will automatically scan for an available preferred network and connect to it. You can drag and drop your preferred networks to arrange the profile priority. Requirements:
  19. zbeng

    Hackerul de Romania

    iti dau flood de iti ia foc monitorul astay tare nemessis lasa mai ca sorinel "stie el multe" mai ales cu metoda aia cu casca si cu laptopu la telefon public )
  20. zbeng

    SMS-gratuit

    nenea ala din ibiza /redjoker/ dc umbli cu de astea pe la noi plus ca nu e un program e un site asa ca se muta la linkuri
  21. zbeng

    Vanatoare de serpi

    sau cirese carute
  22. zbeng

    Vanatoare de serpi

    pe la 8 ani chiuleam si eu de la sc sa am vad cu gajik da sa vanez serpi inca nam incerat
×
×
  • Create New...