Predmet:Re: Vb Skripte
Evo sada kobinacija ovoga svega.
Izracunavanje hipotenuze pravouglog trougla kada su poznate dvije katete.
Primjer:
PreuzmiIzvorni kôd (HTML):
Function mojaprocedura()
Dim Forma
Dim Vrijednost1
Dim Vrijednost2
Dim Rezultat
set Forma=Document.MojaForma
Vrijednost1=Forma.tekst1.value
Vrijednost2=Forma.tekst2.value
Rezultat=Sqr(Vrijednost1^2 + Vrijednost2^2)
Forma.tekst3.value =Rezultat
end function
Pravougli trougao:
Stranica a:
<INPUT TYPE="text" SIZE="20" NAME="Tekst1" VALUE="">
Stranica b:
<INPUT TYPE="text" SIZE="20" NAME="Tekst2" VALUE="">
<button onclick="mojaprocedura()">Izra
Rezultat je:
<INPUT TYPE="text" SIZE="20" NAME="Tekst3" VALUE="">
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.