zxz 14.06.2012 10:27
Predmet:Vb Skripte

Kako koristiti VbSkrip odnosno ugraditi ga u nash HTML stranicu?
Ukoliko zelimo pisati proceduru Vb jezikom u html stranici onda je osnovno da znamo da prvo moramo napisati sledeci tag:
<script type="text/vbscript">
ili
<SCRIPT LANGUAGE="VBScript">
To znaci da dajemo do znanja da su sledeci redovi koda u VB.
Na kraju kada zavrsimo sa pisanjem naseg koda moramo zatvoriti gore upisani tag:
</script>
Kako to izgleda u praksi:
PreuzmiIzvorni kôd (HTML):
  3. <script type="text/vbscript">
  4. Function mojaprocedura()
  5.   document.write("Ovo je VB Skript!")
  6. end function
  7.  </script>
  8. </HEAD>
  10.  <button onclick="mojaprocedura()">Klikni me</button>
  11.  </body>
  12. </HTML>

U ovom Primjeru je napisana procedura koja se zove mojaprocedura i poziva se na on klik komandnog tastera.

zxz 14.06.2012 10:38
Predmet:Re: Vb Skripte

Iz gornjeg primjera se vidi da podatke odnosno rezultat procedure izbacujemo na html stranicu pomocu naredbe document.write("Neki podaci"):

Ako bi to htjeli izbaciti kao msgbox onda bi koristili naredub alert.
Primjer:
PreuzmiIzvorni kôd (HTML):
  3. <script type="text/vbscript">
  4. Function mojaprocedura()
  5.   alert("Ovo je VB Skript!")
  6. end function
  7.  </script>
  8. </HEAD>
  10.  <button onclick="mojaprocedura()">Klikni me</button>
  11.  </body>
  12. </HTML>

zxz 14.06.2012 11:14
Predmet:Re: Vb Skripte

Umjesto naredbe alert mozemo koristiti i naredbu MsgBox.
Onio koji su koristili stari Vb vjerovatno ce se lakse snaci.
Primjer:
PreuzmiIzvorni kôd (HTML):
  3. <script type="text/vbscript">
  4. Function mojaprocedura()
  5.  MsgBox("Ovo je VB Skript!")
  6. end function
  7.  </script>
  8. </HEAD>
  10.  <button onclick="mojaprocedura()">Klikni me</button>
  11.  </body>
  12. </HTML>

zxz 14.06.2012 11:16
Predmet:Re: Vb Skripte

E sad ako bi to Htjeli upisati u neki tekst boks onda moramo dodati formu i tekstboks.
Primjer:
PreuzmiIzvorni kôd (HTML):
  1. <SCRIPT LANGUAGE="VBScript">
  2. Function mojaprocedura()
  3. Dim  Forma
  4. set Forma=Document.MojaForma
  5. Forma.tekst1.value="Ovo je VB Skript!"
  6. end function
  7.  </script>
  8. </HEAD>
  10. <FORM NAME="MojaForma">
  11.  <button onclick="mojaprocedura()">Klikni me</button>
  12. <INPUT TYPE="text" SIZE="20" NAME="Tekst1" VALUE="">
  13. </FORM>
  14.  
  15.  </body>
  16. </HTML>

zxz 14.06.2012 11:34
Predmet:Re: Vb Skripte

Sada jedino jos sto nam je ostalo a to je kako procitati iz htm nekog tekst boksa vrijednost.
Primjer:
PreuzmiIzvorni kôd (HTML):
  3. <SCRIPT LANGUAGE="VBScript">
  4. Function mojaprocedura()
  5. Dim  Forma
  6. Dim Vrijednost
  7. set Forma=Document.MojaForma
  8. Vrijednost=Forma.tekst1.value
  9. msgbox Vrijednost
  10. end function
  11.  </script>
  12. </HEAD>
  14. <FORM NAME="MojaForma">
  15.  <button onclick="mojaprocedura()">Klikni me</button>
  16. <INPUT TYPE="text" SIZE="20" NAME="Tekst1" VALUE="Ovo je VB Skript!">
  17. </FORM>
  18.  </body>
  19. </HTML>

zxz 14.06.2012 20:56
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>

zxz 14.06.2012 21:56
Predmet:Re: Vb Skripte

Pozdravna poruka na stranici.
PreuzmiIzvorni kôd (HTML):
  2.  <head>
  3. <script type="text/vbscript">
  4.  Function Pozdrav()
  5.  i=hour(time)
  6.  If i < 10 Then
  7.   Tekst= "Dobro Jutro...!"
  8. ElseIf i >10  AND i < 18 then
  9.  Tekst= "Dobar dan!"
  10. ElseIf i => 18 AND i< 23 then
  11.   Tekst="Dobro ve
  12. e!"
  13. Else
  14.  Tekst= "Ugodna no"
  15. End If
  16. Alert Tekst
  17. End Function
  18. </script>
  19.  </head>
  20.  <body onload="Pozdrav()">
  21.    Vas HTM kod na stranici
  22.  </body>

zxz 15.06.2012 08:58
Predmet:Re: Vb Skripte

Evo sad cemo malo stati da provjerimo dali ko ovo cita.
Ako imate kakvih pitanja ili nejasnoca onda naprijed.

Avko 09.09.2015 11:07
Predmet:Re: Vb Skripte

zapeo na samom pocetku.
prepostavljam da bi trebalo u prvoj proceduri nakon sto kliknem na >klikni me< trebalo ispisati "Ovo je VB script", no meni iz tko zna kojih razloga to ne radi.

u mome slucaju se klikne na "zaroni"

web stranica : jedno

zxz 09.09.2015 13:23
Predmet:Re: Vb Skripte

Mali problem sa htmlom.
ovo gore sto si prekopirao bi radilo da nisi umetnuo u vec postojecu stranicu jer ovaj kod je napravljen kao stranica sama za sebe.
Znaci ima na pocetku tag html body i head.
html je tag za pocetak stranice i mora biti i na kraju stranice.
Znaci svaki otvoreni tag se mora i zatvoriti.
Trebas malo pogledati u forumu html.
E sad kako vidi sama vb skript procedura treba da se nalazi u zaglavlju html stranice , naci izmedju tagova head na ovoj tvojoj stranici a ovaj dio koda:
<button onclick="mojaprocedura()">Klikni me</button>
mora biti izmedju tagova Body.

U tvom slucaju znaci <button onclick="mojaprocedura()">Klikni me</button> moze ostati gdje i jeste a proceduru prebaci na vrh u tvoje stranice ispod taga <head>
<!DOCTYPE html>
<html>
<head>

netrebas prenositi iz procedure ostale html tagove.

znaci ispod head samo ovaj dio:
<script type="text/vbscript">
Function mojaprocedura()
MsgBox("Ovo je VB Skript!")
end function
</script>

a dole gdje je sad procedura neka ostane samo ovo:
<button onclick="mojaprocedura()">Klikni me</button>