Prikazi cijelu temu 07.08.2013 20:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Skola Vb-a za napredne
Evo jos jedan primjer.
U njemu mijenjajte vrijednost z od 1 do 3.
Pokrecite sub PozivR
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Izracun(a As Integer, b As Integer, Optional c As Integer = 3)
  2. If c = 1 Then
  3. Izracun = a + b
  4. ElseIf c = 2 Then
  5. Izracun = a * b
  6. Else
  7. Izracun = (a + b) + (a * b)
  8. a = a + b
  9. b = a * b
  10. c = 100
  11. End If
  12. End Function
  13. Sub PozivR()
  14. Dim X As Integer, Y As Integer, Z As Integer, V As Integer
  15.  
  16. X = 2
  17. Y = 3
  18. Z = 1
  19. V = Izracun(X, Y, Z)
  20. MsgBox "V=" & V & vbCr & "X=" & X & vbCr & "Y=" & Y & vbCr & "Z=" & Z
  21. 'vbcr je prelazak u novi red
  22.  
  23. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.