----------- advertisement -----------
vineri, 19 august 2011

Ecuatia de gradul II

Probabil multi  adolescenti  ce nu se pricep la matematica  navigheaza pe diferite site-uri incercand sa gaseasca "programe de rezolvat probleme de matematica" ei... eu n-am gasit   u asemenea program dar   astazi o sa va arat cum sa  va faceti  propriul vostru program de  rezolvare a  ecuatiilor de gradul  2.
Ceva de genu: ax2+bx+c =0


Bun... pentru inceput va trebuie Visual Basic 6 Portable, il puteti lua de aici: http://www.mediafire.com/?wxx8wiuoxfi4d4m


  • Acum ca aveti VB6  downloadat , intrati in el 
  • Dati click pe "Reg Key(allows exe.creation)"
  • Apoi pe "Run Visual Basic 6"
  • Alegeti Standar EXE
  • Creati  LABEL-uri(x6) , Texte(x6) si Butoane(x2)
  • Puteti schimba numele aplicatiei  executand  click stanga pe bara albastra  unde scrie "Form1" si in dreapta va aparea niste propietati , gasiti sectiunea  NAME si o sa vedeti in dreapta "Form1"(numele aplicatiei voastre) , puteti sa puneti orice nume doriti.
  • Dupa ce ati inserat  label-uri, texte si butoane , le ve-ti aranja astfel./Pentru a le redenumi dati click pe  label/text/buton si veti vedea in  dreapta  Caption , acolo  veti scrie...
  • Atentie pentru a  functiona aplicatia label-urile ,textele si butoanele trebuiesc aranjate  LA FEL ca in imagine
  • Dupa ce le-ati denumit ca in poza alaturata  dati dublu-click pe un buton,nu conteaza si....
  • Stergeti tot ce va v-a aparea in fereasta folosind Ctrl+A si apoi BackSpace sau Delete
  • Bun... acum dupa ce ati sters totul v-a trebui sa introduceti acest cod(Atentie!!! Codul v-a functiona DOAR daca ati aranjat  Label-urile,Textele ,si Butoanele ca  in imaginea de mai sus.)
  • Codul : 
Private Sub Command1_Click()
    Text4.Text = (Val(Text2.Text) ^ 2) - 4 * (Val(Text1.Text) * Val(Text3.Text))
      End Sub


          Private Sub Command2_Click()
            Text5.Text = (-Val(Text2.Text) + Val(Text4.Text) ^ 1 / 2) / 2 * Val(Text1.Text)
              Text6.Text = (-Val(Text2.Text) - Val(Text4.Text) ^ 1 / 2) / 2 * Val(Text1.Text)
                End Sub
                • Dupa ce  ati introdus codul iesiti din fereasta in care ati introdus codul 
                • Mergeti la FILE->MAKE PROJECT 1.EXE
                • Alegeti locul unde sa salvati aplicatia si dati SAVE
                Si gata asta a fost!!!!

                P.S : era sa  uit , pentru cei lenesi  puteti sa downloadati   o aplicatie ca aceasta  de aici    http://www.mediafire.com/?h0lf21e15xmkt6s
                  Olá! Se você ainda não assinou, assine nosso RSS feed e receba nossas atualizações por email, ou siga nos no Twitter.
                  Nome: Email:

                  0 comentarii:

                  Trimiteți un comentariu

                  Popular posts

                  Blogger news

                  TRAFIC TRIPUL - Directo Web