Prikazi cijelu temu 14.06.2012 20:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Vb Skripte
Evo sada kobinacija ovoga svega.
Izracunavanje hipotenuze pravouglog trougla kada su poznate dvije katete.
Primjer:
PreuzmiIzvorni kôd (HTML):
  3. <SCRIPT LANGUAGE="VBScript">
  4. Function mojaprocedura()
  5. Dim  Forma
  6. Dim Vrijednost1
  7. Dim Vrijednost2
  8. Dim Rezultat
  9.  
  10. set Forma=Document.MojaForma
  11. Vrijednost1=Forma.tekst1.value
  12. Vrijednost2=Forma.tekst2.value
  13. Rezultat=Sqr(Vrijednost1^2 + Vrijednost2^2)
  14. Forma.tekst3.value =Rezultat
  15. end function
  16.  </script>
  17. </HEAD>
  19. <FORM NAME="MojaForma">
  20. Pravougli trougao:
  21. <br>
  22. Stranica a:
  23. <INPUT TYPE="text" SIZE="20" NAME="Tekst1" VALUE="">
  24. <br>
  25. Stranica b:
  26. <INPUT TYPE="text" SIZE="20" NAME="Tekst2" VALUE="">
  27.  <button onclick="mojaprocedura()">Izra
  28. unaj</button>
  29.  <br>
  30.  Rezultat je:
  31.  <INPUT TYPE="text" SIZE="20" NAME="Tekst3" VALUE="">
  32. </FORM>
  33.  </body>
  34. </HTML>
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.